VBA 여러 셀의 값 변경

Question

내가 선택한 옵션 단추에 따라 특정 값 범위가 표시되는 셀 행이 있습니다. 어떤 방정식이나 논리에 근거하지 않습니다. 여러 셀에 특정 값 집합을 표시해야합니다.

Private Sub OptionButton1_Click() 
If OptionButton1.Value = True Then Range("B3","AF3").Value = 

End Sub 

이 경우 셀 전체에 여러 값을 어떻게 표시합니까? 일종의 배열에 모든 값을 넣은 다음 배열을 .Value에 넣으시겠습니까? 감사!

Answer 1

아마 더 우아한 방법이 있지만, 여기에 대해 이동하는 방법 중 하나입니다 : 다음과 같이 내가 사용 결국

Sub test() 

Dim strArray(0 To 2) As String 
Dim rng     As Range 
Dim cell    As Range 
Dim counter    As Long 

Set rng = Range("A3,B7,G5") 
counter = 0 

strArray(0) = "Value1" 
strArray(1) = "Value2" 
strArray(2) = "Value3" 

For Each cell In rng 
    cell.Value = strArray(counter) 
    counter = counter + 1 
Next cell 

End Sub 

Answer 2

방법은가.

Worksheets("Sheet1").Range("B3","AF3").Value = Worksheets("Sheet2").Range("B3","AF3").Value