Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1755 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【72273】セルに色を付けるマクロDoWhile～Loop処理 杏子 12/7/7(土) 8:51

【72274】Re:セルに色を付けるマクロDoWhile～Loop処... UO3 12/7/7(土) 9:07

【72275】Re:セルに色を付けるマクロDoWhile～Loop処... 杏子 12/7/7(土) 9:20

【72277】Re:セルに色を付けるマクロDoWhile～Loop処... UO3 12/7/7(土) 11:38

【72278】Re:セルに色を付けるマクロDoWhile～Loop処... 杏子 12/7/7(土) 12:59


	【72273】セルに色を付けるマクロDoWhile～Loop処理

杏子 - 12/7/7(土) 8:51 -


	引用なし

	パスワード

資料作りに必要なのでぜひ皆様の力を貸してください。
　　　　　　　　　　　　　　　　
・10個の斜めセルに色を付ける
（A1→B2→C3→D4→E5→F6→G7→H8→I9→J10）
　　　　　　　　　　　　　　　　　　　　
・色は何色でも構いませんが、今回は「水色」の設定でよろしくお願いします。

Sub Macro1()
'
' Macro1 Macro
'

'
　　Range("A1").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("B2").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("C3").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("D4").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("E5").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("F6").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("G7").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("H8").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("I9").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　Range("J10").Select
　　With Selection.Interior
　　　　.Pattern = xlSolid
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 15773696
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
End Sub

一つ一つセルを選択してのマクロ登録は上記になりますが、
DoWhile～Loopで登録する方法を教えてください。

こんなものは基本中の基本と思われるとは思いますが、マクロの勉強を始めたばかりなのでまだ基礎が出来上がっておらずこれから少しずつ勉強をしていこうと思っていますのでご指導よろしくお願いします。


	【72274】Re:セルに色を付けるマクロDoWhile～Loo...

UO3 - 12/7/7(土) 9:07 -


	引用なし

	パスワード

▼杏子さん：

おはようございます。
ループ制御は様々な方法がありますが一例です。
（ご要望の Do/Loop ではなく恐縮ですが）

Sub Sample1()
　　Dim i As Long
　　
　　For i = 1 To 10
　　　　Range("A1").Offset(i - 1, i - 1).Interior.Color = vbCyan
　　Next
　　
End Sub


	【72275】Re:セルに色を付けるマクロDoWhile～Loo...

杏子 - 12/7/7(土) 9:20 -


	引用なし

	パスワード

▼UO3 さん：

さっそくのご回答ありがとうございます。
U03さんの処理でも行うことが出来ました。

でも、今DoWhile～Loop処理の勉強を始めたところだったので
できればこちらで考えたいなと思いまして。。。

DoWhile～Loopでは構成が立てにくいのでしょうか。

>▼杏子さん：
>
>おはようございます。
>ループ制御は様々な方法がありますが一例です。
>（ご要望の Do/Loop ではなく恐縮ですが）
>
>Sub Sample1()
>　　Dim i As Long
>　　
>　　For i = 1 To 10
>　　　　Range("A1").Offset(i - 1, i - 1).Interior.Color = vbCyan
>　　Next
>　　
>End Sub


	【72277】Re:セルに色を付けるマクロDoWhile～Loo...

UO3 - 12/7/7(土) 11:38 -


	引用なし

	パスワード

▼杏子さん：

>DoWhile～Loopでは構成が立てにくいのでしょうか。

というか、Do/Loopでやらなきゃいけない必要性がないということです。
無理矢理Do/Loop構文を使うなら、

Sub Sample2()
　　Dim i As Long
　　
　　i = 1
　　
　　Do While i < 11
　　　　Range("A1").Offset(i - 1, i - 1).Interior.Color = vbCyan
　　　　i = i + 1
　　Loop
　　
End Sub

Sub Sample3()
　　Dim i As Long
　　
　　i = 1
　　
　　Do Until i = 11
　　　　Range("A1").Offset(i - 1, i - 1).Interior.Color = vbCyan
　　　　i = i + 1
　　Loop
　　
End Sub


	【72278】Re:セルに色を付けるマクロDoWhile～Loo...

杏子 - 12/7/7(土) 12:59 -


	引用なし

	パスワード

▼UO3 さん：

ありがとうございます。
自分で勉強して少し自信をつけたかったのでやってみようと思いました。
まだまだ知識不足ですね。

これからも簡単なことで質問させていただくことがあるかもしれませんが
よろしくお願いします。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1755 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free