各位老師vba 改善獲取指定頁的程式內有程序代碼! - Excel程式區

marco2000

帖子: 13
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: window7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-2-17
最後登錄: 2014-2-20

12^# 跳轉到 »

發表於 2014-2-18 16:15 | 只看該作者

http://www.FunP.Net/246277
我傳了我的檔上去
差一點點,我希望的是按了CommandButton3_Click
會彈出msgbox提示我選了多少個檔,並選yes 運行CommandButton3_Click的程式
選NO沒反應,回到UserForm1

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

11^#

發表於 2014-2-18 15:54 | 只看該作者

回復 10# marco2000

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

[b]Kubi[/b]

TOP

marco2000

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: window7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-2-17
最後登錄: 2014-2-20

10^#

發表於 2014-2-18 14:46 | 只看該作者

回復 7# Kubi

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定義訊息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定義按鈕。
Title = "MsgBox Demonstration" ' 定義標題。
Help = "DEMO.HLP" ' 定義說明檔。
Ctxt = 1000 ' 定義內容代碼。
' 顯示訊息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 若使用者按下 [是]。
MyString = "Yes" ' 產生相對回應。
Else ' 若使用者按下 [否]。
MyString = "No" ' 產生相對回應。
End If

複製代碼

這是我的程序代碼,如何修改msgbox是你的程序,並加上yes就運行,no就不作動作

TOP

marco2000

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: window7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-2-17
最後登錄: 2014-2-20

9^#

發表於 2014-2-18 14:25 | 只看該作者

回復 7# Kubi

真的無言感激

TOP

marco2000

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: window7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-2-17
最後登錄: 2014-2-20

8^#

發表於 2014-2-18 14:24 | 只看該作者

試了啦,大大你很強,是我想要的效果
我想在彈出到MsgBox加YES/NO
YES就運行另一個CommandButton3_Click 程式,NO就不變

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

7^#

發表於 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

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

6^#

發表於 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

marco2000