ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление столбцов с помощью макроса
8 сообщений из 33, страница 2 из 2
  2  все
Удаление столбцов с помощью макроса
    #34759210
dimasusis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasusis
Гость
dimasusis Deggasad1) Опять пардон
Вместо
Код: plaintext
 For Each R In  ws.Range("B2", ws.Range("B2:IV2").End(xlToLeft))
вот это
Код: plaintext
  For Each R In ws.Range("B2", ws.Range("IV2").End(xlToLeft))


2) Я там написал, что имена месяцав в макросе обязательно указывать в верхнем регистре, т.е. заглавными буквами, например, СЕНТЯБРЬ

Спасибо!

СПАСИБОтебе большое!!!Всё работает!!С меня причитается!!!!
...
Рейтинг: 0 / 0
28.08.2007, 17:55:08
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34759211
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
Deggasad
а ты не мог бы дать свою аську, просто у меня частенько возникают вопросы по поводу VBA, приходится гуглить, искать... пробовать десятки вариантов... а решение бывает на поверхности..
я вижу ты всегда тут всем стараешься помочь..
обещаю доставать не буду! Чесна :)
...
Рейтинг: 0 / 0
28.08.2007, 17:55:16
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34759254
dimasusis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasusis
Гость
Deggasad1) Опять пардон
Вместо
Код: plaintext
 For Each R In  ws.Range("B2", ws.Range("B2:IV2").End(xlToLeft))
вот это
Код: plaintext
  For Each R In ws.Range("B2", ws.Range("IV2").End(xlToLeft))


2) Я там написал, что имена месяцав в макросе обязательно указывать в верхнем регистре, т.е. заглавными буквами, например, СЕНТЯБРЬ

У меня к тебе вот ещё вопрос.Хочется чтобы с помощью макроса,в определённыю ячейку,в нескольких листах,прописывалась опредённое слово.Не подскажешь как?
...
Рейтинг: 0 / 0
28.08.2007, 18:07:50
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34759277
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
Код: plaintext
1.
2.
3.
4.
x = "твой слово"
Sheets("sheet1").Activate
Cells( 1 ,  1 ).Value = x 'адрес определённой ячейки в данном случае A1
Sheets("sheet2").Activate
Cells( 1 ,  1 ).Value = x
...
Рейтинг: 0 / 0
28.08.2007, 18:14:14
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34761286
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Для определённых листов
Код: plaintext
1.
2.
3.
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets(Array("Лист1", "Лист2"))
     ws.Range("A2").Value = "СЛОВО"
    Next ws

Для всех листов
Код: plaintext
1.
2.
3.
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
     ws.Range("A2").Value = "СЛОВО"
    Next ws
...
Рейтинг: 0 / 0
29.08.2007, 13:31:08
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34761324
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
2Rampage
нету аськи
сейчас даже интернет на работе лимитирован (лимит обычно числу к 15 заканчивается)
А дома только с мобильника - дорого и медленно (так форум разве что почитать). Можно конечно кабель кинуть, но я там почти не бываю (всмысле дома).
А на работе аська не положена.


Так что:
- не обижайтесь кому не ответил
- архивируйте файлы
- картинки тоже можно похуже качеством делать, к чему такие большие

Это конечно всё шутка, но в каждой шутке - есть доля шутки, а всё остальное ...
...
Рейтинг: 0 / 0
29.08.2007, 13:38:37
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34761470
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
Deggasad

ладно ) спасиб что хоть тут на фоурме лазишь) буду ждать твоих ответов тогда тут на форууме))
...
Рейтинг: 0 / 0
29.08.2007, 14:08:50
| Ответить | Цитировать | Написать  
Удаление столбцов с помощью макроса
    #34764205
dimasusis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasusis
Гость
Deggasad 2Rampage
нету аськи
сейчас даже интернет на работе лимитирован (лимит обычно числу к 15 заканчивается)
А дома только с мобильника - дорого и медленно (так форум разве что почитать). Можно конечно кабель кинуть, но я там почти не бываю (всмысле дома).
А на работе аська не положена.


Так что:
- не обижайтесь кому не ответил
- архивируйте файлы
- картинки тоже можно похуже качеством делать, к чему такие большие

Это конечно всё шутка, но в каждой шутке - есть доля шутки, а всё остальное ...

Я к тебе ещё с вопросом.А можно названия месяца,которое мы задаём в строке If UCase(R.Value) <> "СЕНТЯБРЬ" Then определить как переменную,которая задаётся в начале макроса и будет использовано в других строках макроса.Чтобы не менять её в нескольких местах,а всего в одном
...
Рейтинг: 0 / 0
30.08.2007, 12:36:05
| Ответить | Цитировать | Написать  
8 сообщений из 33, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление столбцов с помощью макроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34761324&tid=2182375]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 227ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


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