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

ziv976688

附件 :   TEST_1021.rar (123.87 KB)

下載次數: 2

2021-10-21 19:09

期數!
A1= RrngA         B1=RrngB
A2=1889           B2=1885
A3=1900           B3=" "
A4=1900-1902     B4=1897-1901

目前的操作步驟：
開啟主檔~
點執行鍵(GO)→會跳出填入框(即程式碼列11的RrngA=)→填入1889(=A2)→
點確定或按Enter鍵→再跳出填入框(即程式碼列13的RrngB=)→填入1885(=B2)→
點確定或按Enter鍵→程式開始Run→
當頁面的L欄再次顯示數字時~即表示本次的執行動作已完畢。

然後~
點執行鍵(GO)→會跳出填入框(即程式碼列11的RrngA=)→填入1900(=A3)→
點確定或按Enter鍵→再跳出填入框(即程式碼列13的RrngB=)→點確定或按Enter鍵(=B3)→
點確定或按Enter鍵→程式開始Run→
當頁面的L欄再次顯示數字時~即表示本次的執行動作已完畢。

然後~
點執行鍵(GO)→會跳出填入框(即程式碼列11的RrngA=)→填入1900-1902(=A4)→
點確定或按Enter鍵→再跳出填入框(即程式碼列13的RrngB=)→填入1897-1901 (=B4)→
點確定或按Enter鍵→程式開始Run→
當頁面的L欄再次顯示數字時~即表示本次的執行動作已完畢。
A5=" " ~停止操作。
以上共必須操作3次的重複動作
實務上常常需要重複操作百次左右~非常困擾。

需求：
希望能將陳列在期數!A欄和B欄的數字~能如上述的方式將數字導入並分次執行~
以利省去多次的重複動作。


請問：Module1的程式碼要怎麼編寫 ?

以上  懇請賜教！  謝謝！

ziv976688

回復 1# ziv976688
1樓的附件作廢
新附件 : TEST_1021.rar (123.77 KB)

下載次數: 0

2021-10-21 23:37

謝謝 !

PS :
也不知道自己的構想對不對?
如果不適用，以其他的方式都可以~
只要能自動分次導入~以利省卻人工即可。
謝謝 !

ziv976688

1#&2#全部作廢

附件 : TEST_1022.rar (170 KB)

下載次數: 0

2021-10-22 05:29

需求~
希望能將陳列在DATA!S欄和T欄的數字~自動分次導入並自動分次執行~
以利省去多次的重複動作。
其餘說明~請詳見附件。

請問：Module1的程式碼要怎麼編寫 ?

以上  懇請賜教！  謝謝！

PS :
也不知道自己的構想對不對?能不能達到需求?
如果不適用，以其他的方式都可以~
即只要能將原來以人工填入，
轉為自動將S欄和T欄的資料分次導入分次執行~
以利省卻人工即可。
謝謝 !

samwang

回復 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
'...............
...
...

ziv976688

回復 4# samwang
最終端的問題也OK了
謝謝您的耐心指導和熱心幫忙~

ziv976688

回復 4# samwang
不好意思~有1個小問題~請您賜正!謝謝您!
RrngA                              RrngB
1889                              1885
1900       
1900-1902                  1899-1901

EX :當A3=1900； B3=""時~
會跑出1900+1885的資料夾，
即B3會延續B2的期數。

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

samwang

回復 6# ziv976688


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

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

ziv976688

回復 7# samwang
問題都已解決
萬分感謝您附帶圖片的詳細說明~末學受惠良多~感恩