[Excel] Разница таблиц

Discussion in 'Болталка' started by zlo12, 19 Sep 2012.

  1. zlo12

    zlo12 Elder - Старейшина

    Joined:
    28 Dec 2007
    Messages:
    535
    Likes Received:
    135
    Reputations:
    34
    Таки есть эксель. Есть к нему 2 таблицы. Они одинаковые по строению, но разные по цифрам в 2х столбиках.
    Можно ли как-нибудь заставить эксель сравнить таблицы и выделить изменения в бОльшую сторону одним цветом, меньшим- другим, а неизменённые не трогать?
     
  2. InfectedM

    InfectedM Elder - Старейшина

    Joined:
    4 Nov 2007
    Messages:
    155
    Likes Received:
    12
    Reputations:
    0
    Рабочий говно код:

    Code:
    Sub уу()
         Dim ckl As Long
         For ckl = 1 To 20
         If (Sheets("Лист1").Cells(ckl, 2).Value > Sheets("Лист1").Cells(ckl, 1).Value) Then
        Sheets("Лист1").Cells(ckl, 2).Select
          With Selection.Interior
            .Color = 65535
        End With
         End If
         
          If (Sheets("Лист1").Cells(ckl, 2).Value < Sheets("Лист1").Cells(ckl, 1).Value) Then
        Sheets("Лист1").Cells(ckl, 2).Select
          With Selection.Interior
            .Color = 65111
        End With
         End If
         Next ckl
     
    End Sub
    

    [​IMG]
     
    #2 InfectedM, 19 Sep 2012
    Last edited: 19 Sep 2012