麻辣家族討論版版 » Excel程式區 » 巨集產生的核取方塊,能讓的儲存格對應嗎?

返回列表下一主題上一主題發帖

[發問] 巨集產生的核取方塊,能讓的儲存格對應嗎?

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-9 10:58 | 只看該作者

[發問] 巨集產生的核取方塊,能讓的儲存格對應嗎?

請教各位大師!
                        巨集產生的核取方塊,能讓的儲存格對應嗎?

                        如:  按未選取 B10:=TRUE或 FALSE
                        如:  按未選取 B10:=1或0

核取方塊~2.rar (13.11 KB)

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-9 11:15 | 只看該作者

本帖最後由 GBKEE 於 2012-10-9 11:24 編輯

回復 1# kai6929

Boolean 資料型態
Boolean 變數係以 16 位元( 2 個位元組)數字的形式儲存，但只能是 True 或是 False。Boolean 變數的值不是 True 就是 False ( 在使用 Print 的時候 )，或是 #TRUE# 和 #FALSE# ( 在使用 Write # 的時候 )。使用關鍵字 True 與 False 可將 Boolean 變數指定為這兩個狀態中的一個。
當轉換其他的數值型態為 Boolean 時，0 會轉成 False，而所有其他的值則變成 True。當轉換 Boolean 值為其他的資料型態,時，False 成為 0 ，而 True 成為 -1。

複製代碼

試試看

Option Explicit
Sub check()
Dim K As String, M As Boolean
With ActiveSheet.Shapes(Application.Caller)
With .TextFrame
K = .Characters.Text
If Left(K, 1) = "n" Then
.Characters.Text = "o 未選取"
M = False
Else
.Characters.Text = "n 選取"
M = True
End If
.Characters(1, Len(K) + 1).Font.Size = 10
.Characters(1, 1).Font.Size = 18
End With
.TopLeftCell.Offset(, 2) = M
.TopLeftCell.Offset(, 3) = IIf(CSng(M) = 0, 0, 1)
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

3^#

發表於 2012-10-9 13:29 | 只看該作者

哇! 大師真是貼心十萬分的感謝
但能否在請教一下現在儲存格的(值)會隨著,核取方塊位置改變而改變
想做到不論核取方塊放那儲存格的值都不會改變這樣可行嗎?

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-10-9 13:58 | 只看該作者

回復 3# kai6929
儲存格的(值)會隨著,核取方塊位置改變而改變,又要做到不論核取方塊放那,儲存格的值都不會改變
這樣不是有點矛盾嗎?

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

5^#

發表於 2012-10-9 15:45 | 只看該作者

抱歉大師,我指的是儲存格的位置

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

6^#

發表於 2012-10-9 15:50 | 只看該作者

抱歉大師,我指的是儲存格的位置不變動固定,而核取方塊可以隨意放

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-10-9 17:21 | 只看該作者

回復 6# kai6929
不管方塊移動到何處,皆在固定的儲存格回應

一般模組的程式碼

Option Explicit
Dim AR(1 To 2), Sh As Worksheet '模組私用變數
Sub AUTO_OPEN() '檔案開啟時一般模組自動執行的檔案
Dim S As Shape, A(), B(), i As Integer
Set Sh = Sheets("工作表1")
For Each S In Sh.Shapes
If S.Type = msoTextBox Then '方塊的Type msoTextBox 值= 17
S.OnAction = "check" '指定巨集
ReDim Preserve A(i)
ReDim Preserve B(i)
A(i) = S.Name '方塊名稱
If i = 0 Then
Set B(i) = Sh.[d5] '指定儲存格
Else
Set B(i) = B(i - 1).Offset(1) '指定儲存格
End If
i = i + 1
End If
Next
AR(1) = A '指定陣列內容
AR(2) = B '指定陣列內容
End Sub
Sub check() '必須是按下方塊執行此程序
'AUTO_OPEN '如有錯誤執行 AUTO_OPEN 一次
Dim K As String, M As Boolean, i As Integer
With Sh.Shapes(Application.Caller)
With .TextFrame
K = .Characters.Text
If Left(K, 1) = "n" Then
.Characters.Text = "o 未選取"
M = False
Else
.Characters.Text = "n 選取"
M = True
End If
.Characters(1, Len(K) + 1).Font.Size = 10
.Characters(1, 1).Font.Size = 18
End With
i = Application.Match(.Name, AR(1), 0) - 1 '取的方塊名稱在AR(1)的索引值
AR(2)(i).Value = M
AR(2)(i).Offset(, 1).Value = IIf(CSng(M) = 0, 0, 1)
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

8^#

發表於 2012-10-12 12:39 | 只看該作者

感謝大師......

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

返回列表下一主題上一主題