如何讓a=a+1累加

av8d

一般UserForm1內會有許多元件~最常見的就是CommandButton1按鈕
如何按下Ctrl+Enter後，可以幫我按下CommandButton1按鈕

GBKEE

回復 1# av8d
系統控制權在 UserForm 無法執行自定的組合鍵
UserForm1.Show False  表單為是非強制回應的。(系統控制權可轉移到工作表)
UserForm的程式碼

1. Option Explicit
   
2. Sub CommandButton1_Click()
   
3.     MsgBox CommandButton1.Caption
   
4. End Sub
   
5. Private Sub UserForm_Initialize()
   
6.     Application.OnKey "^h", "Ex"
   
7. End Sub
   
8. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
9.     Application.OnKey "^h"   '如為系統預設組合鍵:還原原來的指令
   
10. End Sub

複製代碼

一般模組的程式碼

1. Option Explicit
   
2. Sub Ex()
   
3.     UserForm1.CommandButton1_Click
   
4. End Sub
   
5. Sub Ex1()
   
6.     UserForm1.Show False
   
7. End Sub

複製代碼

下載 (100.39 KB)

2013-11-14 17:17

av8d

回復 2# GBKEE


    test.rar (442.97 KB)

下載次數: 7

2013-11-15 11:30

沒有作用~再次感謝!

GBKEE

回復 3# av8d

1. 鍵 代碼
   
2. BREAK {BREAK}
   
3. CAPS LOCK {CAPSLOCK}
   
4. CLEAR {CLEAR}
   
5. DELETE 或 DEL {DELETE} 或 {DEL}
   
6. END {END}
   
7. ENTER ~ (波狀符號)
   
8. ENTER (數字小鍵盤) {ENTER}

複製代碼

1. Private Sub CommandButton1_Click() 'Private 私用的程序,只有這模組的程序可呼叫此程序
   
2. 
   
3. Sub CommandButton1_Click()         '預設為公用程序,其他模組的程序也可呼叫此程序

複製代碼

av8d

Sub CommandButton1_Click()
    '統計資料數
        Dim Label23 As Integer
        Label23 = Label23 + 1
End Sub

GBKEE

回復 5# av8d

1. Option Explicit
   
2. Dim Label23 As Integer '模組的(公用,私用)變數,在 END 後被釋放 或 SET ??? = NOTHING
   
3. '表單模組的(公用,私用)變數,在表單結束或 Unload(將一個物件自記憶體中移除)後被釋放
   
4. Sub CommandButton1_Click()
   
5.   'Dim Label23 As Integer '程式裡的變數:程式結束會被釋放
   
6.         Label23 = Label23 + 1
   
7.         MsgBox Label23
   
8. End Sub

複製代碼

av8d

回復 6# GBKEE


    GBKEE大大您好~
目前我是在UserForm內建立的~

按下按鈕CommandButton後~

會出現 型態不符合 的錯誤          Label23 = Label23 + 1

功能在於每按下一次CommandButton~則會幫我註記一次

GBKEE

回復 7# av8d
上傳檔案看看

av8d

回復 8# GBKEE

請過目
123.rar (30.54 KB)

下載次數: 4

2013-11-19 13:04

-----------------------------
找到問題點了~我沒+Caption和預設值

GBKEE

回復 9# av8d

1. Private Sub CommandButton1_Click()
   
2.     '統計資料數
   
3.     Label23.Caption = Val(Label23.Caption) + 1
   
4.     '這Label23是表單控制項
   
5.     '它的屬性Caption是字串,要用Val函數:傳回包含於字串內的數字。
   
6. End Sub

複製代碼