Сообщений в теме: 914

[Nigrum cygnum]

Find если не находить то выдает ошибку, когда выйдет ошибка нажмите на Debug i останавливается на 21, посмотрите после 21 строки нет "Дах" слова из-за этого

 

не дружу я с Find'ом

Рахмет! А OnError почему то не помогает...

[Nigrum cygnum]

Здравствуйте! Скажите пожалуйста, как прописывать имена листов при работе с циклом?

Я обычно справлялся с задачей переименовыванием листов в 1....н и в цикле писал примерно так:

For i = 1 to m
Worksheets(i)......
Next i

Нашел какой-то макрос, который помог мне переименовать их, в нем был аргумент "item" - но как я не пытался переделать его для использования листов, не получалось.

 

Очень неудобно использовать номера

[Daulet.tech]

Sub ПереимЛист()
    Dim i As Long, ShName As Variant
    ShName = Array("_1", "_2", "_3")
    For i = 1 To 3 'Sheets.Count
        Sheets(i).Name = ShName(i - 1)
    Next
End Sub

[Nigrum cygnum]

Sub ПереимЛист()
    Dim i As Long, ShName As Variant
    ShName = Array("_1", "_2", "_3")
    For i = 1 To 3 'Sheets.Count
        Sheets(i).Name = ShName(i - 1)
    Next
End Sub

 

Благодарю! А если листов пару десятков? Надо расписывать вплоть до shname=Array("_1","_......n","_20")?

[Daulet.tech]

Ну смотря как Вы переименовать будете, если по нарастающий пример:

Sub ПереимЛист()
    Dim i As Long', ShName As Variant
    'ShName = Array("_1", "_2", "_3")
    For i = 1 To Sheets.Count '3
        Sheets(i).Name = "Лс_" & i 'ShName(i - 1)
    Next
End Sub

Сообщение отредактировал DauletAhamanov: 17.10.2013, 17:33:46

[Nigrum cygnum]

Sub ПереимЛист()
    Dim i As Long', ShName As Variant
    'ShName = Array("_1", "_2", "_3")
    For i = 1 To Sheets.Count '3
        Sheets(i).Name = "Лс_" & i 'ShName(i - 1)
    Next
End Sub

 

Моя ошибка. Я думал что Array("_1", "_2", "_3") охватывает только три первые листа...

[Fin.seminar]

Подскажите хорошие курсы по Excel или же литературу, не для начинающего пользователя.

Много работы в Excel, работа связана с финансами, хотелось бы научиться пользоваться всеми возможностями Excel в это сфере.

 

Спасибо заранее!

[punter]

вообщем такой вопрос: использую функцию "суммесли" по которому суммируя суммы тех позиции, критерий которых идентичны. Теперь задача усложнилась, критерием является время и дата, такого типа "22.03.2012 18:15", хотелось бы задать критерий типа, позже такого-то числа, года

[Daulet.tech]

A1:A10 - дата и время

B1:B10 - кол-во чего то

=СУММЕСЛИ(A1:A10;">22.03.2012 18:15";B1:B10)

[Nigrum cygnum]

Здравствуйте, друзья!

Снова обращаюсь к Вам, как к последней инстанции решения проблем с макросами.

 

Проблема следующая: 

Макросом надо фильтровать нужные даты, потом вывести разницу в суммах между датой 1 и датой 2

До разницы я пока не дошел. Застрял на фильтрации данных. Со сводной таблицы данные (имя и др) фильтруются нормально, а даты - не хочет.

 

Пример прикладываю.

Прикрепленные файлы

•  Prob_w_Date.rar   24,58К   Количество загрузок: 127

[Nigrum cygnum]

И в ещё:

Нужно присвоить имя, если оно = ТОО "Васяпупкин"

name1 = "ТОО "Васяпупкин"" 

будет выдавать ошибку, как сделать по-иному, чтобы не ругался? Вставить в ячейку и ссылаться на неё?

[Зул]

Кавычки экранировать надо. В VBA они экранируются по мудацки - удваиванием.

name1 = "ТОО ""Васяпупкин"""

[Daulet.tech]

переделал макрос

Прикрепленные файлы

•  Prob_w_Date2.rar   22,02К   Количество загрузок: 99

[Nigrum cygnum]

переделал макрос

 

Так значит лучше не иметь дела со сводными?

Всегда избегал Array, Collection и подобные массивы, видимо без них не судьба.

Благодарю за помощь. Буду на Вашем макросе учиться.

[Daulet.tech]

Сводную использовать можно, зачем?

Если без массива и коллекции, то можно макрос нарисовать на самом таблице ("db" лист) и оттуда фильтрацию копи-вставка значение видимых строк, но все равно придется использовать коллекцию для выбора уникальных значении для столбцов Date & Name если суммировать будете остальных столбцов.

[punter]

Работаю с наименованиями, которые состоят только из чисел, некоторые из наименовании начинаются с цифры "0", которые при импорте не отражаются (потому как я понимаю, excel смотрит на него как на число), как этот нолик сохранить? (в параметре данных при импорте, оставляю флажок "импортировать как текст", но нолик все равно уходит)

[Daulet.tech]

.

Прикреплённые изображения:

• 

[punter]

.

Спасибо  , перепробовал, теперь пашет 

[Заинтересованная]

ДД. помогите пожалуйста. можно ли сделать так чтобы при копировании одного листа в другой лист другого документа, все данные с ссылкой на др документ сохранялись как значения а не как ссылки? А формулы остались при этом

[Daulet.tech]

чтобы формулы остались?

Сообщение отредактировал DauletAhamanov: 13.12.2013, 12:17:31