Excel VBA質問箱 IV

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

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


23782 / 76732 ←次へ | 前へ→

【58310】Re:bit演算???
質問  向井  - 08/10/17(金) 23:38 -

引用なし
パスワード
   皆さん、こんな分かりにくい質問にレスありがとうございます。
最初から説明します。

演習問題で、変数RIdxをループで1〜40までまわして
その時の10の位をA列に、1の位をB列に表示させる。
さらに16の倍数の時はA列に上位4ビットを、B列に下位4ビットを
それぞれ表示させる。

Public Sub ensyu_3()

  Dim RIdx As Long
  
    
  For RIdx = 1 To 40
  Cells(RIdx, 1).Value = RIdx
  
    Cells(RIdx, 2).Value = (RIdx And &HF0) / &H10
    
    Cells(RIdx, 3).Value = RIdx And &HF
    
  Next RIdx
  
End Sub

この内容と同じものを、もう一つ変数を用意し(たとえばA)
Aを1から40までまわして、[RIdx Or A]でRIdxを増やしていき
同じ結果をだしたいのです。

そうするとRIdxが1の時A=2でOrをとるとRidxは3になってしまう。
これを防ぐために1ビット目があいているか、2ビット目が空いているか・・・
を見ていきたいのです。
1 hits

【58241】bit演算??? 向井 08/10/13(月) 19:49 質問
【58242】Re:bit演算??? ベンセンヘイバー 08/10/13(月) 21:47 発言
【58293】Re:bit演算??? 向井 08/10/16(木) 20:21 質問
【58298】Re:bit演算??? neptune 08/10/16(木) 22:17 発言
【58305】Re:bit演算??? ハチ 08/10/17(金) 13:40 発言
【58311】Re:bit演算??? 向井 08/10/17(金) 23:39 質問
【58365】Re:bit演算??? ハチ 08/10/21(火) 12:33 発言
【58249】Re:bit演算??? ハチ 08/10/14(火) 14:31 発言
【58294】Re:bit演算??? 向井 08/10/16(木) 20:36 お礼
【58310】Re:bit演算??? 向井 08/10/17(金) 23:38 質問
【58312】Re:bit演算??? neptune 08/10/18(土) 0:01 発言
【58354】Re:bit演算??? 向井 08/10/21(火) 0:15 発言
【58355】Re:bit演算??? ichinose 08/10/21(火) 7:57 発言
【58359】Re:bit演算??? 向井 08/10/21(火) 9:52 発言
【58362】Re:bit演算??? ichinose 08/10/21(火) 11:10 発言
【58375】Re:bit演算??? 向井 08/10/22(水) 0:41 発言
【58410】Re:bit演算??? 向井 08/10/24(金) 0:09 お礼

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