| |
▼ブーチー さん：
もしテキストボックスが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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
