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