VBA イベントWorksheet_Change　数値入力判別チェックフィルドラッグ対応

VBA VBA ECサイト　など

Private Sub Worksheet_Change(ByVal Target As Range) ' イベント値が変わったらフィルドラッグ対応 '範囲が１と複数を分岐させて、複数のtarget = コピペやフィルドラッグなどには foreach で回す Dim c As Object If Target.Column = 8 Then ' H列 If …

2019-02-13

VBA イベントWorksheet_Change　数値入力判別チェック

VBA VBA ECサイト　など

'シートモジュールに記述シートモジュール出し方シートタブの上で「右クリック」→「コードの表示」に記述 Private Sub Worksheet_Change(ByVal Target As Range) ' イベント値が変わったら If Target.Column = 8 Then ' H列 If Target.Value = "" Then Ta…

2019-02-13

VBA 作業済み　チェック　判定

VBA

Sub colorCheck() ' ・値が入っていなかったら塗りつぶしなし・入っていたら「黄色」 Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Range("H" & i).Value = "" Then Range("B" & i).Interior.ColorIndex = 0 ' 塗りつぶしなし Else…