«æ!!! "µLªk³]©wºØÃþBorderªºLineStyleÄÝ©Ê"
- ©«¤l
- 97
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-5-7
- ³Ì«áµn¿ý
- 2022-8-25
|
«æ!!! "µ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
¹Ï2
¹Ï3
¹Ï3
¹Ï4
¹Ï4
ªþÀÉ
°ÝÃD.rar (24.91 KB)
|
|
|
|
|
|
|
- ©«¤l
- 2729
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2785
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2023-12-10
|
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 |
|
|
|
|
|
|
- ©«¤l
- 97
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-5-7
- ³Ì«áµn¿ý
- 2022-8-25
|
¥»©«³Ì«á¥Ñ 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«ç»ò¥Îªº¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 97
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-5-7
- ³Ì«áµn¿ý
- 2022-8-25
|
¥»©«³Ì«á¥Ñ 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)
|
|
|
|
|
|
|
- ©«¤l
- 97
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-5-7
- ³Ì«áµn¿ý
- 2022-8-25
|
¦^´_ 4# s13030029
¦]¬°§Ú¤§«eªº·Qªk¬O¥ý°µ¦n¼ÐÃD¦C¸ò¤À¶«á
¦A¨Ó°µ¦X¨ÖÀx¦s®æªº°Ê§@
¦ý¬O²{¦b§Ú·Qn¥ý¦X¨Ö«á¦A¤À¶
¤@¶³£¬O23¦C
ÁöµM»¡³o¨âºØ¤èªkªº®Ø½u³£·|¥X¿ù |
|
|
|
|
|
|
- ©«¤l
- 2729
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2785
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2023-12-10
|
¦^´_ 3# s13030029
±N½s½X"2-4", ¤À¦¨2¤Î4
RR=SPLIT("2-4","-")
RR(0)=2
RR(1)=4 |
|
|
|
|
|
|
- ©«¤l
- 2729
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2785
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2023-12-10
|
¥»©«³Ì«á¥Ñ ã´£³¡ª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°£~~ |
|
|
|
|
|
|