[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『テキストボックスからワークシートへ入力』(G)
Windows Me Excel 2000
ユーザーフォーム上に、コマンドボタンが1つとテキストボックスが9つあります。
テキストボックスに入力されたデータを、コマンドボタンを押すとワークシートにそのデータを、A列の最下端に入力するマクロはどのようにかくのでしょうか。
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をころころ変えてませんでしょうか?
>特に意味はありませんが、変えると気分がおちつきます。
!!!! (小言じじい)
できました。ありがとうございます。
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.