'##################################################################### ' 16進数の加法・減法 ' TjSoft-71 2007.12.25 Taiju ' 【用途】 16進数の数値表示のまま、足し算・引き算を行う。 '##################################################################### Str = InputBox( " ○○ +/- ○○", "数式の指定") iNum1 = CLng( "&H" & Left( Str, 2 ) ) iNum2 = CLng( "&H" & Right( Str, 2 ) ) If InStr( Str, "+" ) <> 0 Or InStr( Str, "+" ) Then iNum3 = iNum1 + iNum2 Str = UCase( Hex( iNum1 ) ) & " + " & UCase( Hex( iNum2 ) ) & " = " & UCase( Hex( iNum3 ) ) & vbcr ElseIf InStr( Str, "-" ) <> 0 Or InStr( Str, "−" ) Then iNum3 = iNum1 - iNum2 Str = UCase( Hex( iNum1 ) ) & " - " & UCase( Hex( iNum2 ) ) & " = " & UCase( Hex( iNum3 ) ) & vbCr End If Str = InputBox( "結果", "結果の表示", Str )