ID非公開
ID非公開さん
2022/1/21 20:15
2回答
エクセルのマクロについての質問です
エクセルのマクロについての質問です Sub 新規入力() Dim name As String '名前の変数定義 Dim furi As String 'ふりがなの変数定義 Dim tel As String '電話番号の変数定義 Dim yuu As String '郵便番号の変数定義 Dim home As String '住所の変数定義 Dim i As Integer 'セルの変数定義 MsgBox "新規入力をします" name = InputBox("名前") 'インプットボックスに名前を入力 furi = InputBox("ふりがな") 'インプットボックスにふりがなを入力 tel = InputBox("電話番号") 'インプットボックスに電話番号を入力 yuu = InputBox("郵便番号") 'インプットボックスに郵便番号を入力 home = InputBox("住所") 'インプットボックスに住所を入力 i = 2 Cells(i, 2) = name Cells(i, 3) = furi Cells(i, 4) = tel Cells(i, 5) = yuu Cells(i, 6) = home End Sub このマクロで最後の入力行を次回実行する際に1行下にしたいのですがどうしたらいいですか
Visual Basic | Excel・27閲覧・25
ベストアンサー
2行目から明細を始めて、次はその下に追加していきたいということですよね？ 「i = 2」 →「 i = Cells(Rows.Count, "B").End(xlUp).Row + 1」 としてみてください。
質問者からのお礼コメント
分かりやすい説明ありがとうございます
お礼日時：1/21 21:27
