Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49339 / 76732

←次へ　｜　前へ→


	【32305】Re:マクロに関する質問！　助けてください

やっちん - 05/12/12(月) 16:28 -


	引用なし

	パスワード

▼Kein さん：
>元の質問は
>>もしSheetタブでSheetの名前を2に変更したら、Sheet("2").Range・・
>>に変わる方法
>を尋ねていましたよね ? 解決したみたいだけど、何かちょっと違う方向にずれて
>いってませんか ? もし上記の内容から回答するとすれば
>
>Private Sub Workbook_SheetActivate(ByVal Sh As Object)
>　 With Sheets("Sheet1")
>　　　.Range("J2").Value = Sh.Range("G3").Text
>　　　.Range("A1").Value = Sh.Name
>　 End With
>End Sub
>
>というイベントマクロを、ThisWorkbookモジュールに入れて下さい。と、なります。
>なお、仮に転記先のシートは Sheet1 にしています。

おっしゃるとおりですね。ずれてますね。
けんけんさん、失礼しました。

1 hits

▼

【32275】マクロに関する質問！　助けてください けんけん 05/12/12(月) 8:20