|
▼ブーチー さん:
もしテキストボックスがActiveX(コントロールツールボックスのテキストボックス)なら。
Sample3 は、セルへの値セットではなくLinkさせる方式です。
この場合、テキストボックス<->セルの【双方向】になります。
(セルに入力すればテキストボックスに書き込まれる)
Sub Sample2()
Dim tx As Object
For Each tx In ActiveSheet.OLEObjects
If TypeName(tx.Object) = "TextBox" Then tx.TopLeftCell.Offset(-1, -1).Value = tx.Object.Text
Next
End Sub
Sub Sample3()
Dim tx As Object
For Each tx In ActiveSheet.OLEObjects
If TypeName(tx.Object) = "TextBox" Then tx.LinkedCell = tx.TopLeftCell.Offset(-1, -1).Address(0, 0)
Next
End Sub
|
|