タイトル : Re^3: 16進数のカウント 投稿日 : 2008/01/16(Wed) 10:58 投稿者 : 花ちゃん
> これを16進数としてカウントさせたいのですがiが10まで行ったらA , B, Cと表示させたいのですが > 10,11,12・・・となってしまいます。 > HEX関数で16進数に変換しているのですが関係ないのでしょうか? > > sHex = "00" > > For i = 0 To 32 > MsgBox Hex(Val("&H" & sHex & i)) > Next i > > 000,001・・・00A・・・00F…010,011・・・01A・・・01Fとしたいです。 何がしたいのかよく解らないが、こう言う事ですか? Private Sub Command1_Click() Dim i As Long Dim sHex As String sHex = "00" For i = 0 To 32 Debug.Print Right$(sHex & Hex(i), 3) Next i End Sub |