|
色々な掲示板や参考書を見たのですが、解決できないので教えていただければと思い、投稿しました。
勤務管理表のマクロを作成しています。
列に1日〜31日を、行に(8行目)時間軸を打ち込んでおり、行の時間軸の中から出勤時間を検索し、フラグをつけるというマクロを作成しました。
同じ作業の繰り返しなので、Loopを使用したいと思っております。
Dim R As Integer
Dim L As Integer
R = 9
L = 1
Cells(R, 1).select
Do While R <= 39
Set foundcell = Rows("8").Find(Cells("R,32").Value) ←エラーになりました。
foundcell.Activate
Activecell.Offset(L, 0).range("1").Select
Application.CutCopyMode = False
Activecell.FormulaR1C1 = "1"
R = R + 1
L = L + 1
Cells(R, 1)
Loop
Loopを使用せず、直接1日1日マクロを書けばエラーは出ませんでした。
しかし、できることならLoopを使用し、シンプルで見やすいものにしたいと思っております。
宜しくお願いいたします。
|
|