ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Можно ли в Excel создать макрос чтоб...
9 сообщений из 9, страница 1 из 1
Можно ли в Excel создать макрос чтоб...
    #36411618
Фотография A_Cross
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A_Cross
Участник
С макросами несилен по-этому прошу помощи у гуру и несовсем этого дела.


Есть масив данных типа
ABCDEFGHIJ10 10.05.2009tkr 10.05.2009ytk 34335615.07.2009ibh 17.02.2009tkr 12.05.200925 22155511.05.2009dghffhg2526.12.2009hgdjhg2515

все значения полей - текстовые/

Задача :
для ячеек значение которых "tkr" и "ytk" присвоить null-ое значение и для ячеек которые находятся сними левее тойже строки также присвоить null-ое значение. т.е.
необходимо получить следующий масив данных
ABCDEFGHIJ10 34335615.07.2009ibh 12.05.200925 22155511.05.2009dghffhg2526.12.2009hgdjhg2515
...
Рейтинг: 0 / 0
15.01.2010, 11:03
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36411880
DaniilK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DaniilK
Участник
формулами устроит?
...
Рейтинг: 0 / 0
15.01.2010, 12:23
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36411961
Фотография A_Cross
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A_Cross
Участник
DaniilK,

несовсем. Масив данных очень большой. порядком 84 столбца и до 6-12 тис.строк.

у меня получилось вот что:

Cells.Find(What:="ytk", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.ClearContents
Range("AG375").Select -- как здесь указать значение левой ячейки от найденого?
Selection.ClearContents
Range("AG376").Select
-- как сделать цикл поиска и очистки
...
Рейтинг: 0 / 0
15.01.2010, 12:42
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36412052
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Времени мало, на для затравки - поиск с циклом по одному значению (т.е. ищет все совпадения)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub tt()
Dim temp$
temp = "ytk"

Set X = Sheets( 1 ).UsedRange.Find(temp, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

If Not X Is Nothing Then

    iFirstAddress = X.Address
            
    Do
        Set X = Sheets( 1 ).Cells.FindNext(X)
        Debug.Print X.Address ' для проверки
    Loop While Not X Is Nothing And X.Address <> iFirstAddress
    
End If

End Sub
...
Рейтинг: 0 / 0
15.01.2010, 13:05
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36412069
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
С левым значением:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub tt()
Dim temp$
temp = "ytk"

Set X = Sheets( 1 ).UsedRange.Find(temp, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

If Not X Is Nothing Then

    iFirstAddress = X.Address
            
    Do
        Set X = Sheets( 1 ).Cells.FindNext(X)
        Debug.Print X.Address ' для проверки
        Debug.Print X.Offset( 0 , - 1 )
        Debug.Print X.Offset( 0 , - 1 ).Address
    Loop While Not X Is Nothing And X.Address <> iFirstAddress
    
End If

End Sub
...
Рейтинг: 0 / 0
15.01.2010, 13:09
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36412101
Фотография A_Cross
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A_Cross
Участник
Hugo121С левым значением:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub tt()
Dim temp$
temp = "ytk"

Set X = Sheets( 1 ).UsedRange.Find(temp, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

If Not X Is Nothing Then

    iFirstAddress = X.Address
            
    Do
        Set X = Sheets( 1 ).Cells.FindNext(X)
        Debug.Print X.Address ' для проверки
        Debug.Print X.Offset( 0 , - 1 )
        Debug.Print X.Offset( 0 , - 1 ).Address
    Loop While Not X Is Nothing And X.Address <> iFirstAddress
    
End If

End Sub

что-то ничего не происходит. Наверно забыл учточнить что Excel 2007. Это имеет большое значение?
...
Рейтинг: 0 / 0
15.01.2010, 13:19
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36412129
DaniilK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DaniilK
Участник
эта простая формула спокойно отработает на массиве указанного размера )
...
Рейтинг: 0 / 0
15.01.2010, 13:27
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36412153
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Excel 2007 - вроде не должно. Вот у меня на 2000 не проходит SearchFormat:=False, поэтому подсократил.
ничего не происходит - ну в таблице ничего и не должно. Debug.Print X.Address ' для проверки - это в редакторе в окно выводится. Тут ещё дорабатывать надо. Адреса получишь, можно вместо
Debug.Print X.Offset(0, -1) написать X.Offset(0, -1) = "" - вот тогда в таблице сотрётся.
...
Рейтинг: 0 / 0
15.01.2010, 13:33
| Ответить | Цитировать | Написать  
Можно ли в Excel создать макрос чтоб...
    #36412335
Фотография A_Cross
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A_Cross
Участник
Hugo121,

да, ты прав Все работает. Спачибо.
...
Рейтинг: 0 / 0
15.01.2010, 14:23
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Можно ли в Excel создать макрос чтоб...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36412101&tid=2178609]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 175ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 287ms
total:  567ms
созд. / загр.: 567ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]