ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý¦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.     Dim fd As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
  3.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '³]©w¿ï¨úÀÉ®×¥\¯à

  4.     If Target(1).Column = 3 Then   '¿ï¨ú«ü©wÄæ¦ì
  5.         If fd.Show Then [C2] = fd.SelectedItems(1)   '¿ï¨úªºÀɮ׸ô®|¨q¦b­þ­ÓÄæ¦ì
  6.     End If
  7.    
  8. End Sub
½Æ»s¥N½X

ÂI«ü©wÀx¦s®æ§Y¥i¶}¸ê®Æ§¨.rar (7.86 KB)

§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

¡@¡@¡@¡@¡@
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

§¹¥þ²Å¦X§Ú­nªºµ²ªG
(¿³¾Ä¡D¡D¡D¡D¤jÁn§o³Û¡ãÁÂÁ GBKEE  ª©¥D¤j¤j)
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD