morelearn

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

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

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

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

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

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

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

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

サンプルソースは次のとおり。 '罫線を設定する Sub Example() With Range("A1:C3").Borders .LineStyle = xlContinuous .Weight = xlThick .Color = v...

サンプルソースは次のとおり。 '文字のスタイルを変更する Sub Example() Range("A1").Font.Bold = True Range("A1").Font.Underline = xlUnderlineStyleSin...