| |
▼YUKI さん：
>すみません、
>1.
>今回、sheet2のA1〜J1に1〜10、A3〜J3に11〜20としましたが、
>A1〜T1に1〜20、又はA1〜CVに1〜100等変動して使いたい場合をご教授お願いできませんか？
Sub try2()
Dim Atai As Integer
Dim Hani As Integer
Dim iRow As Long
Dim iColumn As Long
Atai = Sheets("Sheet1").Range("A1").Value
Hani = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Value
iRow = ((Atai - 1) \ Hani + 1) * 2
iColumn = (Atai - 1) Mod Hani + 1
Sheets("Sheet2").Cells(iRow, iColumn).Value = "×"
End Sub
シート２の１行目の一番右の値を基準（変数：Hani）としてます。
>2.縦にB1〜B1000までに同様に×を表示する方法はありませんか？
同様にとは？何を基準として表示するのでしょうか？
行列を入替えるという意味ならば、iRow, iColumn を応用してみて下さい。
>先程のりんさんのアドバイスからはほぼ解決なのですが、
>今後の実力向上の為に、
>1.、2.をアドバイスをお願いできませんか？
>
>宜しくお願い致します。
|
|
じゅんじゅん
- 08/1/21(月) 21:34 -
