Здравствуйте все. Не знает ли кто из экспертов как в Excele сделать следующий финт, в таблице есть итоговый столбец, в нём есть значения всякие и есть ячейки с нулями, так вот как можно сделать чтобы на новый лист автоматом скопировались только строки, в которых ячейка в этом столбце не нулевая. Я так думаю что кроме как на встроенном VB этого больше никак не сделать. А вот в нём то я не силён. Не уверен что Basic/VBA это оно и есть, но может кто знает решение. Спасибо.
Добрый день, Макс! 'копирует только те строки, в итоговом столбце _ которых ячейка не равна нулю... Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim str, st 1: st = InputBox("Ввод номера итогового столбца") If st = "" Or Val(st) < 0 Then GoTo 1 st = Val(st) Do str = str + 1 Loop Until ActiveWorkbook.Sheets(2).Cells(str, st) = "" str = str - 1 For i = 1 To str For j = 1 To st If Val(ActiveWorkbook.Sheets(2).Cells(i, st)) <> 0 Then ActiveWorkbook.Sheets(1).Cells(i, j) = _ ActiveWorkbook.Sheets(2).Cells(i, j) End If Next j Next i End Sub 'Код должен быть расположен в объекте "Эта Книга" Ответ отправлен: 11.06.2003, 11:18 Отправитель: Invisible Man
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.