[µo°Ý] ÂI«ü©wÀx¦s®æ¡A§Y¥i¥´¶}«ü©w¸ê®Æ§¨

»k¥ú°j¯T

½Ð°Ý¦U¦ì°ª¤â¤j¤j¡G
¡@¡@§Ú·QÂI«ü©w¡iÀx¦s®æ¡j´N¥i¥H¼u¥Xµøµ¡,¨Ã¦b°µ§¹¸ô®|¸ê®Æ§¨½T»{§¹«á¡A
¡@¡@¦P¼ËÄæ¦ì¡iÀx¦s®æ¡jÅã¥Ü¿ï¨ú«áªº¸ô®|¡C

µ{¦¡­n«ç»ò¼g¤ñ¸û¦n?
¡@ÁÂÁ¦U¦ì¼ö¤ß¤j¤jªº«ü±Ð¡ã

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3.     Dim fd As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '³]©w¿ï¨úÀÉ®×¥\¯à
   
5. 
   
6.     If Target(1).Column = 3 Then   '¿ï¨ú«ü©wÄæ¦ì
   
7.         If fd.Show Then [C2] = fd.SelectedItems(1)   '¿ï¨úªºÀɮ׸ô®|¨q¦b­þ­ÓÄæ¦ì
   
8.     End If
   
9.    
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# »k¥ú°j¯T
   

¦P¼ËÄæ¦ì¡iÀx¦s®æ¡jÅã¥Ü¿ï¨ú«áªº¸ô®|¡C

¬O³o¼Ë¶Ü?

1.   If fd.Show Then Target(1) = fd.SelectedItems(1)   '¿ï¨úªºÀɮ׸ô®|¨q¦b­þ­ÓÄæ¦ì

½Æ»s¥N½X

»k¥ú°j¯T

¦^´_ 2# GBKEE


¿Ë·Rªº¶W¯Åª©¥D¤j¤j GBKEE¡G

¡@¡@¡@¯uªº¦A¦¸¹ï§Aªº´º¥õ¦³¦p¶Àªe·Ê·Ê¤£µ´¡A«D±`·PÁ¶W¯Åª©¥D¤j¤jªºÀ°§U¡C

¡@¡@¡@¥t¦³¤@°ÝÃD¥i§_¥X¤â¬Û±Ï¡H

¡@¡@¡@1. ¥Ø«e¥u­nÂI¨ìCÄæ(ª½)ªº¥ô¤@Äæ¦ì¡A³£·|¶]¤U­±³o¬qµ{¦¡¡A
¡@¡@¡@¡@¡@¥i§_¥u«ü©wÂI¨ì¡iC2¡jÄæ¦ì¡A¤~°õ¦æ?

1. If fd.Show Then Target(1) = fd.SelectedItems(1) 'ÂI¿ï­þ¤@­ÓÀx¦s®æ,Àɮ׸ô®|¨q´N·|¨q¦b¨º­ÓÄæ¦ì

½Æ»s¥N½X

¡@¡@¡@¡@¡@

GBKEE

¦^´_ 3# »k¥ú°j¯T

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim fd As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '³]©w¿ï¨úÀÉ®×¥\¯à
   
5.     With Target(1)
   
6.         If .Address(0, 0) = "C2" Then If fd.Show Then .Cells = fd.SelectedItems(1) '¿ï¨úªºÀɮ׸ô®|¨q¦b­þ­ÓÄæ¦ì
   
7.         'If .Address = "$C$2"  '.Address¶Ç¦^¤j¼gªº­^¤å¦r¥À
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

»k¥ú°j¯T

¦^´_ 4# GBKEE

§¹¥þ²Å¦X§Ú­nªºµ²ªG
(¿³¾Ä¡D¡D¡D¡D¤jÁn§o³Û¡ãÁÂÁ GBKEE  ª©¥D¤j¤j)