|
▼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
シート2の1行目の一番右の値を基準(変数:Hani)としてます。
>2.縦にB1〜B1000までに同様に×を表示する方法はありませんか?
同様にとは?何を基準として表示するのでしょうか?
行列を入替えるという意味ならば、iRow, iColumn を応用してみて下さい。
>先程のりんさんのアドバイスからはほぼ解決なのですが、
>今後の実力向上の為に、
>1.、2.をアドバイスをお願いできませんか?
>
>宜しくお願い致します。
|
|