|
すみません、
一緒に聞いておきたいことがあります。
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.をアドバイスをお願いできませんか?
宜しくお願い致します。
|
|