こんにちは。
セル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ランキング
-
bat ファイルでフォルダ作成&移動
-
BIGLOBEのウェブリメールはフォ...
-
バッチファイルで古いフォルダ...
-
コマンドプロンプトを使用して...
-
Thunderbird ローカルフォルダ...
-
Excel VBA シートを指定して...
-
batファイル処理でのテキストフ...
-
VBAでファイルパスが長すぎてコ...
-
Lubuntuでフォントをインストー...
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
FFFTPでサーバに新規フォルダが...
-
Windowsのメモ帳でジョークウイ...
-
ExcelVBA テキストファイルから...
-
Access2003で「オブジェクト'○○...
-
windowsへscp
-
マクロでメモ帳に貼り付け
-
Refreshで落ちる
-
KADOKAWA電撃文庫ってフォーマ...
-
Webサイト アプリのコンパイル他
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ作成用バッチファイル...
-
bat ファイルでフォルダ作成&移動
-
Thunderbird ローカルフォルダ...
-
LANDISKに新しいフォルダを追加...
-
サンダーバードでの新規にフォ...
-
フォルダの新規作成が遅い
-
もしフォルダがなかったら作成...
-
フォルダ階層が深いファイルの...
-
Winで新規フォルダを作成するキ...
-
至急!バッチ作成について
-
BIGLOBEのウェブリメールはフォ...
-
John The Ripper
-
フォルダコピペ時に更新日時と...
-
GoogleWorkspaceについての質問
-
FTPで、フォルダコピー
-
XPでデスクトップ上にmkdirでフ...
-
Accessでフォルダを自動生成す...
-
Windows7 → Windows10にアップ...
-
コマンドプロンプトを使用して...
-
Excelでバックアップファイルを...
おすすめ情報