Excel VBA質問箱 IV

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

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


28475 / 76732 ←次へ | 前へ→

【53555】Re:該当する数字の真下に×と表示したい
質問  YUKI  - 08/1/21(月) 20:19 -

引用なし
パスワード
   すみません、
一緒に聞いておきたいことがあります。


1.
今回、sheet2のA1〜J1に1〜10、A3〜J3に11〜20としましたが、
A1〜T1に1〜20、又はA1〜CVに1〜100等変動して使いたい場合をご教授お願いできませんか?

Sub 実行()
 Dim Atai As Integer
 Dim iRow As Long
 Dim iColumn As Long

 Atai = Sheets("Sheet1").Range("A1")
 iRow = (Int(Atai / 1000) + 1) * 2
 iColumn = Atai Mod 1000
 Sheets("Sheet2").Cells(iRow, iColumn).Value = "×"

と考えてみたのですが、左に行き過ぎて×を見るのが大変でした。
又、もう一つ致命的な欠点があり、240(IV)までしか数字が使えません。

2.縦にB1〜B1000までに同様に×を表示する方法はありませんか?


先程のりんさんのアドバイスからはほぼ解決なのですが、
今後の実力向上の為に、
1.、2.をアドバイスをお願いできませんか?

宜しくお願い致します。 

0 hits

【53532】該当する数字の真下に×と表示したい YUKI 08/1/20(日) 18:44 質問
【53533】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/20(日) 20:00 発言
【53534】Re:該当する数字の真下に×と表示したい YUKI 08/1/20(日) 20:52 発言
【53535】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/20(日) 21:27 発言
【53536】Re:該当する数字の真下に×と表示したい YUKI 08/1/20(日) 22:34 お礼
【53537】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/20(日) 22:49 発言
【53541】Re:該当する数字の真下に×と表示したい りん 08/1/21(月) 0:06 発言
【53542】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/21(月) 7:07 発言
【53554】Re:該当する数字の真下に×と表示したい YUKI 08/1/21(月) 20:07 お礼
【53555】Re:該当する数字の真下に×と表示したい YUKI 08/1/21(月) 20:19 質問
【53556】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/21(月) 21:34 発言
【53559】Re:該当する数字の真下に×と表示したい YUKI 08/1/22(火) 19:02 お礼
【53568】Re:該当する数字の真下に×と表示したい YUKI 08/1/22(火) 22:10 質問
【53572】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/23(水) 0:01 発言
【53589】Re:該当する数字の真下に×と表示したい YUKI 08/1/23(水) 20:31 発言

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