|
じゅんじゅんさんへ
こんばんわ。
> Hani = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Value
ちょっと、難しいです。
というか、今の自分では高度すぎる業です。
アドバイスありがとうございました。
また質問をさせて頂くかもしれませんが、
その際には宜しくお願い致します。
▼じゅんじゅん さん:
>▼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.をアドバイスをお願いできませんか?
>>
>>宜しくお願い致します。
|
|