Excel VBA質問箱 IV

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

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


28493 / 76732 ←次へ | 前へ→

【53536】Re:該当する数字の真下に×と表示したい
お礼  YUKI  - 08/1/20(日) 22:34 -

引用なし
パスワード
   じゅじゅんさんへ

ご返答ありがとうございます。
思っていたものより大変高度なものになり、
かなり困惑しているというのが、本音です。

あまり理解が出来ていない状態ですが、
実際に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に入力毎)によっては、
>また変わってくるでしょう。
1 hits

【53532】該当する数字の真下に×と表示したい YUKI 08/1/20(日) 18:44 質問
【53533】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/20(日) 20:00 発言
【53534】Re:該当する数字の真下に×と表示したい YUKI 08/1/20(日) 20:52 発言
【53535】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/20(日) 21:27 発言
【53536】Re:該当する数字の真下に×と表示したい YUKI 08/1/20(日) 22:34 お礼
【53537】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/20(日) 22:49 発言
【53541】Re:該当する数字の真下に×と表示したい りん 08/1/21(月) 0:06 発言
【53542】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/21(月) 7:07 発言
【53554】Re:該当する数字の真下に×と表示したい YUKI 08/1/21(月) 20:07 お礼
【53555】Re:該当する数字の真下に×と表示したい YUKI 08/1/21(月) 20:19 質問
【53556】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/21(月) 21:34 発言
【53559】Re:該当する数字の真下に×と表示したい YUKI 08/1/22(火) 19:02 お礼
【53568】Re:該当する数字の真下に×と表示したい YUKI 08/1/22(火) 22:10 質問
【53572】Re:該当する数字の真下に×と表示したい じゅんじゅん 08/1/23(水) 0:01 発言
【53589】Re:該当する数字の真下に×と表示したい YUKI 08/1/23(水) 20:31 発言

28493 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free