Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 369 След.
VBA цикл загрузки с URL
 
Цитата
VVR написал:
из скрипта работает только при активном Sheet1
ага. Потому что Вы используете обращение именно к Selection, а не к конкретному листу
Цитата
VVR написал:
ThisWorkbook.Worksheets("Sheet1").Range("A1:A100").Select
вот это выдаст ошибку, если активен не Sheet1 на момент выполнения кода. Потому что невозможно выделить ячейки на неактивном листе.
Правильнее было бы так:
Код
ThisWorkbook.Worksheets("Sheet1").Range("A1:A100").TextToColumns Destination:=ThisWorkbook.Worksheets("Sheet1").Range("D1"), _
        DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False _
        , Tab:=False, Semicolon:=False, Comma:=False, Space:=True, Other:= _
        False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1 _
        ), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

Настоятельно рекомендую ознакомиться:
Как обратиться к диапазону из VBA
Select и Activate - зачем нужны и нужны ли?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
VBA. Запуск макроса в зависимости от времени.
 
Цитата
Молодое_Поколение написал:
 'сохранение файла  objExcel.Workbooks("Название файла.xlsm").Save
 'по завершению закрываем документ. Пишем только имя файла, без пути
 objExcel.Workbooks("Название файла.xlsm").Close(false)
всё это можно записать одной строкой:
Код
 'по завершению закрываем документ С СОХРАНЕНИЕМ. Пишем только имя файла, без пути  
objExcel.Workbooks("Название файла.xlsm").Close(true)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Макрос замены старых ссылок на новые
 
Цитата
Yastreb написал:
What:=[Лист2'!a1]
где апостроф перед именем листа потеряли?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Восстановление данных из надстройки, Восстановление модулей и форм из надстройки которая не запускается
 
Через меню запретите выполнение макросов -закройте Excel(естественно) -откройте надстройку. Перенесите модули в новый файл или экспортируйте по одному в папку.
Изменено: Дмитрий(The_Prist) Щербаков - 3 Июл 2020 17:04:28
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
DoEvents ... Loop не даёт открывать другие книги Эксель в процессе работы.
 
Код
While DoEvents_1()    
    Label111 = Format(Now, "h:mm:ss AM/PM") 'Код, работающий в процессе цикла ожидания
    DoEvents 
Loop
Изменено: Дмитрий(The_Prist) Щербаков - 3 Июл 2020 16:53:53
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Авторассылка писем по Аутлук
 
Цитата
B_A_D написал:
но вопрос с разбивкой файла и присвоением имен файлам очень актуален
так же актуален вопрос: а что Вы уже сделали для решения своей задачи? Что конкретно не получается?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Алфавитная последовательность в Excel
 
Цитата
Артем написал:
если протянуть, чтобы список продолжился автоматически
только созданием своего собственного списка: Списки Автозаполнения
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Обойти ошибку в вычисляемом поле сводной при делении на ноль
 
Владимир, пивотом пока вроде как нельзя. Квери только чуть-чуть поддается в последних версиях.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Многострочный inputbox
 
Цитата
Молодое_Поколение написал:
гуглю про текстбоксы
гуглить надо про UserForm :) А уже на ней - текстбоксы
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Обойти ошибку в вычисляемом поле сводной при делении на ноль
 
Цитата
PooHkrd написал:
при правильном использовании отбиваются в первую неделю использования
да-да, я это знаю. Но как показывает практика далеко не везде это понимают в полной мере. Притом я не про маленькие конторки говорю - у меня тренинги и в весьма крупных компаниях и как ни печально, даже в них понимание такое не приходит сразу(а то и вообще не приходит).  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Многострочный inputbox
 
Цитата
Молодое_Поколение написал:
Меня интересуют формы
тогда явно имеет смысл к ним присмотреться. На них можно создавать и многострочные TextBox-ы. Описывать здесь работу с UserForm вряд ли кто-то возьмется - советую погуглить эту тему, она далеко не новая.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Обновление библиотек, с 15 до 16
 
