Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5481 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50607】色つきのセル内のみを数える wa 07/8/4(土) 14:53 質問[未読]
【50608】Re:色つきのセル内のみを数える かみちゃん 07/8/4(土) 15:08 回答[未読]
【50609】Re:色つきのセル内のみを数える wa 07/8/4(土) 17:26 質問[未読]
【50610】Re:色つきのセル内のみを数える かみちゃん 07/8/4(土) 17:35 発言[未読]
【50607】色つきのセル内のみを数える
質問  wa  - 07/8/4(土) 14:53 -
引用なし
パスワード
   背景色青のセルがあちこちに点在するシート上で、セルに○を書き込むと、あるセルに○の数の合計がリアルタイムで出るようにしたい。ただし、カウントの対象に
なるのは背景色が青のセルにいれた○のみにしたいのですがそのコードがわかりま
せん。
【50608】Re:色つきのセル内のみを数える
回答  かみちゃん  - 07/8/4(土) 15:08 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>背景色が青のセルにいれた○のみにしたい

特定のセルの背景色を青色にするコードはわかりますか？
手作業でできますか？
できるなら、マクロの記録で記録してみてください。
それがヒントです。

あと、特定のセルが○かどうかは、
If Range("A1").Value = "○" Then
　MsgBox "○です"
End If
のような感じです。

特定の範囲を繰り返すには、
Dim c As Range
For Each c In Range("A1:B5")
　MsgBox c.Address
Next
のような感じになります。

これらをヒントにできませんか？
【50609】Re:色つきのセル内のみを数える
質問  wa  - 07/8/4(土) 17:26 -
引用なし
パスワード
   かみちゃんさん、返事ありがとうございます。背景青のセル上にある○の求め方
は分かるのですが、○の合計を特定のセルにリアルタイムに表示する方法が分か
りません・・・
【50610】Re:色つきのセル内のみを数える
発言  かみちゃん  - 07/8/4(土) 17:35 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 背景青のセル上にある○の求め方は分かる

わかるコードがあるならば、提示してみませんか？
いきなりコードを他人に提示されてもわかりづらいと思いますので。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5481 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free