Ｐａｇｅ 471 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼条件セル選択 danceman 02/12/19(木) 17:45 ┗Re:条件セル選択 ポンタ 02/12/19(木) 18:10 ┗Re:条件セル選択 danceman 02/12/20(金) 12:23 ─────────────────────────────────────── ■題名 ： 条件セル選択 ■名前 ： danceman ■日付 ： 02/12/19(木) 17:45 -------------------------------------------------------------------------
| 聞きたいのですが、 ある列の何か値の入ったセルをスキャンしていって空白になった そこのセルを選択させるにはどのようにマクロを書いたらいいですか？ だれか教えてください。 |
| 書いてある通りの動きをさせたいのなら Sub test() Do While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Activate Loop End Sub こんな感じですが、状況によってはもっと簡単に Sub test2() ActiveCell.End(xlDown).Offset(1, 0).Activate End Sub と書いても良いです。 ただ、アクティブセルが空白だったりすると、エラーが出るので、 注意してください。 |
| ポンタ さん どうもありがとう。 思い通りの動きをさせることができました。 >書いてある通りの動きをさせたいのなら > >Sub test() > Do While ActiveCell.Value <> "" > ActiveCell.Offset(1, 0).Activate > Loop >End Sub > >こんな感じですが、状況によってはもっと簡単に > >Sub test2() > ActiveCell.End(xlDown).Offset(1, 0).Activate >End Sub > >と書いても良いです。 >ただ、アクティブセルが空白だったりすると、エラーが出るので、 >注意してください。 |