返回列表 上一主題 發帖

[發問] 有關選取方塊

ClareWu

帖子
40 
主題
16 
精華
0 
積分
79 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2010-12-20 
最後登錄
2015-10-23 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-6-2 11:50 | 只看該作者

[發問] 有關選取方塊

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

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
8#
發表於 2011-6-2 13:48 | 只看該作者
本帖最後由 mark15jill 於 2011-6-2 13:53 編輯

同樣的意思 減少分成兩帖發問...
可以適當用編輯 來加以延伸問題
要改名稱的話
開發人員-> 設計模式-> 選擇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

TOP

ClareWu

帖子
40 
主題
16 
精華
0 
積分
79 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2010-12-20 
最後登錄
2015-10-23 
7#
發表於 2011-6-2 13:15 | 只看該作者
另外,如果我要在核取方塊外面加框線,該怎麼做呢?

TOP

ClareWu

帖子
40 
主題
16 
精華
0 
積分
79 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2010-12-20 
最後登錄
2015-10-23 
6#
發表於 2011-6-2 13:08 | 只看該作者
這是我要的內容,可是為什麼我核取方塊後會跟著"核取方塊"這樣的字眼?
另外再請問表單控制項跟Activated 控制項有什麼不同呢?

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2011-6-2 12:53 | 只看該作者
本帖最後由 mark15jill 於 2011-6-2 13:08 編輯

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

延伸應用
如果 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程式區才對..

TOP

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
4#
發表於 2011-6-2 12:41 | 只看該作者
回復 3# ClareWu


   

TOP

ClareWu

帖子
40 
主題
16 
精華
0 
積分
79 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2010-12-20 
最後登錄
2015-10-23 
3#
發表於 2011-6-2 12:26 | 只看該作者
回復 2# ANGELA


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

TOP

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
2#
發表於 2011-6-2 12:09 | 只看該作者
開發人員=>插入

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題