私はVBScriptを使用してExcelワークシートにデータを入力しています。VBScriptで数値が整数の場合、小数点以下を削除するにはどうすればよいですか？
objWorksheet.Cells(1, 1) = 1
このコードを実行してワークシートを開くと、Excelファイルに1.0が表示されます。私はこのコードを実行し、ワークシートを開くと、Excelファイルが必要な動作である1.5を表示1
objWorksheet.Cells(1, 1) = 1.5
表示のみにそれをしたいと思います。
「.0」を削除して、VBScriptに整数だけが表示されるようにするにはどうすればよいですか？
はここであなたのための機能です：
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
ありがとうございますが、残念ながら、スクリプトに関することを何もしていないことについて、あなたが最初にコメントしたことを確認しています。あなたが私の最後のコメントを見て、私は私の仕事を理解していないばかげた解決策を見つけました。 Excelでは、セルの範囲を選択し、条件付き書式を使用して新しいルールを作成し、式を使用して書式設定するセルを決定します。 "この式が真である値の書式設定"ボックスに、 "= TRUNC（5.3、1）= 5.3"と入力します。 5.3は完全に任意です。これは一部のセルでは機能しますが、すべてでは機能しません。私はそれをどのように修正できるか知っていますか？ – Dillydill123
いいえ、残念ながら私はスクリプト作成ウィザードの方が多く、一般的なExcelウィザードの方がはるかです。 –
それはおそらく、細胞の数のフォーマットだとスクリプティングとは何の関係もありません。また、このVBScript、またはVBAはありますか？ –
これはvbscriptです。そして、私はtruncate関数を使用してExcelでこれを行う方法を知っていますが、私はvbscriptで同等のものを見つけることができません。 – Dillydill123
なぜ異なる小数点以下の桁数を表示したいのですか？通常、小数点以下の桁数がある場合は、小数点以下の桁数に丸めます。 –