VPF::Маленький скрипт для excel, HELP - Форум программистов

Aelora

Дата 2.10.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Помогите!

Как в редакторе VB в Excel написать такую вещь:

Есть выделенный диапазон ячеек (я могу выделить диапазон в люом месте листа...)

Для каждой ячейки (
если ячейка пуста, удалить всю СТРОКУ
)

Как это написать в VB?!!

ИгнатьевАлексей

Дата 2.10.2006, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3

Вообще-то тут так не принято....ну да ладно, от нечего делать, напишу....

Цитата

Для каждой ячейки (
если ячейка пуста, удалить всю СТРОКУ
)

Вот тут я не понял! Какую строку? Может весь диапазон?

--------------------

Vingrad - FOREVER !!!

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

Aelora

Дата 2.10.2006, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Цитата(ИгнатьевАлексей @ 2.10.2006, 11:12

)

Вот тут я не понял! Какую строку? Может весь диапазон?

Удалить строку, к которой относится эта ячейка.
Ну, если очень сложно, можно и просто диапазон...

ИгнатьевАлексей

Дата 2.10.2006, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3

Лови! Вроде так, если я правильно понял задачу....

Код


Option Explicit

Sub EmptyStrDelete()

Dim column_1_Number As Integer
Dim column_2_Number As Integer
Dim row_1_Number As Integer
Dim row_2_Number As Integer
Dim n As Integer
Dim m As Integer

column_1_Number = Selection.Column
column_2_Number = Selection.Column + (Selection.Columns.Count - 1)
row_1_Number = Selection.Row
row_2_Number = Selection.Row + (Selection.Rows.Count - 1)


For n = row_1_Number To row_2_Number
  For m = column_1_Number To column_2_Number
    If Cells(n, m) = "" Then
       Range(Cells(n, column_1_Number), Cells(n, column_2_Number)) = ""
       Exit For
    End If
  Next
Next

End Sub

Но заняться изучением VBA настоятельно рекомендую smile

--------------------

Vingrad - FOREVER !!!

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »