Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10907 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19253】Activecellに日付を取得した一行の背景色を変更したい オックン 04/10/26(火) 16:26 質問[未読]
【19254】Re:Activecellに日付を取得した一行の背景... Asaki 04/10/26(火) 16:31 回答[未読]
【19255】Re:Activecellに日付を取得した一行の背景... IROC 04/10/26(火) 16:34 回答[未読]
【19257】ありがとうございました。さらに質問させて... オックン 04/10/26(火) 16:58 質問[未読]
【19258】Re:ありがとうございました。さらに質問さ... Asaki 04/10/26(火) 17:06 発言[未読]
【19269】Re:ありがとうございました。さらに質問さ... オックン 04/10/27(水) 9:32 発言[未読]
【19271】Re:ありがとうございました。さらに質問さ... Asaki 04/10/27(水) 9:51 回答[未読]
【19272】Re:ありがとうございました。さらに質問さ... オックン 04/10/27(水) 10:03 発言[未読]
【19274】Re:ありがとうございました。さらに質問さ... Asaki 04/10/27(水) 10:11 回答[未読]
【19277】解決しました。 オックン 04/10/27(水) 11:07 お礼[未読]
【19253】Activecellに日付を取得した一行の背景色...
質問  オックン  - 04/10/26(火) 16:26 -
引用なし
パスワード
   いつも参考にさせてもらっています。

わからないことがあるので教えてください。
(VBA初心者なので、できれば詳しくお願いします)

現在、Activecellに日付を取得しているのですが、
日付取得後に、その一行の背景色を変更したいです。

日付を取得するセルが決まっていないので、
セル番地を固定で指定はしたくありません。
【19254】Re:Activecellに日付を取得した一行の背...
回答  Asaki  - 04/10/26(火) 16:31 -
引用なし
パスワード
   こんにちは。

Activecell.EntireRow.Select
とかで、1行選択になると思いますので、これをアレンジして色を塗るようにしては？
【19255】Re:Activecellに日付を取得した一行の背...
回答  IROC  - 04/10/26(火) 16:34 -
引用なし
パスワード
   >日付取得後に、その一行の背景色を変更したいです。

余分なセルまで色を付けると、ファイルサイズが大きくなって
無駄に思えますけど・・


ActiveCell.EntireRow.Interior.ColorIndex = 35
【19257】ありがとうございました。さらに質問させ...
質問  オックン  - 04/10/26(火) 16:58 -
引用なし
パスワード
   Asakiさん・IROCさん
回答ありがとうございました。

完璧な動作状況です。

>余分なセルまで色を付けると、ファイルサイズが大きくなって
>無駄に思えますけど・・

IROCさんの言うとおり、
やはり余分なセルの色が気になります。

背景色を変更する範囲も指定できますか？
【19258】Re:ありがとうございました。さらに質問...
発言  Asaki  - 04/10/26(火) 17:06 -
引用なし
パスワード
   >背景色を変更する範囲も指定できますか？
可能ですが、どうやって範囲を決めるのでしょうか？
その決め方によると思いますが。

例えば、Activecellとその右隣なら
Activecell.resize(,2).select
【19269】Re:ありがとうございました。さらに質問...
発言  オックン  - 04/10/27(水) 9:32 -
引用なし
パスワード
   ▼Asaki さん：
>>背景色を変更する範囲も指定できますか？
>可能ですが、どうやって範囲を決めるのでしょうか？
>その決め方によると思いますが。
>
>例えば、Activecellとその右隣なら
>Activecell.resize(,2).select

日付を取得するセルは12個所あり、
それのどこに日付を取得するかは特定できません。

Activecellと左11個所の時もあれば、
Activecellの右5・左5箇所の時もあり、
特定はできません。
【19271】Re:ありがとうございました。さらに質問...
回答  Asaki  - 04/10/27(水) 9:51 -
引用なし
パスワード
   >Activecellと左11個所の時もあれば、
>Activecellの右5・左5箇所の時もあり、
ですから、これの法則がわからないことには、プログラム化は出来ません。

例えば、
右方向に連続した空白セルのみ
とか
アクティブセルがE列なら同行のA列からJ列まで
とか。
【19272】Re:ありがとうございました。さらに質問...
発言  オックン  - 04/10/27(水) 10:03 -
引用なし
パスワード
   ▼Asaki さん：
>>Activecellと左11個所の時もあれば、
>>Activecellの右5・左5箇所の時もあり、
>ですから、これの法則がわからないことには、プログラム化は出来ません。
>
>例えば、
>右方向に連続した空白セルのみ
>とか
>アクティブセルがE列なら同行のA列からJ列まで
>とか。

アクティブセルのセル位置関係なく、
常にA列からJ列まで背景色を変更することはできますか？
【19274】Re:ありがとうございました。さらに質問...
回答  Asaki  - 04/10/27(水) 10:11 -
引用なし
パスワード
   >常にA列からJ列まで背景色を変更することはできますか？
アクティブセルのある行のAからJ列とすると
Cells(Activecell.row,1).resize(,10).Interior.ColorIndex=36
とか？
【19277】解決しました。
お礼  オックン  - 04/10/27(水) 11:07 -
引用なし
パスワード
   >Asakiさん
素晴らしい動作状況です。
本当にありがとうございました。

チンプンカンな質問にも丁寧に、
答えていただきありがとうございます。

また、わからないときは質問させていただきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10907 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free