暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
本帖最後由 mark15jill 於 2011-6-2 13:08 編輯
回復 1# ClareWu
剛剛作了一個 可以用
先看是不是您要的
作用
如果 a2儲存格 = 空字串 則 checkbox1 則為核選 否則 不核選
解釋
此程式 是用 活頁簿內容變更功能 不用啓動巨集 直接以 A2 動作
代碼- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Range("a2").Value = "" Then
- CheckBox1.Value = True
- Else
- CheckBox1.Value = False
- End If
- End Sub
 空白核選.rar (9.67 KB)
延伸應用
如果 a2+b2 = c2 則 checkbo1為核選 否則 checkbox2為 核選- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Range("c2").Value = Range("a2").Value + Range("b2").Value Then
- CheckBox1.Value = True
- CheckBox2.Value = False
-
- Else
- CheckBox1.Value = False
- CheckBox2.Value = True
- End If
- End Sub
|
|
發表於 2011-6-2 12:53
| 