Excelワークシート操作

With Worksheets("Sheet1")

.Cells(1, 1).Value = "あああ"

End With

Dim ws As Worksheet

Set ws = Worksheets("Sheet1")

hp = ws.Cells(1, 2).Value

hp = hp - 1

ws.Cells(1, 2).Value = hp

Label1.Caption = hp