ユーザーフォームにある19個のデータをセルのA10から書き込み、次はA11といった風に最下段に足していきたいのですが、出だしのA10からでつまづいています。
何方かご教授お願いします。
小生が書いたマクロは下記になります。
Private Sub CommandButton1_Click()
Dim RowNum As Long
Dim Ctrl As Control
Dim ws As Worksheet
Dim i As Integer
Dim n As Integer
Set ws = ActiveSheet
Set RowNum = 10
With ws
RowNum = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For n = 1 To 19
.Cells(RowNum, n).Value = Me.Controls("TextBox" & n).Value
Next n
End With
For i = 6 To 19
UserForm2.Controls("TextBox" & i).Value = ""
Next i
End Sub
No.3
- 回答日時:
何度も失礼します。
書き漏らしたのでもし A9セルがどうしても空白でなくてはならない場合
If Range("A9").Value="" Then
RowNum =10
Else
RowNum = Cells(Rows.Count, 1).End(xlUp).Row +1
End IF
とかでは
No.2
- 回答日時:
失礼しました。
>それのA10の指定で手こずってます。A10にデータが入っていれば下の段に行けるんですけど。
もし、A9に何か項目文字でも入れてから
RowNum = Cells(Rows.Count, 1).End(xlUp).Row +1
For n = 1 To 19
Cells(RowNum,n).Value = Me.Controls("TextBox" & n).Value
Next
ではダメでしょうか。
No.1
- 回答日時:
質問の箇所以外にも突っ込みどころ多数あるので、一応
Private Sub CommandButton1_Click()
Dim RowNum As Long
RowNum = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To 19
Cells(RowNum+n,1).Value = Me.Controls("TextBox" & n).Value
Next
For i = 6 To 19
Me.Controls("TextBox" & i).Value = ""
Next
End Sub
動作確認はしれいませんが
Private Sub CommandButton1_Click()
Dim RowNum As Long
Dim Ctrl As Control
Dim ws As Worksheet
Dim i As Integer
Dim n As Integer
'Set ws = ActiveSheet
' ActiveSheetなら指定する必要あるのかな?
'Set RowNum = 10
'これも以下で計算しているので不要ですが、Setを使う必要もありません。
'With ws
'不要だと思う
’ RowNum = .Cells(Rows.Count, 1).End(xlUp).Row + 1
’以下のようにしてみると
RowNum = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To 19
’ .Cells(RowNum, n).Value = Me.Controls("TextBox" & n).Value
Cells(RowNum+n,1).Value = Me.Controls("TextBox" & n).Value
'A列に入れるのですよね、たぶん質問の箇所はここ?
Next n
’ End With 不要になりますよね。
For i = 6 To 19
UserForm2.Controls("TextBox" & i).Value = ""
Next i
End Sub
A10からT10まで一括入力して、次はA11からT11にデータを入力するプログラムです。
それのA10の指定で手こずってます。A10にデータが入っていれば下の段に行けるんですけど。
VBAは難しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
あるセルに色を付けた時、別の...
-
Wordで、表のセルが変なところ...
-
ワードの表で中央揃えが出来ない
-
エクセルで知らない間に行がず...
-
ワードで二行を一行に
-
エクセルの一つのセル内に2つの...
-
エクセルのセルの中で指定した...
-
エクセルで1列おきのデータのみ...
-
ワードで表を作ってセル内で改...
-
金額を罫線をはさんで一度にい...
-
EXCEL2013で文字を180度回転...
-
エクセルでセルの中の文字が削...
-
ワードで表の中の文字がセンタ...
-
openofficeの表のセル編集。
-
エクセルの列幅(行の高さ)の自...
-
用紙を均等に分割して文書は作...
-
ワードの表中の文字に「マル」...
-
エクセル 表を一部削除 自動で...
-
Excelのセル非表示部分をクリッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
Wordで、表のセルが変なところ...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
エクセル2010で、結合したセル...
-
ワードで表を作ってセル内で改...
-
Excelのセル内の文字の頭に半角...
-
ワードの表で中央揃えが出来ない
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセルで1列おきのデータのみ...
-
WORDで表の行を2行に分けたい
-
エクセルで捺印をもらう欄を別...
-
Word 表のセル塗りつぶし
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
Wordの表をExcelの表に貼り付ける
-
エクセルで複数行を括弧でくく...
-
ワードで表の中の文字がセンタ...
おすすめ情報