Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23745 / 76732 ←次へ | 前へ→

【58347】エラー:検索の型が一致しません(Loop使用時)
質問  aiko  - 08/10/20(月) 21:30 -

引用なし
パスワード
   色々な掲示板や参考書を見たのですが、解決できないので教えていただければと思い、投稿しました。

勤務管理表のマクロを作成しています。
列に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を使用し、シンプルで見やすいものにしたいと思っております。
宜しくお願いいたします。
0 hits

【58347】エラー:検索の型が一致しません(Loop使用時) aiko 08/10/20(月) 21:30 質問
【58348】Re:エラー:検索の型が一致しません(Loop... Hirofumi 08/10/20(月) 21:35 発言
【58350】Re:エラー:検索の型が一致しません(Loop... aiko 08/10/20(月) 21:49 発言
【58351】Re:エラー:検索の型が一致しません(Loop... かみちゃん 08/10/20(月) 22:07 発言
【58352】Re:エラー:検索の型が一致しません(Loop... aiko 08/10/20(月) 22:14 お礼
【58349】Re:エラー:検索の型が一致しません(Loop... かみちゃん 08/10/20(月) 21:39 発言

23745 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free