エクセルマクロ 14 7月 2019 アクティブセルに枠線挿入 Sub アクティブセルに枠線挿入() ' ' アクティブセルに枠線挿入 Range("A1").Select Selection.CurrentRegion.Select Columns("A:A").EntireColumn.AutoFit Selection.Borders(xlDiagona… 続きを読む
エクセルマクロ 14 7月 2019 エクセルのデータ範囲を選択 Sub エクセルのデータ範囲を選択() ' ' A1セル選択後。選択 Range("A1").Select Selection.CurrentRegion.Select End Sub… 続きを読む
エクセルマクロ 14 7月 2019 エクセルマクロ特定列で文字を置換 Sub 特定列で文字を置換() ' ' L列で「検索文字」で検索して、「置換文字」で置き換え Columns("L:L").Select Selection.Replace What:="検索文字", Replacement:="置換文字", LookAt:=xlPart, _ SearchOrd… 続きを読む
エクセルマクロ 14 7月 2019 エクセル特定セルの文字入力 Sub 特定セルの文字入力() ' ' A1セルに「文字入力」を入力 Range("A1").Select ActiveCell.FormulaR1C1 = "文字入力" End Sub… 続きを読む
エクセルマクロ 14 7月 2019 エクセルマクロ、列をカットして挿入 Sub 列をカットして挿入() ' ' L列をカットして、G列に挿入 Columns("L:L").Select Selection.Cut Columns("G:G").Select Selection.Insert Shift:=xlToRight End Sub… 続きを読む
エクセルマクロ 14 7月 2019 列を指定して。その列の書式を数値に Sub 列を指定して。その列の書式を数値に() ' ' B列の書式設定を数値に Columns("B:B").Select Selection.NumberFormatLocal = "0_ " End Sub… 続きを読む
エクセルマクロ 13 7月 2019 「文字探し」文字のセルを見つけての隣の数字を4で割る。 Sub 文字探して数式変換() ' ' 「文字探し」のセルの隣の数字を4で割る。 ' 条件に合うセルを探して、D列に移動 Dim rng1 As Range Set rng1 = Cells.Find(What:="文字探し") If rng1 Is Nothing Then MsgBox "見つ… 続きを読む
エクセルマクロ 13 7月 2019 列を選択して削除 Sub 列を選択して削除() ' ' B列からG列削除 Columns("B:G").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft End Sub… 続きを読む
エクセルマクロ 13 7月 2019 特定の列で値のあるデータだけ抽出 Sub 特定の列で値のあるデータだけ抽出() 'オートフィルタの設定（色でフィルター） Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=RGB(255, _ 199, 206), Operator:=xlFilterCellColo… 続きを読む
エクセルマクロ 13 7月 2019 エクセルマクロ、色の付いたセルの行を削除 Sub 色の付いたセルの行を削除() ' ' 色の付いたセルの行を削除、同一マクロ内で引数は被らないように(i,n等） ' Range("A1").Select x = ActiveCell.SpecialCells(xlLastCell).Row y = ActiveCell.SpecialCe… 続きを読む
