エクセル マクロ 教えてください。

質問

sheet１に　（a1=No.　b1=月日　C1=項目　d1=収入　e1=支出　f1=摘要　G1=店名）項目を作りそれらをユーザーフォームを作り入力したいです。
この記述では上手く動けません。教えてください。
Private Sub CommandButton1_Click()
Dim r As Long, 最終行 As Long, 項目行 As Long
Dim re As String
r = textboxs1.Value + 10
最終行 = Worksheets("入力").Range("B65536").End(xlUp).Row
If r <= 最終行 Then
re = MsgBox("訂正" & " " & "すでにデータが入力されています。" & Chr(13) & _
Chr(13) & "データを置き換えます。　本当に良いですか?　", _
Buttons:=vbYesNo + vbExclamation, Title:="注意!!")
If re = vbYes Then
With Worksheets("入力")
.Cells(r, 2).Activate
.Cells(r, 1).Value = TBox1.Value
.Cells(r, 2).Value = TBox2.Value
.Cells(r, 3).Value = ComboBox1.Value
.Cells(r, 4).Value = TBox3.Value
.Cells(r, 5).Value = TBox4.Value
.Cells(r, 6).Value = TBox5.Value
.Cells(r, 7).Value = ComboBox2.Value
End With
データクリア
Exit Sub
End If
データクリア
Exit Sub
End If
If r >= 最終行 + 1 Then
r = 最終行 + 1
End If
With Worksheets("入力")
.Cells(r, 1).Value = TBox1.Value
.Cells(r, 2).Value = TBox2.Value
.Cells(r, 3).Value = ComboBox1.Value
.Cells(r, 4).Value = TBox3.Value
.Cells(r, 5).Value = TBox4.Value
.Cells(r, 6).Value = TBox5.Value
.Cells(r, 7).Value = CBomboox2.Value
End With
データクリア
End Sub

r = データNo + 10
With Worksheets("入力")
.Activate
.Cells(r, 2).Select
TBox1.Value = .Cells(r, 1).Value
TBox2.Value = .Cells(r, 2).Value
ComboBox1.Value = .Cells(r, 3).Value
TBox3.Value = Format(.Cells(r, 4).Value, "###,###")
TBox4.Value = Format(.Cells(r, 5).Value, "###,###")
TBox5.Value = .Cells(r, 6).Value
ComboBox2.Value = .Cells(r, 7).Value
End With
Exit Sub
End If
If データNo > 最終行 - 10 Then
データNo = 最終行 - 9
TBoxNo.Value = データNo
データクリア
End If
End Sub

回答No.2

imogasi · ベストアンサー

（１）Ｅｌｓｅ文を使ったら。少し判りやすくなると思うよ。
（２）「データクリア」ルーチンは掲載省略していますね。何をやっているの。
re = vbYes でも、そうでなくても、）「データクリア」を通るようだが、それでよいの。データをテキストやコンボからセットしても
）「データクリア」が必要なの。
re = vbYesでない場合
コードの２回目の）「データクリア」の前にＥＬＳＥが必要ではないの。
（３）
If r <= 最終行 Then
If r >= 最終行 + 1 Then
とあるが、校舎はＥＬＳＥでよいのでは。
＝が両方に付くのはおかしくない。多分下の方は
r > 最終行 + 1 Then
（４）
End If
With Worksheets("入力")
.Cells(r, 1).Value = TBox1.Value
.Cells(r, 2).Value = TBox2.Value
.Cells(r, 3).Value = ComboBox1.Value
.Cells(r, 4).Value = TBox3.Value
.Cells(r, 5).Value = TBox4.Value
.Cells(r, 6).Value = TBox5.Value
.Cells(r, 7).Value = CBomboox2.Value
End With
のＥｎｄ　ＩｆはＥｎｄ　Ｗｉｔｈの後に入れるべきでは。
データをセット処理して後でＥｎｄ　Ｉｆでしょう。
むしろ
データクリア
End If
End Sub
と「データクリア」をしてから、終わりかな。
（５）r = データNo + 10
の前のＥｎｄＳｕｂはＯＫ？
この辺から判らなくなった。
ＥｎｄＳｕｂはＥｘｉｔＳｕｂの間違い？
（６）r = データNo + 10
以下は入力全レコードについてやるべきなの？
何をやっているの。
’－－－－
（全般）
（１）字下げを行い処理のブロックを判りやすくすること。
（２）質問するときだけでも、以下の処理について、コメントを
入れてください。
（３）むしろ処理のブロックをサブルーチンにして、処理の名前が１行になるから、ある場合に処理必要（通るべきルーチンかどうか）を
一覧できるようにしては。
これでは自己コードによる中毒的に頭が混乱するように思った。
ついでに
Cells(r, 2).Activate
は不要では。

お礼

ありがとうございます。もう一つ教えてください。自分は全くの素人で家計簿を作ろうと悪戦苦闘しています。http://www.eurus.dti.ne.jp/~yoneyama/Excel/jituyou/kakeibo.htm
このページを見ながら作成しています。いまだに何処が間違っているか分かりませんので教えてください。

回答No.1

shinkami

命令文中央付近の[End Sub」後は省略しているのですか
「データクリア」はサブルーチンですよね、ここでは省略してますよね
下から7行目の「End If」に対応する「If」文がありません