Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10788 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19789】まくろについて ジュン 04/11/17(水) 11:35 質問[未読]
【19792】Re:指定範囲を交互に色つけしたい かみちゃん 04/11/17(水) 12:41 回答[未読]
【19796】Re:指定範囲を交互に色つけしたい ジュン 04/11/17(水) 13:37 お礼[未読]
【19845】Re:指定範囲を交互に色つけしたい かみちゃん 04/11/17(水) 21:32 回答[未読]
【19880】Re:指定範囲を交互に色つけしたい ジュン 04/11/18(木) 13:34 質問[未読]
【19908】Re:指定範囲を交互に色つけしたい かみちゃん 04/11/18(木) 23:33 発言[未読]
【19909】Re:指定範囲を交互に色つけしたい wizik 04/11/19(金) 5:32 発言[未読]
【19910】Re:指定範囲を交互に色つけしたい かみちゃん 04/11/19(金) 6:46 発言[未読]
【19911】Re:指定範囲を交互に色つけしたい ジュン 04/11/19(金) 9:28 お礼[未読]
【19927】Re:指定範囲を交互に色つけしたい かみちゃん 04/11/19(金) 12:45 発言[未読]
【19789】まくろについて
質問  ジュン  - 04/11/17(水) 11:35 -
引用なし
パスワード
   指定した範囲を交互に色をつけて、どのセルにあわせても、指定した範囲にだけ交互に色をつけれるようにできる、マクロの作り方を教えて下さい。
【19792】Re:指定範囲を交互に色つけしたい
回答  かみちゃん  - 04/11/17(水) 12:41 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>指定した範囲を交互に色をつけて、どのセルにあわせても、指定した範囲にだけ交互に色をつけれるようにできる、マクロの作り方を教えて下さい。

こんな感じのことでしょうか？

Option Explicit
Sub Macro1()
　Dim i As Integer
　Dim c As Range
　
　i = 0
　'選択範囲
　For Each c In Selection
　　Select Case i Mod 2 'セル位置を交互に判定
　　　Case 0
　　　　c.Interior.ColorIndex = 2 '白
　　　Case 1
　　　　c.Interior.ColorIndex = 3 '赤
　　End Select
　　i = i + 1
　Next
End Sub
【19796】Re:指定範囲を交互に色つけしたい
お礼  ジュン  - 04/11/17(水) 13:37 -
引用なし
パスワード
   ありがとうございます。大変勉強になりました。もうひとつお聞きしたいのですが、横の場合は、どうすればよろしいですか？
【19845】Re:指定範囲を交互に色つけしたい
回答  かみちゃん  - 04/11/17(水) 21:32 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 横の場合は、どうすればよろしいですか？

For Each〜を使った方法が横へ交互の方法です。
縦方向へ交互というのであれば、以下のような感じになると思います。
Sub Macro2()
　Dim i As Integer
　Dim c As Range
　Dim ColumnNo As Integer, RowNo As Long

　i = 0
　'選択範囲
　For ColumnNo = Selection.Column To Selection.Column + Selection.Columns.Count - 1
　　For RowNo = Selection.Row To Selection.Row + Selection.Rows.Count - 1
　　　Select Case i Mod 2 'セル位置を交互に判定
　　　　Case 0
　　　　　Cells(RowNo, ColumnNo).Interior.ColorIndex = 2 '白
　　　　Case 1
　　　　　Cells(RowNo, ColumnNo).Interior.ColorIndex = 3 '赤
　　　End Select
　　　i = i + 1
　　Next
　Next
End Sub
【19880】Re:指定範囲を交互に色つけしたい
質問  ジュン  - 04/11/18(木) 13:34 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
かみちゃんさんこんにちわ。


記述の内容を教えて下さい。

Dim myR As Range
　Dim myR2 As Range
　Dim ck As Boolean
　Dim i As Long
"　Set myR2 = Intersect(Selection.Item(1).EntireColumn, Selection)"
　i = Selection.Columns.Count
　For Each myR In myR2
"　　With myR.Resize(, i).Interior"
　　　If ck Then
　　　　.ColorIndex = xlNone
　　　　ck = False
　　　Else
　　　　.ColorIndex = 10
　　　　ck = True
　　　End If
　　End With
　Next
　Set myR = Nothing
　Set myR2 = Nothing
End Sub

初心者なので言葉の内容がわからないので、ひとつひとつ教えてくれると助かります。
【19908】Re:指定範囲を交互に色つけしたい
発言  かみちゃん  - 04/11/18(木) 23:33 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>記述の内容を教えて下さい。

