[[20181026183555]]　『2桁づつ区切、左から2桁1組16進数、3桁目から2桁1』（ppp）　ページの最後に飛ぶ

『2桁づつ区切、左から2桁1組16進数、3桁目から2桁10進数へ変換表示』（ppp）

下記の式に左から2桁つづ区切った文字を16進、10進、16進、10進・・・・・10進と変換し、左から1組目の16進の値と、左から2組目の10進の値の積を終端文字まで計算させ、指定したセルに表示させる処理を追加したいのです。ご教示ください。
※文字数は2の倍数です。

Sub Midsmp()

    Dim c As Range
    Dim i As Integer

Range("B2:K17").ClearContents

    For Each c In Range("A:A")
        For i = 1 To Len(c.Value)
            Cells(c.Row, i + 1).Value = Mid(c.Value, i, 2)

        Next i
    Next c

End Sub

＜使用 Excel：Excel2013、使用 OS：unknown ＞

そこまで分かっているなら自力でなんとかなりそうなのでヒントだけ。

・n = CLng("&H" & "AA")で16進数文字列「AA」を(10進数の)170に変換した結果をnに代入できる。
　
・For分はStep 2と付けると2づつ加算になる。

・if i Mod 4 = 0 Then　でiが4の倍数の時だけ所定の処理を実行できる。

（名無し） 2018/10/26(金) 20:02

16進から10進への変換はうまくいきました、ですが1組目*2組目＝結果、3組目*4組目＝結果・・・・値を任意のセルに表示させる手段が分かりません、それと、現状A列の文字を2桁づつ分割しセルに表示する形ですが、計算結果のみを表示させる事は出来ないでしょうか？

（ppp） 2018/10/26(金) 20:43

求めている出力結果が文章だけではイマイチ掴みきれないので、
それを回答するには入力データと出力データのの表のサンプルを頂きたいです。

（名無し） 2018/10/27(土) 09:37

コメント返信：