[[20050422114415]]　『テキストボックスからワークシートへ入力』（Ｇ）　ページの最後に飛ぶ

『テキストボックスからワークシートへ入力』（Ｇ）

 Windows Me  Excel 2000

ユーザーフォーム上に、コマンドボタンが１つとテキストボックスが９つあります。
テキストボックスに入力されたデータを、コマンドボタンを押すとワークシートにそのデータを、Ａ列の最下端に入力するマクロはどのようにかくのでしょうか。

 worksheets("sheet1").range("a65536").end(xlup).offset(1).value = textbox1.text

  (INA)

 9つループするのなら、、
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 9
    With Me.Controls("TextBox" & i)
        If .Text <> "" Then
            Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1).Value = .Text
        End If
    End With
Next
End Sub
それから、余談ですが
HNをころころ変えてませんでしょうか？
違ってましたら、ごめんちゃいですけど、なぜ？変えるのでしょうか？
（SoulMan）

特に意味はありませんが、変えると気分がおちつきます。
下のコードですが、データを横にするにはどうすればよいでしょうか。

 Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1).Value = .Text
これを
Sheets("Sheet1").Range("iv1").End(xlToLeft).Offset(, 1).Value = .Text
これでどうでしょうか？
（SoulMan）

 >HNをころころ変えてませんでしょうか？

 >特に意味はありませんが、変えると気分がおちつきます。

 !!!!
 (小言じじい）

できました。ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20050422114415]] 『テキストボックスからワークシートへ入力』（Ｇ） ページの最後に飛ぶ

[[20050422114415]]　『テキストボックスからワークシートへ入力』（Ｇ）　ページの最後に飛ぶ