仕事でエクセルを使用し社用車の管理表を作成しているのですが、
ハイパーリンクについて解決できないことがあります。
[現状]
①エクセルで同一ファイル内にシートを複数作りました
②「車両一覧」というシートに社用車の゛ナンバー”など、リストを作りました
③゛ナンバー”ごとにシートをつくり(例えば「12-34」「45-67」など)車両の詳細を記入、「車両一覧」の゛ナンバー”をクリックすると、そうした各々の詳細ページに飛ぶようにしました
[出来ないこと]
現状、「車両一覧」に打ち込んだ!゛ナンバー”から、各ページへのリンクへ飛ばすことは問題無いのですが、「車両一覧」には今後も゛同じナンバー”を、社内の複数の人間が打ち込むことになります。で、そうした時に、毎回ハイパーリンクを作成するのは手間、また全社員がPCに長けている訳ではないので、例えば今後、既に「車両一覧」にある゛12-34”を再度「車両一覧」のどこかのセルに打ち込んだ場合に、自動的にシート「12-34」へリンクさせるということは、エクセルで設定可能なのでしょうか。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
No.1です。
「車両一覧」SheetのD列にすでに車両ナンバーが4桁数値で入力済みなのですね?
それではD列セルをダブルクリックするとそのSheetをアクティブにする!という方法ではどうでしょうか?
前回同様、シートモジュールですので、前回のコードをすべて消去し、↓のコードに変更してみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から//
Dim k As Long, myFlg As Boolean
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Cancel = True
For k = 1 To Worksheets.Count
If Worksheets(k).Name = Format(Target, "0000") Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
Worksheets(k).Activate
Else
MsgBox "該当シートなし"
End If
End Sub 'この行まで//
※ おそらくD列に羅列してあるナンバー分のシートは存在すると思いますので、
「該当シートなし」の部分は不要だと思いますが、あえて記載しています。
これでD列セルをダブルクリックしてみてください。m(_ _)m
実行してみました。
結果...完璧に、作りたいファイルが出来ました!!
本当にありがとうございます。
私を含め社内にもVBAまで出来る人間がおらず、非常に助かりました。
今後も同じような管理ファイルを作成することがあると思いますので、生かします。ありがとうございました!
No.2
- 回答日時:
隣のセルでよければ
C2セルに
=HYPERLINK("#'"&B2&"'!A1","クリック")
フィルハンドルダブルクリック
No.1
- 回答日時:
こんにちは!
VBAでの一例です。
車両ナンバーを入力するというコトですが、気を付けなければならないコトがあります。
仮に
11-11
のように入力してしまうとExcel的には「11月11日」の日付と判断してしまいます。
そこで入力セルの表示形式は「文字列」になっているという前提です。
「車両一覧」シートのどこのセルに入力するのかが判断できないので、A列限定としてみました。
画面左下の「車両一覧」シートのシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
「車両一覧」シートのA列に車両ナンバーを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim k As Long, myFlg As Boolean
If Intersect(Target, Range("A:A")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
For k = 1 To Worksheets.Count
If Worksheets(k).Name = .Value Then
myFlg = True
Exit For
End If
Next k
End With
If myFlg = True Then
Worksheets(k).Activate
Else
MsgBox "該当シートなし"
End If
End Sub 'この行まで//
こんな感じではどうでしょうか?m(_ _)m
すごい!本当にありがとうございます。
ただ...どうもうまくいきません。
現状、「車両一覧」シートDセルに゛車番”という列を作り、そこに1234、5678といった4ケタの数字を並べています。
つけ加えると、まだ゛車番”の列に打ち込んでいない数字もあります(納車予定のもの...仮に0000)が、シートとしては既に0000を作っています。
いかがでしょうか・・・もしまた読んで頂けましたら、ご回答頂けないでしょうか。常にこのページをチェックしておりますので、何か必要な除法があれば追加致します。
よろしくお願いしますm(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
ワークシートの行が途中から表...
-
EXCELでコピーしたグラフのデー...
-
スプレッドシートが真っ白にな...
-
シート全体を他のブックのシー...
-
エクセルで数式は残したまま他...
-
ロックしたセルのコピー&貼り付け
-
【エクセル】数式のセル番地を...
-
エクセルVBA シートの保護につ...
-
VBA アクティブでないシートの...
-
excelで勝手にテキストボックス...
-
行の挿入ができなくなった
-
エクセルの右クリックメニューで
-
Excelで大量の2000個のリストを...
-
シート保護してても並び替えを...
-
シート保護したExcelへの画像貼...
-
エクセルで打ち込んだ数字を自...
-
EXCELで複数シート作成後、全シ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
EXCELでコピーしたグラフのデー...
-
ワークシートの行が途中から表...
-
ロックしたセルのコピー&貼り付け
-
シート全体を他のブックのシー...
-
excelで勝手にテキストボックス...
-
Excelで保護のかかったシートの...
-
エクセルで数式は残したまま他...
-
VBA アクティブでないシートの...
-
Excelで大量の2000個のリストを...
-
シート保護してても並び替えを...
-
【エクセル】数式のセル番地を...
-
シート保護したExcelへの画像貼...
-
行の挿入ができなくなった
-
worksheetクラスのcopyメソッド...
-
Excelでハイパーリンク先の表示...
-
エクセルで選択した行以外を削...
-
エクセルで打ち込んだ数字を自...
おすすめ情報