MS 액세스 VBA 형식 통화로 Excel 시트 열

아래 코드에서 행 (3)부터 통화로 열 E & F를 형식화해야합니다. 감사!MS 액세스 VBA 형식 통화로 Excel 시트 열

  Set objApp = CreateObject("Excel.Application") 

      objApp.Visible = True 
      Set wb = objApp.Workbooks.Open("template.xls", True, False) 
      wb.Sheets(1).Rows(3).Delete 
      wb.Sheets(1).Range("A1").Value = title 
      'need to format column E & F as currency 

      Set objApp = Nothing

출처

2011-08-22 Bruno

.XLS 확장명을 가진 템플릿을 갖는 이유는 무엇입니까? .xlt이어야합니다. –

해당 열에는 서식을 중지해야하는 행이 있습니까? 전체 열의 서식을 지정할 수 있습니까? 행 1과 2에 이미 형식이 지정되어 있고 변경해서는 안되는 것이 있습니까? –

예 행 1과 2는 이미 형식이 지정되어 있으므로 변경하면 안됩니다. 열 3에서 시작하는 열 E와 열 F 만 필요합니다. 감사합니다. – Bruno

Range("E:F").NumberFormat = "$#,##0.00"

또는

Range("E:F").SpecialCells(xlCellTypeFormulas).NumberFormat = "$#,##0.00"

또는

Range("E:F").SpecialCells(xlCellTypeConstants).NumberFormat = "$#,##0.00"

출처

2011-08-22 20:04:41

만 2 개 세포를 포맷 할 경우, 한 줄의 :

wb.Sheets(1).Range("E3:F3").NumberFormat = "$#,##0.00"

는 3 행 아래의 모든 세포를 포맷 할, 그리고 그 세포가 아직 채워지지 않습니다 가정 할 경우, 다음 사용할 수 있습니다

Range("E3:F3").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.NumberFormat = "$#,##0.00"

출처

2011-08-22 19:54:22 PaulStock

이 셀은 숫자로 채워지지만 Excel로 변환하여 텍스트로 변환합니다. 통화로 변환 할 수 있도록 숫자로 다시 변환하려면 어떻게해야합니까? Excel에서 텍스트 서식을 통화로 허용하지 않습니다. 감사! – Bruno

MS 액세스 VBA 형식 통화로 Excel 시트 열

답변

관련 문제