사용자 지정 서식 지정 매크로 : 소수점 이하 자릿수를 인쇄해야합니다.

Question

다른 소프트웨어의 입력으로 사용할 파일을 prn으로 출력하는 데는 매크로가 사용됩니다. 모든 것이 올바르게 작동하도록했습니다. 유일한 문제는 다른 소프트웨어가 모든 정수를 소수점 이하로 인쇄해야한다는 것입니다. 엑셀 2007을 사용

BTW

즉 셀 값은로 인쇄되어야 0 인 경우 "0" 비어 있지 않습니다. 마찬가지로 값이 8이면 "8"로 인쇄해야합니다. 이 123.45765 등

코드는 나에게 말한다처럼 대부분 같은 대부분의 값에 문제 밤은 그 기대가) 라인 (""0. "") .NumberFormat에서 소수점 이하 4

Windows("bdf_generator").Activate 
With Worksheets(2).Range("E2:H9592").FormatConditions _ 
.Add(xlCellValue, xlBetween, "=0", "=9") 
FormatConditions(1).NumberFormat=(""0."") 
With Selection.FormatConditions(1).StopIfTrue = False 
End With 
End With 

Answer 1

귀하의 경우, 을 둘러싸는 두 개의 큰 따옴표 ("")로 인해 FormatConditions(1).NumberFormat=(""0."") 줄이 올바르지 않습니다. 또한 FormatConditions(1).NumberFormat = "0." 앞에는 Selection.이 붙어야하며 그렇지 않으면 런타임에 오류가 발생합니다. 나는 그것이 명확 생각 (당신은 IntelliSense를 얻을)로 , 대신을 시도해보십시오

Windows("bdf_generator").Activate 
Dim r As Excel.Range 
Set r = Worksheets(2).Range("E2:H9592") 
Dim fc As Excel.FormatCondition 
Set fc = r.FormatConditions.Add(xlCellValue, xlBetween, "=0", "=9") 
fc.NumberFormat = "0." 
fc.StopIfTrue = False