อยากได้ VBA ที่ ActiveRange แล้วบอก path file ได้ครับ

[primeval]

https://www.exceldemy.com/excel-vba-bro ... mplatex080 <<< Link ต้นทาง

อยากให้สามารถเลือก Cell ไหนก็ได้แล้วพอกดใช้คำสั่ง Macro ผลลัพธ์ก็มาตามที่ Cell เลือก ของเดิมจะกำหนดไว้ C4 ครับ

Browsing_File_Path.xlsm

(36.32 KiB) Downloaded 5 times

[primeval]

Code: Select all

Sub File_Path()
Dim File_Picker As FileDialog
Dim my_path As String
Set File_Picker = Application.FileDialog(msoFileDialogFilePicker)
File_Picker.Title = "Select a File" & FileType
File_Picker.Filters.Clear
File_Picker.Show
If File_Picker.SelectedItems.Count = 1 Then
    my_path = File_Picker.SelectedItems(1)
End If
ActiveSheet.Range("C4").Value = my_path
End Sub

[snasui]

เปลี่ยนจาก ActiveSheet.Range("C4").Value = my_path เป็น Selection.Value = my_path

[primeval]

ขอบคุณครับ