VB匯出的EXCEL如何給整列加上千分號呢？
轉換前：
加上千分號后：
謝謝了；
Set mrc1 = ExecuteSQL(sqltxt, sqlmsg)
Dim J As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application") '創建EXCEL物件
Set exwbook = ex.Workbooks.Add '打開檔案
ex.Visible = False
Set exsheet = exwbook.Worksheets("sheet1") '設定作業表
'獲取列名稱
For J = 1 To mrc1.Fields.count
exsheet.cells(2, J) = mrc1.Fields(J - 1).name
Next J
'匯出excel
exsheet.range("A3").copyfromrecordset mrc1
'*****************************************************************************************
exsheet.range("a1:k1").Merge
exsheet.cells(1, 1) = DTPicker1.Value & "至" & DTPicker2.Value & " 易耗品出庫匯總報表"
exsheet.cells(1, 1).Font.Size = 20
exsheet.range("A1:k2").HorizontalAlignment = -4108
Dim iRow1 As Long
Dim iRow2 As Long
Dim sGroupText As String
exsheet.Application.DisplayAlerts = False
iRow1 = 3
sGroupText = exsheet.cells(iRow1, 2).Value
iRow2 = iRow1
While LenB(sGroupText) <> 0 And (sGroupText <> "合計")
iRow2 = iRow2 + 1
If exsheet.cells(iRow2, 2).Value <> sGroupText Then '一組結束'
exsheet.range("A" & iRow1 & ":A" & (iRow2)).Merge
If iRow2 - iRow1 > 1 Then
exsheet.range("B" & iRow1 & ":B" & (iRow2 - 1)).Merge
exsheet.range("C" & iRow1 & ":C" & (iRow2 - 1)).Merge
exsheet.range("D" & iRow1 & ":D" & (iRow2 - 1)).Merge
exsheet.range("E" & iRow1 & ":E" & (iRow2 - 1)).Merge
End If
'設定小計顏色 (iRow2)
exsheet.range("B" & iRow2 & ":k" & iRow2).Interior.ColorIndex = 19
exsheet.cells(iRow2, 1).HorizontalAlignment = -4108
'新開始一組'
iRow2 = iRow2 + 1 '<-跳過小計'
iRow1 = iRow2
sGroupText = exsheet.cells(iRow1, 2).Value
'exsheet.columns("F").
exsheet.range("A2:k" & iRow1).borders.Weight = 2
End If
Wend
'設定合計顏色 (iRow2)
exsheet.range("B" & iRow2 & ":k" & iRow2).Interior.ColorIndex = 4
exsheet.Application.DisplayAlerts = True
exsheet.Columns.AutoFit
'******************************************************************************
ex.Visible = True
uj5u.com熱心網友回復：
Sub Macro1()
Columns("F:J").Style = "Comma"
End Sub
uj5u.com熱心網友回復：
這個都是保留兩位小位小數，假如3位或是四位呢？如何自定義呢？
uj5u.com熱心網友回復：
Columns("F:F").NumberFormatLocal = "#,##0"
Columns("G:G").NumberFormatLocal = "#,##0.0000"
Columns("H:H").NumberFormatLocal = "#,##0.00"
uj5u.com熱心網友回復：
可以用Format格式化一下。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86797.html
標籤：VB基礎類