A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
現データ(16進数)がどういう形で入力されているか質問に書いてないのは、質問者と回答者と同一視の錯覚だ。
そんなに多い場合に関する質問ではないし実例を示すべき。無駄になるかも知れないが勝手に考えた。
例データ
下記のA列
A列 B-Q列は結果
FFFF1111111111111111
3FBC0011111110111100
23AF0010001110101111
コード
このタイプの問題は千差万別のやり方があると思うので、個人色が出てしまって、1例を挙げるのは気が進まないが。
特色は、テーブル方式変換といえようか。
Sub test01()
Range("b1:Q100").NumberFormatLocal = "@"
d = Range("A65536").End(xlUp).Row
For k = 1 To d
x = Cells(k, "A")
j = 2 'B列
s = "0123456789ABCDEF"
t = "0000000100100011010001010110011110001001101010111100110111101111"
ss = ""
For i = 1 To Len(x)
p = InStr(s, Mid(x, i, 1))
Cells(k, j) = Mid(t, (p - 1) * 4 + 1, 1): j = j + 1
Cells(k, j) = Mid(t, (p - 1) * 4 + 2, 1): j = j + 1
Cells(k, j) = Mid(t, (p - 1) * 4 + 3, 1): j = j + 1
Cells(k, j) = Mid(t, (p - 1) * 4 + 4, 1): j = j + 1
Next i
Next k
End Sub
No.2
- 回答日時:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To 15
Cells(2, 17 - i).Value = Str((Val("&h" & Range("A1").Value) And (2 ^ i)) / (2 ^ i))
Next
End Sub
No.1
- 回答日時:
VBAには10進数⇒8進数と10進数⇒16進数の変換を行なう関数はありますけど16進数⇒2進数などの変換関数は無いみたいですね。
VBAで変換を行いたい場合は自分でルーチンを組むしか無いみたいです。>http://fukkey.dyndns.org/pins/vb/011004/31105.html
上記のページに2~36の範囲内でN進数⇔M進数の変換ルーチンが載っています。これを利用して後は1桁ずつセルに表示する部分を作れば良いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
HEX2BIN関数の使い方。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EBCDIC⇒SJIS変換の方法
-
「彡」って文字はなんという文...
-
セル内の文字列が日本語か英語...
-
std::stringからLPCWSTR型への変換
-
英数字を含む文字列(0-9,A-Z)...
-
ExcelVBA実行後に時々落ちる
-
VS 2008(VB.NET)
-
Excel vba で1と10を正確に判断...
-
EBCDICへの変換
-
2バイト文字をJEFからSJISに変...
-
VisualBasic6からVB2005に移行...
-
COBOLによる全角・半角混...
-
ビット反転(Not)が機能しない
-
Excelマクロにて30分単位の計算...
-
Symfowareでのデータ型変換につ...
-
バイナリデータ→ASCII 変換プ...
-
文字コードの迷宮に迷い込みました
-
XMLデータの中の改行コードにつ...
-
sedで日本語の置換方法について
-
32ビットプログラムを64ビット...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「彡」って文字はなんという文...
-
EBCDIC⇒SJIS変換の方法
-
セル内の文字列が日本語か英語...
-
std::stringからLPCWSTR型への変換
-
ExcelVBA実行後に時々落ちる
-
VS 2008(VB.NET)
-
Symfowareでのデータ型変換につ...
-
2バイト文字をJEFからSJISに変...
-
COBOLによる全角・半角混...
-
VB.NETのコンソールアプリケー...
-
フォームのコントロールのバッ...
-
ふりがなをアルファベット化す...
-
sedで日本語の置換方法について
-
PL/SQLでSJISの文字コードを取...
-
数字5桁文字コード?
-
画像データ(png)をcsvファイル...
-
CString ←→ BSTRの変換について
-
英数字を含む文字列(0-9,A-Z)...
-
error C2679 がとれません><
-
RubyでUTF8のコード値を文字に...
おすすめ情報