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

[µo°Ý] ­­·í¡i¤u§@ªí¡j¨Ï¥ÎªºÅܼÆ

[µo°Ý] ­­·í¡i¤u§@ªí¡j¨Ï¥ÎªºÅܼÆ

½Ð°Ý Sheet1 ¤u§@¤W¦³¦h¥÷¥¨¶°,¥Ø«e¦³­Ó°ÝÃD½Ð¨D¦U¦ì¨ó§UÀ°¦£¡G

¡@1.«Å§iÅܼƭn«ç»ò¼g¡H¤~¯à¥u¾A¥Î©ó(Sheet1)¤u§@ªí¨Ï¥Î¡C

¡@2.¨Ò¦pSheet1¤u§@­¶ªº5¥¨¶°¡A¦ý¥H¤UÅܼƬO¦@³qªº¡A¤£·Q¨C­Ó¥¨¶°³£¦A«Å§i¤@¦¸¡C
  1.     dm = "D:\´ú¸Õ¥Î\"   '·j´M¥D¸ô®|
  2.     ML1 = Range("C3") '·j´MÀɮ׸ê®Æ§¨¥Ø¿ý¤@
  3.     ML2 = Range("C4") '·j´MÀɮ׸ê®Æ§¨¥Ø¿ý¤G
½Æ»s¥N½X
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

