[[20030210152621]]　『ワークシートを開いた時に常にA1に』（名無し１０７）　ページの最後に飛ぶ

『ワークシートを開いた時に常にA1に』（名無し１０７）

いくつかのワークシートを作業している時に、前の作業の時にカーソルがどこにあろうと、またそのワークシートを開いた時には常にカーソルがA1にあるという状態にすることができますか？

ワークシートを開いた時に「Ctrl」＋「Home」を押せばいいのですが、できればその作業をしないでやる方法があれば教えてください。

 できますが、VBA使ったことがありますか？

 処理自身は簡単で標準Moduleに下のコードを書くだけです。

 （kazu）

 Sub Auto_Open()

    Activesheet.Cells(1,1).Select

 End Sub

コードを書いてみましたが、カーソルはＡ１にいきません・・・

 かういう事でっか？
 そのシートタブ＼Sheet1／を右クリック
 そこへ書き込みます。（必要なシート全てに）
 　　　　（弥太郎）
 '-------------------
 Private Sub Worksheet_Activate()

    Range("a1").Select

 End Sub

全部の Worksheet でかまわないなら、ThisWorkbook モジュールの下に

 '-------------------
 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("A1").Select
 End Sub
 '-------------------

でもいけそうですね。

 （Mook)

 2003/02/10 15:26:21 のログですが、
＞コードを書いてみましたが、カーソルはＡ１にいきません・・・ 
は最近の書き込みでしょうか。
　
kazuさん、弥太郎さん、Mookさんいずれのコードも書くだけでは動作しません。
kazuさんのコードは「ブックを開いた時点でアクティブなシート」のA1セル選択
弥太郎さんのコードは「コードの書かれたシートをアクティブにしたとき」A1セル選択
Mookさんのコードは「シートを変更したときアクティブになったシート」でA1セル選択
　
(みやほりん)(-_∂)b

 えっ？
 >ワークシートを開いた時には常にカーソルがA1にあるという
 >ワークシートを開いた時に「Ctrl」＋「Home」・・・の代わりにの意？
 つまりシートをアクティブにした時にという意味とちゃいまんのん？
 　　　　　（弥太郎）

 弥太郎さん、私はそのつもりで書いています。
ただ、kazuさんのコードの場合は、コードを標準モジュールへ記入しても、
目的のシートをアクティブにしただけではA1セルを選択しないと思いまして。
いったん保存してもう一回ブックを開かないと、というイミで念のため書かせていただきました。
　
（書き方がおかしいでしょうか？）
(みやほりん)(-_∂)b

 いや、おかしいない、おかしいない（笑
 何を勘違いしとるんやろ、アタシッテ（笑
 　　おかしいのはこっち→（弥太郎）

 そんな古い質問でしたか(@o@)。
 気がつきませんでした。

 追伸、
 ＞＞コードを書いてみましたが、カーソルはＡ１にいきません・・・ 
 ＞は最近の書き込みでしょうか。
 あっ、昔のログを見てだれかが、質問されたということでしょうか。
 こちらもすぐに気が付きませんでしたonz
 (Mook)

 私の書き込みのあとの書き込みは
 更新ログでは 13-Aug-2006 05:09 になっています。

 > コードを書いてみましたが、カーソルはＡ１にいきません・・・

 8/13早朝の質問者の方が戻ってきてくれると良いのですが。
 （kazu）

 Sub auto_open()
    Application.Goto reference:=Range("A1"), scroll:=True
 End Sub
 BJ

コメント返信：

[ 一覧(最新更新順) ]

[[20030210152621]] 『ワークシートを開いた時に常にA1に』（名無し１０７） ページの最後に飛ぶ

[[20030210152621]]　『ワークシートを開いた時に常にA1に』（名無し１０７）　ページの最後に飛ぶ