VBA テーブルへの登録

質問

VBA初心者です。VBAで社員登録のシステムを作っています。

今書こうとしている処理が以下のとおりです。
１．ID,Passwordを5桁ずつ指定し、「一般」「管理者」のどちらかのチェックボックスを選び、登録ボタンを押す。
２．社員テーブルを参照して、IDがすでにあるIDと重複しないかチェック。
３．空白の行があればそこにIDとPassword、「一般」もしくは「管理者」の権限を登録する。

以下の3つの処理を簡単なコードで教えてくださると大変助かります。
(1)ID,パスワードをそれぞれ数字5桁と指定する
(2)Forの中の、テーブルの空白の行にきたらID,Pを登録する
(3) 'option_adminを選んだ場合、社員テーブル（accountT）の権限欄に"管理者"を保存。option_userを選んだ場合も同様に権限欄に"一般"を保存。

Dim ID As String
Dim pass As String
ID = txtID.Text
pass = txtpass.Text

'IDは数字5けた,Pは数字5けた
Dim nStartRow As Integer '開始行
Dim nEndRow As Integer '終了行

nStartRow = 2
nEndRow = accountT.Cells(Rows.Count, 3).End(xlUp).Row

For nRow = nStartRow To nEndRow
If ID = accountT.Cells(nRow, 3) Then 　'IDが重複したら
MsgBox "別のIDを設定してください", vbInformation, "失敗"

'テーブルの空白の行(columns)にきたらID,Pを登録する

'option_adminを選んだ場合、社員tableの権限に"管理者"を保存
'option_userを選んだ場合、社員tableの権限に"一般"を保存

☆社員テーブル　別シート（オブジェクト：accountT）
ID 　　パスワード　 権限
1 12345 54321 　　一般
2 12346 54322 　　一般
3 12347 54323 　　管理者
4 12348 54324 　　一般
5 …　　　　…　　　…
…

回答No.6

kkkkkm · ベストアンサー

元が

If Len(ID) = 5 Then '5桁の時の操作
For nRow = nStartRow To nEndRow
中略
Exit For
Next

の状態でForの外側のIfが閉じていないと思いますので

Exit For
Next
End If

じゃないでしょうか。

お礼

ご指摘のとおりに修正し、無事に登録処理ができるようになりました！
丁寧な回答ありがとうごさいます。

回答No.5

kkkkkm

with accountT
でした。
↓ここTが抜けてます。
account.Cells(nRow, 3) = "" Then
accountT.Cells(nRow, 3) = ID 'ID , Pを登録する

回答No.4

kkkkkm

> With Sheets("社員テーブル") 'with以降は社員テーブル内の動き

シートなどのオブジェクトの指定を略して「.」から記載できるというイメージで

With account
.Cells(nRow, 3) = ID
.Cells(nRow, 4) = pass
End With

のようなイメージです。

回答No.3

kkkkkm

> 「End Withに対応するWithがない」とエラーが出て、手詰まりです。

Ifが4個にたいしてEnd Ifが3個なので1個End Ifがたりないように見えます。VBAの「Withがない」エラーメッセージはWith~End With内の他の部分で対応が取れていない場合にも出たと思います。

補足

End Ifが足りないとのことですが、最後の部分に入れても
「対応するがIFがない」と出てしまいます。どこにEnd IFが必要でしょうか？

……
If option_admin.Object.Value = True Then
accountT.Cells(nRow, 5) = "管理者"
ElseIf option_user.Object.Value = True Then
accountT.Cells(nRow, 5) = "一般"
End If
Exit For
End If　←（ここに入れました）
Next

回答No.2

imogasi

質問者路線と違うが参考に。
チェックなど、十分念入りでないが
ユーザーフォームにテキストボックス２つ、リストボックス１つとコマンドボタン１つ設ける。
テキストボックス1　ID入力用
テキストボックス2　パスワード入力
リストボックス　一般・管理者を選択用
コマンドボックス　処理進行用
ーー
リストボックスのアイテム設定を、シートセル範囲指定（本則）をうざったいので避けて、プログラムから設定した。
Private Sub UserForm_Initialize()
Me.ListBox1.List = Array("管理者", "一般")
End Sub
ーーー
Private Sub CommandButton1_Click()
Set sh1 = Worksheets("社員テーブル")
ID = UserForm1.TextBox1.Text
pwd = UserForm1.TextBox2.Text
kanri = UserForm1.ListBox1.Text
MsgBox ID & " " & pwd
If Application.WorksheetFunction.CountIf(Worksheets("社員テーブル").Range("a1:A1000"), ID) = 0 Then
MsgBox "新規"
r = sh1.Range("A10000").End(xlUp).Row + 1
sh1.Cells(r, "A") = ID
sh1.Cells(r, "B") = pwd
sh1.Cells(r, "C") = kanri
End If
End Sub
基データ　「社員テーブル」シート
ID password 一般・管理
12345 A2vb2　一般
12346 A2vb3 一般
12349 A2vb4　一般
実行
Sub・ユーザーフォームの実行をクリック
ユーザーフォームの画面で
12348
wersd
一般
コマンドボタンをクリック
ーー
12348　　wersd 一般
の行が最下行の次に追加される。
いろんな点で、チェックを入れたり、丁寧に修正してください。

お礼

私と違う視点での方法を提示してくださり、考え方が広がるで助かります。
ご回答ありがとうございました。

回答No.1

kkkkkm

イメージとして

> (1)ID,パスワードをそれぞれ数字5桁と指定する

Len(文字列)で
If Len(ID) = 5 Then
5桁の時の操作
Else
5桁以外の時の操作
End If

> (2)Forの中の、テーブルの空白の行にきたらID,Pを登録する
> (3) 'option_adminを選んだ場合、社員テーブル（accountT）の権限欄に"管理者"を保存。option_userを選んだ場合も同様に権限欄に"一般"を保存。

With Sheets("シート名") ' シート名はデータを書き込みたい実際のシート名で
For nRow = nStartRow To nEndRow
'ID重複チェックはすでに質問にコードがあるので略、重複があればExit Forで抜ける
If .Cells(nRow, 3) = "" Then
ID , Pを登録する
End If
If option_admin.Object.Value = True Then
.Cells(nRow, 権限の列) = "管理者"
ElseIf option_user.Object.Value = True Then
.Cells(nRow, 権限の列) = "一般"
End If
Exit For
Next
End With

補足

ご回答ありがとうございます。先ほどはお世話になりました。

自分で範囲を指定して書き直してみましたが、「End Withに対応するWithがない」とエラーが出て、手詰まりです。どこを修正すればいいでしょうか？

Private Sub cmd_accountR_Click() 'ID,P登録ボタン

Dim ID As String
Dim pass As String
ID = txtID.Text
pass = txtpass.Text

Dim nStartRow As Integer '開始行
Dim nEndRow As Integer '終了行
nStartRow = 2
nEndRow = accountT.Cells(Rows.Count, 3).End(xlUp).Row

With Sheets("社員テーブル") 'with以降は社員テーブル内の動き
'IDは数字5けた,Pは数字5けた
'Len(文字列)
If Len(ID) = 5 Then '5桁の時の操作
For nRow = nStartRow To nEndRow
If ID = accountT.Cells(nRow, 3) Then 'ID重複があればExit For
MsgBox "別のIDを設定してください", vbInformation, "失敗"
Exit For
Else: MsgBox "IDは数字5桁！" '5桁以外の時の操作
End If
If account.Cells(nRow, 3) = "" Then
accountT.Cells(nRow, 3) = ID 'ID , Pを登録する
accountT.Cells(nRow, 4) = pass 'テーブルの空白の行にID,Pを登録する
End If

If option_admin.Object.Value = True Then
accountT.Cells(nRow, 5) = "管理者" '社員tableの権限に"管理者"を保存
ElseIf option_user.Object.Value = True Then
accountT.Cells(nRow, 5) = "一般" '社員tableの権限に"一般"を保存
End If
Exit For
Next
End With

End Sub