Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24094 / 76732

←次へ　｜　前へ→


	【57991】Re:上位下位4の求め方

ichinose - 08/9/26(金) 6:46 -


	引用なし

	パスワード

▼向井さん：
おはようございます。
>VBAの超初心者です。
>友人にもらった演習の答えが無く苦しんでいます。
正直ですね！！　プログラミングは、将来必要ないんですか？

>
>問題は
>Forループをつかって１から１００をA列に表示させ
>そのうち１６の倍数の時は、該当する数字の上位4ビットと下位4ビットを
>B列・C列にそれぞれ表示させる。というものです。
>
>ANDを使うようなのですが・・・
>どなたかご教授下さい。
>
Public Sub ensyuu3()

　　Dim RIdx As Long

　　For RIdx = 1 To 100
　　　 Cells(RIdx, 1).Value = RIdx
　　　 If RIdx Mod 16 = 0 Then
　　　　　Cells(RIdx, 2).Value = (RIdx / 16) And 15
　　　　　Cells(RIdx, 3).Value = 0
　　　　　End If
　　　 Next RIdx
　
End Sub

でも理由ぐらいは、御自分で考えてみてください。

1 hits

▼

【57990】上位下位4の求め方 向井 08/9/26(金) 1:52