標題: 如何讓a=a+1累加 [打印本頁]

---

作者: av8d    時間: 2013-11-14 13:45     標題: 開啟UserForm1後~ 如何設定按下Ctrl+Enter後執行CommandButton1

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

---

作者: GBKEE    時間: 2013-11-14 17:18

本帖最後由 GBKEE 於 2013-11-14 17:20 編輯

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

複製代碼

[attach]16696[/attach]

---

作者: av8d    時間: 2013-11-15 11:31

本帖最後由 av8d 於 2013-11-15 11:50 編輯

回復 2# GBKEE


    [attach]16710[/attach]

沒有作用~再次感謝!

---

作者: GBKEE    時間: 2013-11-15 12:49

本帖最後由 GBKEE 於 2013-11-15 12:53 編輯

回復 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    時間: 2013-11-15 14:49     標題: 如何讓a=a+1累加

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

---

作者: GBKEE    時間: 2013-11-15 16:30

回復 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    時間: 2013-11-19 10:24

本帖最後由 av8d 於 2013-11-19 10:27 編輯

回復 6# GBKEE


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

按下按鈕CommandButton後~

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

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

---

作者: GBKEE    時間: 2013-11-19 10:54

回復 7# av8d
上傳檔案看看

---

作者: av8d    時間: 2013-11-19 13:05

本帖最後由 av8d 於 2013-11-19 13:17 編輯

回復 8# GBKEE

請過目
[attach]16771[/attach]

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

---

作者: GBKEE    時間: 2013-11-19 13:23

回復 9# av8d

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

複製代碼

---

作者: av8d    時間: 2013-11-19 13:44

本帖最後由 av8d 於 2013-11-19 13:46 編輯

回復 10# GBKEE

1. '統計資料數
   
2.     TextBox23.Text = TextBox23.Text + 1
   
3.     If TextBox23.Text >= 10 Then
   
4.         TextBox23.ForeColor = &HC0&
   
5.         If TextBox23.Text >= 20 Then
   
6.             TextBox23.ForeColor = &HC0&
   
7.         End If
   
8.     End If

複製代碼

如果我的IF從10~100各有不同的顏色~是否有簡略寫法?再次感謝！

---

作者: GBKEE    時間: 2013-11-19 14:13

回復 11# av8d
使用QBColor 函數

1. TextBox23 = Val(TextBox23) + 1
   
2.     If TextBox23 >= 10 And TextBox23 <= 100 Then
   
3.         TextBox1.ForeColor = QBColor(Int(TextBox23 / 10))
   
4.     End If

複製代碼

[attach]16776[/attach]

---

作者: av8d    時間: 2013-11-19 23:44

回復 12# GBKEE


    完全是我想要的答案~學習了~謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)