ªð¦^¦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
¹Ï2

¹Ï3

¹Ï4

ªþÀÉ
°ÝÃ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
ÁÂÁÂ




ªþÀɦ³§¹¾ãµ{¦¡½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

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

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

½s¿è«e
(¦p¦³¸ê®Æ)

ªÅ¥Õªº(¦pµL¸ê®Æ)


½s¿è¶}©l("½s¿è"µ{¦¡½X)
·|¥ý§R°£°£¤F²Ä¤@­¶¥H¥~ªº¼ÐÃD¦C
¿é¤J¸ê®Æ


½s¿è§¹¦¨("§¹¦¨"µ{¦¡½X)
·|±q23¦C¶}©l´¡¤J12¦C(¦]¬°¤@­¶´N¬O23¦C)
¦A½Æ»s1~11¦Cªº¸ê®Æ¶K¤W
¦A°õ¦æ"­¶½X"µ{¦¡
µM«á¦X¨Ö¬Û¦P½s¸¹ªº»sµ{¼ÐÃDÄæ


¦ý¬O­nª`·N¨Ò¦p»sµ{P4¸ó­¶¤F
¨º²Ä¤G­¶¤]­n¦³"P4","¥ú¾Ç¤ÀÀË"

TOP

¦^´_ 8# s13030029

¦³ÂI³Â·Ð, µ¹§A¤À¤T¬q¼g:
°ÝÃD_v02.rar (25.14 KB)

§Úªºµ{¦¡½X, ¤@¯ë­è±µÄ²VBAªº¤£¤Ó®e©ö²z¸Ñ, »Ý­n¦hªá¨Ç®É¶¡

TOP

¦^´_ 9# ­ã´£³¡ªL
ÁÂÁ­ã¤j~
¥Ø«e¥Î°_¨Ó¨S°ÝÃD
¤£¹Lµ{¦¡¦³«Ü¦hºÃ°ÝXD
¹Ï¤¤³o­ÓxU¬O«ç»ò­pºâªº
¬°¬Æ»ò¤@­ÓxU´N¥i¥H§R°£¨º»ò¦h­¶ªº¼ÐÃD¦C

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD