vba를 통해 Excel에서 곱하기

저는 VBA 프로그래밍을 처음 접합니다. "n 개의 열과 행을 하나의 Excel 시트에서 다른 열 시트로 복사하고 주어진 상수에서 모든 값을 곱하는 방법"vba를 통해 Excel에서 곱하기

2014-06-19 kaulsumit

네를. 어서 가서 만드시겠습니까? 여기있는 누군가가 당신이 뭘 만들 것인지에 관심이 없다고 생각하니? – Sky

시도한 것을 보여주고 문제에 대해 수행 한 연구를 알려주십시오. 코드를 묻는 질문은 해결 된 문제에 대해 최소한의 이해를 보여 주어야합니다. 시도한 해결책, 실패한 이유 및 예상되는 결과를 포함시킵니다. 참고 항목 : Stack Overflow question checklist. –

공공 하위 Derived_Years() 정수로 희미한 N, 범위 N = 범위 ("C51") 값으로 RNG -.. 2 시트 ("파생 시리즈") 설정 RNG = 범위 ("C6") RNG를 선택 . line2 : Range (rng.Offset (1, 1), rng.Offset (1, n)) EntireColumn.Insert 범위 (rng, rng.End (xlDown)) 복사 범위 (rng, rng . .Offset (1, N)) PasteSpecial 설정 RNG = rng.Offset (0, N + 1) 만약 RNG = ""그럼 고토 호선 그렇지 고토 2 호선 끝 만약 호선 : Application.CutCopyMode = False 범위 ("c6") 선택 최종 하위 – kaulsumit

모델로, 고려 :

Sub demo() 
    Dim r1 As Range, r2 As Range, C As Double 
    C = 0.123 
    Set r1 = Sheets("Sheet1").Range("A1:B9") 
    Set r2 = Sheets("Sheet2").Range("A1:B9") 

    r1.Copy r2 

    For Each r In r2 
     r.Value = C * r.Value 
    Next r 
End Sub

출처

2014-06-19 11:44:30

vba를 통해 Excel에서 곱하기

답변

관련 문제