|
おはようございます。
>
>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
|
|