Excel VBA質問箱 IV

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

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


28494 / 76732 ←次へ | 前へ→

【53535】Re:該当する数字の真下に×と表示したい
発言  じゅんじゅん  - 08/1/20(日) 21:27 -

引用なし
パスワード
   ▼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に入力毎)によっては、
また変わってくるでしょう。

0 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 発言

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