Sub test2() Dim n As Long Dim strTANKA As String strTANKA = "120000" '12万 n = Val(strTANKA) '(*2)String型を数値に変換 MsgBox n / 250 End Sub (*2)もちろん、固定 ...
確定! 回上一頁