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

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

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

½Ð°Ý¦U¦ì°ª¤â¤j¤j, ¦p¦ó±N³o¬q¥\¯àÂରµ{¦¡½X
1.  ¦³ÂIÃþ¦ü¸ê®Æ­åªRªº·§©À, ¦]¬°®æ¦¡¤£¤@©w , ¦ý³W«h½T©wªº¬O§R°£±q¥ªÃä¼Æ¹L¨Ó¨â­Ó¡y-¡z
     «O¯d¬õ¦âªº¦rÅé

2.  µe½u«á§PÂ_¤£¦Pªº¥[²ÊÅé¤À¿ë





TEST.rar (8.18 KB)

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


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

   

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

TOP

¦^´_ 22# v03586


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

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-1.jpg
     

      µ{¦¡¨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²´´«¦¨" «Ý®Æ "

         

      ¢ß2: ¯à§_±N¤ÀªR§¹ªº¸ê®Æ¦A¶×¤JFMC »P ENG ªº¸ê®Æªí¤º
             Q3.png
          ¤ñ¹ï¨C¤@Ä檺JÄ檺PKG ¦pªG¬Û²Å´N§â¤ÀªR§¹ªº¾÷¥x¼Æ±a¤JFÄæ¦ì
         

test2.rar (750.09 KB)

TOP

¦^´_ 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

¦^´_ 19# v03586


Sub test()
Dim R, xR As Range, xH As Range, xE As Range, i&, V&
R = [D65536].End(xlUp).Row
For i = 2 To R
¡@¡@Set xR = Cells(i, "D")
¡@¡@If xH Is Nothing Then Set xH = Cells(i, "AD")
¡@¡@V = xR.MergeArea.Rows.Count
¡@¡@Set xE = xR(V)
¡@¡@If xR <> xE(2) Then
¡@¡@¡@¡@With Range(Cells(xE.Row, 1), 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(i + V, "AD")
¡@¡@End If
¡@¡@i = i + V - 1
Next i
End Sub

¤£ºÞ¢ÒÄ榳¨S¦³¦X¨Ö®æ¡A³£¥i¥H¡I¡I
¡@
¡@

TOP

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


    ©êºp, ¨S¦³¦X¨Ö®æ, ¦X¨Ö®æ¬O§Ú³B²z§¹µe½u¤~¦X¨Ö®æªº !!!


TEST2.rar (65.2 KB)

TOP

¦^´_ 17# v03586


¦³¦X¨Ö®æ¡H¡H¡H
¤W¶ÇÀɮצA¬Ý¬Ý¡I¡I¡I
¡@

TOP

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

½Ð°Ý¤@¤U¤j¤j, ­×§ï«á§PÂ_¦¡¬°DÄæ¦ì¥u­n¦³¤@¼Ëªº¸Ü²Ó½u, ¤£¤@¼Ëªºµe²Ê½u¨Ó°µ¤À§O
¦ý¬O§Úªº§PÂ_¤@¼Ë¨Ï¥ÎDÄæ¦ì, ¦ý¸Ü½uªº½d³ò­nÂX¤jA2Äæ¦ì¨ìAD2¥H¤UªºÄæ¦ì³£­n¸Ü½u , ½Ð°Ý­n¦p¦ó©µ¦ù©O?
§PÂ_¦¡¤@¼Ë¬O¥ÑDÄæ¦ì
  1. Dim xxR As Range, xxH As Range
  2. For Each xxR In Range([D2], [D65536].End(xlUp))
  3.     If xxR.Row < 2 Then Exit Sub
  4.     If xxH Is Nothing Then Set xxH = xxR
  5.     If xxR(2) <> xxR Then
  6.         With Range(xxR, xxH)
  7.               .Borders.Weight = 4
  8.               If .Count > 1 Then .Borders(12).Weight = 2
  9.         End With
  10.         Set xxH = xxR(2)
  11.     End If
  12. Next
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2017-8-6 09:17 ½s¿è

¦^´_ 15# v03586


For Each xR In Range([D2], [D65536].End(xlUp))
¡@¡@If xR.Row < 2 Then Exit Sub '·íD2¥H¤U¬°ªÅ®É,µ²§ôµ{§Ç
¡@¡@©Î¡@If xR.Row < 2 Then Exit For '·íD2¥H¤U¬°ªÅ®É,¸õ¥X°j°é
¡@
Next

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD