Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66445 / 76734 ←次へ | 前へ→

【14852】Re:セルの値が2進数文字列かどうかを判断したい
回答  かみちゃん  - 04/6/8(火) 21:16 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>またこのプログラミングの場合、10は2進数とみなしています。

Sub 二進数を十進数へ()
 A = Cells(1, 1).Value
 B = Len(Cells(1, 1).Value)
 For i = 1 To B
   'Cells(1, 1)の値が2進数文字列(1または0で構成される文字列)でない場合
   If Mid(A, i, 1) <> "1" And Mid(A, i, 1) <> "0" Then
    x = 0
    'Cells(1, 2)は表示しない
    Cells(1, 2).Value = ""
    'マクロを終了する。
    MsgBox "Err"
    Exit Sub
   End If
   'チェックOKの場合だけ、10進数変換の計算をする。
   x = x + Mid(A, i, 1) * 2 ^ (B - i)
 Next
 Cells(1, 2).Value = x
End Sub

でどうですか?
ただし、情報Bの課題としては、変数の宣言がない、プロシージャ名が英数字でないなど、個人的に「う〜ん」と思うところがあります。
1 hits

【14833】お聞きしたいのですが たすけてください 04/6/8(火) 19:06 質問
【14836】Re:お聞きしたいのですが ichinose 04/6/8(火) 19:15 発言
【14837】Re:お聞きしたいのですが ichinose 04/6/8(火) 19:19 発言
【14839】Re:お聞きしたいのですが たすけてください 04/6/8(火) 19:30 質問
【14846】Re:お聞きしたいのですが たすけてください 04/6/8(火) 20:37 質問
【14848】Re:お聞きしたいのですが かみちゃん 04/6/8(火) 20:50 発言
【14847】Re:お聞きしたいのですが かみちゃん 04/6/8(火) 20:44 発言
【14851】Re:お聞きしたいのですが たすけてください 04/6/8(火) 21:00 質問
【14852】Re:セルの値が2進数文字列かどうかを判断し... かみちゃん 04/6/8(火) 21:16 回答
【14854】Re:セルの値が2進数文字列かどうかを判断し... たすけてください 04/6/8(火) 21:23 質問
【14859】Re:セルの値が2進数文字列かどうかを判断し... かみちゃん 04/6/8(火) 22:20 発言
【14860】Re:セルの値が2進数文字列かどうかを判断し... たすけてください 04/6/8(火) 22:29 質問
【14862】Re:セルの値が2進数文字列かどうかを判断し... かみちゃん 04/6/8(火) 22:34 発言
【14866】Re:セルの値が2進数文字列かどうかを判断し... たすけてください 04/6/8(火) 23:07 質問
【14868】Re:セルの値が2進数文字列かどうかを判断し... かみちゃん 04/6/8(火) 23:14 回答
【14874】Re:セルの値が2進数文字列かどうかを判断し... たすけてください 04/6/8(火) 23:29 質問
【14875】Re:セルの値が2進数文字列かどうかを判断し... かみちゃん 04/6/8(火) 23:36 回答
【14879】Re:セルの値が2進数文字列かどうかを判断し... たすけてください 04/6/9(水) 0:07 お礼

66445 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free