請教這段程式碼的意思?

[oak0723]

請教這段程式碼的意思?
Sheets("A").Cells(4 + j, 2).Resize(5, 10) = .Range(.Cells(8 + i, 1), .Cells(12 + i, 10)).Value

[GBKEE]

程式碼:

Sub Show_Resize()
　 Dim X%, Y%
　 With Sheets("Sheet1")
　　　　.Activate
　　　　For Y = 1 To 5
　　　　　　For X = 1 To 5
　　　　　　　　.Range("E3").Resize(X, Y).Select
　　　　　　　　MsgBox .Range("E3").Resize(X, Y).Address(False, False) & Chr(10) _
　　　　　　　　& "RowSize =" & X & " , ColumnSize =" & Y
　　　　　　Next
　　　　Next
　　End With
End Sub

[oak0723]

喔
感謝大大的解釋
可否可以另外舉例解釋value呢

[GBKEE]

程式碼:

Sub Test()
　　With ActiveSheet '.Range("D1:D2") 請輸入不同資料
　　　　.[A1].Resize(2, 2) = ""
　　　　
　　　　.[A1].Resize(2, 2).Font.Size = 10
　　　　.[A1].Resize(2, 2).Font.Bold = False
　　　　.[A1].Resize(2, 2) = .Range("D1")
　　　　
　　　　.[A1].Resize(2, 2) = .Range("D1:D2") '非單一Range沒指明 Value (值)
　　　　
　　　　.[A1].Resize(2, 2) = .Range("D1:D2").Value '非單一Range需指明為 Value (值)
　　　　.[A1].Resize(2, 2).Font.Size = 12
　　　　.[A1].Resize(2, 2).Font.Bold = True
　　　　
　　End With
End Sub

[Hsieh]

請教這段程式碼的意思?
Sheets("A").Cells(4 + j, 2).Resize(5, 10) = .Range(.Cells(8 + i, 1), .Cells(12 + i, 10)).Value

Sheets("A").Cells(4 + j, 2).Resize(5, 10)的內容替換成.Range(.Cells(8 + i, 1), .Cells(12 + i, 10))的值
Value就是值的意思

[oak0723]

Value
除了可以設定儲存格的值外
還可以讀取儲存格的值
可否舉例?

[Hsieh]

range("A1").value=k →指定A1的值為k值
k=range("A1").value →指定A1的值給變數k

[oak0723]

呵呵
太好了
感謝2位高手願意給小弟解惑和新增知識
關於value還有其他用法嗎?
和使用需注意地方?

[oak0723]

關於Value
在設定儲存格的值
與讀取儲存格的值
小弟還有些疑惑
例如
若要設定
單一儲存格[a1]的值為1要怎麼寫?一定要用到value嗎?
若要設定
a1:c10的值為1要怎麼寫?一定要用到value嗎?
若要讀取
單一儲存格[a1]的值要怎麼寫?一定要用到value嗎?
若要讀取
a1:c10的值要怎麼寫?一定要用到value嗎?

[Hsieh]

通常vba在物件未指明屬性時會默認取其value屬性
k=[A1]跟k=[A1].value是一樣的
所以反倒是變數型態比較重要
舉例
dim k as long
k=[A1]
這時候
k=[A1]跟k=[A1].value是一樣的
但變數為物件型態時如
dim k as range
set k=[A1]
這時因為k是儲存格型態
必須用set關鍵字將k設為[A1]儲存格
就不能是
K=[A1].value
因為k並不是一個值而是物件了