Работа с excel ячейками / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с excel ячейками

8 сообщений из 8, страница 1 из 1

Работа с excel ячейками

#38116821

Техник55

Гость

Мне нужно, чтобы если строка с A по J пустая,то удалять ее.
Такой код написал:

Код: vbnet

1.
2.
3.
4.
5.
6.

Dim M
For M = 10 To xlsWb1.Worksheets("Лист1").Cells(10, 1).End(-4121).Row
If xlsWb1.Worksheets("Лист1").Cells(M, 1) = "" And xlsWb1.Worksheets("Лист1").Cells(M, 10) = "" Then
xlsWb1.Worksheets("Лист1").Rows(M).Delete
End If
Next M

Тут я правда проверяю одновремено первую и десятую ячейку ну этого достаточно я думаю.
Вопрос в чем находит и удаляет первую строку, а дальше таблицу не обрабатывает?!

...

Рейтинг:

0 / 0

20.01.2013, 13:19

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38116844

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Техник55,

Проходите в цикле не с начала таблицы, а с конца, тогда и удалять будет корректно

...

Рейтинг:

0 / 0

20.01.2013, 14:25

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38116925

Техник55

Гость

VSVLAD, таблица разная бывает, строку конкретно не могу указать откуда начать. Ну в принципе можно с хорошим запасом взять и все!
А как мне прописать чтобы снизу вверх удалять строки?

Код: vbnet

M = 150 To xlsWb1.Worksheets("Лист1").Cells(150, 1).Row

...

Рейтинг:

0 / 0

20.01.2013, 17:11

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38116927

Техник55

Гость

Ошибся:
M = 150 To xlsWb1.Worksheets("Лист1").Cells(10, 1).Row

...

Рейтинг:

0 / 0

20.01.2013, 17:12

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38116932

Техник55

Гость

Все спасибо разобрался, шаг не указал

Код: vbnet

M = 150 To xlsWb1.Worksheets("Лист1").Cells(10, 1).Row step -1

...

Рейтинг:

0 / 0

20.01.2013, 17:20

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38117072

Техник55

Гость

как сделать чтобы нужный лист стоял в книге стоял на первом месте (внизу где идет переключение листов)???
Смотрел в макросах:

Код: vbnet

sheets("Отчет").Move Before:=Sheets(1)

Поправил у себя:

Код: vbnet

xlssh1.Move Before:=Sheets(1)

Выбает ошибку при загрузке DLL

...

Рейтинг:

0 / 0

20.01.2013, 21:06

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38117359

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Техник55,

в 2007 SP2 всё работает. Только при чём тут ошибка про загрузку DLL... Сделайте минимальный проект, где ошибка проявляется и выложите

...

Рейтинг:

0 / 0

21.01.2013, 09:12

| Ответить | Цитировать | Написать

Работа с excel ячейками

#38117741

Техник55

Гость

Код: vbnet

xlssh1.Move Before:=xlswb.Sheets(1)

так работает

...

Рейтинг:

0 / 0

21.01.2013, 12:19

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с excel ячейками

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=report9i&author_mode=last_topics&do_search=1]:	0ms
get settings:	8ms
get forum list:	13ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	152ms
get topic data:	12ms
get forum data:	3ms
get page messages:	49ms
get tp. blocked users:	1ms
others:	495ms

total:	762ms