こんにちは～ドットコムパソコン塾の徳丸です
この間ロールキャベツを作るのに材料があるか確認して
買い物に出かけました～
しか～～～し。買い忘れが・・・トホホ
そこで～以前知恵袋でベストアンサーをいただいた解答に
ちょっと応用を加えて作成
「買い忘れ無機能マクロ」を作ってみました～
下図をご覧ください～
料理に使う材料をB4から記入
C列に有無を記入
無が入ってるものをE列に取り出し、色を塗ってみようということで
下図をご覧ください～
こんな感じでいかかでしょう？
ちょっとよくできたな～と自画自賛
料理じゃなくても構わないですよ～
マクロは有か無かの判断で取り出しています。
以下のコードをご覧ください～
Sub sanple1()
Dim i As Long
Dim cnt As Long
Dim myRow As Long
myRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("A4:A" & myRow).ClearContents
Range("A4:C" & myRow).Interior.ColorIndex = xlNone
For i = 4 To myRow
If Cells(i, 3) = "無" Then
Cells(Rows.Count, "E").End(xlUp).Offset(1) = Cells(i, 2)
Cells(i, 2).Resize(, 2).Interior.ColorIndex = 38
Cells(i, 1) = cnt + 1
cnt = cnt + 1
End If
Next i
End Sub
これを、標準moduleにコピペして使ってみてください～
意外と便利かもです♪
マクロの練習をされておられる方は答えを見る前に
考えてみてくださいね
最近よく見てくださる方が増えてきました～
めっちゃ嬉しいので今後もできるだけUPしていきます
私自身も勉強ですから♪
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
