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

Страницы: 1 2 3 4 След.
Запуск макроса сочетанием клавиш., Работает ли на любом компе?
 
Всем доброго здоровья!
Возник у меня такой. казалось бы простенький вопрос, но проверить сам не могу.
Создаю макрос с запуском по сочетанию клавиш. Будет ли работать это сочетаний на любом другом компе. или  надо отслеживать нажатие клавиш?
Объясните мне пожалуйста, как работает InStrRev?
 
В Immediate имею:

Код
?InStrRev("ASDFG","S")

2
Код
? InStr("ASDFG","S")

2

Не понимаю :(
Создать надстройку из простого файла
 
Всем доброго здоровья!
Есть у меня простенький файл: жмем А1, появляется форма, по кнопке выполняется макрос.
Передо мной задача сделать из него надстройку, причем так, что форма появлялась не в любом файле, а только в тех, что мне нужно.
Это возможно?
Ну, то что сохранить с расширением *.xlam я знаю... а  что еще?
Запуск файла Excel по расписанию
 
И снова здравствуте!
Такая проблема - никогда не работал с диспетчером задач планировщиком заданий  в Windows, возможно ли там задать запуск определенного файла Excel по расписанию, например, каждый день в 8:00
Все остальные файлы Excel при этом закрыты.
Возможно ли это сделать на сервере?
если возможно - подскажите как.
Или нужно держать файл открытым и там уже запускать по расписанию макрос?
Изменено: Михаил Витальевич С. - 27 Янв 2019 15:08:56
Ошибка при присвоении объектной переменной, Вопрос реально по ошибке
 
Всем доброго здоровья!
Столкнулся с такой проблемой: при назначении переменной
Код
set Ws1=Set Ws1 = Wb.ActiveSheet
возникает ошибка.
Код
Sub test()
    Dim Arr(), myPath$, sFiles, sFolder$, a, R&, Stock(), R1, K&
    Dim BaseCross As New Collection, Articul$, Kross$
    Dim i&, iNames$, Articul2$, iCros As Object, Kei$, Flag As Boolean
    Dim Wb As Workbook
    Dim Ws1 As Worksheets
    Dim Ws2 As Worksheets
'    Application.ScreenUpdating = False
    ThisWorkbook.Worksheets(1).Copy
    Set Wb = ActiveWorkbook
    Set Ws1 = Wb.ActiveSheet 'Здесь ошибка
    Set iCros = CreateObject("Scripting.Dictionary")
End Sub
что я делаю не так?
Пробовал по-разному; и просто ActiveSheet, и Wb.Worksheets(1) все равно ошибка :(
Не работает пересчет формулы.
 
Всем доброго здоровья!
Извините, название вроде корявое, но проблема именно в этом.
Есть большой файл (>8M), в нем всего одна формула:
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ВПР($D9&"";$K$3:$P$142865;6);ВПР($D9;$K$3:$P$142865;6));"-")
во всех строчках выдает 08.11.2018.
Автопересчет включен; F9 жал много раз; даже ActiveSheet.Calculate в immediate выполнил - все равно ничего не меняется.
Мой мозг кипит - в чем дело?

зы. Файл более 8М, если кто хочет - вышлю на почту. Конфиденциальные данные удалю.
Изменено: Михаил Витальевич С. - 15 Янв 2019 13:38:55
Изменение логина
 
Всем доброго здоровья!
Всяси с тем, что я достиг пенсионного возраста (под реформу не попал, слава Богу!), решил изменить ник. С сегодняшнего дня  я буду "Михаил Витальевич С."
Примите к сведению.
VBA. Запустить макрос из другой книги., Книга содана программно, ножно ее сохранить по кнопке в этой книге.
 
Доброго всем здравия!
Помогите решить проблему:
создается книга путем копирования листа-шаблона; далее вносятся какие-то данные и новую книгу нужно сохранить.
Возможно ли запустить макрос сохранения книги по кнопке из этой (новой) книги?
Изменено: Михаил С. - 25 Ноя 2018 16:41:31
Копирование гиперссылки через массив, С сохранением "кликабельности"
 
Всем доброго здоровья!
Собираю некоторые данные на в таблицу на листе. Делаю это через массивы, т.к. конечный результат буде примерно 30 столбцов и до 10 000 строк.
Но в каждой строке должна быть гиперссылка типа Планета Excel
Перенести гиперссылку довольно легко обычным Copy, но тогда я не смогу работать массивом; придется все делать на листе - а это очень долго.
Вопрос: как скопировать гиперссылку через массив?
Или, как в VBA "прочитать" гиперссылку, т.е. получить отдельно текст и адрес?
Макрос работает в 32 версии и не работает в 64
 
Ошибка 52 на строчке
Код
sFiles = Dir(sFolder)

Для 64 как-то по другому, или что-то нужно еще?
как открыть файлы * .csv в цикле?
 
Всех с 1 Мая!

К своему стыду не разберусь, как открыть файлы *.csv по очереди из заданной папки.
вот кусок кода, (взял у The_Prist)
Код
   sFiles = Dir(sFolder & "*.csv*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом
        'Запишем на первый лист книги в ячейку А1 - www.excel-vba.ru
        ActiveWorkbook.Sheets(1).Range("A1").Value = "www.excel-vba.ru"
        'Закрываем книгу с сохранением изменений
        ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
    Loop

в sFolder только файлы *.csv? ни одного не открывает (просто не видит)
Что не так?

вот весь макрос
Скрытый текст
Изменено: Михаил С. - 1 Май 2017 10:39:43
Как посчитать процентное отклонение от нуля?, Пишу в курилке, т.к. тема к Excel отношение имеет очень отдаленное, а вопрос возник.
 
Итак вопрос:
имеем по плану приход (или расход) - ноль денег
факт - 100 денег приход
или факт - 100 денег расход
Как посчитать процент?

В общем случае, как я понимаю, если план (П), к примеру, 10, а факт (Ф) - 100, то:
%=Ф/П*100% = 100/10*100%=1000%
как разделить на ноль?

Гугл что-то не помог... а может плохо искал...
как в VBA отследить вставку/удаление строки (столбца)?
 
Всем доброго здоровья!
Весь вопрос уместился в заголовке, пример, как мне кажется не нужен...
Вставка изображений в Word через Excel.
 
Всем привет!
Маленькая преамбула.
Имеются файл Excel и связанный документ Word.
Документ имеет довольно таки сложную структуру и оформление, трудно повторяемое в Excel (это на вопрос - почему все не в Excel).
B тоже время, в зависимости от начальных условий, в нем производится расчет примерно по 40 параметрам. Поэтому и связка.
По ходу дела, опять же, в зависимости от начальных условий, в документ необходимо вставлять несколько иллюстраций (иногда до 20); большинство из них формата А4. Попробовал через связи - уже после третьего рисунка Excel на моей машине виснет наглухо, да и связи начинают работать нестабильно.
Выход - вставлять рисунки сразу в Word.

И так задача:
в папке находятся:
Doc1 (см. файл); Книга1 и папка 1 с рисунками 1.ipg и 2.ipg (рисунки любые, не гружу из-за размеров).
В зависимости от выбранного числа необходимо вставить соответствующий рис. из папки 1   в Doc1, в нужное место.

Если кто может помочь - буду благодарен.
Бюджет, увы, минимальный.
Как запустить макрос в надстройке сочетанием клавиш.
 
Всем доброго здравия!
Тренируюсь на кошках с надстройками.
Для теста написал маленький макрос:
Код
Sub CelBorders()
    Selection.Borders.LineStyle = xlContinuous
End Sub

ни как не могу заставить его работать по сочетанию клавиш, например Ctrl+"q" (или любое другое, счас не принципиально).
...ну и вопрос в заголовке, буду благодарен помощи.
Как из excel сохранить файл word в формате pdf, Как обновить связи Word?
 
Всем здоровья!
Стоит передо мной задача - из файла Excel открыть Word и сохранить его в PDF.
Поиском по планете нашел аналогичную тему Как из excel открыть файл word и сохранить его в формате pdf, с решением от ZVI, которое вроде бы как и работает, но есть одна загвоздка...
Вся эта канитель делается потому, что в Excel делается много расчетов, фал Word - шаблон, имеет много связей с Excel, Так вот при изменении данных Word не обновляется, печатает то, что было раньше.
Вопрос - как заставить обновляться?
Возможно, просто не хватает времени на обновление? Без всякого макроса Word при открытии обновляется несколько секунд (не засекал, но по ощущениям 5-10).

зы. Файлы очень большие, в сумме 2 Мб, если очень надо - вышлю на почту по запросу. Не знаю, появится ли проблема, если я сделаю маленький пример.
Почему нельзя убрать файл, если он превысил допустимый размер?
 
По сути вопрос в названии.
Не посмотрел на размер файла, загрузил на форум - вложение высветилось красным и выскочило предупреждение.
Так вот что бы заменить файл, пришлось перезагружать страницу и все писать заново.
Почему нельзя просто заменить или удалить?
Как запустить вычисление регрессии в VBA?
 
И еще раз здравствуйте.
Есть файл, по данным файла вычисляю регрессию:
данные, анализ данных, регрессия,
входной интервал Y: $D$77:$D$86
входной интервал Х: $E$77:$E$86
выходной интервал: $B$96
v остатки
v стандартизированные остатки

Записал это действие макрорекодером, но макрос не отрабатывает. Как запустить?

зы. Должен быть установлен пакет анализа.
Убрать сообщение о настойке Office, да и саму настройку.
 
День добрый!
После подключения надстроек "Пакет анализа", "Пакет анализа VBA" при запуске Excel стало появляться такое предупреждение:
[img]C:\Users\User\OneDrive\Pictures\Снимки экрана[/img]как убрать эту настойку?
переустанавливать офис? или можно как-то через реестр?
Изменено: Михаил С. - 13 Ноя 2016 16:29:56
Проверка совпадений на множестве листах., Какой алгоритм решения выбрать?
 
Здравствуйте, россиян с прошедшим праздником.
Имеется файл  10 и более листов, по 1000 и более записей на каждом.
Передо мной стоит задача - проверить все записи на повтор, в случаях повтора вывести отдельным списком.
Вижу два варианта:
1. Методом Find ищем каждую запись первого листа на всех листах, начиная со второго; затем каждую запись второго листа, на всех, начиная с третьего, и т.д.
2. Создаю словарь, в Item - словари по листам, и далее как выше.
Так вот сижу, как буриданов осел, и не знаю, какой метод выбрать...
Первый проще в реализации, но не будет ли он "тормознутым"?
Второй посложнее, но даст ли он ощутимый выигрыш в скорости? и даст ли вообще?

зы. файл не прикладываю, т.к. вопрос общего порядка; если считаете необходимым, сварганю пример.
При закрытии файла программно остается пустое окно Excel. Как убрать?
 
Здравствуйте!
По сути весь вопрос в заголовке.
Несколько вопросов по общему доступу.
 
Всем привет!
Задаю вопрос в курилке, т.к. во-первых не совcем уверен что это непосредственно относится к Excel, во-вторых, вопросов несколько... хотя и взаимосвязанные.
Первое. Имеем файл Excel. Обязательно ли ему давать общий доступ? ведь все рано работает только один пользователь.
...блин, чертова память... пока писал, забыл все вопросы...
В общем меня интересует все по общему доступу, в смысле - как работает, (как настраивать, если придется, я думаю найду в справке).
Сам никогда с общим доступом дел не имел и не имею возможности как нибудь проверить.
Кому не лень - скажите пару-тройку слов.
После "Общего доступа" не сохраняются изменения в VBA
 
Всем привет!
Делаю *.xlsm файл для общего доступа. Поскольку с общим доступом раньше никогда не сталкивался, каждый шаг проверяю на работоспособность.
Так вот, столкнулся с такой проблемой: открываю файл, снимаю общий доступ, делаю изменения в макросах, сохраняю, ставлю общий доступ.
Открываю снова - изменение нет. Единственный выход, после изменений "Сохранить как".
От этого можно уйти?
Условное форматирование. Набор значков для "Да" и "Нет"
 
Всем привет!
Мне нужно вместо "Да" и "Нет" проставить "Светофор".
Сколько не мучился, единственно, что получилось - доп. столбец.
Это единственное решение, или я просто туплю?
Недоступна кнопка "Защитить лист"
 
Всем доброго дня!
Делаю файл, задача - после внесения данных защитить ячейку.
После нескольких проверок стала недоступно кнопка "Защитить лист" .
Ну устранить ладно, скопировал все новую книгу, там работает, но в чем причина? Не повторится ли она?
Как вернуть окно VBA к привычному виду?
 
Всем привет!
Дернул меня черт поиграться с окнами Immediate, Locals и Watches...
Обычное их расположение - внизу окна. А теперь я могу их расположить как угодно, но только не там, где привычно.
Где эта кнопа/галка, что б все вернуть?
Просьба к москвичам.
 
Всем привет.
Пред история:
есть такой сайт *** , сделал я на нем заказ, но что-то меня смущает в ведении дел.
Поискал в инете отзывы о сайте и компании - ноль. Единственно, что нашел - ***
Теперь к сути - очень хотелось бы получить подтверждение, что эта компания существует и не мошенники. Если кому не трудно - проверьте пожалуйста.

зы. модераторам - это не реклама, к концу недели я ссылки удалю сам. Просто если к концу недели не получу положительного ответа - откажусь от покупки.
Изменено: Михаил С. - 5 Июл 2016 18:13:16
VBA как изменить системный разделитель?
 
Всем доброго здоровья!
знаю как это сделать вручную:
Цитата
Для того, чтобы изменить системные настройки разделителя вам необходимо зайти в меню Пуск | Панель управления | Часы, язык и регион, далее в разделе Язык и региональные стандарты выбрать пункт Изменение форматов даты, времени и чисел Откроется окно Язык и региональные настройки, перейдите во вкладку Форматы | Дополнительные настройки, откроется окно Настройка формата, во вкладке Числа в поле Разделитель целой и дробной части: поменяйте точку на запятую либо наоборот и нажмите ОК
А возможно ли это сделать через VBA?
Нулевая дата - 00.01.1900?, я что-то путаю, или раньше тоже так было?
 
Вроде раньше 0 января 1900 г. не было?
Userform. Смена надписей во время выполнения кода.
 
Здравствуйте!
Столкнулся с такой проблемой - нужно, что бы во время выполнения кода листбокс отображал стадию процесса.
Ни как не получается.
вот такой простенький код
Код
Private Sub CommandButton1_Click()
Dim i, t
t = Timer
Me.Label1 = "Цикл 1"
For i = 1 To 200000000
Next
Debug.Print Timer - t
Me.Label1 = "Цикл 2"
For i = 1 To 200000000
Next
Me.Label1 = "Цикл 3"
For i = 1 To 200000000
Next
Debug.Print Timer - t
End Sub


зы. у меня код выполняется около 10 с, специально для надписей.
Страницы: 1 2 3 4 След.
Наверх