Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.03.2008, 23:41   #1
Bronyk
 
Регистрация: 10.03.2008
Сообщений: 4
По умолчанию выделение листов по условию

здравствуйте помогите пожалуйста нужно реализовать небольшой програмный кодик!!
вообщем есть документ с кучей листов (а точнее их около 50) так вот надо сделать так что бы листы выделялись если в ячейке x25 на этом же листе значение не равно Ноль
If Worksheets("1").Range("x25") > 0 Then Sheets("1").Select
тоесть нужно выделить несколько листов с помошью Sheets(Array("1","2",.....,"50",)). Select

обьясните пожалуйста как это сделать
Bronyk вне форума
Старый 11.03.2008, 07:55   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Например, так:
Код:
Sub SelectSheets()

    Dim a() As Integer, i As Integer, j As Integer
    
    ReDim a(1 To Sheets.Count) 'Определяем максимально возможную размерность массива
    j = 0 ' Указатель формируемого массива
    
    For i = 1 To Sheets.Count ' Цикл по всем листам
        If Sheets(i).Range("X25") <> 0 Then ' Проверка Вашего условия
            j = j + 1 ' Инкремент указателя
            a(j) = Sheets(i).Index ' Формируем массив
        End If
    Next
    
    ReDim Preserve a(1 To j) ' Переопределяем размерность полученного массива
    Sheets(a).Select ' Условное выделение нужных листов

End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 11.03.2008, 08:25   #3
Bronyk
 
Регистрация: 10.03.2008
Сообщений: 4
По умолчанию

Спасибо большое а еще подскажите пожалуйста как можно задать относительный путь !
у меня есть файлик в котором есть кнопочка при нажатии на которую раскрывается файлик с названием итоги мне надо чтобы они лежат в одной папке
ну и если не тяжело то как его после открытия сразу закрыть с сохранениями ! !
Bronyk вне форума
Старый 11.03.2008, 09:34   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Не совсем понял вопрос. Что значит
Цитата:
относительный путь
Если, например, нужно сохранить открытый файл "Книга2" в папку, в которой находится файл с выполняемым макросом, то можно так:
Код:
Windows("Книга2").Activate
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
Важно помнить, что "ActiveWorkbook" - это рабочая книга, которая в данный момент активна, а "ThisWorkbook" - это рабочая книга, содержащая исполняемый код.
Сохранить и закрыть активную рабочую книгу в ту же директорию, из которой она открыта, и с тем же именем (т.е. последовательно выполнить команды "Сохранить" и "Закрыть"), можно так:
Код:
ActiveWorkbook.Close savechanges:=True
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 11.03.2008, 18:49   #5
Bronyk
 
Регистрация: 10.03.2008
Сообщений: 4
По умолчанию

по поводу относительного пути !! допустим надо отрыть файл из той же папки в которой лежит главный файлик!! т.е есть два файла первый главный в нем есть кнопка которая по нажатии на нее открывает фалик итоги который лежит в тойже папке где и главный(там прописан весь путь)!! но на разных компьютерах разные директории
Bronyk вне форума
Старый 11.03.2008, 19:40   #6
Bronyk
 
Регистрация: 10.03.2008
Сообщений: 4
По умолчанию

извените за беспокойство уже все нашел на вашем форуме Спасибо большое!!
Bronyk вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Cравнения 2 листов anju Microsoft Office Excel 8 08.09.2008 14:46
объединение таблиц по условию rexec Microsoft Office Excel 2 25.05.2008 15:42
Скрытие столбцов по условию snake980 Microsoft Office Excel 6 26.02.2008 16:52
печать нескольких листов checkbox Microsoft Office Excel 2 16.01.2008 00:50
Запрет на перемещение Листов valerij Microsoft Office Excel 2 08.01.2008 19:38