|
じゅじゅんさんへ
ご返答ありがとうございます。
思っていたものより大変高度なものになり、
かなり困惑しているというのが、本音です。
あまり理解が出来ていない状態ですが、
実際にsheet1のA1に3と入力したところ、
sheet2のC2に×が表示され、感激です!
どうもありがとうございました。
お恥ずかしいついでに、
その続きもお聞きしても良いでしょうか?
A1〜A100を入力範囲とした場合、
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 = "×"
Dim Atai2 As Integer
Dim iRow2 As Long
Dim iColumn2 As Long
Atai2 = Sheets("Sheet1").Range("A2").Value
iRow2 = (Int(Atai2 / 10) + 1) * 2
iColumn2 = Atai2 Mod 10
Sheets("Sheet2").Cells(iRow2, iColumn2).Value = "×"
End Sub
としたら、エラーが発生し、400とでました。
やっぱり、理解していないようです。
申し訳ないのですが、もう少し、アドバイスを頂けませんか。
宜しくお願い致します。
>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に入力毎)によっては、
>また変わってくるでしょう。
|
|