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

[µo°Ý] ¦p¦ó¦b¤£¦P°Ï¶¡¤º¼Ð¥Ü³Ì¤p­È?

[µo°Ý] ¦p¦ó¦b¤£¦P°Ï¶¡¤º¼Ð¥Ü³Ì¤p­È?

ªþÀɪº¸ê®Æ¬O¨Ì¬Û¦P³W®æ¥h°µ¤À²Õ
§Ú·Q¦A¤À²Õ¤º¤ñ¸û5~8¤ë­þ¤@­Ó¥æ©ö»ù®æ³Ì§C
©T©w°Ï¶¡¤ºªº¤ñ¸û®e©ö°µ¨ì¦ý¬O¤£¦P°Ï¶¡·Q¤£¨ì¤èªk
½Ð°Ý¦³¤Hª¾¹D¦p¦ó§@¶Ü?

³Ì¤p»P³Ì¤j¬Û¦P§Ú¬O¥Î¥t¤@­ÓÃC¦â¼Ð¥Ü





½d³ò¤º¤ñ¸û.rar (68.72 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 1# freeffly
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Single, r As String, xMin As Double, xMax As Double
  4.     Cells.Interior.ColorIndex = xlNone
  5.     i = 2
  6.     r = i
  7.     Do While Cells(i, "a") <> ""
  8.         If Cells(i, "a") <> Cells(i + 1, "a") Then
  9.             With Rows(r & ":" & i)
  10.                 xMin = Application.Min(.Cells)
  11.                 xMax = Application.Max(.Cells)
  12.                 .Cells.Replace xMin, "=err", xlWhole
  13.                 With .SpecialCells(xlCellTypeFormulas, xlErrors)
  14.                     .Cells = xMin
  15.                     .Interior.ColorIndex = IIf(xMin <> xMax, 38, 34)
  16.                 End With
  17.                 If xMin <> xMax Then
  18.                     .Cells.Replace xMax, "=err", xlWhole
  19.                     With .SpecialCells(xlCellTypeFormulas, xlErrors)
  20.                         .Cells = xMax
  21.                         .Interior.ColorIndex = 8
  22.                     End With
  23.                 End If
  24.             End With
  25.             r = i + 1
  26.         End If
  27.         i = i + 1
  28.     Loop
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ªO¤j¥i¥H³á¡AÁöµM§Ú¥u­n³Ì¤p­È¡A¦ý¬O§A³s³Ì¤j­È¤]µ¹¤F
      ¦³¤@­Ó°ÝÃD¦pªG§Ú¤£·Q¬Ý1-8¤ë§Ú¥u·Q¬Ý«á­±´X¦U¤ë¦³¿ìªk«ü©w¶Ü?
    ¬O±qcells³oÃä§ï¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 2# GBKEE


    ¸ò­ì©lÀɮפ@¼Ë¡A¤@¶}©l§Ú¼g·Q­n¬Ý5-8¤ëªº°Ï¶¡¡A¤£¹Lª©¥Dª½±µ°w¹ï¥þ³¡°µ¤ñ¸û
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 4# freeffly
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Single, r As String, xMin As Double, xMax As Double
  4.     Cells.Interior.ColorIndex = xlNone
  5.     i = 2
  6.     r = i
  7.     Do While Cells(i, "a") <> ""
  8.         If Cells(i, "a") <> Cells(i + 1, "a") Then
  9.             With Range("A" & r & ":" & "A" & i).Offset(, 5).Resize(, 4)
  10.               'Offset(, 5) =>AÄæ¨ì5¤ëªºÄæ¼Æ(FÄæ)
  11.               'Resize(, 4) =>4Äæ (5¤ë-8¤ë )
  12.                 xMin = Application.Min(.Cells)
  13.                 xMax = Application.Max(.Cells)
  14.                 If xMin <> 0 And xMax <> 0 Then
  15.                     .Cells.Replace xMin, "=err", xlWhole
  16.                     With .SpecialCells(xlCellTypeFormulas, xlErrors)
  17.                         .Cells = xMin
  18.                         .Interior.ColorIndex = IIf(xMin <> xMax, 38, 34)
  19.                     End With
  20.                     If xMin <> xMax Then
  21.                         .Cells.Replace xMax, "=err", xlWhole
  22.                         With .SpecialCells(xlCellTypeFormulas, xlErrors)
  23.                             .Cells = xMax
  24.                             .Interior.ColorIndex = 8
  25.                         End With
  26.                     End If
  27.                 End If
  28.             End With
  29.             r = i + 1
  30.         End If
  31.         i = i + 1
  32.     Loop
  33. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


    ©êºp²{¦b¤~¬Ý
       ªO¥Dªº¤è¦¡¥i¥H
       ­ì¨Ó¬O¦b¤@¶}©lªº½d³ò¨ºÃä°µ³]©w³á
       §Ú·Q¿ù¤è¦V¤F
      ÁÂÁÂ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD