[算表] Excel巨集執行時,如何在遇到特定關鍵꘠…

看板Office作者 (aShiung)時間15年前 (2010/11/03 13:35), 編輯推噓1(105)
留言6則, 3人參與, 最新討論串1/1
軟體:MS Excel 版本:2003 因為要整理一份會計報表 那再利用巨集搬移位置時 中間會有"小計" 是想請問看看,巨集要如何加入,才會在遇到儲存格內有特定文字時 會停止,或者是改執行其他指令? 謝謝 -----------------這是我的VBA ActiveCell.Offset(0, 4).Select If Range("A1").Value = "小計:" Then Stop Else ActiveCell.Offset(0, -4).Select ActiveCell.Offset(1, 2).Range("A1").Select Selection.Cut ActiveCell.Offset(-1, 1).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(1, 2).Range("A1").Select Selection.Cut ActiveCell.Offset(-1, 1).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Selection.Delete Shift:=xlUp ActiveCell.Select End If End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 125.230.40.96

11/03 13:57, , 1F
用 if 去判斷儲存格內容 符合條件 執行指令 end 結束
11/03 13:57, 1F

11/03 14:46, , 2F
因為巨集是使用相對位置~所以要怎樣取得儲存格內容呢?~
11/03 14:46, 2F

11/03 14:47, , 3F
我看了錄製巨集的內容,用了Range("A1")卻是去跟實際上的
11/03 14:47, 3F

11/03 14:48, , 4F
的A1比對
11/03 14:48, 4F
※ 編輯: ashiung 來自: 125.230.40.96 (11/03 14:49)

11/05 12:02, , 5F
用迴圈for i=1 to [a65535].end(xlup).row
11/05 12:02, 5F

11/05 12:04, , 6F
再加上if去判斷 if range("a"&i) = "小計" then
11/05 12:04, 6F
文章代碼(AID): #1CqFI7fI (Office)
文章代碼(AID): #1CqFI7fI (Office)