No.5
- 回答日時:
VBS用ですが16進数⇔2進数、10進数⇔2進数があります。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=739620
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=739620
VBSで同じ質問があったとは(^^
ありがとうございますm(_ _)m
VBSの事は、あまり知らないので今度挑戦してみようと
思います。本当にありがとうございます!
No.3
- 回答日時:
16から10は
16進値の頭に[&H]をつけるだけで、10進値が取得できます。
変換ロジックを組むまでも無し。
2進は組む必要あり。
面倒そうなので辞退。
No.2
- 回答日時:
16進表記の文字列を10進数に変換。
#1に良い解が出てしまったのでFunction HEX2DEC(s As String) As Long
s = UCase(s)
wk = 0
For i = 1 To Len(s)
x = Asc(Mid(s, i, 1)) - 48
If x > 9 Then x = x - 7
' MsgBox x
wk = wk * 16 + x
Next
HEX2DEC = wk
End Function
--以下テスト例
Sub test01()
Dim s As String
s = "ffffff"
y = HEX2DEC(s)
MsgBox y
s = "abcdef"
y = HEX2DEC(s)
MsgBox y
End Sub
As Integer はAs Longの方が良いかと思って。
お返事、本当にありがとうです(>_<)
実際に、やってみようと思います。
ありがとうございます。
P.S お返事遅れてすみません(汗
No.1
- 回答日時:
やり方は色々あると思いますが、とりあえず作ってみました。
Function HEX2DEC(s As String) As Integer
s = UCase(s)
Table = "0123456789ABCDEF"
wk = 0
For i = 1 To Len(s)
wk = wk * 16 + InStr(Table, Mid(s, i, 1)) - 1
Next
HEX2DEC = wk
End Function
Function HEX2BIN(s As String) As String
Dim bin(16)
s = UCase(s)
Table = "0123456789ABCDEF"
bin(0) = "0000"
bin(1) = "0001"
bin(2) = "0010"
bin(3) = "0011"
bin(4) = "0100"
bin(5) = "0101"
bin(6) = "0110"
bin(7) = "0111"
bin(8) = "1000"
bin(9) = "1001"
bin(10) = "1010"
bin(11) = "1011"
bin(12) = "1100"
bin(13) = "1101"
bin(14) = "1110"
bin(15) = "1111"
HEX2BIN = ""
For i = 1 To Len(s)
HEX2BIN = HEX2BIN + bin(InStr(Table, Mid(s, i, 1)) - 1)
Next
End Function
10進から2進は
HEX2BIN(HEX(n))
でいいですね。
お返事、感激です(⌒_⌒)
本当にNO.2の方と一緒になってしまいますが、
長文でのお答え、本当にありがとうございます。
重ねて、お返事が遅れてしまったこと
申し訳ありません。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
16進の10進変換について
Visual Basic(VBA)
-
Visual Basic でのコードをASCII変換、16進変換したものを元に戻す方法を教えてください
Visual Basic(VBA)
-
VB.NETで16進数+16進数や16進数*nをやる方法
Visual Basic(VBA)
-
-
4
2進数と16進数の相互変換
Microsoft ASP
-
5
HEX2BIN関数の使い方。
Excel(エクセル)
-
6
DoEventsがやはり分からない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語のうるう年に関するプログ...
-
Excelのプルダウンで2列分の情...
-
VBAでActiveDirectoryのユーザ...
-
ExcelVBAを使って、値...
-
array関数で格納した配列の型を...
-
【Excel VBA】先頭の「0」飛び...
-
Excelのマクロについて
-
エクセルVBAで、非表示にし...
-
VBA コピーして次の値まで貼り...
-
【VBA】カーソルのある行の1行...
-
Excel VBA、 別ブックの最終行...
-
エクセルで、絶対値の平均を算...
-
マクロ セルの値に応じてセルに...
-
EXCEL VBA 2次元配列に格納さ...
-
Spreadの選択行の取得について
-
レガシーASPの、携帯ブラウザか...
-
DBの読み込み順について
-
”パラメータ値を TextBox から ...
-
Excel vbaで特定の文字以外が入...
-
【EXCEL VBA】Range("A:A").Fi...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL Serverにおける小数部の0...
-
16進数を10進数に変換する方法...
-
日付と曜日から、1週間前(7...
-
Request.QueryStringの型について
-
C言語のうるう年に関するプログ...
-
エクセルのカレンダー
-
西暦を入力して、うるう年かど...
-
和暦から西暦変換(C#)
-
ユリウス日から和暦(江戸時代...
-
うるう年を求めるプログラム
-
西暦→和暦
-
テキストボックスのvalueとtext...
-
VB.NETで DataRow()を利用して...
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
特定のセルが空白だったら、そ...
-
count(*)で取得した値をJAVAの...
-
Accessのクエリで、replace関数...
-
VBAでActiveDirectoryのユーザ...
おすすめ情報