[問題] 程式碼修正請教

看板Office作者 (傻傻)時間5年前 (2020/11/17 14:10), 編輯推噓0(0014)
留言14則, 2人參與, 5年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:excel2010 板大好~ A活頁簿是流水帳 用B活頁簿彙整特定資料 指定B活頁簿J4爲條件指定, A活頁簿的日期與J4相同時則把該筆貼入B活頁簿,目前修改程式碼卡關,請求板大建議。 謝謝 https://i.imgur.com/VWsrhFY.jpg
https://i.imgur.com/cqGU9pK.jpg
-- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.242.191.59 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1605593418.A.BCE.html

11/17 14:36, 5年前 , 1F
迴圈以do while...loop的話,改do while bj<>""
11/17 14:36, 1F

11/17 14:36, 5年前 , 2F
if bj = range("j4") then
11/17 14:36, 2F

11/17 14:36, 5年前 , 3F
set RNG...
11/17 14:36, 3F

11/17 14:36, 5年前 , 4F
workbooks(...).sheets("database")...
11/17 14:36, 4F

11/17 14:36, 5年前 , 5F
endif
11/17 14:36, 5F

11/17 14:36, 5年前 , 6F
i=i+1
11/17 14:36, 6F

11/17 14:36, 5年前 , 7F
....
11/17 14:36, 7F

11/17 14:37, 5年前 , 8F
if..endif內的動作並沒有修改任何地方
11/17 14:37, 8F

11/17 14:39, 5年前 , 9F

11/17 14:42, 5年前 , 10F
另外,1.不是database分頁,這是工作表,excel分頁和工作
11/17 14:42, 10F

11/17 14:42, 5年前 , 11F
表所指是不同的東西
11/17 14:42, 11F

11/17 14:42, 5年前 , 12F
2.如果有欄列號或用於表示欄列號的話(如"A","J4",i=2),截
11/17 14:42, 12F

11/17 14:42, 5年前 , 13F
圖上就要截取到欄列號
11/17 14:42, 13F

11/17 16:34, 5年前 , 14F
謝謝板大指導,程式碼已可以如願運行
11/17 16:34, 14F
文章代碼(AID): #1VisbAlE (Office)
文章代碼(AID): #1VisbAlE (Office)