Ｐａｇｅ 267 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼.End(xlToRight)の定義の仕方 １２３ 02/10/28(月) 14:30 ┗Re:.End(xlToRight)の定義の仕方 つん 02/10/28(月) 15:12 ┗Re:.End(xlToRight)の定義の仕方 １２３ 02/10/28(月) 16:28 ┗Re:.End(xlToRight)の定義の仕方 つん 02/10/28(月) 17:12 ┗Re:.End(xlToRight)の定義の仕方 １２３ 02/10/28(月) 18:58 ┗Re:.End(xlToRight)の定義の仕方 つん 02/10/29(火) 14:04 ┗とほほっ １２３ 02/10/29(火) 16:11 ─────────────────────────────────────── ■題名 ： .End(xlToRight)の定義の仕方 ■名前 ： １２３ ■日付 ： 02/10/28(月) 14:30 -------------------------------------------------------------------------
| 初歩的な質問で恐縮です。 ActiveCellから、その行の空白ではないセルまでを Activeにしたいのですが．．． そんなことも知らないのかと思われるとは思いますが、 お願いします。 以下のコードを適当に作りましたが、全くだめでした。 いろいろと変えてみましたが、全くだめでした。 Dim s As Range Dim a As Range s = Selection.End(xlToRight).Select a = ActiveCell Range(a, s).Activate |
| １２３ さん、こんにちは >ActiveCellから、その行の空白ではないセルまでを >Activeにしたいのですが．．． >そんなことも知らないのかと思われるとは思いますが、 >お願いします。 こういうことかな？ Sub test() Dim a As Long a = Selection.End(xlToRight).Column Selection.Resize(1, a - 1).Select End Sub お試しくださいませませ♪ |
| ▼つん さん： こんにちは お世話をお掛けいたしました。 どうも 定義の仕方をいまいち把握していなくて．．． 助かりました。 ありがとうございました。 |
| １２３ さん すんません。 先ほどのでは上手く行かないことに気がつきました。 Sub test() Dim a As Long a = Selection.End(xlToRight).Column - Selection.Column + 1 Selection.Resize(1, a).Select End Sub こうですね（＾＾; １２３さんは、気づかれて対応されてるかもしれませんが、一応・・・ |
| ▼つん さん： >こうですね（＾＾; >１２３さんは、気づかれて対応されてるかもしれませんが、一応・・・ 気付きませんでした。 VBEditorで実行するとディバックになりますが、 マクロの実行でやると、ちゃんといきましたよ。 でも、つんさんから見ると違うのでしょう。 修正させていただきます。 ありがとうございました。 |
| １２３ さん、こんにちは >VBEditorで実行するとディバックになりますが、 え？VBEで実行すると、エラーになりますか？ こっちではちゃんと出来たんだけどなあ〜 >マクロの実行でやると、ちゃんといきましたよ。 うーん、最初のでもエラーになるとかそういうのじゃないのですが、 １２３さんの意図されている結果にはならへんのとちゃいますか？ （最初に私がテスト実行したときは、たまたまあれでＯＫな結果に出る 条件下でしてしまったのです） 最初のだと、なんで都合が悪いかわかってはるかな？ そんなんわかってるよ！だったら、ごめんなさい。 ちと、気になってしまったものですから・・・ |
| ▼つん さん： こんにちは 大変失礼いたしました。 私も、つんさんと同じように、たまたまＯＫな結果になる条件下でした。 >うーん、最初のでもエラーになるとかそういうのじゃないのですが、 >１２３さんの意図されている結果にはならへんのとちゃいますか？ >（最初に私がテスト実行したときは、たまたまあれでＯＫな結果に出る > 条件下でしてしまったのです） >最初のだと、なんで都合が悪いかわかってはるかな？ > >そんなんわかってるよ！だったら、ごめんなさい。 >ちと、気になってしまったものですから・・・ ちっとも分かっていませんでした。 とほほっ |