バイナリーの計算を勉強したいので、
サンプルのコードを書いて頂けますか。
例題として、
1バイトの項目a、bにヘキサでそれぞれ数値を入れ、
その差額(b-a)を求め、
差額の10分の1を項目aに加える
10進数で書けば以下の通りですが、
これをバイナリーの世界で勉強したいのです。
項目の定義の仕方から、実演算式まで、
宜しくお願いします。
<10進法でのコードです。>
Sub sample1()
Dim a As Integer
Dim b As Integer
Dim w As Single
a = 28
b = 200
w = b - a
w = w / 10
a = a + w
MsgBox a & "," & b & "," & w
End Sub
No.1ベストアンサー
- 回答日時:
VBAで使用できる整数の型は以下の通りです。
①1バイト 整数型 Byte 0~255
②2バイト 整数型 Integer -32768~32767
③4バイト 整数型 Long -2147483648~2147483647
16進数を扱う場合、上記の型のどれを使用しても良いですが、
1バイトということなので、Byte型を使います。
10進数の28は16進数の1C
10進数の200は16進数のC8 です。
16進定数の1Cは、1Cの前に&Hをつけて、&H1C のように記述します。
この時点で、&H1C と 28 は同じ値となっています。(表記法が違うだけです)
Public Sub sample()
Dim a As Byte
Dim b As Byte
Dim w As Single
a = &H1C '=28
b = &HC8 '=200
w = b - a
w = w / 10
a = a + w
MsgBox a & "," & b & "," & w
End Sub
実行結果:
45,200,17.2
と表示されます。
何時も的確な、かつ完璧な回答、
ありがとうございます。
出来ました。
これで、取っ掛かりが出来たので、
奥を広げてみます。
お世話になりました。
またいつものこと、ベストは選べないので、お許しを。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
Oracle 2つのDate型の値の差を...
-
Joy To Keyのマウスやキーボー...
-
2行目を表示できますか?
-
DBのタイプの指定とサイズにつ...
-
VBAで複数の数式セルを最終行ま...
-
SUBSTRING 関数に渡した長さの...
-
ブラウザの「戻る」ボタンは何...
-
skypeに問い合わせるとき...
-
APN設定について教えていただけ...
-
空白をそのままインポートする...
-
BIOSでAHCIに設定したいが、項...
-
Excelで空白以外の値がある列の...
-
Accessレポートで特定条件で改...
-
セルの右クリックで出る項目を...
-
必須入力項目と入力必須項目
-
スティックパリティの役割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
VBAで複数の数式セルを最終行ま...
-
access2000:フォームで入力し...
-
株に関する用語集
-
他テーブルで一致する列から名...
-
必須入力項目と入力必須項目
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報