返回列表 上一主題 發帖

[發問] ToggleButton按鈕

[發問] ToggleButton按鈕

設計一個ToggleButton1放在工作表1,希望去控制userform1的開啟或關閉
程式碼如附件
但是似乎只能開,卻無法關

而且開了之後,若點擊userform1右上角的關閉按鈕,ToggleButton1按鈕就偵測不到,就變得很尷尬

CODE.zip (320 Bytes)

回復 1# ssooi
你想要的結果是底下這樣嗎?
===== UserForm1 =====
  1. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  2.     With ActiveSheet
  3.       .ToggleButton1.Caption = " OFF "
  4.       .ToggleButton1.BackColor = RGB(248, 250, 250)
  5.     End With
  6.     Cancel = True
  7.     UserForm1.Hide
  8. End Sub
複製代碼
===== 工作表1 =====
  1. Private Sub ToggleButton1_Click()
  2.   If ToggleButton1.Caption = " ON " Then
  3.     ToggleButton1.Caption = " OFF "
  4.     ToggleButton1.BackColor = RGB(248, 250, 250)
  5.     UserForm1.Hide
  6.   Else
  7.     ToggleButton1.Caption = " ON "
  8.     ToggleButton1.BackColor = RGB(0, 255, 0)
  9.     UserForm1.Show
  10.   End If
  11. End Sub
複製代碼
切換顯示UserForm-ans.zip (18.3 KB)

TOP

        靜思自在 : 君子立恆志,小人恆立志。
返回列表 上一主題