2012-08-01から1日間の記事一覧

VBA "本体" 改定

Sub 商品名を入力() Dim flag As Boolean Dim i As Integer '行数 Dim j As Integer 'シート数 For j = 1 To Sheets.Count If flag = True Then flag = False 'フラグのデフォルトはfalse End If Worksheets(j).Activate For i = 1 To LastRow(ActiveSheet, …

VBA フラグ付けて特定文字列のみを空欄へ入力（例：”本体”）

Sub 商品名を入力() Dim flag As Boolean Dim i As Integer flag = False 'フラグのデフォルトはfalse For i = 1 To LastRow(ActiveSheet, 1) 'A列の最終行まで。 'フラグ無、かつ、"本体"、でフラグ有へ If flag = False Then If ActiveSheet.Cells(i, 1).V…