|
|
| Другие темы раздела | ||||||||||||||||||
| VBA Найти среднее значение элементов второго столбца матрицы найти среднее значение элементов 2-го столбца, максимальное значенне этих элементов и количество значений меньших 78. Вот что у меня получилось, но оно не работает чего-то, помогите пожалуйста Option Base 0 ' Опис змінних рівня модуля Dim Список(3, 2) As Variant, i As Integer Dim СписокВиводу(3) As Variant Private Sub CommandButton1_Click() 'процедура проведення обчислень з вибраними... https://www.cyberforum.ru/ vba/ thread713612.html |
Обращение к файлам rtf из VBA Word для копирования содержимого VBA Кто знает каким образом можно копировать части rtf файла в ворд? Как пример кусочек кода: fname = "C:\НАКАЗ.rtf" Set doc2 = ActiveDocument ActiveDocument.Content.Text = "" Set doc1 = Documents(fname) 'здесь возникает ошибка -"неправильный тип файла" doc1.Open FileName:=fname s = doc1.Content.Text В дальнейшем нужно периодически обращаться к файлу rtf... | |||||||||||||||||
| VBA Автосортировка по указаному номеру столбца Всем доброго времени суток. У меня возникла такая проблема. Не знаю как осуществить следующее. Есть файл эксель, там много столбцов. И есть ячейка. Если мы укажем в ячейке, к примеру 1, сортируется столбец А (по возрастанию), если - 4 , то D и так далее Может подскажет кто что и как делать? https://www.cyberforum.ru/ vba/ thread713490.html |
VBA Вставка относительных ссылок в формулу посредством переменных
https://www.cyberforum.ru/ vba/ thread713425.html Добрый день. я который раз возвращаюсь к одной загвоздке в своем макросе и никак не могу ее решить. помогите пожалуйста. есть вырезка из кода: k = ActiveCell.Offset(-9, -5).Address(0, 0, ReferenceStyle:=xlR1C1) s = ActiveCell.Offset(-9, -6).Address(0, 0, ReferenceStyle:=xlR1C1) | |||||||||||||||||
|
VBA Построение диаграммы. Создание нового тега и ошибка "type mismatch" Здравствуйте! После запуска макроса выдает ошибку run-time error 13 type mismatch в этом месте кода: X1 = Range(Workbooks(MyName).Worksheets(MyDannie).Cells(iRowi + 7, iClmj + 3), Workbooks(MyName).Worksheets(MyDannie).Cells(iRow1, iClmj + 3)).Value Не могу разобраться в причине ее возникновения. Попытался уменьшить количество аргументов. Проблему не решило. Подскажите как исправить проблему.... |
VBA Поиск на листах и систематизация данных
https://www.cyberforum.ru/ vba/ thread713297.html На "Лист1" в 1 столбце находится список организаций в столбец 2 и 3 должны копироваться данные со 2 и 3 листа. На 2 и 3 Лист выгружаются данные из разных программ 1С и ИМУС нужно что бы макрос отыскивал на "Лист2" организацию например "Стройматериалы" брал данные из 2 столбца и записывал их на "Лист1" в 2 столбец напротив "Стройматериалы" далее находил "Стройматериалы" на "Лист3" копировал данные... | |||||||||||||||||
| VBA Переключение языка ввода в зависимости от столбца Добрый день! Есть таблица из двух колонок. Как прописать макрос, который бы делал следующее?: 1. если курсор находится в первой колонке - язык ввода становится русским 2. если курсор находится во второй колонке - язык ввода становится английским https://www.cyberforum.ru/ vba/ thread713186.html |
VBA Получить метки дисков Есть форма для выбора диска, на который нужно сохранить отчет Excel. Т.к. очень часто нужно сохранить отчет на флешку, возникла необходимость выводить в ComboBox не только букву диска, но и его метку (чтоб у неопытных пользователей не возникало трудностей при поиске нужного устройства). Все работает кроме вывода метки диска : Private Declare Function GetLogicalDriveStrings Lib "kernel32"... | |||||||||||||||||
|
VBA Проверка на число в InputBox вызывает ошибку
https://www.cyberforum.ru/ vba/ thread713125.html a = InputBox("a") Do While Not IsNumeric(a) MsgBox "Ошибка" a = InputBox("a") Loop b = InputBox("b") Do While Not IsNumeric(b) MsgBox "Ошибка" b = InputBox("b") Loop |
VBA Реализовать оповещение, если в заданный промежуток времени от адресата нет письма
https://www.cyberforum.ru/ vba/ thread713123.html Как можно реализовать оповещение, если в заданный промежуток времени от адресата нет письма. К примеру есть адресаты с ящиками ввида: mail1@example.com mail2@example.com ......... mail100@example.com Если в заданный период времени, допустим, раз в сутки, от одного из адресатов нет письма, то приходило бы письмо/оповещение об этом. | |||||||||||||||||
|
VBA Передавать в макрос параметры в зависимости от выбранной ячейки Суть такова: мне нужно привязать уже готовый макрос к нескольким ячейкам (макрос - на внешний запуск приложения) но при этом ещё сделать условие что если одна ячейка вызов проги с одним параметром, другая ячейка с другим параметром Сама программа на Delphi 7 надеюсь на вашу помощь))) |
VBA Автоматический ввод пароля при открытии файла Excel
Добрый день!
По работе каждый день приходится сталкиватся с множеством Excel-файлов, на которых стоит один и тот же пароль.
Все эти файлы имеют схожее название и представляют собой примерно следующее: "forex" + date, то есть forex211012, forex221012, forex271112. На всех стоит один и тот же пароль. Каждый раз ввод
Наверх
| |||||||||||||||||