VBA ECサイト など

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

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

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

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

VBA 空のセルがあったら その 行を削除 メモ

Sub kuuhaku_sakuzyo() Dim i As Long For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(i, 4) = "" Then 'セルが空なら Range(i & ":" & i).Delete '行を削除 End If Next i End Sub

VBA 特定の文字列の下に空白行を入れる

Sub add() Dim rNum As Long For rNum = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1If Cells(rNum, 5).Value = "挨拶状希望" Then Rows(rNum + 1).InsertNext rNum End Sub

VBA 空白行の削除 メモ

Sub Delete_Rows_w_Blank() Dim GYO As Long Dim KuhakuGyo As Range Dim r As Long ' A列をみて表の最終行を取得する ------ ※1 GYO = Cells(Rows.Count, 1).End(xlUp).Row '2行目から最終行までB列のセルをチェックします With ActiveSheet For r = 2 To G…

VBA  置換 最終行までループ メモ

Sub cut() Dim i As Long Dim str As String For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row Cells(i, 5).Value = Replace(Cells(i, 5).Value, "▼挨拶状(仏事用)の種類をお選びください", "▼挨拶状の種類をお選びください") Next i End Sub ------------…

VBA メモ 2018 11 07

Sub add() '18行 空ける Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To 16 Step -1 Rows(i & ":" & i + 16).Insert Next i End Sub ----------------------------- '項目選択肢コピー ペースト Sub addcopy() Range("D1:E18").SelectSelecti…

VBA ECサイトに使える_001

●CSVなどで、文字列を足すときに便利。 Sub addtext() Dim i As Integer For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 3).Value = Cells(i, 3).Value & " 安い のし・包装紙無料 出産内祝い 内祝い 引き出物 香典返し 快気祝い 結婚 引出物 ギ…