Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4971 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【53319】件名に色をつける方法を教えて下さい。 初心者Ｃ 07/12/27(木) 17:48 質問[未読]
【53320】Re:件名に色をつける方法を教えて下さい。 りん 07/12/27(木) 18:07 回答[未読]
【53325】Re:件名に色をつける方法を教えて下さい。 初心者Ｃ 07/12/28(金) 8:58 お礼[未読]
【53319】件名に色をつける方法を教えて下さい。
質問  初心者Ｃ  - 07/12/27(木) 17:48 -
引用なし
パスワード
   件名に色をつける方法を教えて下さい。

今、Ｋ行目の２番目の項目をピンクにするまで
処理しているのですが、Ｋ行目の２番目からＫ行目の１１番
目まで色をつける場合は、この処理を複数回実施すれば
いいのか、もう少し簡潔な記述方法があれば、教えて下さい。
　

　'●件名に色をつける。
　　　　　
　　　　　k = i - 7
　　　　　Cells(k, 2).Select
　　　　　Selection.Interior.ColorIndex = 38
　　　　　Cells(k, 2).Select
【53320】Re:件名に色をつける方法を教えて下さい。
回答  りん E-MAIL  - 07/12/27(木) 18:07 -
引用なし
パスワード
   初心者Ｃ さん、こんばんわ。

>Ｋ行目の２番目からＫ行目の１１番
>目まで色をつける場合は、この処理を複数回実施すれば
>いいのか、もう少し簡潔な記述方法があれば、教えて下さい。

k行目の２列目から11列目ということでいいんですかね。

　 Range(Cells(k, 2), Cells(k, 11)).Interior.ColorIndex = 38

こんな感じです。
【53325】Re:件名に色をつける方法を教えて下さい。
お礼  初心者Ｃ  - 07/12/28(金) 8:58 -
引用なし
パスワード
   たすかりました。
試してみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4971 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free