morelearn

サンプルソースは次のとおり。'シートを非表示にするSub Example() Sheets("Sheet2").Visible = FalseEnd Subにほんブログ村

サンプルソースは次のとおり。'シートを削除するSub Example() Application.DisplayAlerts = False Sheets("Sheet1").Delete Application.DisplayAlerts...

サンプルソースは次のとおり。'シートを挿入するSub Example() Worksheets.Add after:=Sheets("Sheet1")End Subにほんブログ村

サンプルソースは次のとおり。'条件付き書式を設定するSub Example() With Range("A1:A3").FormatConditions _ .Add(xlCellValue, xlLessEqual, 2) .Font.C...

サンプルソースは次のとおり。'表示形式を変更するSub Example() Range("A1").NumberFormatLocal = "0.0%" Range("A2").NumberFormatLocal = "yyyy/m/d"E...

サンプルソースは次のとおり。'セルを結合するSub Example() Range("A1:A2").Merge Range("A1:A2").HorizontalAlignment = xlCenter Range("A1:A2").Ve...

サンプルソースは次のとおり。'文字の配置を縦書きにするSub Example() Range("A1").Orientation = xlVertical Range("B1").Orientation = -90End Subにほんブログ...

サンプルソースは次のとおり。'文字の配置を変更するSub Example() Range("A1").HorizontalAlignment = xlLeft Range("A1").VerticalAlignment = xlBottom...

サンプルソースは次のとおり。'文字と背景の色を変更するSub Example() Range("A1").Font.Color = vbRed Range("A1").Interior.Color = vbYellowEnd Subにほんブ...

サンプルソースは次のとおり。'罫線の詳細な位置を設定するSub Example() With Range("A1:C3") .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEd...