Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: ВЫЯВИТЬ ИДЕНТИЧНЫЕ ЯЧЕЙКИ В ДИ-ЗОНЕ C6 : C19 Добавлено: 23.01.06 15:27  

Автор вопроса:  SLAVA

Ответить

  Ответы Всего ответов: 30  

Номер ответа: 16
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #16 		Добавлено: 25.01.06 16:34
GeorgeGA, тебе тоже прислали письмо счастья? :) Там всё не по-русски (что за язык?), ещё столько листов.. Я не написал ответ, тода времени не было. А сейчас уже поздно.

Ответить

Номер ответа: 17
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #17 Добавлено: 25.01.06 17:07
mc-black
Последнее время их много приходит,к сожалению и на мобилку:(Как говориться, за счастье надо платить:)

Ответить

Номер ответа: 18
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #18 		Добавлено: 25.01.06 18:33
к сожалению и на мобилку


ГЫ :)))))))))))

Для всех: там в письме аттачмент был больше 2M, а я на диалапе, мне оно пришло на оба ящика. первое письмо из любопытства я посмотрел..

Ответить

Номер ответа: 19
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #19 Добавлено: 25.01.06 18:46
:)))))))))))))))))))))))))))))))
дорого же тебе любопытство выйдет:)

Ответить

Номер ответа: 20
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #20 Добавлено: 25.01.06 18:54
да ещё и медленно:)

Ответить

Номер ответа: 21
Автор ответа:
 SLAVA



Вопросов: 8
Ответов: 22
  Профиль | | #21 Добавлено: 26.01.06 22:38

1.МНЕ НУЖНО ЧТОБ СРАВНИВАЛА ТОЛЬКО ЗНАЧЕНИЯ(ТЕКСТ) А ПУСТЫЕ ЯЧЕЙКИ ОНА НЕ СРАВНИВАЛА.ТУТ ТИПА ТАК ЕСЛИ НЕТ ПОВТОРЕНИЙ ЗНАЧЕНИЙ ТОГДА НАЧИНАЕТСЯ ПРОЦЕС ПОСЛЕ ELSE,НО УСЛИ ЕСТЬ ПОВТОР ТО КОД ПОДКЛЮЧАЕТСЯ ПОСЛЕ Then И ПОКАЗЫВАЕТ ПОВТОРЫ.НО ЗДЕСЬ СРАВНИВАЮТСЯ И ПУСТЫЕ ЯЧЕЙКИ ЕСЛИ ОНИ ЕСТЬ, А ЗНАЧИТ ПОВТОР.



Sub (SPASIBO)
For b = 1 To 14
For a = 1 To 14 - b
If Range("c" & 5 + b) = Range("c" & 5 + b + a) Then
Range("c" & 5 + b + a).Font.Color = RGB(250, 0, 0)
Else
Sheets("LIST1";).Select
    Range("C1:I19";).Select
    Selection.Copy
    Sheets("0";).Select
    Range("A3";).Select
    ActiveSheet.Paste
    Range("G4:G5";).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("LIST1";).Select
    Range(";D1:F1,I1,C2,C6:C19,G6:G19";).Select
    Selection.ClearContents
    Range("C2";).Select
End If
Next
Next
End Sub

Ответить

Номер ответа: 22
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #22 Добавлено: 27.01.06 15:45
SLAVA
тогда здесь не совсем правильно и ты делаешь лишние операции.Сейчас исправлю:)

Ответить

Номер ответа: 23
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #23 Добавлено: 27.01.06 15:51
SLAVA
МНЕ НУЖНО ЧТОБ СРАВНИВАЛА ТОЛЬКО ЗНАЧЕНИЯ(ТЕКСТ) А ПУСТЫЕ ЯЧЕЙКИ ОНА НЕ СРАВНИВАЛА

В случае повтора текста она выдаст об этом сообщение,если же повторов нет, то ELSE :)
Sub gracious()
Dim Ret As Boolean
For b = 1 To 14
For a = 1 To 14 - b
If Range("c" & 5 + b) = Range("c" & 5 + b + a) And Len(Range("c" & 5 + b + a)) > 0 Then
Range("c" & 5 + b + a).Font.Color = RGB(250, 0, 0)
Ret = True
End If
Next
Next
If Ret = True Then
MsgBox "Были повторения"
Else
Sheets("LIST1";).Activate
Range("C1:I19";).Select
Selection.Copy
Sheets("0";).Range("A3";).Select
ActiveSheet.Paste
Range("G4:G5";).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("LIST1";).Select Range(";D1:F1,I1,C2,C6:C19,G6:G19";).Select
Selection.ClearContents Range("C2";).Select
End If
End Sub

Ответить

Номер ответа: 24
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #24 Добавлено: 27.01.06 16:00
SLAVA
Т.к ты только начал программировать,то пояснение,думаю, тебе пригодится:)
Твою процедуру копирования,я перенёс потому,что она срабатывала каждый раз,т.е.если сравниваемые ячейки разные, то она у тебя делала копирование,даже если ранее были повторения, в итоге теряется смысл поиска одинаковых ячеек,а если тебе надо просто скопировать с выделением повторений, то оставь как было у тебя, только вместо
If Range("c" & 5 + b) = Range("c" & 5 + b + a) Then

напиши
If Range("c" & 5 + b) = Range("c" & 5 + b + a) And Len(Range("c" & 5 + b + a)) > 0 Then

и всё в принципе

Ответить

Номер ответа: 25
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #25 Добавлено: 27.01.06 16:03
чуть не забыл, если хочешь не забивать каждый раз буфер,то просто убери проверку на повторение
If Ret = True Then...

Ответить

Номер ответа: 26
Автор ответа:
 SLAVA



Вопросов: 8
Ответов: 22
  Профиль | | #26 Добавлено: 27.01.06 23:38

tut sravnivaiutsea i pustie iaceichi, kotorie toje privodeat k povtoru. esli mojmo kakto ctobi ona sravnivala toliko text v iaceikah, a pustie iaceiki ne vliali na povtor? esli net povtora to po moemu zamislu doljna srabotati macros posle "else", no tak kak sravnivaiutsea i pustie iaceiki cto privodit k povtoru programa ne spavleatsea s etoi zadacei

Sub Foryou()
For j = 1 To 14
For i = 1 To 14 - j
If Range("c" & 5 + j) = Range("c" & 5 + j + i) Then
Range("c" & 5 + j + i).Font.Color = RGB(255, 0, 0)
else
Sheets("list";).Select
    Range("C1:I19";).Select
    Selection.Copy
    Sheets("0";).Select
    Range("A3";).Select
    ActiveSheet.Paste
    Range("G4:G5";).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("list";).Select
    Range(";D1:F1,I1,C2,C6:C19,G6:G19";).Select
    Selection.ClearContents
    Range("C2";).Select
End If
Next
Next
End Sub

Ответить

Номер ответа: 27
Автор ответа:
 SLAVA



Вопросов: 8
Ответов: 22
  Профиль | | #27 Добавлено: 27.01.06 23:54
все работает отлично spasibo za pomosh, poveri ona velika!

Ответить

Номер ответа: 28
Автор ответа:
 SLAVA



Вопросов: 8
Ответов: 22
  Профиль | | #28 Добавлено: 27.01.06 23:59

ну просто не слов ты первый за две недели кто откликнулся на мою проблему! и помог на все 100%

Ответить

Номер ответа: 29
Автор ответа:
 SLAVA



Вопросов: 8
Ответов: 22
  Профиль | | #29 Добавлено: 28.01.06 00:11

100% - СУПЕР
НЕ ОЖИДАЛ

Ответить

Номер ответа: 30
Автор ответа:
 GeorgeGA



Вопросов: 1
Ответов: 101
  Профиль | | #30 Добавлено: 30.01.06 15:05
Я рад,что помог тебе:)
Желаю удачи,в познании программирования!:)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам