![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
こんにちは。
セルA4から下に商品番号が書いてあります。
その商品番号をダブルクリックすると、「専用のフォルダをつくりますか?」とメッセージを出して、「はい」であれば、
(1)商品番号を名前にしたフォルダを作成
(2)その商品番号のフォルダへのハイパーリンクを設定
というようにしたいと思っています。
調べ、調べ下のように書いているのですか、
(1)、(2)の肝心の部分が分かりません。
あと、A列のどんな行でもダブルクリックするとメッセージが出るので、A4以降の商品番号のある行まで、というようにできればいいとも思っています。
お教えいただけないでしょうか。宜しくお願いします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("A")) Is Nothing Then
myMSG = "専用フォルダをつくりますか?"
If MsgBox(myMSG, vbYesNo + vbQuestion, "フォルダ作成") = vbYes Then
'以下に
'(1)「倉庫」フォルダにクリックしたA列の商品番号を名前にしたフォルダ作成
'(2)つくったフォルダへのハイパーリンクを設定
End If
End If
End Sub
No.1ベストアンサー
- 回答日時:
サンプルマクロです
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const path As String = "D:\TEMP\倉庫\"
Dim wkStr As String
If Target.Column = 1 Then
wkStr = path & Target.Value
If Dir(wkStr, vbDirectory) = vbNullString Then
MsgBox wkStr & "フォルダがありません。作成します。"
MkDir wkStr
Else
MsgBox wkStr & "フォルダは存在します。"
End If
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=wkStr
End If
End Sub
zap35さん、こんにちは。
すごいですね、コードを見てなるほど、と分かる気がするのですが、
ここまでのデザインを自分ではできません。本当にありがとうこざいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ作成用バッチファイル...
-
エクセルVBAでフォルダの作成
-
LANDISKに新しいフォルダを追加...
-
サンダーバードでの新規にフォ...
-
BIGLOBEのウェブリメールはフォ...
-
Thunderbird ローカルフォルダ...
-
bat ファイルでフォルダ作成&移動
-
Excelでdatファイルを作成??
-
windowsへscp
-
【Excel VBA】PDFを作成して,...
-
エクセルVBA フォームを開く時...
-
複数のファイルを同時検索し、...
-
マルチモニタ環境でネットから...
-
【VB6.0】DictionaryのAddが遅い
-
Refreshで落ちる
-
VBSでファイル選択ダイアログを...
-
サーブレットからファイル名を...
-
VBSで指定したフォルダにファイ...
-
1フォルダに保存できるファイル...
-
XMLDOMのsaveメソッドのエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ作成用バッチファイル...
-
Thunderbird ローカルフォルダ...
-
bat ファイルでフォルダ作成&移動
-
"ダウンロード"のフォルダを消...
-
Windows10 メールフォルダ作成
-
BIGLOBEのウェブリメールはフォ...
-
フォルダコピペ時に更新日時と...
-
LANDISKに新しいフォルダを追加...
-
フォルダ階層が深いファイルの...
-
John The Ripper
-
エクセルで日付・時間名でフォ...
-
小次郎の記入項目のうちの転送...
-
至急!バッチ作成について
-
wDairy(日記ソフト)について
-
ヤフーメールの問い合わせ。
-
Windows Outlook Expressで・・・
-
エクセルのマクロについて
-
フォルダの新規作成が遅い
-
Winで新規フォルダを作成するキ...
-
Thecus n5200 の Media Server ...
おすすめ情報