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

«æ!!! "µLªk³]©wºØÃþBorderªºLineStyleÄÝ©Ê"

«æ!!! "µLªk³]©wºØÃþBorderªºLineStyleÄÝ©Ê"

¦p¹Ï1¡B¹Ï2©Ò¥Ü³]©w®Ø½u®É©Ò¹J¨ìªº°ÝÃD
³o¬O±q¿ý»s¥¨¶°¨Ó­×§ïªº
¦Ó¥B"¥kÁä->Àx¦s®æ®æ¦¡"·|¨S¤ÏÀ³
§ï¤F«Ü¦h¼gªk
ÁÙ¬O¤£ª¾¹D°ÝÃD¥X¦b­þ
§¹¦¨«á·|¹³¹Ï4
¹Ï1
1.JPG
2020-6-8 17:04

¹Ï2
2.JPG
2020-6-8 17:04

¹Ï3

¹Ï3

3.JPG
2020-6-8 17:05

¹Ï4

¹Ï4

4.JPG
2020-6-8 17:05

ªþÀÉ
°ÝÃD.rar (24.91 KB)

Sub ¦X¨Ö()
Dim R&, xR As Range, T1$, T2$, TC$, xH As Range, K
R = [D65536].End(xlUp).Row
With Range("A12:M" & R)
     .UnMerge
     .Borders.LineStyle = xlNone
End With
Application.DisplayAlerts = False
For Each xR In Range("A12:A" & R)
    T1 = Split(xR(1, 4) & "-", "-")(0)
    If T1 <> TC Then TC = T1: Set xH = xR
    T2 = Split(xR(2, 4) & "-", "-")(0)
    If T2 <> TC Then
       For Each K In Array(1, 2, 3, 13)
           Range(xR(1, K), xH(1, K)).Merge
       Next K
    End If
Next
Range("A12:M" & R).Borders.LineStyle = 1
End Sub

TOP

¥»©«³Ì«á¥Ñ s13030029 ©ó 2020-6-9 08:20 ½s¿è

¦^´_ 2# ­ã´£³¡ªL
­ã¤j
§A¬OÀ°§Ú²¤Æµ{¦¡½X¤F¶ÜXD
T1 = Split(xR(1, 4) & "-", "-")(0)
¥i¥H»¡©ú¤@¤U³o¥y¬O«ç»ò¥Îªº¶Ü?

TOP

¥»©«³Ì«á¥Ñ s13030029 ©ó 2020-6-9 08:35 ½s¿è

¦^´_ 2# ­ã´£³¡ªL
¦]¬°³o¼ËÁÙ¤£¬O§Ú³Ì²×ªºªí®æ
¹ê»Ú¤W°µ§¹·|¦³¼ÐÃD¦C(¦p¹Ï1¡B2)
©Ò¥H­ã¤jªºµ{¦¡½X¥i¯àÁÙ­n¦b­×§ï¤@¤U
¤]¥i¥HÀ°§Ú¬Ý¬Ý§Úªºµ{¦¡½X¯à¤£¯à²µu¤@ÂI
ÁÂÁÂ

2.JPG
2020-6-9 08:28

1.JPG
2020-6-9 08:28


ªþÀɦ³§¹¾ãµ{¦¡½X
°ÝÃD.rar (33.96 KB)

TOP

¦^´_ 4# s13030029
¦]¬°§Ú¤§«eªº·Qªk¬O¥ý°µ¦n¼ÐÃD¦C¸ò¤À­¶«á
¦A¨Ó°µ¦X¨ÖÀx¦s®æªº°Ê§@
¦ý¬O²{¦b§Ú·Q­n¥ý¦X¨Ö«á¦A¤À­¶
¤@­¶³£¬O23¦C
ÁöµM»¡³o¨âºØ¤èªkªº®Ø½u³£·|¥X¿ù

TOP

¦^´_ 3# s13030029


±N½s½X"2-4", ¤À¦¨2¤Î4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-6-9 10:48 ½s¿è

¦^´_ 5# s13030029

ÁÙ¨S°õ¦æµ{¦¡«e, ªí®æªø¤°»ò¼Ë???
µ{¦¡¤¤ªº³W«h¬°¦ó???  ¤£·Q±q§Aªºµ{¦¡½X¥h²q, ¤Ó²Ö¤S¥i¯à¥X¿ù!!

¹º®Ø¦³¥X¿ù, ¬O¦]"¦X¨Ö®æ"®É, ¦³¨Ç¹º®Ø«ü¥OµLªk°õ¦æ,
©Ò¥H, °õ¦æµ{¦¡«e, ¥²¶·¥ý±N¦X¨Ö®æ¸Ñ°£, ¥B±N®Ø½u²M°£~~

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD