Dim loop_ctr As Integer
For loop_ctr = 1 To 100
Sheets("Capacity&Costs").Activate
Range("TrialOne") = "=INT(RAND()*3+1)-1"
Calculate
Next loop_ctr
안녕하세요, 위의 VBA 코드가 있습니다. 이 시점에서이 계산에서 100 개 값의 목록을 모두 가져 와서 다른 워크 시트에 목록으로 표시하고 싶습니다. 가능합니까? 지금이 코드를 실행하면 100 번째 계산의 값만 표시됩니다.
TrialOne은 0, 1 또는 2를 포함하는 두 개의 열입니다. 위의 코드를 100 번 수행하고 각 결과를 목록으로 개별적으로 기록하려고하므로 100 개의 숫자 목록이 있습니다.
다음 스 니펫을 시도해 볼 수 있습니다 (특정 범위 및 워크 시트 이름에 맞게 조정).
Sub GenerateRandomList()
Dim loop_ctr As Integer
For loop_ctr = 1 To 100
Range("A" & loop_ctr) = "=INT(RAND()*3+1)-1"
Calculate
Next loop_ctr
End Sub
새 Excel 워크 시트를 열고 Sheet1 VBA 코드 모듈에 코드를 입력 한 다음이 샘플을 실행합니다. 이 솔루션은 최적의 솔루션과는 거리가 멀지 만 귀하의 요청과 관련이 있습니다. 이것이 도움이되기를 바랍니다. 친애하는,
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다