Цитата
bertz написал:
Зачем загружать код, если вопрос не по макросу, а по тому, как обновить библиотеки для него?
затем, что библиотеки, о которых Вы говорите, можно использовать по разному. Та ошибка, которую Вы привели(Error in loading DLL), является системной и скорее всего нужна переустановка офиса. Если не используются другие библиотеки(Word, outlook и т.п.) - то ошибок не должно возникать в коде, никаких принципиально новых методов в 16 версии в отличии от 15 не было(только более расширенные возможности VBA при работе с запросами PQ). А ссылку внутри VBA с 16 версии Excel на 15 офис проставит сам независимо от Вашего желания - эта ссылка ставится автоматом на ту версию Excel, в которой открыта книга и неважно в какой версии эта книга и код создавались.
Если используются именно библиотеки сторонних приложений вроде Word - то надо просто использовать позднее связывание и тогда версия будет не важна: Как из Excel обратиться к другому приложению
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Обойти ошибку в вычисляемом поле сводной при делении на ноль
 
Цитата
PooHkrd написал:
А этот костыль, ну его нафиг
как ни печально, но не все могут себе позволить PowerPivot даже в больших компаниях. Не у всех 2016 офис(и выше), а ставить доп.ПО как правильно низя...

P.S. По ссылке далеко не полный перечень функций, которые не будут правильно работать внутри вычисляемых полей и объектов :)
Изменено: Дмитрий(The_Prist) Щербаков - 2 Июл 2020 18:08:19
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Обновление библиотек, с 15 до 16
 
Цитата
bertz написал:
не запускаются макросы, написанные на личном устройстве
Что за библиотеки как и откуда вызываются? ошибки какие? Код какой? Без этого никто ничего не скажет.  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Обойти ошибку в вычисляемом поле сводной при делении на ноль
 
Цитата
Vladimir Chebykin написал:
типа: СУММ, МИН
Вот как раз с ними - нет. Вычисляемые поля работают только с так называемыми линейными функциями. Т.е. только с теми, которые не обрабатывают диапазоны значений, а требуют в аргументах одну ячейку или константу и ни в коем случае НЕ строго ДИАПАЗОН(типа СУММЕСЛИ).
Поэтому функции ЕСЛИ, И, ИЛИ, НЕ, ЕНД и т.д. работают в вычисляемых полях прекрасно.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Как отправить по почте открытый файл Excel из One Drive?, Или как обратиться через VBA к файлу из One Drive?
 
Цитата
rud.666 написал:
макрос расположен в той же книге, которую хочу отправить.
это и является проблемой, т.к. открытую на текущий момент книгу нельзя отправить таким кодом. Встраивайте код в надстройку или перед вложением книги делайте SaveCopyAs, вкладывайте копию и после отправки удаляйте.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Как отправить по почте открытый файл Excel из One Drive?, Или как обратиться через VBA к файлу из One Drive?
 
Вы, случаем, макрос запускаете не из той же книги, которую вложить пытаетесь? Даже не так: макрос расположен в той же книге или в другой? Какой текст ошибки?
Изменено: Дмитрий(The_Prist) Щербаков - 1 Июл 2020 20:15:58
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Установить макрос в Excel средствами VBA
 
Цитата
Алексей Евтушенк написал:
как-то как надстройку установить
не установить, а сначала создать, сделать в ней кнопку и передать человеку: Как создать свою надстройку?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Ошибка 1004 при использовании специальной вставки
 
PasteSpecial с параметрами допустим для использования только в объекте Range, а не в листе:
Код
copiedRange.Copy
rCell.PasteSpecial Paste:=xlPasteValues
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
В сводной таблице из запроса Power Query неверно считается сумма показателя
 
Цитата
nelly_zh написал:
Мне казалось, это аналог ВПР или левосторонний join
не совсем. Советую ознакомиться: Объединение(слияние) запросов при помощи PowerQuery
там я приводил как раз пример с отличием от ВПР - тянутся ВСЕ совпадения и в итоге строки задваиваются. Там же приведено решение проблемы, если нужна только одна строка(т.е. первое совпадение)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не работают поля сводной таблицы, не работают поля сводной таблицы
 
Цитата
Jack Famous написал:
советую сменить антивирус
согласен. Если антивирус блокирует работу программы, которая в этом не нуждается - это плохой антивирус. Есть большой шанс, что потом он что-то ненужное как раз не заблокирует, т.к. плохо разбирается в сигнатурах...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не работают поля сводной таблицы, не работают поля сводной таблицы
 
как бы вывод прост тогда: проблема не в файлах, проблема в компе. Переустановка офиса явно не будет лишней.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не работают поля сводной таблицы, не работают поля сводной таблицы
 
Попробуйте так: Снимите галочку, сохраните файл в формате xlsx, закройте. Откройте сохраненный в новом формате файл.
Если все это не помогает - возможно, причина в самом Excel, раз на других ПК все нормально. Сам файл бы увидеть...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не работают поля сводной таблицы, не работают поля сводной таблицы
 
Скрин - откровенное г...о. Ничего не видать.
Но дело точно в макете - ибо он - классический. Правая кнопка мыши на сводной -Параметры сводной таблицы -снять галочку с "Классический макет полей сводной таблицы". В этом макете разрешено перетаскивание полей напрямую в сводной, но нельзя перетаскивать в панели полей. Если галку снять - то можно перетаскивать в панели, но нельзя в самой сводной.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Печать всех открытых книг на удаленном сервесе через Citrix, Как пустить на печать кучу файлов
 
макрос с циклом по всем открытым книгам, установкой нужных параметров печати и принтера и непосредственно печать.
Все, кроме цикла по книгам элементарно записывается макрорекордером. Циклы приводились не раз на форуме и в сети, что-то вроде:
Код
For EAch wb In Application.Workbooks
wb.Activate
'записанные макрорекордером действия по выставлению параметров печати и самой печати
Next
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Изменение с помощью цикла значения переменной VBA
 
Цитата
Graber777 написал:
Но данный код не переводил значение в число
и он без цикла. Но я же в первом своем сообщении привел код тоже без цикла, но который исправно работает и все переводит в число. И работает, кстати, в разы быстрее кода с циклом.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Изменение с помощью цикла значения переменной VBA
 
для For добавить как минимум Next(справка об этом очень правильно пишет) и между For и Next воткнуть преобразование ячейки:
Код
For i = 2 To LastLine
    Cells(i, "A").Value = CDbl(Replace(Cells(i, "A").Value, ".", ","))
Next
Изменено: Дмитрий(The_Prist) Щербаков - 26 Июн 2020 12:02:06
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Изменение с помощью цикла значения переменной VBA
 
Циклом? Есть. Начните сами хоть что-то для начала, раз есть какое-то требование именно циклом, а не чтобы работало. Примеров циклов в сети навалом, начните и потом напишите что не получилось. Тут элементарный цикл For справится.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Изменение с помощью цикла значения переменной VBA
 
=--ПОДСТАВИТЬ(A2;".";",")
Или простой макрос:
Код
Sub ReplaceDot()
    Selection.FormulaR1C1 = Selection.FormulaR1C1
End Sub
выделяете ячейки и запускаете
Изменено: Дмитрий(The_Prist) Щербаков - 26 Июн 2020 11:37:14 (добавил код)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Как в Power Query пронумеровать строки
 
Я бы примерно так раскидал бы в нормальную таблицу, а потом хоть объединяй, хоть что делай:
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    res1 = Table.FromRows(List.Split(Source[Столбец1],4)),
    rem1 = Table.RemoveColumns(res1,{"Column4"}),
    ind1 = Table.AddIndexColumn(rem1, "ind", 0, 1),
    res2 = Table.FromRows(List.Split(Source[Столбец2],4)),
    rem2 = Table.SelectColumns(res2,{"Column1"}),
    ind2 = Table.AddIndexColumn(rem2, "ind", 0, 1),
    res = Table.NestedJoin(ind1, {"ind"}, ind2, {"ind"}, "res", JoinKind.LeftOuter),
    expand = Table.ExpandTableColumn(res, "res", {"Column1"}, {"Column1.1"}),
    #"Removed Columns2" = Table.RemoveColumns(expand,{"ind"})
in
    #"Removed Columns2"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 369 След.
Наверх