Excel VBA質問箱 IV

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

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


28471 / 76732 ←次へ | 前へ→

【53559】Re:該当する数字の真下に×と表示したい
お礼  YUKI  - 08/1/22(火) 19:02 -

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

こんばんわ。

> Hani = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Value
ちょっと、難しいです。
というか、今の自分では高度すぎる業です。

アドバイスありがとうございました。
また質問をさせて頂くかもしれませんが、
その際には宜しくお願い致します。

▼じゅんじゅん さん:
>▼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.をアドバイスをお願いできませんか?
>>
>>宜しくお願い致します。

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

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