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

[µo°Ý] ´z¿ï¦WºÙ¤¤¦³¡i§¡­È¡jªºÀɮפ§»yªk¡C

¥»©«³Ì«á¥Ñ Airman ©ó 2019-6-2 11:41 ½s¿è

¦^´_ 7# Scott090
¦^´_ 9# Airman
­×¥¿µ§»~~
¥Ø«e¥H¤U¦Cªºµ{¦¡½X=µL½×ÀɮצWºÙ¤º¦³©Î¨S¦³§¡­Èªº¤å¦r¡A¥þ³¡³£¦³°õ¦æÂŦâ¦rªºµ{¦¡½X¡C

TOP

¦^´_ 6# ­ã´£³¡ªL
­ã¤j :
´ú¸Õµ²ªG :   §¡­È.rar (23.3 KB)
¦]¬°¤u§@ªí¦WºÙÅܦ¨´_­ìSheet1(¤£¬O=ÀɮצWºÙ)¡A¦Û¦æ¸Õ¤F¥b¤Ñ~µLªk³B²z^^"
·q½Ð½ç¥¿~ÁÂÁ±z^^

TOP

¦^´_ 11# Airman

      ©Ó9#¡G
      ²q´ú ÀɦW ÅÜ¼Æ A ¤ºªº¦r¦ê«¬ºA¥i¯à¬O¡G
       ¨S¦³"§¡­È"¤G¦r¡G                     "?????????????"  ©Î
       ¶È¦³"§¡­È"¤G¦r¨S¦³¦A­«½Æ¡G "?????§¡­È?????"
       °²¦p¬O³o¼Ë¡A½Ð¥Î¡G   
      If  instr(A,"§¡­È")<>0  Then
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
          End If

TOP

¦^´_ 12# Airman


       .Sheets(1).Name = A  '¥[³o¤@¦æ
       .SaveAs Filename:=P & "\" & A & ".xls", FileFormat:=xlNormal, CreateBackup:=False
       .Close 0

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2019-6-2 16:29 ½s¿è

¦^´_ 13# Scott090
Scott090¤j¤j :
ÁÂÁ±zªº­@¤ß½ç¥¿~
OK¤F~·P®¦^^

TOP

¦^´_ 14# ­ã´£³¡ªL
­ã¤j :
ÁÂÁ±zªº­@¤ß½ç±Ð~
OK¤F~·P®¦^^

TOP

¦^´_ 14# ­ã´£³¡ªL
­ã´£ª©¥D :
³o¤@ÃD¥i¤£¥i¥H½Ð§AÀ°§Ú¬Ý¤@¤U
http://forum.twbts.com/thread-21810-1-1.html
ÁÂÁ§A !

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD