변수를 수정하는 함수를 호출하는 방법

Question

내 코드는 nother 통합 문서에서 값을 가져 와서 다른 통합 문서에 붙여 넣습니다. 그러나 지금 내가 원하는 것은 마지막 3 자리 숫자를 제거하여 달러가 아닌 천 달러로 최종적인 숫자가되는 것입니다.

내 "DSA.Worksheet.Value ..."주위에 내 기능을 빌드하면 정상적으로 작동하지만 그 중 상당수가 소요되기 때문에 시간이 걸립니다. 나는 그런 식으로 전화를해도, 그것은 작품을 나던 DSA.worksheet 세포 내 함수를 호출 할 때 :

Call number_right (DSA.Worksheets(1).Range("G10").Value = Application.WorksheetFunction.Round (hello.Worksheets("getthis"").Range("I72").Value, -3) 



Sub test()  
DSA.Worksheets(1).Range("G10").Value = Application.WorksheetFunction.Round(hello.Worksheets("getthis").Range("I72").Value, -3) 

DSA.Worksheets(1).Range("G10").Value = Call number_right(DSA.Worksheets(1).Range("G10").Value) 

End Sub 


Function number_right(n As Variant) As Variant 
If Len(n) > 3 Then n = Left((n), Len(n) - 3) 
End Function 

Answer 1

아마이 :

Sub test() 

Dim DSA As Workbook 
Dim rngValue As Range 

Set DSA = ActiveWorkbook 'May need to change this line if DSA is not already open 
Set rngValue = DSA.Worksheets(1).Range("G10") 

Set rngValue = Application.WorksheetFunction.Round(hello.Worksheets("getthis").Range("I72").Value, -3) 
If Len(rngValue) > 3 Then 
    Set rngValue = number_right(rngValue) 
End If 

End Sub 

Function number_right(n As Range) As Variant 
    number_right = Left(n, Len(n) - 3)  
End Function