核取方塊連結巨集問題尋問 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 核取方塊連結巨集問題尋問

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

[發問] 核取方塊連結巨集問題尋問

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2014-10-21 19:26 | 顯示全部帖子

回復 3# rouber590324

試看看可不可以，用 GBKEE 版主大大的程式修改的

Option Explicit
Sub EX_核取方塊1()
Dim S As Shape
Set S = ActiveSheet.Shapes(1)
Sheet1.Range("A1") = IIf(S.OLEFormat.Object.Value = 1, "True", "False")
End Sub

複製代碼

我很笨,所以我很用心
　我學藝不精,但我渴求知識

靜思自在 : 君子如水，隨方就圓，無處不自在。

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