Range("H1").Select
ActiveCell.FormulaR1C1 = "=RAND()"
Range("H1").Select
Selection.AutoFill Destination:=Range("H1:H19"), Type:=xlFillDefault
Range("H1:H19").Select
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[7],C[7])"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A19"), Type:=xlFillDefault
Range("A1:A19").Select
Range("K4").Select
위의 매크로에서, 저 빨간 동그라미 친 H19와 A19에서 19라는 숫자가
아래의 K22에 적혀있는 숫자에 맞춰 변하도록 하고싶음.
즉 반약 K22에 숫자가 100이 적혀있으면 각각 H100, A100이 되는거임.
일반 함수같으면 그냥 index 사용해서 할텐데 비주얼베이직은 내가 컴활1급딸때나 조금 끄적거렸지 명령어가 조금씩 달라서 못하겠더라..
5개의 댓글
무분별한 사용은 차단될 수 있습니다.
회용티슈
와 비주얼베이직 20년전 초딩 때 하던 거였는데
추억돋네
3줄요약
3줄요약
해결했다
Range("A1:A" & Range("K22"))
시발 ㄹㅇ 컴활할때 했던거 기억 하나도 안나네
아침밥
CatDrip.Net
10년전에 잠깐 했던 비주얼베이직이네