こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBA 現在のセル番地を記憶、復元するコート

EXCEL 2003を使用しております。
現在のセル番地を記憶しておいて、後にそのセル番地へ戻るというコードを探しております。


Range("AS46").Select
  ???????ここに位置を記憶するコード??????????
If InStr(Selection.Value, "◎") > 0 Then
ActiveCell.Offset(0, -3).Select
Selection.Copy
Range("D19").Select
If Selection.Value = "" Then
PasteSpecial Paste:=xlPasteValues
  ???????ここに位置を復元するコード??????????

こんな風な感じで使います。
何卒ご教授よろしくお願いします。



以前、インターネットでやり方を見たのですが、どこにあるかわかりません。
めずらしいコードで、便利だった記憶があります。

投稿日時 - 2012-05-21 15:00:37

QNo.7488001

困ってます

質問者が選んだベストアンサー

下記のようなことでしょうか?

dim work as Range '記憶用のオブジェクト変数の宣言
set work = Selection '記憶するコード

work.Select '復元するコード

ただし、下記の記述からすると違うのかな...
> めずらしいコードで、便利だった記憶があります。
珍しくはない一般的なコードですよね

投稿日時 - 2012-05-21 15:14:08

お礼

これを探していました。一般的なんですね!大変、ありがとうございましたm--m

投稿日時 - 2012-05-21 15:34:30

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(2)

ANo.2

えぇと、すいません。

> Range("AS46").Select
>  ???????ここに位置を記憶するコード??????????

ってことは、現在のセル番地は"AS46"なんじゃないんでしょうか。



さておき。

Dim myRow As Integer, myCol As Integer
  Range("as46").Select
  myRow = ActiveCell.Row   'セルの行番号取得
  myCol = ActiveCell.Column 'セルの列番号取得

で、行・列番号を取得。

  Cells(myRow , myCol).Select  '指定番地へ戻る

でお望みの動きに近くなりますかね。



まぁ、珍しくもなんともない、
ありきたりのコードではありますけれど。

投稿日時 - 2012-05-21 15:28:49

お礼

誤った例題でしたm--m
ありがとうございました。

投稿日時 - 2012-05-21 15:35:42

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-