Excel VBA質問箱 IV

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

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


28474 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼YUKI さん:
>すみません、
>1.
>今回、sheet2のA1〜J1に1〜10、A3〜J3に11〜20としましたが、
>A1〜T1に1〜20、又はA1〜CVに1〜100等変動して使いたい場合をご教授お願いできませんか?

Sub try2()
 Dim Atai As Integer
 Dim Hani As Integer
 Dim iRow As Long
 Dim iColumn As Long

 Atai = Sheets("Sheet1").Range("A1").Value
 Hani = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Value
 iRow = ((Atai - 1) \ Hani + 1) * 2
 iColumn = (Atai - 1) Mod Hani + 1
 Sheets("Sheet2").Cells(iRow, iColumn).Value = "×"
End Sub
シート2の1行目の一番右の値を基準(変数:Hani)としてます。

>2.縦にB1〜B1000までに同様に×を表示する方法はありませんか?
同様にとは?何を基準として表示するのでしょうか?
行列を入替えるという意味ならば、iRow, iColumn を応用してみて下さい。

>先程のりんさんのアドバイスからはほぼ解決なのですが、
>今後の実力向上の為に、
>1.、2.をアドバイスをお願いできませんか?
>
>宜しくお願い致します。

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

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