Excel VBA質問箱 IV

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

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


23738 / 76732 ←次へ | 前へ→

【58354】Re:bit演算???
発言  向井  - 08/10/21(火) 0:15 -

引用なし
パスワード
   Public Sub ensyu_4()

  Dim Atai As Long
  Dim RIdx As Long
  
  RIdx = 0

  For Atai = 1 To 40
  
  '0
  If ((RIdx And 1) = 0) Then
      RIdx = RIdx Or Atai
  '1bit立・2bit空
  ElseIf ((RIdx And 1) = 1) And ((RIdx And 2) = 0) Then
      RIdx = RIdx Xor 3
      RIdx = RIdx Or Atai
    
  '1bit立・2bit立・3bit空
  ElseIf ((RIdx And 1) = 1) And ((RIdx And 2) = 2) And ((RIdx And 4) = 0) Then
      RIdx = RIdx Xor 3
      RIdx = RIdx Or Atai
      
  '1bit立・2bit立・3bit立・4bit空
  ElseIf ((RIdx And 1) = 1) And ((RIdx And 2) = 2) And ((RIdx And 4) = 4) And ((RIdx And 8) = 0) Then
      RIdx = RIdx Xor 7
      RIdx = RIdx Or Atai
  End If

  Cells(Atai, 1).Value = RIdx


  Next Atai

End Sub

こんな風に書いてみたのですが・・・
力技でしょうか?

また、4bitまでしか確認できないので
上位・下位を分けて考えたいと思っているのですが
RIdx Mod 16では分けることはできないのでしょうか?
2 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 お礼

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