¥»©«³Ì«á¥Ñ mark15jill ©ó 2014-10-31 17:18 ½s¿è

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


    ¦pªG¥u¬O³æ¯Â¦b sheet1¤º¡A­n¨Ï¥Î¦@³qÅܼơA´N¦b³Ì¤W¤è«Å§i
    ®t§O¦p¤U
    1.­Y¦b¥\¯à°Ï¤º(¨Ò¦p label textbox ) «Å§i¡A«h¸ÓÅܼƥu­­©w¦b¸Ó¥\¯à°Ï¤º¨Ï¥Î¡A¨ä¥L°Ï°ì·|§ä¤£¨ì¡C >>>°Ï°ìÅܼÆ
    2.­Y¦b³Ì¤W¤è«Å§i¡A«h¸ÓÅܼÆÄÝ©ó³q¥ÎÅܼơA¨ä¥L¥\¯à°Ï¥i¥H§äªº¨ì¡C   >>> ¥þ°ìÅܼÆ
   
     ¦]¥u¬Ý¨ì§Aªº3¦æµ{¦¡½X¡A¬G³æ¯Â¦C¥H¤Uµ{¦¡½X°µ°Ñ¦Ò
  1.     Dim dm, ML1, ML2 As String
  2.    
  3.     dm = "D:\´ú¸Õ¥Î\"   '·j´M¥D¸ô®|
  4.     ML1 = Range("C3") '·j´MÀɮ׸ê®Æ§¨¥Ø¿ý¤@
  5.     ML2 = Range("C4") '·j´MÀɮ׸ê®Æ§¨¥Ø¿ý¤G

  6. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  7. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 2# mark15jill


·PÁ mark15jill  ¤j¤j»¡©ú¡A«ö·Ó§Aªº¤è¦¡¡A¥X²{²§±`¤£ª¾­n¦p¦ó³B²z¡A¥i§_±Ð¾É¸Ñ´b?

¿ù»~°T®§.JPG (26.97 KB)

¿ù»~°T®§.JPG

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

TOP

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


    = =  §A¤£·|ª½±µ§â¥L¶K¤W§a?  §A¶K¦b­þ??
ÁÙ¬O§A­n¶Kµ{¦¡½X¹Ï¥X¨Ó »¡©ú§A¿ù»~ªº°Ï°ì ©M«ç¶K¤Wªº?
©ÎªÌ ·Q­n±oµ²ªG?  ³o¼Ë¤~ª¾¹D §A·Q­n±o¬OÔ£...


  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 4# mark15jill

Dear¡@mark15jill ¤j¤j¡G
Àɮ׽Ъþ¥ó¡AÁÂÁ±z¡A³Â·Ð±z¶O¯«¤F¡ã

¦U¦¡¬yµ{2.rar (12.76 KB)

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

TOP

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


¸ò§A½T»{¤@¤U  

§A­nªº¬O...  ¤W¶Ç and ¤U¸ü and ½T»{Àɮ׬O§_¦s¦b    ³o¤T­Ó¥\¯à ¹ï§a?

¹ïªº¸Ü...  §ÚÀ°§A§ïª©§¹¦Apo¤W¨Ó

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 6# mark15jill


¬Oªº¡@mark15jill ¤j¤j¡A¦p§A©Ò­z¡A¦A¦¸·PÁ±zªºÀ°¦£¡ã
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2014-10-31 23:01 ½s¿è

¦^´_ 7# »k¥ú°j¯T
   
§Úªºexcel©Ç©Çªº µLªk¦sÀÉ... ¥u¦n¶K¥N½X©M¹Ïµ¹§A= =""
§ï¥Î©I¥s°Æµ{¦¡ªº¤èªk...
¦]¬° ¦pªG©ñ¦b¦P¤@­Ó°Æµ{¦¡¡A¦³¥i¯à·|­«½Æ½Æ»s     
©Ò¥H  ½Æ»sªº³¡¥÷ ´£¥X¨Ó¥t¦æ³B²z
¦AªÌ... §Aªºµ{¦¡ ÅÞ¿è¦n¶Ã... ¸õ¨Ó¸õ¥h¸õ¨Ó¸õ¥h... ¸õ¨ì­ì¥»ªºµ{¦¡¿ù¶Ã...


  1. Dim kk, te1, te2, te3, te4, te5 As String


  2. Private Sub Frame1_Click()

  3. End Sub

  4. Private Sub UserForm_Activate()
  5. Application.DisplayAlerts = False '´£¥Üµøµ¡®ø¥¢
  6.     Dim objFs As Object
  7.     Set objFs = CreateObject("Scripting.FileSystemObject")
  8. End Sub
  9. Private Sub CommandButton2_Click()
  10.     Call x
  11.     If Dir(tet4 & "\" & "*") <> "" Then fsd.copyfile tet4 & "\", ddm
  12.    
  13.     Shell "explorer " & tet4, vbNormalFocus  ' "explorer  "ªÅ¤@®æ + (³s±µ¤W)­n¶}±Òªº¸ê®Æ§¨ ©Î ÀÉ®×
  14. End Sub
  15. Private Sub CommandButton3_Click()
  16.     Call x
  17.     Dim sss As String
  18.     sss = Dir(te3)
  19.     If sss <> "" Then fsd.copyfile fd & sss, gb:         Shell "explorer  " & gb, vbNormalFocus: End If
  20. End Sub
  21. Private Sub CommandButton4_Click()
  22.         Shell "explorer " & "\\d1502111\¼È¦s°Ï\" & TextBox5.Text, vbNormalFocus  '"explorer  "ªÅ¤@®æ + (³s±µ¤W)­n¶}±Òªº¸ê®Æ§¨ ©Î ÀÉ®×
  23. End Sub
  24. Function x()
  25.       
  26.      With Application.FileDialog(msoFileDialogOpen)
  27.        .AllowMultiSelect = True:        .Show
  28.        For i = 1 To .SelectedItems.Count:              TextBox4.Text = .SelectedItems(i):        Next
  29.         tet4 = TextBox4.Text
  30.     End With
  31.    
  32.     te1 = TextBox1.Text: te2 = TextBox2.Text: te3 = TextBox3.Text
  33.     dm = "C:\´ú¸Õ¥Î\"
  34.     ddm = "C:\¤U¸ü°Ï\"
  35.     fd = dm & te1 & "\" & te2 & "\"
  36.     gb = "C:\" & te3
  37.    
  38.     '¥Îdir¨ç¼Æ¤¤ªºvbDirectory±`¼Æ¨Ó§PÂ_¸ê®Æ§¨¬O§_¦s¦b
  39.     CurrentFile = Dir(gb, vbDirectory)
  40.     '¶Ç¦^ªÅ¥Õ¡Aªí¥Ü¸ê®Æ§¨¤£¦s¦b
  41.     If CurrentFile = "" Then MkDir gb:          End If
  42.    
  43.    
  44. End Function
  45.             'Cells(i, 1) = .SelectedItems(i)
  46.          'MsgBox .SelectedItems(i)
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 8# mark15jill


ÁÂÁ mark15jill ¤j¤j³o»ò¥Î¤ßªºÀ°§Ú¡A

¦]¬°¥»¨­¥\¤O¤£¨¬©|¦b¾Ç²ß¡AÅý±z³Ò¤ß³Ò¤O¤F¡A¦A¦¸·PÁ¡ã

¤£¹L¡ã§ÚºÉ¶q¤£·Q°µ¦¨¨ººØµøµ¡«¬ºA¡A¬O¦]¬°¤£¦nºûÅ@»P¤é«á­×§ï¡A

©Ò¥H¤~·QºÉ¶qµ{¦¡½X¶V²¼ä¶V¦n¡D¡D¡D¡D¡D

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

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2014-11-1 02:23 ½s¿è

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


   ¤£·Q°µµøµ¡¤Æ...

´N§âµøµ¡¤ÆªºÅܼƧ令Àx¦s®æªº...

¨Ò¦ptextbox1 §ï ¦^§A­ì¥»³]©wªº

°ò¥»¤W °£¤FÅܼƧó§ï¥~ ¨ä¾lªº ¸ò§Aµ{¦¡¤@¼Ë... ¥u¬O¬Ý°_¨Ó¤ñ¸ûÂø...

¦³¥Î¤F²Î¦X°Æµ{¦¡... ¬Û¦Pªº¦b°Æµ{¦¡³]©w«á  ¤£¦Pªº¦bÃB¥~³B²z

­Ó¤H¤ñ¸û²ßºD  ¥Îuserform²Î¾ã... µe­±¤ñ¸û°®²b¾ã»ô...ÁöµM¦³¥i¯à¤å¦r¤j¤p¤ñ¸û¤p...
¦ý¦n³B ¥i²¾¥X.. ·í°µ¹s¥ó¥Î

ps...§ÚºÎı¤F£¾£¾ ±ß¦w

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD