VBA賦值給指定單元格

這是一個Range對象基本操作實例，對指定單元格賦值，然后使用彈窗獲取值。

代碼如下：

Sub test1()
Worksheets("Sheet1").Range("A5").Value = 22
MsgBox "工作表Sheet1內單元格A5中的值為" _
& Worksheets("Sheet1").Range("A5").Value
End Sub