Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28462 / 76732

←次へ　｜　前へ→


	【53568】Re:該当する数字の真下に×と表示したい

YUKI - 08/1/22(火) 22:10 -


	引用なし

	パスワード

こんばんわ。

すみません、解決のつもりでいましたが、
一つ問題が発生してしまいました。

　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
>>
>>ではないかと。

3 hits

▼

【53532】該当する数字の真下に×と表示したい YUKI 08/1/20(日) 18:44