| |
山内様
ご丁寧にお答えをいただきましてありがとうございます。
予約表のシートがかなり複雑に感じまして簡略化してお伝えしておりました。
ご不便をおかけいたしまして申し訳ございません。
一人に対しての予約枠は6行×4列です。（A5：D10）
予約表（ｗｓ2）は以下A1に日付が入ります。
3行目カットとカラーの予約用の時間枠を入力しております。
A3：H4（セル結合）9：15 （A5:D10/E5:H10で2列が9：15の予約です。）
I3：P4 10：00
Q3：X4 12：00
AF3:AM4 13：00
AN3：AU4 15：00
AV3：BC4 16：00
2行ごとにセル結合を行っています。（実質3行）
予約者の名前は5行目に入ります。
A5：C6(セル結合）に予約者名
以下6行ごとにお名前が入ります。
（A11・A17・A23・A29）
予約の種類（カットかカラーか）D7:D8（セル結合）に入れます。
以下6行ごとに予約種類が入ります。
（D7・D13・D17・D23・D29）
書き込みができるように空白が多いようにしています。
この予約表がA5：BC34までで60枠できます。
ご面倒をおかけしておりました↓↓↓
a = 2 to 80で最高79個予約が入っている状態だと推測できるんですが
ElseIf ws2.Cells(29, 1) <> "" Then
ws2.Cells(35, 1) = ""
ws2.Cells(37, 1) = ""
End If
=""で空白にしてる部分全般に言えることなのですがなぜ空白にするのでしょうか
予約の上限なのでしょうか？
上限になったらExit Forなどでループから抜けるべきではないでしょうか
こちらは、35行目より下にもお名前が入っていたため、
それを表示しないように入力を入れておりました。
最高で79個予約が入るというご解釈で間違いございません。
”1200”は12：00の枠という事になります。
次の列に処理を続けたかったのですが
処理が下にしか続けることが出来なかったため、
9：15の処理を列ごとに分けて
2列目は毎回、変数aの隣の5名を除いた数という意味で a+5という形で入力していました。
exit for を使用してもうまく機能せず、loopもうまく隣に続きませんでした。
もしこれらを使用してもっと簡単になるのでありましたら
ぜひお教えいただけますと幸いです。
ご面倒をおかけいたしますがよろしくお願い申し上げます。
ありがとうございます。
|
|
VBA超初心者コウ
- 21/7/2(金) 15:39 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
