Ｐａｇｅ 203 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼選択している行からの入力 miki 02/10/15(火) 9:57 ┗Re:選択している行からの入力 ichinose 02/10/15(火) 10:43 ┗Re:選択している行からの入力 miki 02/10/15(火) 11:17 ─────────────────────────────────────── ■題名 ： 選択している行からの入力 ■名前 ： miki ■日付 ： 02/10/15(火) 9:57 -------------------------------------------------------------------------
| 物凄い初歩的なことなんですが、 選択しているｾﾙからその行の一番上までに同じﾃﾞｰﾀを入力したいので、 ActiveCellから一番上までの繰り返し処理をさせようと思っています。 「ActiveCellの行のｱﾄﾞﾚｽだけを変数に代入して-1させて行き0になるまで処理」 という命令にしたいのですが、ActiveCellの行のｱﾄﾞﾚｽだけを取り出す方法が分かりません。 教えて下さい。また、その他に良い方法があるのでした教えて下さい。 |
| ▼miki さん： おはようございます。 >物凄い初歩的なことなんですが、 >選択しているｾﾙからその行の一番上までに同じﾃﾞｰﾀを入力したいので、 >ActiveCellから一番上までの繰り返し処理をさせようと思っています。 >「ActiveCellの行のｱﾄﾞﾚｽだけを変数に代入して-1させて行き0になるまで処理」 >という命令にしたいのですが、ActiveCellの行のｱﾄﾞﾚｽだけを取り出す方法が分かりません。 >教えて下さい。また、その他に良い方法があるのでした教えて下さい。 同じ値を入れるなら、ループしなくてもできますよ。 '===================================================================== Sub test() With ActiveCell Range(Cells(1, .Column), Range(.Address)).Value = "aaa" End With End Sub |
| ichinoseさん有難う御座いました。 こんなに簡単に出来るなんて驚きです！ これからも宜しくお願いします。 |