VBA超初心です。Do until loopのとこでバグになってしまうのですが

Sub 予約実行()
Set 入力 = Worksheets("入力画面")
Set 台帳 = Worksheets("登録台帳")
月 = 入力.Cells(20, 3)
日 = 入力.Cells(20, 4)
名前 = 入力.Cells(20, 5)
時間帯 = 入力.Cells(20, 6)
縦 = 6
Do Until 台帳.Cells(縦, 2) = " "
縦 = 縦 + 1
Loop
台帳.Cells(縦, 2) = 月
台帳.Cells(縦, 3) = 日
台帳.Cells(縦, 4) = 名前
台帳.Cells(縦, 5) = 時間帯
入力.Cells(20, 3) = " "
入力.Cells(20, 4) = " "
入力.Cells(20, 5) = " "
入力.Cells(20, 6) = " "
End Sub
Sub 予約確認（）
Set 入力 = Worksheets("入力画面")
Set 台帳 = Worksheets("登録台帳")
月 = 入力.Cells(7, 4)
日 = 入力.Cells(8, 4)
For 縦 = 6 To 100
If 台帳.Cells(縦, 2) = 月 Then
If 台帳.Cells(縦, 3) = 日 Then
横 = 台帳.Cells(縦, 5) + 4
利用 = 9
Do Until 入力.Cells(利用, 横) = " "
利用 = 利用 + 1
Loop
入力.Cells(利用, 横) = 台帳.Cells(縦, 4)
End If
End If
Next
End Sub

何がまちがっているのでしょうか？
お願いします。

maisumakun

2020/02/11 01:12

どのような状態となりましたか？エラーメッセージや、起こった現象について教えていただけましたら幸いです。

MasaDiego

2020/02/11 01:38

maisumakunZ様、返信どうもありがとうございます。 "アプリケーション定義またはオブジェクト定義のエラーです" というのがでます。

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

回答2件

ベストアンサー

Do Until 台帳.Cells(縦, 2) = " "

↑は、セルの値が、半角スペースが入っていたらループを抜ける
という意味になってます。

半角スペースは「空白に見える文字」なので、
「空白」とは違います。
なので、ひたすらシートの最後まで見て行って、
これ以上下のセルはないので、指定出来ないという状態になってます。

Do Until 台帳.Cells(縦, 2) = ""

こうやったら、一応、意図通り判定は出来ると思いますが、
「""」も長さ0の文字列という意味であり、厳密には空白とは違います。
空白は「Empty」という定数で示されますので、
Do Until 台帳.Cells(縦, 2) = Empty

とやるか

Do Until isempty(台帳.Cells(縦, 2)) = true

とIsEmpty関数で空白かどうかを評価してください。

ちなみに、ループをしなくても、
範囲を特定できるので、普通にコピペでもいいかなと思いました。

ExcelVBA
1Sub 予約登録()
2    Dim rngFrom As Range
3    Dim rngTo As Range
4    
5    Set rngFrom = Worksheets("入力画面").Range("C20:F20")
6    With Worksheets("入力画面").Range("B6").CurrentRegion
7        Set rngTo = .Resize(1).Offset(.Rows.Count)
8    End With
9    rngFrom.Copy rngTo
10    rngFrom.ClearContents
11End Sub

あと、余談ですが変数の宣言はちゃんとされるようにした方が良いです。

変数って宣言しなくちゃいけないの？
変数宣言を強制しないといけないのか。

思ったのと違うところに数字が入りました。

なるほど。。。。。
↓ここを見て理解できるでしょうか？
Excel(エクセル) VBA入門：セル範囲の指定方法
 プロパティ、メソッドの探り方マクロ記録とＦ１のHelpを使う
どんな本を読んでいらっしゃるかわかりませんが、

勉強不足です。すいません。

今から勉強されるんだからしらなくて当然と思います。
解らないこと気になること、どんどん聞いて勉強してください。
あと、ネット上にも情報はたくさんありますので、
わからない用語等はどんどん検索してください。

投稿2020/02/11 01:50

編集2020/02/11 04:40

mattuwan

総合スコア2163

MasaDiego

2020/02/11 02:46

mattuwan様返信ありがとうございます。うー、空白はスペースすら空けないということはわかりました。ただ変数宣言や、上に書き換えてくださったコードはもう全くわかりませんで。上のコードをそのままコピペでやってみましたら、エラーはなくなりましたが、思ったのと違うところに数字が入りました。　このコードも本に乗っているのをそのまま写しただけでして。丁寧に答えに書いてくださったのに、それすらも理解できないです。勉強不足です。すいません。