返回列表 上一主題 發帖

[發問] 自動導入指定資料的語法。

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
1# 跳轉到 »
發表於 2021-10-22 07:31 | 顯示全部帖子
回復 1# ziv976688


能如上述的方式將數字導入並分次執行~   
>>用一個迴圈即可，謝謝


Drr = Sheets("期數").Range([期數!b1], [期數!a65536].End(3))
For i = 2 To UBound(Drr)
      ....
      ...
     RrngA = Drr(i, 1)
     ....
     RrngB = Drr(i, 2)
    ...
    ...
    ActiveWindow.Close
   
Next
'...............
...
...

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
2#
發表於 2021-10-22 10:42 | 顯示全部帖子
本帖最後由 samwang 於 2021-10-22 10:45 編輯

回復 6# ziv976688


EX :當A3=1900； B3=""時~會跑出1900+1885的資料夾，
>>沒問題，RrngB=""如照片，如後學之前提的會延生其他問題，
要從主程式了解需求應用，才可以知道如何修改，謝謝

請問程式碼 RrngB = Drr(i, 2) 要怎麼改?
才能跑出 1900 的資料夾。  
>> RrngB= Left( Drr(i, 2) ,4)

1.PNG (42.1 KB)

1.PNG

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題