| |
▼rassen さん：
>イミディエイト ウィンドウにBOX1Aから順次表示されていました。
>Debug.PrintのところをCells(M,N)=に変えて実行してみましたが、何も起こりませんでした。
目的は、
BOX1A という名前のTextBoxのTextを シートの Cells(1, "A") に転記、
以下同様に
BOX1B という名前のTextBoxのTextを シートの Cells(1, "B") に転記、
：
BOX5Z という名前のTextBoxのTextを シートの Cells(5, "Z") に転記したい
ということですか？
↓（UserFormの CommandButton1 ボタンのClickイベントプロシージャに記述）
Private Sub CommandButton1_Click()
Dim m As Long
Dim n As Long
For m = 1 To 5
For n = Asc("A") To Asc("Z")
Cells(m, Chr$(n)).Value = Controls("BOX" & m & Chr$(n)).Text
Next
Next
End Sub
|
|
kanabun
- 09/1/10(土) 21:08 -
