Премини към съдържанието

Препоръчан отговор


Имам 4 колони и искам колона D да се сравява с колона M, а колона E да се сравнява с колона N И ако има еднакви числа да се нулират и всичко да се случва с едно кликане на бутонче в Excel,  но немога да обединя кода. Този със сигурност не работи, по отделно работят но незнам как да ги обединя в едно. Бихте ли ми помогнали?

 

Dim x As Range, y As Range, z As Range, q As Range, de As Range

Set x = Range("D1:D20")
Set y = Range("N1:N20")
Set q = Range("E1:E20")
Set z = Range("M1:M20")
Set de = Range("D1:E20")
de.Select
For Each x In Range("D1:D20")
    For Each y In Range("N1:N20")
        For Each z In Range("E1:E20")
            For Each q In Range("M1:M20")
        If x.Value = y.Value Then
            x.Value = 0
            y.Value = 0
        End If
        
         If z.Value = q.Value Then
            z.Value = 0
            q.Value = 0
        End If
        
            Next q
        Next z
    Next y
Next x

Редактирано от ExaFlop (преглед на промените)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Ами помисли малко.

Защо всички цикли са вложени един в друг. Правиш проверките една след друга, две по две, но първо единия, после другия.

И защо е това задаване на стойности на Range в началото, а de поне за момента е излишно, а z и q също.

Dim x As Range, y As Range
For Each x In Range("D1:D20")
   For Each y In Range("M1:M20")
        If x.Value = y.Value Then
            x.Value = 0
            y.Value = 0
        End If
 next y
next x


 For Each x In Range("E1:E20")
  For Each y In Range("N1:N20")   
      If x.Value = y.Value Then
        x.Value = 0
        y.Value = 0
      End If
   Next q
 Next z
 

Редактирано от TRN (преглед на промените)
  • Харесва ми 2

Сподели този отговор


Линк към този отговор
Сподели в други сайтове
на 15.05.2017 г. в 8:43, TRN написа:

Ами помисли малко.

Защо всички цикли са вложени един в друг. Правиш проверките една след друга, две по две, но първо единия, после другия.

И защо е това задаване на стойности на Range в началото, а de поне за момента е излишно, а z и q също.

Dim x As Range, y As Range
For Each x In Range("D1:D20")
   For Each y In Range("M1:M20")
        If x.Value = y.Value Then
            x.Value = 0
            y.Value = 0
        End If
 next y
next x


 For Each x In Range("E1:E20")
  For Each y In Range("N1:N20")   
      If x.Value = y.Value Then
        x.Value = 0
        y.Value = 0
      End If
   Next q
 Next z
 

Благодаря много. Не съм писала на Visual Basic, а трябва да направя това и съвсем набързо попрочетох, но ми е трудно. Благодаря, че има хора като вас, които помагат!

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.