Excel VBA質問箱 IV

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

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


23737 / 76732 ←次へ | 前へ→

【58355】Re:bit演算???
発言  ichinose  - 08/10/21(火) 7:57 -

引用なし
パスワード
   おはようございます。

>
>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を増やしていき
同じ結果を論理演算子を使って出したいということですか?


Sub ensyu_4()

  Dim Atai As Long
  Dim RIdx As Long
 
  Atai = 0

  For RIdx = 1 To 40
  
    Atai = Atai Xor (RIdx Xor (RIdx - 1))
    Cells(RIdx, 1).Value = Atai
    Cells(RIdx, 2).Value = (Atai And &HF0) / &H10
    Cells(RIdx, 3).Value = Atai And &HF
  Next RIdx

End Sub
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 お礼

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