返回列表 上一主題 發帖

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

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-10-21 19:10 | 只看該作者

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

附件 :   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

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
2#
發表於 2021-10-21 23:37 | 只看該作者
本帖最後由 ziv976688 於 2021-10-22 00:03 編輯

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

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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2021-10-22 05:29 | 只看該作者
本帖最後由 ziv976688 於 2021-10-22 05:40 編輯

1#&2#全部作廢

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

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

以上  懇請賜教！  謝謝！

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
4#
發表於 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

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2021-10-22 08:39 | 只看該作者
本帖最後由 ziv976688 於 2021-10-22 09:05 編輯

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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
6#
發表於 2021-10-22 10:04 | 只看該作者
本帖最後由 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

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
7#
發表於 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

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
8#
發表於 2021-10-22 11:25 | 只看該作者
本帖最後由 ziv976688 於 2021-10-22 11:27 編輯

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

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題