VBA에서 통화 형식으로 지정된 모든 행 (특정 통화에 대해 £)에 모든 셀을 추가하려면 어떻게합니까?

Question

미안 어디에서 시작해야할지 모르겠으므로이 문제를 보여줄 기본 코드가 없습니다.

나는 단지 =sum(AA+AD+AG...ad nauseum)처럼 보이는 스프레드 시트를 정리하려고합니다. 나는 이것을 할 수있는 더 좋은 방법이 있다고 생각한다.

각 행에 추가하려는 숫자가 포함 된 셀이 여러 개 있지만, £로 포맷 된 셀만 있습니다.

또한 열을 아래로 이동하고 작업 할 수 있어야합니다.

Answer 1

원하는 항목을 찾으려면 =CELL("format",A1)을 사용해야하고, 통화 및 일반용으로 C2 대 G를 사용해야합니다. 그래서 도우미 열 간단한 SUMIF는 left(range("a1").Text,1)

Answer 2

당신은 UDF¹을 사용할 수 있습니다 사용할 수 있습니다 VBA에서 VBA

에 대한 필요성을 의미합니다.

---

Function subtotalCurrency(rng As Range, _ 
       Optional smbl As String = "£") 
    Dim txt As String, ttl As Double, c As Range 
    For Each c In rng 
     If CBool(InStr(1, c.Text, smbl, vbBinaryCompare)) Then 
      txt = Trim(Replace(c.Text, smbl, vbNullString)) 
      If IsNumeric(txt) Then 
       subtotalCurrency = subtotalCurrency + CDbl(txt) 
      End If 
     End If 
     Debug.Print c.Text 
    Next c 
End Function 

사용자 정의 기능 (UDF 일명)가 표준 코드 모듈 시트에 배치 _{¹. Alt 키 + F11 탭 및 VBE 열리면 즉시 삽입 ► 모듈 (Alt 키 + I, M ) 풀다운 메뉴를 사용한다. 기능 코드를 Book1-Module1 (코드)과 같은 새로운 모듈 코드 시트에 붙여 넣습니다. 워크 시트로 돌아 오려면 Alt + Q을 누르십시오.}