Excel VBA質問箱 IV

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

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


23734 / 76738 ←次へ | 前へ→

【58365】Re:bit演算???
発言  ハチ  - 08/10/21(火) 12:33 -

引用なし
パスワード
   ▼向井 さん:

質問の内容がイマイチ理解できませんでした。
いろいろサンプルを書いてみました。


'こういうことですか?
Sub test()
  Dim i As Long
  Dim A As Long
  
  For i = 1 To 40
    A = A And i
    Debug.Print "i=" & i & " : " & "A=" & A
    A = A Or i
    
    If i = A Then
      Debug.Print i & ":OK"
    Else
      Debug.Print i & ":NG"
    End If
    Debug.Print
  Next
End Sub


Sub test1()
  Dim i As Long
  Dim buf As Long
  
  For i = 0 To 40
    buf = i Xor &HFF
    
    MsgBox i & "の2進:" & func_10to2(i) & vbCr & _
     buf & "の2進:" & func_10to2(buf)
  Next
End Sub

Sub Test2()
  Dim H As Long  'Highの意
  Dim L As Long  'Lowの意
  Dim i As Long
  
  For i = 0 To 40
    H = i And &HF0
    L = i And &HF
    MsgBox i & "のHigh:" & func_10to2(H) & vbCr & _
     i & "のLow:" & func_10to2(L)
  Next
End Sub

Private Function func_10to2(ByVal arg As Long) As String
  Dim buf As String
  Dim i As Long
  
  i = 0
  Do Until arg = 0
    If arg And 2 ^ i Then
      buf = "1" & buf
      arg = arg - 2 ^ i
    Else
      buf = "0" & buf
    End If
    i = i + 1
  Loop
  If Len(buf) < 8 Then
    buf = WorksheetFunction.Rept("0", 8 - i) & buf
  End If
  
  func_10to2 = buf
End Function
0 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 お礼

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