標題: 讓長方塊隨著輸入的數字變化 [打印本頁]

---

作者: kerochen    時間: 2014-5-29 22:09     標題: 讓長方塊隨著輸入的數字變化

本帖最後由 kerochen 於 2014-5-29 22:10 編輯

有二格儲存格，分別為 A3 ' B3,在 A3輸入10的時後，會出現一個(10,50 10,50)長方格，在B3輸入50的時後，會出現一個(50,50 50,50)的長方格…。
  Dim x, y, z As Single
     Range("A3") = x  
    Range("B3") =Y
ActiveSheet.Shapes.AddShape _
    (msoShapeRectangle, x, 50, x, 50). _
    Select
ActiveSheet.Shapes.AddShape _
    (msoShapeRectangle, y, 50,y, 50). _
    Select
但這樣一直跑不出來- - 請高手協助 謝謝

---

作者: kerochen    時間: 2014-5-30 21:35

自問自答…真的是小學生問題

x=range("A3") 就好了= =
我呆了

---

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