※全ての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
このようになります。
