- 帖子
- 15
- 主題
- 3
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2014-5-29
- 最後登錄
- 2015-10-23
|
讓長方塊隨著輸入的數字變化
本帖最後由 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
但這樣一直跑不出來- - 請高手協助 謝謝 |
|
發表於 2014-5-29 22:09
| 
