Page 1 of 1
อยากได้ VBA ที่ ActiveRange แล้วบอก path file ได้ครับ
Posted: Wed Feb 01, 2023 2:40 pm
by primeval
https://www.exceldemy.com/excel-vba-bro ... mplatex080 <<< Link ต้นทาง
อยากให้สามารถเลือก Cell ไหนก็ได้แล้วพอกดใช้คำสั่ง Macro ผลลัพธ์ก็มาตามที่ Cell เลือก ของเดิมจะกำหนดไว้ C4 ครับ
Browsing_File_Path.xlsm
Re: อยากได้ VBA ที่ ActiveRange แล้วบอก path file ได้ครับ
Posted: Wed Feb 01, 2023 3:58 pm
by 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
Re: อยากได้ VBA ที่ ActiveRange แล้วบอก path file ได้ครับ
Posted: Wed Feb 01, 2023 8:36 pm
by snasui
เปลี่ยนจาก
ActiveSheet.Range("C4").Value = my_path เป็น
Selection.Value = my_path
Re: อยากได้ VBA ที่ ActiveRange แล้วบอก path file ได้ครับ
Posted: Wed Feb 01, 2023 9:53 pm
by primeval
ขอบคุณครับ