如果數字是VBScript中的整數，如何去除小數？

-1

我正在使用VBScript將數據輸入到Excel工作表中。如果數字是VBScript中的整數，如何去除小數？

objWorksheet.Cells(1, 1) = 1

當我運行此代碼並打開工作表時，excel文件顯示1.0。我喜歡它僅顯示1

objWorksheet.Cells(1, 1) = 1.5

當運行該代碼，並打開工作表，Excel文件顯示1.5，這是所期望的行爲。

如何刪除「.0」，以便只有整數在VBScript中顯示？

來源

2016-08-04 Dillydill123

這也許是細胞的數量格式無關的腳本。另外，這是VBScript，還是VBA？ –

這是vbscript。而且我知道如何在Excel中使用截斷函數來做到這一點，但我似乎無法在vbscript中找到等價物。 – Dillydill123

爲什麼你要它顯示不同的小數位數？通常如果有任何有小數位的數字，你希望它們全部四捨五入到相同的小數位數。 –

這裏有一個功能你：

Function GetTruncatedWholeNumber(sngToTruncate) 
    Dim intTruncated 
    intTruncated = CInt(sngToTruncate) 
    sngToTruncate = CSng(sngToTruncate) 'just to make sure it's a single. 

    If(sngToTruncate = intTruncated) Then _ 
     GetTruncatedWholeNumber = intTruncated Else _ 
     GetTruncatedWholeNumber = sngToTruncate 
End Function

來源

2016-08-04 13:14:53

謝謝你，但不幸的是，它確認了你在第一個評論中所說的與腳本無關的內容。如果你看看我最後的評論，我發現了一個古怪的解決方案，我不明白它的工作原理。在Excel中，我選擇一系列單元格，並使用條件格式創建新規則，並使用公式確定要格式化的單元格。在「此公式爲真的格式值」框中，我鍵入「= TRUNC（5.3,1）= 5.3」。 5.3是完全任意的。這適用於某些單元，但不適用於所有單元。你知道我該如何修復它嗎？ – Dillydill123

不，不幸的是我更像是一個腳本嚮導而不是簡單的Excel嚮導。 –

如果數字是VBScript中的整數，如何去除小數？

回答

相關問題