[發問] 有關選取方塊

ClareWu

請問一下, 若在表格中,我想要製作選取方塊,當點選一個項目前的空白格,就會自己打"V", 這種選取方塊要如何製作

mark15jill

同樣的意思 減少分成兩帖發問...
可以適當用編輯 來加以延伸問題
要改名稱的話
開發人員-> 設計模式-> 選擇checkbox ->屬性 ->caption的那邊 修改成你要的名稱

要改框線的話
開發人員-> 設計模式-> 選擇checkbox ->屬性 ->shadow 選擇 true 即可呈現立體狀效果


"另外再請問表單控制項跟Activated 控制項有什麼不同呢?"
這個的話  可以參考以下網頁

ActiveX控制項
http://140.130.192.1/ebook/VB6_1/17.htm


表單控制項
http://msdn.microsoft.com/zh-tw/library/cc295438.aspx

ClareWu

另外,如果我要在核取方塊外面加框線,該怎麼做呢?

ClareWu

這是我要的內容,可是為什麼我核取方塊後會跟著"核取方塊"這樣的字眼?
另外再請問表單控制項跟Activated 控制項有什麼不同呢?

mark15jill

回復 1# ClareWu

剛剛作了一個 可以用
先看是不是您要的

作用
如果 a2儲存格 = 空字串 則 checkbox1 則為核選 否則  不核選

解釋
此程式 是用 活頁簿內容變更功能  不用啓動巨集  直接以 A2 動作
代碼

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Range("a2").Value = "" Then
   
3.         CheckBox1.Value = True
   
4.     Else
   
5.         CheckBox1.Value = False
   
6.     End If
   
7. End Sub

複製代碼

附檔
    空白核選.rar (9.67 KB)

下載次數: 5

2011-6-2 12:52

延伸應用
如果 a2+b2 = c2 則 checkbo1為核選  否則 checkbox2為 核選

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Range("c2").Value = Range("a2").Value + Range("b2").Value Then
   
3.         CheckBox1.Value = True
   
4.         CheckBox2.Value = False
   
5.         
   
6.     Else
   
7.         CheckBox1.Value = False
   
8.         CheckBox2.Value = True
   
9.     End If
   
10. End Sub

複製代碼

ps 此帖應該歸類於 EXCEL程式區才對..

ANGELA

回復 3# ClareWu


   

下載 (57.86 KB)

2011-6-2 12:41

ClareWu

回復 2# ANGELA


    實在很抱歉,我不懂樓上大大的回覆,能麻煩再說明嗎?

ANGELA

開發人員=>插入