Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
639 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79404】アクティブセルと同番地の別シートのセル内容をMsgboxに表示したい Charo 17/10/3(火) 14:39 質問[未読]
【79405】Re:アクティブセルと同番地の別シートのセ... カリーニン 17/10/3(火) 16:19 回答[未読]
【79406】Re:アクティブセルと同番地の別シートのセ... Charo 17/10/3(火) 16:27 お礼[未読]
【79404】アクティブセルと同番地の別シートのセル...
質問  Charo  - 17/10/3(火) 14:39 -
引用なし
パスワード
   初心者ですがよろしくお願いします。

1つのBookに2つのシートがあります。
シート1のA1がアクティブの時にシート2のA1の内容をメッセージボックスに表示するフォームボタンを作りたいのです。

今はまだ、シート1のアクティブセルの内容をMsgboxに表示するところまでしかできていません。
Sub ボタン1_Click()
MsgBox ActiveCell.Value
End Sub

どのように書いたらよいか、ご指導願います。
【79405】Re:アクティブセルと同番地の別シートの...
回答  カリーニン  - 17/10/3(火) 16:19 -
引用なし
パスワード
   色んな方法がありますが、一例です。

参考です。
ActiveCell.Address(0,0)
【79406】Re:アクティブセルと同番地の別シートの...
お礼  Charo  - 17/10/3(火) 16:27 -
引用なし
パスワード
   ありがとうございます。

Sub ボタン5_Click()
MsgBox Worksheets("2").Range(ActiveCell.Address(0, 0))
End Sub

これでうまくいきました。
大変ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
639 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free