マクロコードがあります。
このマクロをマクロ実行では無く、マクロを設定している作業ブックを開いたタイミングで実行出来るように
VBAコードを「ThisWorkbook」に設定する方法を教えてください。
詳しいコード共に親切に教えて頂ける方、宜しくお願い致します。
マクロ
Sub 番号コピー()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
GetIDNuber (.SelectedItems(1))
End If
End With
End Sub
Function GetIDNuber(s As String) As String
Dim temp
Dim IDNumber As String
temp = Split(s, "\")
temp = Split(temp(UBound(temp)), "_")
SetClipBoard (temp(0))
End Function
Sub SetClipBoard(s As String)
Dim buf As String, buf2 As String, CB As Object
Set CB = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With CB
.SetText s ''変数のデータをDataObjectに格納する
.PutInClipboard ''DataObjectのデータをクリップボードに格納する
.GetFromClipboard ''クリップボードからDataObjectにデータを取得する
End With
End Sub
このマクロ実行すると第が開き、指定したフォルダ名の「_」から前の番号をコピーできるようになっております。
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) Excel VBAでWordの複数ファイルを統合する場合のエラーについて教えてください 11 2021/12/29 12:11
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) excel VBAでメールを送る方法について 2 2021/11/03 15:34
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルのマクロについて教えてください。 マクロを実行すると コピー先のフォルダ名を検索して、条件に
Excel(エクセル)
-
エクセルの数式で教えてください。
Excel(エクセル)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルのVBAでのコピー
Excel(エクセル)
-
5
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
6
xlookup関数の引数を利用して検索元に移動するVBAコードについて
Visual Basic(VBA)
-
7
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
8
エクセルマクロで出力行の増やし方がわかりません。
Visual Basic(VBA)
-
9
【VBA】飛び飛びの3セルに完了"かもしくは"支援なし"の文字が入っていたら、計算を実行したい"
Visual Basic(VBA)
-
10
【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教
Visual Basic(VBA)
-
11
select case について
Visual Basic(VBA)
-
12
Excelマクロで空白セルの大小比較処理について
Visual Basic(VBA)
-
13
Excelの転記マクロについて、教えて下さい excelのマクロでまた悩んでいます! AAAAという
Excel(エクセル)
-
14
VB.NETでVBスクリプトを作るにはどうしたらいいですか?
Visual Basic(VBA)
-
15
VB.Netでファイル圧縮する方法は何ですか?
Visual Basic(VBA)
-
16
メール送信をVB.NET化するにはどうしたらよいでしょうか?
Visual Basic(VBA)
-
17
Excel初心者です、教えてください。
Excel(エクセル)
-
18
エクセルの数式で教えてください。
Excel(エクセル)
-
19
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
20
エクセル VBA 他シートの行を選択して,転記する。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
ExcelのVBA。public変数の値が...
-
一つのTeratermのマクロで複数...
-
TERA TERMを隠す方法
-
メッセージボックスのOKボタ...
-
Excel VBAからAccessマクロを実...
-
Excel マクロ VBA プロシー...
-
ExcelVBAでPDFを閉じるソース
-
ユーザーフォームを起動しなが...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルのマクロについて教え...
-
非表示の列をすべて削除するマクロ
-
エクセルで別のセルにあるふり...
-
マクロの連続印刷が突然不可能...
-
エクセルのマクロについて教え...
-
【マクロ】1つのマクロの中に...
-
Teraterm 1行空白を入れたい。
-
Excelのマクロについて教えてく...
マンスリーランキングこのカテゴリの人気マンスリー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のマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報