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

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

¦^´_ 7# GBKEE


    ·PÁªO¤jªº¨ó§U
  ²Ä¤E¦æ³o¤@¬q
  1. If UBound(sp) >= 2 Then
½Æ»s¥N½X
§ï¦¨³o¤@¬q´N¥i¥H§¹¦¨¤F !!! ¦A¦¸·PÁÂ~~

TOP

¦^´_  v03586
Hsieh µoªí©ó 2017-8-2 14:53



    ·PÁªO¤jªº´£¨Ñ¥t¤@ºØ¤è¦¡, ¹ï©óµe½uªº¤è¦¡, ¤S¾Ç¨ì¤@©ÛªO¤jªº¤è¦¡¼¶¼g

TOP

¦^´_ 8# Kubi


    ·PÁ¤j¤jªº´£¨Ñ !!

TOP

Sub test()
Dim xR As Range, xH As Range
For Each xR In [H2:H19]
¡@¡@If xH Is Nothing Then xR = Split(Replace(xR, "-", "+", , 2), "+")(2): Set xH = xR
¡@¡@If xR(2) <> "" Then xR(2) = Split(Replace(xR(2), "-", "+", , 2), "+")(2)
¡@¡@If xR(2) <> xR Then
¡@¡@¡@¡@With Range(xR, xH)
¡@¡@¡@¡@¡@¡@¡@.Borders.Weight = 3
¡@¡@¡@¡@¡@¡@¡@If .Count > 1 Then .Borders(12).Weight = 2
¡@¡@¡@¡@End With
¡@¡@¡@¡@Set xH = xR(2)
¡@¡@End If
Next
End Sub
¡@
¡@

TOP

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

½Ð°Ý¤@¤U, §Ú¦³¨Ì·Ó§ÚªºÃB¥~»Ý¨D°µ¤F¤@¨Ç¤p­×§ï, ·Q½Ð°Ý¤@¤U
¦pªG§Ú­n§PÂ_µe½uªº¸ê®ÆÄæ¦ì¦bDÄæ¦ì ,  §Ú¦p¦ó­×§ïÅý¥Lºâ¾ãµ§¸ê®Æªº³Ì«á¤@Äæ ??
¬O¥[¤J¤U­±³o¤@¬q¶Ü???
  1. .Range("D65536").End(xlUp).Row To 2 Step -1
½Æ»s¥N½X
¦A¨Ó§Ú­nµe½uªº½d³ò¬OA2Äæ¨ìAD2Äæ
  1. Dim xR As Range, xH As Range
  2. For Each xR In [D2:D3000]
  3.     If xH Is Nothing Then Set xH = xR
  4.     If xR(2) <> xR Then
  5.         With Range(xR, xH)
  6.               .Borders.Weight = 4
  7.               If .Count > 1 Then .Borders(12).Weight = 2
  8.         End With
  9.         Set xH = xR(2)
  10.     End If
  11. 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

¦^´_ 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
Q3.png
2017-8-6 15:43

TOP

¦^´_ 17# v03586


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

TOP

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


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


TEST2.rar (65.2 KB)

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

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD