VBA(ワークブック書き込み)

VBA


Sub ボタン_Click()

'画面を更新しない
Application.ScreenUpdating = False
'確認メッセージを表示しない
Application.DisplayAlerts = False


'現在のフォルダを取得
Dim path As String
path = ActiveWorkbook.path

'イミディエイトウィンドウに表示
Debug.Print (path)

'現在のフォルダへ移動
ChDir path

'ワークブック作成
Dim wb As Workbook
Set wb = Workbooks.Add

'シート名取得
Dim sheetName As String
sheetName = Worksheets(1).Name

'シート名変更
Worksheets(1).Name = "シート1"


'シート追加
Dim sh As Worksheet
Set sh = Worksheets.Add()
sh.Name = "シート2"

'シートの位置を並べ替える
Worksheets("シート2").Move After:=Worksheets("シート1")


'セル書き込み
Worksheets("シート2").Range("A1").Value = "セルA1"
Worksheets("シート2").Range("B1").Value = "セルB1"

'セル書式設定
Worksheets("シート2").Range("A1").Font.Bold = True
Worksheets("シート2").Range("B1").Font.Italic = True

Worksheets("シート2").Range("A1").Font.Name = "ＭＳ Ｐゴシック"
Worksheets("シート2").Range("B1").Font.Name = "ＭＳ Ｐ明朝"

Worksheets("シート2").Range("A1").Font.Size = 10
Worksheets("シート2").Range("B1").Font.Size = 15

Worksheets("シート2").Range("A1").Font.Color = RGB(255, 0, 0)
Worksheets("シート2").Range("B1").Font.ColorIndex = 2

Worksheets("シート2").Range("A1").Interior.Color = RGB(200, 200, 200)
Worksheets("シート2").Range("B1").Interior.ColorIndex = 18

'セル幅設定
Worksheets("シート2").Range("A1").ColumnWidth = 20

'セル高さ設定
Worksheets("シート2").Range("A1").RowHeight = 20

'セル罫線設定
Worksheets("シート2").Range("A1:B5").Borders.LineStyle = xlContinuous


'ワークブック保存
wb.SaveAs ("ワークブック1.xlsx")

'ワークブックを閉じる
wb.Close

'確認メッセージを表示する
Application.DisplayAlerts = True
'画面を更新する
Application.ScreenUpdating = True


End Sub