返回列表 上一主題 發帖

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

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

附件 :   TEST_1021.rar (123.87 KB)

期數!
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 於 2021-10-22 00:03 編輯

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

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

TOP

本帖最後由 ziv976688 於 2021-10-22 05:40 編輯

1#&2#全部作廢

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

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

以上  懇請賜教!  謝謝!

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

TOP

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

本帖最後由 ziv976688 於 2021-10-22 09:05 編輯

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

TOP

本帖最後由 ziv976688 於 2021-10-22 10:13 編輯

回復 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 的資料夾。
謝謝您 !

TOP

本帖最後由 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

TOP

本帖最後由 ziv976688 於 2021-10-22 11:27 編輯

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

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題