|
こんばんわ。
すみません、解決のつもりでいましたが、
一つ問題が発生してしまいました。
Sub 実行()
Dim Atai As Integer
Dim iRow As Long
Dim iColumn As Long
Atai = Sheets("Sheet1").Range("A1").Value
iColumn = (Atai - 1) Mod 10 + 1
iRow = ((Atai - 1) \ 10 + 1) * 2
Sheets("Sheet2").Cells(iRow, iColumn).Value = "×"
Atai2 = Sheets("Sheet1").Range("A1").Value
iColumn2 = (Atai2 - 1) Mod 10 + 1
iRow2 = ((Atai2 - 1) \ 10 + 1) * 2
Sheets("Sheet2").Cells(iRow2, iColumn2).Value = "×"
当初は、数値の入力が10件のつもりでしたので、
10までつくりました。
しかし、入力が1件の場合もあり、
数値を件数分(今だと10件)、
全て入力をしないとエラーになってしまうと言う事にきがつきました。
解決する方法はありませんか?
又、同じ数字を2度入力した場合、
同様にエラーがでました。
×2と表示する事は出来ませんか?
(3度入力したら、×3)
やっぱり難しいです。。
▼YUKI さん:
>りんさんへ
>
>はじめまして。
>返答遅くなりました。
>
>10も問題なく、無限大に数字が入れることが出来ました。
>現在、最大数1000までを考えていますので、
>非常に助かりました。
>
>
>▼りん さん:
>>
>> iColumn = (Atai - 1) Mod 10 + 1
>> irow = ((Atai - 1) \ 10 + 1) * 2
>>
>>ではないかと。
|
|