|
▼YUKI さん:
>じゅんじゅんさんへ
>A1〜J1まで最大10個の入力の可能性があります。
>この方法が可能であれば、
>応用として、
>sheet1の入力をA1〜J1だけでなく、
>A1〜J100又はA1〜A100までをしたいと思っています。
>
>アドバイスの程、宜しくお願い致します。
>sheet2にあらかじめ数字が入力されている真下に×と表示することはできますか?
>(数字はA1〜J1、A3〜J3、A5〜J5に1〜10、11〜20、21〜30が入力されている)
上記のように決まった順序で値があるなら、シート1のセル値でセル番地に
直してあげればいいのでは?
A1・・・Cells(1,1) : Cells(行,列)
だから、
Sub try()
Dim Atai As Integer
Dim iRow As Long
Dim iColumn As Long
Atai = Sheets("Sheet1").Range("A1").Value
iRow = (Int(Atai / 10) + 1) * 2
iColumn = Atai Mod 10
Sheets("Sheet2").Cells(iRow, iColumn).Value = "×"
End Sub
基本はこんな感じでも。
あとは変数Ataiにループ(For〜Next等)で順次代入してあげれば
出来ると思いますよ。
ただ、実行するタイミング(シート1に入力毎)によっては、
また変わってくるでしょう。
|
|