管理台帳を作成したく、下記のVBAを作りました。
マクロ内容は、Aセルに管理番号を入力しマクロ実行ボタンにて、
入力した番号と同じフォルダーを作成しハイパーリンクする自動フォルダー作成&ハイパーリンクマクロです。
現在のフォルダー作成場所はローカルのDドライブ直下に作る様に指定しているのですが、
エクセルVBAがある場所と同じ場所に、上記のマクロで作るフォルダーが出来る様にしたいのですが、
見よう見まねでVBAを何とか作ったのですが、知識がなくこれ以上が解りません。
出来れば、下記のVBAを編集して頂、教えて頂いたVBAをそのままコピペすれば使える状態で教えて頂ければ助かります。
宜しくお願い致します。
Sub MakeHyLink()
Const path As String = "D:\"
Dim wkStr As String
If ActiveCell.Column = 1 Then
wkStr = path & ActiveCell.Value
If Dir(wkStr, vbDirectory) = vbNullString Then
MsgBox wkStr & "フォルダがありません。作成します。"
MkDir wkStr
Else
MsgBox wkStr & "フォルダは存在します。"
End If
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=wkStr
End If
No.2ベストアンサー
- 回答日時:
>Aセルに管理番号を入力し
Aセルということですから、A列であればどこでも、
かつ、該当セルをActiveにしてからマクロ実行ですね?
'--------------------------
Sub MakeHyLink()
Dim wkStr As String
If ActiveCell.Column <> 1 Then Exit Sub
If ActiveCell.Value = "" Then
MsgBox "アクティブセルは未入力、やり直し"
Exit Sub
End If
wkStr = ThisWorkbook.path & "\" & ActiveCell.Value
If Dir(wkStr, vbDirectory) = "" Then
MsgBox "フォルダー:" & wkStr & vbLf & " を、作成します。"
MkDir wkStr
Else
MsgBox "フォルダー:" & wkStr & vbLf & " は、存在します。"
End If
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=wkStr
End Sub
'-------------------------------------------
以上です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) Excel VBA でデータ転記について 1 2023/03/07 19:11
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
TERA TERMを隠す方法
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
VBAにて別ワークブック上の実行...
-
ピボットテーブルでの毎回可変...
-
VBAで特定の文字を含まない列の...
-
エクセルのマクロをセルの値に...
-
特定文字のある行の前に空白行...
-
ExcelVBAでPDFを閉じるソース
-
エクセルで別のセルにあるふり...
-
ファイルが見つからない時、ス...
-
右クリックによるイベントマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報