Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
150 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81867】オープンオフィスですが 理学療法士 21/8/2(月) 22:15 質問[未読]
【81868】Re:オープンオフィスですが 山内 21/8/3(火) 14:17 回答[未読]
【81867】オープンオフィスですが
質問  理学療法士  - 21/8/2(月) 22:15 -
引用なし
パスワード
   オープンオフィスでマクロを作成しようとし
以下のものを入力すると、ランタイムエラー91が
　
Function CellCountByCol(targetRng As Range, CellColor As Range) As Long
　 Dim r As Range
Application.Volatile
CellCountByCol = 0


For Each r In targetRng　←ここ
　If r.Interior.Color = CellColor.Interior.Color Then
　　CellCountByCol = CellCountByCol + 1
　End If
Next r
End Function

に出てしまいます。

修正したいのですがわかりません。
指導よろしくお願いいたします。
【81868】Re:オープンオフィスですが
回答  山内  - 21/8/3(火) 14:17 -
引用なし
パスワード
   全角スペース使うのやめませんか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
150 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free