如何使 TextBox3.Text 為一個 TextBox(i).Text 來使用
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
本帖最後由 oobird 於 2012-3-5 12:45 編輯
- Private Sub UserForm_Initialize()
- rng = Range([a1], [A65536].End(3))
- For i = 1 To UBound(rng)
- Set b = Me.Controls.Add("Forms.Label.1")
- With b
- .Height = 10
- .Width = 10
- .Top = 15 * i
- .Left = 20
- .Caption = rng(i, 1)
- End With
- Next
- End Sub
|
|
|
|
|
|
|
|
發表於 2012-3-5 12:43
| 