Ｐａｇｅ 114 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼データのある一番下のセルの選択 カド 02/9/23(月) 10:21 ┗Re:データのある一番下のセルの選択 Nakamura 02/9/23(月) 10:46 ┣Re:データのある一番下のセルの選択 カド 02/9/23(月) 11:06 ┗Re:データのある一番下のセルの選択 カド 02/9/23(月) 13:06 ┗Re:データのある一番下のセルの選択 Nakamura 02/9/23(月) 14:33 ┗Re:データのある一番下のセルの選択 カド 02/9/23(月) 17:16 ─────────────────────────────────────── ■題名 ： データのある一番下のセルの選択 ■名前 ： カド ■日付 ： 02/9/23(月) 10:21 -------------------------------------------------------------------------
| こんにちは〜。 どなたかご教授ください。 任意のセルを選択しマクロを走らせると、そのセルがある列の一番下にあるデータのセルをアクティブとし、そのセルの名前（番地？）をセルＡ１に表示させる方法について教えてください。 宜しくお願いします。 |
| ▼カド さん： >こんにちは〜。 >どなたかご教授ください。 > >任意のセルを選択しマクロを走らせると、そのセルがある列の一番下にあるデータのセルをアクティブとし、そのセルの名前（番地？）をセルＡ１に表示させる方法について教えてください。 > >宜しくお願いします。 お早うございます。 こんな感じでどうでしょう？ Sub test() Dim rgAd As String rgAd = Cells(65536, ActiveCell.Column).End(xlUp).Address(0, 0) Range("A1").Value = rgAd Range(rgAd).Activate End Sub それでは |
| ▼Nakamura さん： 完璧です。有難うございます。 |
| ▼Nakamura さん： >>任意のセルを選択しマクロを走らせると、そのセルがある列の一番下にあるデータのセルをアクティブとし、そのセルの名前（番地？）をセルＡ１に表示させる方法について教えてください。 追加質問ですみません。 最初に選択していたセルとデータのある一番下のセル間で繰り返し処理を行なう方法を教えてください。 処理内容は何でも構いません。 For each 〜・・・この書き方が分かりません。 |
| こんにちは こんな感じでどうでしょう Sub test2() Dim rg As Range For Each rg In Range(ActiveCell.Address, _ Cells(65536, ActiveCell.Column).End(xlUp).Address) '処理 Next End Sub それでは |
| ▼Nakamura さん： またまたバッチリです。 ありがとうございます。 |