Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 070
от 13.06.2003, 20:30

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 115
Отправлено ответов: 138
Активность: 120 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Invisible Man
Статус: Начальный
Общий рейтинг: 107.85
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 115. Здравствуйте все. Не знает ли кто из экспертов как в Excele сделать следующий финт, в таблице есть и... (ответов: 1)

Вопросов: 1, ответов: 1


 Вопрос № 115

Здравствуйте все.
Не знает ли кто из экспертов как в Excele сделать следующий
финт, в таблице есть итоговый столбец, в нём есть значения всякие и есть ячейки с нулями, так вот как можно сделать чтобы на новый лист автоматом скопировались только строки, в которых ячейка в этом столбце не нулевая. Я так думаю что кроме как на встроенном VB этого больше никак не сделать. А вот в нём то я не силён. Не уверен что Basic/VBA это оно и есть, но может кто знает решение.
Спасибо.



Вопрос отправлен: 10.06.2003, 20:26
Отправитель: Макс

[Следующий вопрос >>] [Список вопросов]

Отвечает Invisible Man

Добрый день, Макс!
'копирует только те строки, в итоговом столбце _
которых ячейка не равна нулю...
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.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (34)
C / C++ (29)
Perl (7)
Builder / Delphi (21)
Pascal (32)
Basic / VBA (12)
Java / JavaScript (12)
PHP (8)
MySQL / MSSQL (7)
Пользователю
Windows 95/98/Me (36)
Windows NT/2000/XP (32)
"Железо" (25)
Поиск информации (16)
Администратору
Windows NT/2000/XP (16)
Linux / Unix (9)
Юристу
Гражданское право (6)
Семейное право (2)
Трудовое право (3)
КоАП (3)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное