うちのパソコン教室の受講生からそんな質問が。
選択したひとつのセルに色をつけて右に移動するのだったら、だれでもactivecell.offset(,1)を使うぐらいは思い浮かぶだろう。しかし、この人は複数のセルを選んでそこに色を着けて右の色がついていないセルに移動したいのだそうな。そこで、選んだセルの数だけ右に移動するマクロを作ってみた。
Option Explicit
Sub クリア()
Dim iro As Integer
Call セルの色(0)
End Sub
Sub ピンク()
Dim iro As Integer
Call セルの色(38)
End Sub
Sub イエロー()
Dim iro As Integer
Call セルの色(36)
End Sub
Sub グリーン()
Dim iro As Integer
Call セルの色(35)
End Sub
Sub セルの色(iro)
Selection.Interior.ColorIndex = iro
Selection.Select
ActiveCell.Offset(, Selection.Columns.Count).Select
End Sub
選択したひとつのセルに色をつけて右に移動するのだったら、だれでもactivecell.offset(,1)を使うぐらいは思い浮かぶだろう。しかし、この人は複数のセルを選んでそこに色を着けて右の色がついていないセルに移動したいのだそうな。そこで、選んだセルの数だけ右に移動するマクロを作ってみた。
Option Explicit
Sub クリア()
Dim iro As Integer
Call セルの色(0)
End Sub
Sub ピンク()
Dim iro As Integer
Call セルの色(38)
End Sub
Sub イエロー()
Dim iro As Integer
Call セルの色(36)
End Sub
Sub グリーン()
Dim iro As Integer
Call セルの色(35)
End Sub
Sub セルの色(iro)
Selection.Interior.ColorIndex = iro
Selection.Select
ActiveCell.Offset(, Selection.Columns.Count).Select
End Sub