alex06695

§Ú¦b¨Ï¥Îªº®É­Ô¡A¦ü¥G¦³µo²{³oª©¥»¦³¤@­ÓBUG

KEY¶Ç²¼ªº®É­Ô¡A¨t²Î·|¦Û°Ê§PÂ_¸Ó±i¬O²{ª÷¤ä¥X¶Ç²¼©Î²{ª÷¦¬¤J¶Ç²¼
³o¥\¯àªº§PÂ_¬O¬Û¤Ïªº¡C

ÁٽЪ©¤j¤j¨ó§U½T»{¡A¬O§_¦³³o¼Ëªº°ÝÃD

­ã´£³¡ªL

¦^´_ 11# alex06695

ÁÂÁ´£¿ô³o­«­nªºbug¡A¤½¦¡¤Öºâ¤F¢°¦ì¡A§ï¤F¡þ¡þªþ¥ó¤w§ó·s¡G
­Y¤w¨Ï¥Î¤¤¡A¥i¦Û¦æ§ó§ï¡þ¡þ
«ö Ctrl+z, ¸Ñ¶}«OÅ@¡A¦b¡e·|­p¶Ç²¼¡f¤u§@ªíH4Àx¦s®æ­×§ï¦p¤U¡þ¡þ
=CHOOSE(MAX(bType+1,1),"·|­p¶Ç²¼","²{ª÷¦¬¤J¶Ç²¼","²{ª÷¤ä¥X¶Ç²¼","Âà±b¶Ç²¼")

alex06695

¦^´_ 12# ­ã´£³¡ªL

·PÁ¤j¤j¦^´_
³oEXCEL¯uªº¹ï§Ú­Ìªº¤u§@À°§U«Ü¤j

¸U¤À·PÁÂ

apple0900123456

·PÁ­ã¤jªºµL¨p¤À¨É¡A³oÀÉ®×¹ï¤p§Ì«D±`¦³À°§U¡A·P®¦­ã¤j¤F¡I

Ninayu

½Ð°Ý­ã´£³¡ªL¤j¤j~
½Ð°ÝÀx¦sÀɮ׮ɥX²{¥»Àɮץثe°õ¦æªººÏºÐ¸ô®|µLªkÀx¦sªºÀɮתº­ì¦]¬O¤°»ò?

­ã´£³¡ªL

¦^´_ 15# Ninayu

ÀÉ®×­­©ñ¦b:
1. ¨ø°£¦¡ºÏºÐ
2. ¥»¾÷ºÏºÐ
3. °ÏºôºÏºÐ
¥B¥iŪ¼g~~

¥h¬Ý¬Ý
Sub ¦@¥Î_ÀË´úºÏºÐ() ªºµ{¦¡¤º®e
...¦³¥²­n¦Û¦æ­×§ï

Ninayu

¦^´_ 16# ­ã´£³¡ªL


   ¤w¸g¥i¥HÀx¦s,·P®¦~

nicole1012

½Ð°Ý¤@¤U,Á`¤ÀÃþ±bªº°ÆÀɦW,³£·|¦Û°ÊÀx¦s¦¨xls
¥´¶}¤ÀÃþ±b¦]¬°¬Oxls®æ¦¡
³£·|Åã¥ÜÀɮ׮榡»P°ÆÀɦW¤£¬Û²Å,........
¤â°Ê§ï¦¨xlsx´N¤£·|¥´¶}®ÉÅã¥Üĵ§i°T®§

¬O§_¥i¸ò¤é°O±b¤@¼Ë,¦Û°ÊÀx¦s¬°xlsx®æ¦¡,ÁÂÁÂ

Scott090

¦^´_ 1# ­ã´£³¡ªL


     ·PÁª©¤j¦p¦¹µL¨pªº°^Äm¦@¨É¡C
     ½Ð±Ð§Ú¡A
      ·|­pªþªí¦U­Ó·|­p¬ì¥Øªº¸ê®Æ»P¤é°O±b©Î·|­p¶Ç²¼¶¡¸ê®Æ¤§VBAªº¦Û°Ê³sµ²

Scott090

¦^´_ 1# ­ã´£³¡ªL
      ½Ðª©¤j«ü¾É

¦^´_ 18# nicole1012    
   °Ñ¦Ò¬Ý¬Ý, §â & ".xls" §ï¬°  & aVerXLS
   §ä¨ì  Sub Á`¤ÀÃþ±b_»s§@()
                 
                             If MsgBox("¡°¡eÁ`¤ÀÃþ±b¡f»s§@¤º®e¡G " & Chr(10) & Chr(10) & _
          "¡½ÀɮצWºÙ ¡G " & eFileName & ".xls"  & Chr(10) & Chr(10) & _   

                 .
               '»s§@§¹¦¨ªº¤ÀÃþ±bÀx¦s¦¨ xls    .
               LinkBook.SaveAs AccBook.Path & "\" & eFileName & ".xls": beep
              MsgBox "¡mÁ`¤ÀÃþ±b¡n»s§@§¹¦¨¡@¡@"

           1. End Sub

    ­×§ï¦¨¤U¦C
  Sub Á`¤ÀÃþ±b_»s§@()
.
.     If MsgBox("¡°¡eÁ`¤ÀÃþ±b¡f»s§@¤º®e¡G " & Chr(10) & Chr(10) & _
          "¡½ÀɮצWºÙ ¡G " & eFileName & aVerXLS & Chr(10) & Chr(10) & _
    .

.    '¨ú±o¤u§@ÄÒ¤º²M³æ³]©wª©¥»³]©w
        LinkBook.SaveAs AccBook.Path & "\" & eFileName & aVerXLS: beep
    MsgBox "¡mÁ`¤ÀÃþ±b¡n»s§@§¹¦¨¡@¡@"
   .
. 1:End Sub