標題: [發問] 核取方塊連結巨集問題尋問 [打印本頁]

---

作者: rouber590324    時間: 2014-10-21 08:58     標題: 核取方塊連結巨集問題尋問

DEAR  ALL 大大 -
1.一般使用核取方塊"儲存格連結"至  A1時-核取方塊有勾取A1=TRUE  核取方塊無勾取A1=FALSE
2.今核取方塊改連結巨集(圖一).不管 核取方塊有無勾取A1均只能秀出TRUE.
3.請問巨集有無辦法如圖二般之結果.核取方塊有勾取A1=TRUE  核取方塊無勾取A1=FALSE
煩不吝賜教.  THANKS*10000
圖一
SUB 核取方塊()
  Sheet1.Select
  Range("A1") = "TRUE"
End Sub
圖二
SUB 核取方塊1()
  核取方塊有勾取
  Sheet1.Select
  Range("A1") = "TRUE"
  核取方塊無勾取
   Sheet1.Select
  Range("A1") = "FALSE"
End Sub

---

作者: GBKEE    時間: 2014-10-21 11:32

回復 1# rouber590324
試試看

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

複製代碼

---

作者: rouber590324    時間: 2014-10-21 16:26

DERA SIR
小弟將您之巨集連至  核取方塊
出現 "執行階段錯誤.找不到指定名稱項目"
程式停於如下
Set S = ActiveSheet.Shapes("核取方塊")
煩不吝賜教 THANKS*10000

---

作者: 蝕光迴狼    時間: 2014-10-21 19:26

回復 3# rouber590324

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

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

複製代碼

---

作者: rouber590324    時間: 2014-10-22 08:25

DEAR  兩位大大
   感謝您們之指導.OK啦 受用無盡  THANKS*10000

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)