Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7060 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41430】セルにマクロ ℃素人 06/8/10(木) 7:54 質問[未読]
【41433】Re:セルにマクロ ちくたく 06/8/10(木) 10:03 回答[未読]
【41434】Re:セルにマクロ ℃素人 06/8/10(木) 11:13 質問[未読]
【41435】Re:セルにマクロ へっぽこ 06/8/10(木) 11:55 発言[未読]
【41442】Re:セルにマクロ ℃素人 06/8/10(木) 13:12 お礼[未読]
【41446】Re:セルにマクロ ちくたく 06/8/10(木) 14:10 お礼[未読]
【41430】セルにマクロ
質問  ℃素人  - 06/8/10(木) 7:54 -
引用なし
パスワード
   おはようございます。

今回もよろしくお願いします。

コマンドボタンにマクロを埋め込む事ができるのは知っていますが、
セルにマクロを埋め込む事は不可能なのでしょうか？

Book1に見出し,0601,0602,0603,0605,0606といったsheetがあります。
見出しシートの中には2006/01,2006/02,2006/03,2006/04,2006/05,2006/06といったセルがあります。
この2006/01をクリックしたらシート0601に飛ぶようにしたいのです。

ちなみに、見出し以外のシートは非表示です。
【41433】Re:セルにマクロ
回答  ちくたく  - 06/8/10(木) 10:03 -
引用なし
パスワード
   おはようございます。
シートモジュールに以下のコードで可能です。

ただし、2006/01がどのようにセルに格納されているかわかりませんが。。。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Value = "2006/01" Then
　　　　Worksheets("0601").Activate
　　End If
End Sub
【41434】Re:セルにマクロ
質問  ℃素人  - 06/8/10(木) 11:13 -
引用なし
パスワード
   ▼ちくたく さん：
ご回答ありがとうございます！！
早速やってみました！！そしてうまくいきました！！

ですが・・・
なぜか結合されているセル（日付とは全然関係ない内容が入っている）をクリックすると「型が一致しません」とエラーでます。
回避方法はありませんか？
【41435】Re:セルにマクロ
発言  へっぽこ  - 06/8/10(木) 11:55 -
引用なし
パスワード
   >回避方法はありませんか？

こんにちは。

こんな感じでどうでしょう？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Cells(1).Value = "2006/01" Then
　　　　Worksheets("0601").Activate
　　End If
End Sub
【41442】Re:セルにマクロ
お礼  ℃素人  - 06/8/10(木) 13:12 -
引用なし
パスワード
   ▼へっぽこ さん：
迅速かつ的確なご回答ありがとうございます！

やりたいことができました！！！

今後もまた質問するときは助けてください。
【41446】Re:セルにマクロ
お礼  ちくたく E-MAIL  - 06/8/10(木) 14:10 -
引用なし
パスワード
   へっぽこ さん

こんにちは。
フォローありがとうございます。
助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7060 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free