VBA　既存のデータの編集　ifとelse

######やりたいこと
・既存のデータを修正したい、新規データも登録したい

入力フォームを作成しています。チェックボックスを3つ作成し、
どれがひとつがチェックされたら
シートJ列に表示するコードをかいています

その際、新規でデータを作成するときにはうまくいくのですが
既存のデータを編集するときにも新規セルで入力されてしまいます
（列2にデータが入っていてそれを編集したいのに
J列だけ一つ下へいってしまう）

こういったタグを用意したのですがよくわからず躓いています


Private Sub cmd登録_Click()



   CheckBoxCaptionToCellValue
   Dim wRow As Long


    Dim コントロール As Control
    Dim チェック状態 As Boolean
      チェック状態 = False
    For Each コントロール In Controls
If TypeName(コントロール) = "CheckBox" Then
      If コントロール.Value = True Then
       チェック状態 = True
    Exit For
      End If
        End If
          Next
    If チェック状態 = False Then
        MsgBox "チェックボックスが選択されていません。"
    Exit Sub
End If

    

     'フォーム上の各データをシートへ送る
    With Worksheets("顧客情報")
        wRow = Me.lbl行番号.Caption
        .Cells(wRow, 1) = Me.txt顧客番号
        .Cells(wRow, 2) = Me.txtふりがな
        .Cells(wRow, 3) = Me.txt名前
        .Cells(wRow, 4) = Me.txt郵便番号
        .Cells(wRow, 5) = Me.txt住所
        .Cells(wRow, 6) = Me.txt電話番号
        .Cells(wRow, 7) = Me.txt電話番号2
        .Cells(wRow, 8) = Me.txt受付日
        .Cells(wRow, 9) = Me.txt担当
        .Cells(wRow, 10) = Me.CheckBox1
        .Cells(wRow, 10) = Me.CheckBox2
        .Cells(wRow, 10) = Me.CheckBox3
        .Cells(wRow, 11) = Me.txt見積金額
        .Cells(wRow, 12) = Me.txt内金
        .Cells(wRow, 13) = Me.txt増
        .Cells(wRow, 14) = Me.txt減
        .Cells(wRow, 15) = Me.txtチップ
        .Cells(wRow, 17) = Me.txt備考欄
        
    End With
    
            MsgBox "登録しました。この画面を閉じて入力データを確認して下さい", vbInformation + vbOKOnly, "Information"      '← 登録メッセージ表示
End Sub

jinoji

2021/03/19 03:59

まず、質問を編集して、Private Sub cmd登録_Click() のいまのコードを全部載せてみてください。別の質問で聞いた感じでは、・ [cmd登録]を押したときに、・その時に編集している（新規または既存の）対象行のJ列のセルの値を、・ユーザーフォームにある３つのチェックボックスのキャプションを連結した文字列で更新したいということだと推測しています。また、・いまどの行を編集しているかは、フォームの [lbl行番号]に保持しているように見えます。なので、あとはその行番号のJ列のセルを編集すればいいだけのような気がします。

cra

2021/03/19 04:16

編集しました。ラベル行番号は　 wRow = Me.lbl行番号.Caption .Cells(wRow, 1) = Me.txt・・・・の認識であっていますでしょうか？

行動規範の内容に同意します

回答2件

ベストアンサー

既存のデータの修正も、新規データの登録も、一つのユーザーフォームで実現したいということですか。
「既存のデータの修正」か「新規データの登録」かの区別はどのようにするつもりですか。

とりあえず、既存データの修正は、アクティブなセル（の行）が対象だと思いますので、
下記のコードで対象の行番号が取得できます。

vba
1行No = ActiveCell.Row

投稿2021/03/19 00:46

hatena19

総合スコア34073

cra

2021/03/19 01:16

フォームはわけています。入力フォームの中に　cmd検索というコマンドボタンがあり押すと検索フォームが表示されるようになっています検索フォームはリストで検索結果が出るようになっています

hatena19

2021/03/19 02:25 編集

検索フォームのリストボックスで選択したものが更新対象ということですね。ならば、リストボックスの非表示の列に更新対象セルのアドレスか行番号を格納しておいて、それを利用するのがいいでしょう。現在提示されている情報からはこのぐらいの回答が精一杯です。

cra

2021/03/23 01:08

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

行動規範の内容に同意します

やりたいことの全容がわかりませんが、
たぶんこのようにすればこの質問の回答にはなっていると思います。

VBA
1Private Sub cmd登録_Click()
2
3'   CheckBoxCaptionToCellValue
4    Dim チェックボックスキャプション As String
5    Dim wRow As Long
6
7    Dim コントロール As Control
8    Dim チェック状態 As Boolean
9    チェック状態 = False
10    Dim チェックボックスキャプション As String
11    For Each コントロール In Controls
12        If TypeName(コントロール) = "CheckBox" Then
13            If コントロール.Value = True Then
14                チェックボックスキャプション = チェックボックスキャプション & vbLf & コントロール.Caption
15                チェック状態 = True
16            End If
17        End If
18    Next
19    If チェック状態 = False Then
20        MsgBox "チェックボックスが選択されていません。"
21        Exit Sub
22    Else
23        チェックボックスキャプション = Mid(チェックボックスキャプション, 2)
24    End If
25
26     'フォーム上の各データをシートへ送る
27    With Worksheets("顧客情報")
28        wRow = Me.lbl行番号.Caption
29        .Cells(wRow, 1) = Me.txt顧客番号
30        .Cells(wRow, 2) = Me.txtふりがな
31        .Cells(wRow, 3) = Me.txt名前
32        .Cells(wRow, 4) = Me.txt郵便番号
33        .Cells(wRow, 5) = Me.txt住所
34        .Cells(wRow, 6) = Me.txt電話番号
35        .Cells(wRow, 7) = Me.txt電話番号2
36        .Cells(wRow, 8) = Me.txt受付日
37        .Cells(wRow, 9) = Me.txt担当
38        .Cells(wRow, 10) = チェックボックスキャプション
39        .Cells(wRow, 11) = Me.txt見積金額
40        .Cells(wRow, 12) = Me.txt内金
41        .Cells(wRow, 13) = Me.txt増
42        .Cells(wRow, 14) = Me.txt減
43        .Cells(wRow, 15) = Me.txtチップ
44        .Cells(wRow, 17) = Me.txt備考欄
45
46    End With
47
48            MsgBox "登録しました。この画面を閉じて入力データを確認して下さい", vbInformation + vbOKOnly, "Information"      '← 登録メッセージ表示
49End Sub
50
51
52