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

[µo°Ý] ½Ð¯q¶×¤J¥~³¡¸ê®Ævba

[µo°Ý] ½Ð¯q¶×¤J¥~³¡¸ê®Ævba

1.§Æ±æ³]­p¤@­Ó«ü¥O«ö¶s¥i¥H°õ¦æ¥¨¶°.
2-1.¶×¤J¥~³¡¸ê®Æ«á¡Aµ¥«Ý¤H­û¿ï¾Ü­n¶×¤JªºÀɮסC(¤£­n«ü©w¯S©wÀɦW¡A»Ý­n¤H­û¿ï©wÀÉ®×)  
2-2.·í¿ï©w¦nÀɮסA«ö¤U¶}±Ò«á¡A·|¸õ¥X¤@­Óµøµ¡´£¿ô°T®§¡A°T²ß¤º®e¬°: ½T»{§A­n¶×¤JÀɮ׬°xxxxx   ¡A¤§«á¦³YES/NOµ¹¤H­û¿ï¨ú¡A«ö¤UYES­È°õ¦æ¶×¤JªºÀÉ®×.
2-3¶×¤JÀÉ®×¥H³r¸¹°µ°Ï¹j´N¥i¥H¡A¤£­n·s«Ø¬¡­¶Ã¯¡A¶×¤J¦b¦WºÙ¬°:"¥Í²£data"¬¡·~ï¥ÑA1¶}¨Ï.


¥i·Ð½Ð¤j¤j¥i§_¥Ü½d¤@¦¸¡A
§Ú¥d¦b2-1»P2-2¹L¦¨µ{¤¤

°ÝÃD.rar (33.81 KB)

°ÝÃD´y­z

Justin WANG

°Ñ¦Òªþ¥ó.zip (22.68 KB) ¦^´_ 4# GBKEE


    ª©¤j:
   ³o´X¤Ñ¦³Æ[¹î½×¾Â¸Ìªºª©¤j³£«Ü¦³¤ß¦^µª¤j®aªº°ÝÃD
    ¦Ó¥B¥i¥H¦b½×¾Â¤¤§ä¨ì·Q­nªº¸ê®Æ»P°ÝÃD
   §Ú¯uªºÄ±±o¬O¦U¦n½×¾Â!!!!
   ¯uªº­n¤ä«ù¤U¥h!!
   ¤]­nÀ°¦£±À¤@¤U¤~¦æ
    Sorry !!!§Ú¨Sªí¹F²M°£
    ¬Q¤Ñ§Ú¥«µÛ³s±µ°_¨Ó§Ú¦Û¤v±µ¤U¥hªº¤£¦æ
    ª©¤j¼gªºµ¹§Úªº2-1¨ì2-2¹Lµ{¬Ookªº!!·Q·Ð½Ðª©¤j¼g±ß¾ã­ÉÃè¤@¤U
     ¶×¤JÀÉ®×µ§¼Æ:³æ¤@
     ¶×¤JÀɮפº®e:¥þ³¡
     ¶×¤JÀɮױƦC¤è¦¡:³r¸¹°Ï¹j
     ¦r«¬·s²Ó©úÅé
     ¦rÅé¤j¤p:8
     ¦A"¥Í²£data"¤¤AKÄæ»PALÄ檺Äæ¼e¬°86
     
     °Ñ¦Òªþ¥ó
     excelÀɮפ¤ªº"¥Í²£data"¬°³Ì²×­nªº
     ÀɦW:20110526_BCA (R) ¬°­n¶×¤JªºÀÉ®×
Justin WANG

TOP

¦^´_ 3# Justin_wang
¨Ã«D¤@©w­nÃÙ§U¤~µ¹¦^µªªº,·íµM¦³ÃÙ§Uºô¯¸¤~¯à¥Ã¤[¸gÀç¤U¥h   
§A¤£¬O»¡: §Ú¥d¦b2-1»P2-2¹L¦¨µ{¤¤
2-3¶×¤JÀÉ®×¥H³r¸¹°µ°Ï¹j´N¥i¥H¡A¤£­n·s«Ø¬¡­¶Ã¯¡A¶×¤J¦b¦WºÙ¬°:"¥Í²£data"¬¡·~ï¥ÑA1¶}¨Ï.
§A­n»¡²M·¡: ¶×¤JÀɮתº ¥þ³¡ ©Î ¤@³¡¥÷  ,¦hÀÉ®× ¶×¤J¨º¸Ì ?? ¦p¦ó³s±µ¤U¥h??

TOP

¦^´_ 2# GBKEE


¤j¤j§A¥i¥H¼g§¹¾ãªº¶Ü?
­è­è¶}©l¾Ç²ß¡A¥i¥H´£¨Ñµ¹§Ú¤ñ¹ï£v?
¥t¥~­nÃÙ§Uºô¯¸ªº±b¸¹¬°¤U¦C³o­Ó£v
½Ð¥HATMÂà±b¤è¦¡±N±zªºÃÙ§Uª÷ÃBÂà¦Ü
»È¦æ¥N½X : 815(¤é²±°ê»Ú°Ó»È)
±b¸¹ : 010-10-013846-400
Justin WANG

TOP

¦^´_ 1# Justin_wang
  1. Sub Ex()
  2.     Dim R As Range, i As Long, ii As Integer
  3.     With Application.FileDialog(msoFileDialogOpen)  'ÀÉ®×¹ï¸Ü¤è¶ô°õ¦æ­ÓÅé
  4.         .AllowMultiSelect = True                    '¥i½Æ¿ïÀÉ®×
  5.         .InitialFileName = "D:\TEST"                '¥i­×§ï¬°§A­n¶}±Òªº¥Ø¿ý
  6.         .Show                                       'Åã¥ÜÀÉ®×¹ï¸Ü¤è¶ô
  7.         If .SelectedItems.Count >= 1 Then           '¿ï¾ÜªºÀÉ®×¼Æ
  8.             For i = 1 To .SelectedItems.Count       '¨Ì§Ç¦b¿ï¾ÜªºÀÉ®×
  9.                 If MsgBox("¶×¤J" & .SelectedItems(i), vbYesNo) = vbYes Then
  10.                                         '
  11.                     '
  12.                     '2-3¶×¤JÀÉ®×
  13.                     '
  14.                     '
  15.                 End If
  16.             Next
  17.         End If
  18.     End With
  19. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD