返回列表 上一主題 發帖

[發問] 各位老師vba 改善獲取指定頁的程式內有程序代碼!

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
1# 跳轉到 »
發表於 2014-2-18 11:20 | 顯示全部帖子
因無資格下載檔案，用猜的。
cw = "1109,1160,1150,1110,1130,1141,1171,1172,1173,1176,1174,1175,1623,1180,1201,1610,1621,1622,1630,1710"
For Each sh In Worksheets
    If InStr(cw, Right(sh.Name, 4)) <> 0 Then UserForm1.ListBox2.AddItem sh.Name
Next sh
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2014-2-18 13:51 | 顯示全部帖子
回復 5# marco2000

無資格下載檔案...
看看底下是否是版大所需？
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) = True Then n = n + 1
Next
MsgBox "已經選取 " & n & " 個檔案"
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
3#
發表於 2014-2-18 14:05 | 顯示全部帖子
6# 是說於ListBox2內(可MultiSelect)選取幾個檔案，若是要知道找到了幾個檔案，以及ListBox2內選取幾個檔案於則是用：
For i = 0 To ListBox2.ListCount - 1
    If ListBox1.Selected(i) = True Then n = n + 1
Next
MsgBox "於" & ListBox2.ListCount & " 個被找到的檔案中，已選了取 " & n & " 個檔案"
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
4#
發表於 2014-2-18 15:54 | 顯示全部帖子
回復 10# marco2000


請下載摹擬檔案，試執行看看是否是版大所要的。
http://www.FunP.Net/115998
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
5#
發表於 2014-2-18 19:53 | 顯示全部帖子
回復 12# marco2000


請於開始之 Private Sub CommandButton3_Click()

與 ThisWorkbook.Sheets(1).UsedRange.Clear

兩行中間插入底下的判斷式，試看看。

sn = UserForm1.ListBox2.ListCount
If sn = 0 Then
    MsgBox "並沒有選到檔案", vbCritical + vbOKOnly, "請重選"
    Exit Sub
Else
    If MsgBox("選了 " & sn & " 個檔案，是否確定要執行？", vbQuestion + vbYesNo, "請確認") = vbNo Then Exit Sub
End If
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
6#
發表於 2014-2-19 20:23 | 顯示全部帖子
回復 15# marco2000

大概是說從作用中活頁簿內，依序從清單方塊(ListBox2)內選單所有列示的工作表名稱，循環複製該工作表C∼Z欄範圍內的資料，至本活頁簿內相同工作表名稱的B欄內。

因不是原著也沒有原檔案可參照，可能會有些失準，最好是找到原著，請他來解釋較妥。
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
7#
發表於 2014-2-20 10:50 | 顯示全部帖子
回復 18# marco2000

版大不懂的地方都指向變數名稱上，變數名稱可隨意命名(但需避開VBA的關鍵字)，
變數只是個容器，可裝載所需的資訊，並可隨時更改容器內的資訊來做有效的運用。

若要完全了解變數如何運作，除了GBKEE超級版主提出的方法之外，建議去買本 Excel VBA 基本教科書來研究吧。
[b]Kubi[/b]

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題