このコードは、新たにご自分で作成されたコードですか？
それとも、どこかに掲載されていたコードですか？
少なくとも私が提示させていただいたコードではないです。

>初心者なので言葉の内容がわからないので、ひとつひとつ教えてくれると助かります。

ヘルプで少しくらい調べられませんか？
Intersect メソッド
Item メソッド
EntireColumn プロパティ
Columns プロパティ
Count プロパティ
For Each...Next ステートメント
Resize プロパティ
Interior プロパティ
ColorIndex プロパティ

コードの文字上で「F1」キーを押すとヘルプが呼び出されます。
【19909】Re:指定範囲を交互に色つけしたい
発言  wizik  - 04/11/19(金) 5:32 -
引用なし
パスワード
   ▼かみちゃん さん：
>
>>記述の内容を教えて下さい。
>
>このコードは、新たにご自分で作成されたコードですか？
>それとも、どこかに掲載されていたコードですか？
>少なくとも私が提示させていただいたコードではないです。
これですね。
http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20041117-000018
【19910】Re:指定範囲を交互に色つけしたい
発言  かみちゃん  - 04/11/19(金) 6:46 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>少なくとも私が提示させていただいたコードではないです。
>これですね。
>http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20041117-000018

wizik さん、ありがとうございます。
私もマルチポストかなぁと思って、そちらの掲示板も探していたのですが、見つけられませんでした。

ジュンさん、ハンドル名が違うものの、マルチポストの可能性を強く感じます。
（決め付けたくはないので、違っていたらすみません）
教えていただいたマクロについて、更なる質問があるのならば、紹介された元のところで聞いていただければと思います。
別々のところで、聞かれると前回の経緯が見えなくなるので混乱する方も多いと思います。

その前に、前回のコメントでも書きましたが、ヘルプ等である程度調べてどこがわかっててどこがわからないのか、ポイントを絞るべきだと思います。

最後に、私が提示したコードでは、いけなかったのかなぁと思い、少々悲しくなりました。たしかに安直なコードなので・・・
【19911】Re:指定範囲を交互に色つけしたい
お礼  ジュン  - 04/11/19(金) 9:28 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>>少なくとも私が提示させていただいたコードではないです。
>>これですね。
>>http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20041117-000018
>
>wizik さん、ありがとうございます。
>私もマルチポストかなぁと思って、そちらの掲示板も探していたのですが、見つけられませんでした。
>
>ジュンさん、ハンドル名が違うものの、マルチポストの可能性を強く感じます。
>（決め付けたくはないので、違っていたらすみません）
>教えていただいたマクロについて、更なる質問があるのならば、紹介された元のところで聞いていただければと思います。
>別々のところで、聞かれると前回の経緯が見えなくなるので混乱する方も多いと思います。
>
>その前に、前回のコメントでも書きましたが、ヘルプ等である程度調べてどこがわかっててどこがわからないのか、ポイントを絞るべきだと思います。
>
>最後に、私が提示したコードでは、いけなかったのかなぁと思い、少々悲しくなりました。たしかに安直なコードなので・・・
おはようございます。　
かみちゃんさん私はマルチポストではないです。それわ信じてください。
私も見ていたのですが、同じ内容のがありました。ビックリしました。
なるべく自分でも調べるようにします。
これからもよろしく。
【19927】Re:指定範囲を交互に色つけしたい
発言  かみちゃん  - 04/11/19(金) 12:45 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>かみちゃんさん私はマルチポストではないです。それわ信じてください。
>私も見ていたのですが、同じ内容のがありました。ビックリしました。

はい。わかりました。あまり議論はしたくないので、信じることにしましょう。

それにしても、以下の質問は、ジュンさんのご質問ですよね？
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=19799;id=excel
これに関連していると思われる質問が以下にもあります。
http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20041118-000023
これらもハンドル名が今回と同じように違うのですが、偶然だったのでしょうか？
そういうところからして、いささか疑問に感じました。

>なるべく自分でも調べるようにします。
>これからもよろしく。

はい。まずは、自分でヘルプやネットでいろいろ調べてみて、どうしても行き詰ったらまた質問してください。
私も含めて、いろんな人たちが見ていて、そのとき答えられる人がいれば答えてくれると思います。

ところで、私が提示したコードでは、やっぱりまずかったのでしょうか？
安直なコードでしょうが、わかりやすく書いたつもりだったのですが・・・

今後ともよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10788 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free