Byte配列を2バイトごとに処理

「vba バイト配列を2バイト毎に処理」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

「vb バイト配列 1文字づつ」
という検索キーワードも、同じようなことを探していらしたのではないかと推測しています。

［スポンサードリンク］

Byte配列を2バイトごとに処理するサンプルマクロ

以下のSubプロシージャが参考になるのではないでしょうか。

Sub Byte配列を2バイトごとに処理()
　Const ORG = "イロハ"

　Dim arr_org() As Byte
　Dim arr_ret(0 To 1) As Byte
　Dim ret As String
　Dim i As Long

　arr_org = ORG
　For i = 0 To (UBound(arr_org) - 1) Step 2
　　MsgBox arr_org(i) & " " & arr_org(i + 1)

　　arr_ret(0) = arr_org(i)
　　arr_ret(1) = arr_org(i + 1)
　　ret = arr_ret
　　MsgBox ret
　Next i
End Sub

上記のマクロを実行すると、Byte配列・arr_org()の2バイトごとの中身と、その2バイトが表す文字が、メッセージボックスへ順に表示されます。

「vba バイト配列を2バイト毎に処理」
ということなので、
　　For i = 0 To UBound(arr_org) - 1 Step 2
と、For～Nextループを「Step 2」で回して、最終値を「UBound(arr_org) - 1」としています。

「vb バイト配列 1文字づつ」
という検索をなさった方には、ループ内の、
　　　arr_ret(0) = arr_org(i)
　　　arr_ret(1) = arr_org(i + 1)
　　　ret = arr_ret
の部分が参考になるのではないでしょうか。

Byte配列を2バイトごとに処理

ステップ実行してみてください。
ちなみに上図は、For～Nextループの1回目が終わって、2回目に入ったばかりの状態です。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「配列」の記事一覧