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

[µo°Ý] ¿ë»{¤Î¶×Á`

¦^´_ 9# Andy2483
§ï爲³o­Ó¤§«á¡A¦pªG¤£¬O¥|­ÓÂd³£¦³¸ê®Æªº¸Ü¡A¨º麽·|Åã¥ÜERROR "1004" À³¥Îµ{¦¡©Îª«¥ó©w¸q¤WOI*.

      xT.Copy xR(-1): xR(-1) = "No." & Sheets(s).Name
   '¡ô¥O¼ÐÃDÀx¦s®æ½Æ»s¨ì¥Ø¼Ð®æ,¥O¼ÐÃD®æ¼g¤J¤u§@ªí¦W
   With xR.Resize(N, 5)
      .Value = Crr
      .Borders.LineStyle = 1
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .Columns(3).Font.ColorIndex = 3
      .Columns(4).Font.ColorIndex = 5
      .Font.Bold = True
   End With '¦¹¬q¬O¥OÂX®i¾A¶qÀx¦s®æ½d³ò¥HCrr°}¦C­È¼g¤J,¨Ã½Õ¾ã¸Ó½d³ò®æ¦¡
   N = 0: Z.RemoveAll: Set xR = xR(1, 7)
   '¡ô¥ONÅܼÆÂk¹s,Z¦r¨å²MªÅ,¥OxRÅܼƥk²¾¨ì¦Û¨­¶}©lªº²Ä7®æ
Next

TOP

¦^´_ 11# 198188

Sub Total()
~~
   Brr = Sheets(s).[A1].CurrentRegion: If Not IsArray(Brr) Then GoTo s01 Else ReDim Crr(1 To UBound(Brr), 1 To 5)
   '¡ô¥OBrrÅܼƬO¼g¤J°Ï°ìÀx¦s®æ­Èªº¤Gºû°}¦C,¦pªGBrr¤£¬O°}¦C´N¸õ¨ì¼Ð¥Üs01¦ì¸mÄ~Äò°õ¦æ,§_«h«Å§iCrrÅܼƬO¤GºûªÅ°}¦C
   ~~
s01: Next
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 12# Andy2483


    ½Ð°Ý³o¥y¥[¦b­þ­Ó¦ì¸m

TOP

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