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