ユーザーファームを2つ作成しました。
そのユーザーフォームのデータを表の最終行に追加をしたいのです。
Range("A65536").End(xlUp).Offset(1,0).select
を使おうと思っていますが、うまくいきません。
どなたか教えてください。
<ユーザーフォーム1>
Private Sub CommandButton1_Click()
Sheet2.Range("H7") = TextBox1
Sheet2.Range("I7") = TextBox2
Sheet2.Range("J7") = TextBox3
Sheet2.Range("K7") = TextBox4
Sheet2.Range("L7") = TextBox5
Sheet2.Range("P7") = TextBox6
If CheckBox1.Value = True Then
Worksheets(2).Range("M7") = "0:30"
Else
Worksheets(2).Range("M7") = "0:00"
End If
If CheckBox2.Value = True Then
Worksheets(2).Range("R7") = "1000"
Else
Worksheets(2).Range("R7") = "0"
End If
If CheckBox3.Value = True Then
Worksheets(2).Range("S7") = "3000"
Else
Worksheets(2).Range("S7") = "0"
End If
If CheckBox4.Value = True Then
Worksheets(2).Range("T7") = "1500"
Else
Worksheets(2).Range("T7") = "0"
End If
Unload Me
End Sub
<ユーザーフォーム2>
Private Sub CommandButton1_Click()
Sheet2.Range("V7") = TextBox1
Sheet2.Range("W7") = TextBox2
Sheet2.Range("X7") = TextBox3
Unload Me
End Sub
No.1
- 回答日時:
もともとのコードをあまりいじらないように修正してみました。
最終行を select するのではなく、行(Row)を取得しています。
Private Sub CommandButton1_Click()
行 = Sheet2.Range("A65536").End(xlUp).Offset(1).Row
Sheet2.Range("H" & 行) = TextBox1
Sheet2.Range("I" & 行) = TextBox2
Sheet2.Range("J" & 行) = TextBox3
Sheet2.Range("K" & 行) = TextBox4
Sheet2.Range("L" & 行) = TextBox5
Sheet2.Range("P" & 行) = TextBox6
If CheckBox1.Value = True Then
Worksheets(2).Range("M" & 行) = "0:30"
Else
Worksheets(2).Range("M" & 行) = "0:00"
End If
If CheckBox2.Value = True Then
Worksheets(2).Range("R" & 行) = "1000"
Else
Worksheets(2).Range("R" & 行) = "0"
End If
If CheckBox3.Value = True Then
Worksheets(2).Range("S" & 行) = "3000"
Else
Worksheets(2).Range("S" & 行) = "0"
End If
If CheckBox4.Value = True Then
Worksheets(2).Range("T" & 行) = "1500"
Else
Worksheets(2).Range("T" & 行) = "0"
End If
Unload Me
End Sub
この回答への補足
お答えありがとうございます。
初心者なので、もう少し教えていただければ幸いです。
行 = Sheet2.Range("A65536").End(xlUp).Offset(1).Row
の「行」というところには、どういったものを入れればいいか教えていただいてもいいでしょうか。
データの1行目は、H~Tまでの6行目です。
次のデータを入れたい行はH~Tまでの7行目以降となります。
また、各テキストボックス・チェックボックスの「行」というところは、「7」といれればいいんでしょうか?
No.2ベストアンサー
- 回答日時:
多少コードに手を加えています。
Private Sub CommandButton1_Click()
Dim lRow As Long
With Sheets("Sheet1")
'最終行から転記先となる行番号を取得
lRow = .Cells(65536, "A").End(xlUp).Row + 1
'データ転記
.Cells(lRow, "H").Value = TextBox1.Text
.Cells(lRow, "I").Value = TextBox2.Text
.Cells(lRow, "J").Value = TextBox3.Text
.Cells(lRow, "K").Value = TextBox4.Text
.Cells(lRow, "L").Value = TextBox5.Text
.Cells(lRow, "P").Value = TextBox6.Text
If CheckBox1.Value Then
.Cells(lRow, "M").Value = "0:30"
Else
.Cells(lRow, "M").Value = "0:00"
End If
If CheckBox2.Value Then
.Cells(lRow, "R").Value = 1000
Else
.Cells(lRow, "R").Value = 0
End If
If CheckBox3.Value Then
.Cells(lRow, "S").Value = 3000
Else
.Cells(lRow, "S").Value = 0
End If
If CheckBox4.Value Then
.Cells(lRow, "T").Value = 1500
Else
.Cells(lRow, "T").Value = 0
End If
End With
Unload Me
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで高さ0で隠れた行の素早...
-
間隔は「開く」?「空く」?
-
ワードで勝手に均等割付される
-
一部だけ行間隔を狭めたいんです。
-
wordで改行しても次のページに...
-
市販の便箋に印刷をしたい
-
オブジェクトどうしの間隔を設...
-
Wordのコメントのフォーマット...
-
word 行の頭や末に禁則文字(...
-
ワードの文字スペースの間隔が...
-
Wordの文字間隔
-
Wordの行×文字数はページ数が変...
-
差出人欄の文字間隔を詰めたい
-
ワードで拡大した1文字を用紙...
-
ワードパッド
-
WORDで文字間隔が伸びる
-
Word97で目次を1ページで収める...
-
Excelの行高が突然、異常に大き...
-
EXCEL の折り返し書式設定して...
-
Wordで複数行にまたがる画像
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで高さ0で隠れた行の素早...
-
間隔は「開く」?「空く」?
-
ワードで勝手に均等割付される
-
Wordのコメントのフォーマット...
-
EXCEL の折り返し書式設定して...
-
一部だけ行間隔を狭めたいんです。
-
Wordの表(A4縦)で50行以上くら...
-
市販の便箋に印刷をしたい
-
wordで改行しても次のページに...
-
WORDで文字間隔が伸びる
-
Excelの行高が突然、異常に大き...
-
オブジェクトどうしの間隔を設...
-
ワードで拡大した1文字を用紙...
-
Access レポートの文字間を設...
-
ワードで罫線枠を固定したい
-
autocad 表の行の高さ調整
-
Word2016で禁則処理がうまくゆ...
-
WORDで文字数、行数が指定...
-
ワードの文字スペースの間隔が...
-
一太郎からWordへ変換した...
おすすめ情報