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

[µo°Ý] ¸ê®Æ­åªR+¥[®Ø½u

¦^´_ 19# v03586


Sub test1()
Dim R, xR As Range, xH As Range
R = [D65536].End(xlUp).Row
For Each xR In Range([D2], [D65536].End(xlUp))
¡@¡@If xH Is Nothing Then Set xH = Cells(xR.Row, "AD")
¡@¡@If xR(2) <> xR Then
¡@¡@¡@With Range(xR(1, -2), xH)
¡@¡@¡@¡@¡@¡@.Borders.Weight = 4
¡@¡@¡@¡@¡@¡@If .Columns.Count > 1 Then .Borders(11).Weight = 2
¡@¡@¡@¡@¡@¡@If .Rows.Count > 1 Then .Borders(12).Weight = 2
¡@¡@¡@End With
¡@¡@¡@Set xH = Cells(xR.Row + 1, "AD")
¡@¡@End If
Next
End Sub

¥u¾A¥Î¤_µL¦X¨Ö®æ¡I¡I¡I
¡@

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2017-8-9 15:31 ½s¿è

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


    ·PÁªO¤j´£¨Ñªº¨â­Óª©¥»!!! ³Ì«á§Ú¿ï¾Ü¦³¦X¨Ö®æªº !!!
    ¥i§_¦A½Ð±Ð¤j¤j¤@­Ó°ÝÃD...
     
    ¦b§ÚTest reportªºEXCEL "¾÷¥x¼Æ"ªº¤À­¶, ¥h°µ¤@­ÓÃþ¦ü¤ÀªR¸ê®Æ, ¦]¬°§Úª¾¹D¼Ï¯Ã¤ÀªR¥Î¿ý»sªº
     ¥u­n¥Lªº°Ñ¦Ò¸ê®Æ¦³·s¼W¨S¦³³Q¿ý»s¶i¥hªº¸ê°T´N·|¸õ¥X¿ù»~

     
Q1.png
2017-8-9 15:30
   
Q1-1.jpg
2017-8-9 15:13

     

      µ{¦¡¨BÆJ¬O, ¶}±ÒTest Report ¦A¥´¶}"°Ñ¦Ò¸ê®Æ" ¡÷  ¦A«ö²£¥Í³øªí
      µ{¦¡·|±q°Ñ¦Ò¸ê®Æ§ì¨ú­nªº¸ê®Æ¨ìTest report ¥h°µ¸ê®Æ·J¾ã
      ª½¨ìMoudle3¡y¾÷¥x¼Æ¡z ¥u¬O§â°Ñ¦Ò¸ê®Æ¤¤§Ú­nªº¸ê®Æ§ì¹L¨Ó, ¦A°µ¤@­Ó¿z¿ï
     ³Ñ¤Uªº¸ê®Æ­n°µ¤ÀªRªº
      Q1:  ¯à§_±NMoudle3 ¿z¿ï§¹ªº¸ê®Æ¦b¦P¤@­Ó¤À­¶ ¡y¾÷¥x¼Æ¡z §e²{¥X  ¤W¹Ïªº¸ê®Æ©O?
               ¦pªGPKG¬OªÅ¥Õ¥Nªí¾÷¥x«Ý®Æ, ¥i§_§âªÅ¥Õ¦r²´´«¦¨" «Ý®Æ "

         
Q2.png
2017-8-9 15:19


      ¢ß2: ¯à§_±N¤ÀªR§¹ªº¸ê®Æ¦A¶×¤JFMC »P ENG ªº¸ê®Æªí¤º
            
Q3.png
2017-8-9 15:21

          ¤ñ¹ï¨C¤@Ä檺JÄ檺PKG ¦pªG¬Û²Å´N§â¤ÀªR§¹ªº¾÷¥x¼Æ±a¤JFÄæ¦ì
         
Q3-1.png
2017-8-9 15:28


test2.rar (750.09 KB)

TOP

¦^´_ 22# v03586


§Úªºofficeª©¥»µLªk¥¿±`°õ¦æµ{¦¡,
À³¸ÓÀ°¤£¤W!!!

TOP

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


    ªO¤j , §Ú·Q¦A½Ð±Ð¤@­Ó°ÝÃD
    ³o¨Ç¸ê®Æ±ø¥ó³£¬O¦b³sÄò©Êªº±¡ªp¤U
    °²³]§Ú¦pªG·í¤¤¸ê®Æ¦³¤£©w®ÉªÅ¥Õªº¸ê®Æ, ¦p¦ó³B²z©O?  ¦p¤U¹Ï

   
QQQ.png
2017-8-27 04:16


    §Ú¥Ø«eµo²{¥u­n¦³ªÅ¥Õªº  ¥L´N·|¦Û°Êµ²§ô°j°é

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD