[Excel][VBA]型変換

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

→Excelメニューへ戻る

 

Private Sub CommandButton1_Click()

'Cintなど C***の式は数値・文字列をそれぞれの型に変換します


'表示上は各セルの書式に依存します

'Integerの範囲は -32,768 ～ 32,767 です
  Sheet1.Range("A1").Value = CInt("32767")

  Sheet1.Range("A2").Value = CLng("32768")

  Sheet1.Range("A3").Value = CDbl("3.141592653")

'CCurの戻り値は通貨型です　*表示はセル書式に依存します
  Sheet1.Range("A4").Value = CCur("5678")

  Sheet1.Range("A5").Value = CCur("60") * CCur("5")

'円や個は無視されます
  Sheet1.Range("A6").Value = Val("60円") * Val("5個")

'数値の前に \ があるとValの処理が停止しゼロになるので 0 x 5 = 0 となります
  Sheet1.Range("A7").Value = Val("\60") * Val("5個")

End Sub

上記のサンプルを実行すると

となります。

 

補足説明です

CInt　：整数型へ

CLng　：長整数型へ

CDbl　：倍精度浮動小数点数型へ

CCur　：通貨型へ

Val　：文字列を数値に変換

 

※「(C)ソースコードの覚え書き」は当サイトの前身です

 

→Excelメニューへ戻る

 

5