20250905 數字setcellvalue

了解 🙌 你希望 預設用 SetCellValue(Double) 寫入數字，但又要能處理「可能為空白」的情況。 重點在於：空白不要強制變成 0（否則格式會顯示成 -），而是真的留空。 --- ✅ 寫法範例 Public Sub SetNumberCell(cell As ICell, style As ICellStyle, value As Object) cell.CellStyle = style ' 判斷空白或 Nothing → 不寫值（保持空白） If value Is Nothing OrElse value.ToString().Trim() = "" Then cell.SetCellValue("") ' 空白字串，不會被當數字，也不會顯示綠三角 Exit Sub End If ' 嘗試轉成 Double Dim d As Double If Double.TryParse(value.ToString(), d) Then cell.SetCellValue(d) ' 正常數字 → 以數字型別寫入 Else ' 如果真的不是數字（ex: "ABC"），就寫成文字 cell.SetCellValue(value.ToString()) End If End Sub --- ✅ 數字樣式設定 （只要設定一次） Dim styleNumber As ICellStyle = wb.CreateCellStyle() styleNumber.Alignment = HorizontalAlignment.Right styleNumber.VerticalAlignment = VerticalAlignment.Center styleNumber.DataFormat = wb.CreateDataFormat().GetFormat("#,##0;-#,##0;-") 這個格式的效果： 正數：四捨五入整數 + 千分位 負數：同上，帶負號 0：顯示 - 空白：保持空白 --- ✅ 使用方式 Dim r = sheet.CreateRow(0) SetNumberCell(r.CreateCell(0), styleNumber, "15.000") ' → 15 SetNumberCell(r.CreateCell(1), styleNumber, 3948) ' → 3,948 SetNumberCell(r.CreateCell(2), styleNumber, 0) ' → "-" SetNumberCell(r.CreateCell(3), styleNumber, Nothing) ' → 空白 SetNumberCell(r.CreateCell(4), styleNumber, "") ' → 空白 --- ✨ 這樣你就能用 SetCellValue(Double) 寫數字，同時 空白保持空白，不會被當成 0。 要不要我幫你再加強一下，讓它可以直接處理像 "1,234.56" 這種字串（自動去掉千分位）？