|
|
Другие темы раздела | ||||||||||||||||||
VBA Заполнение однотипных связок textbox - Combobox
https://www.cyberforum.ru/ vba/ thread2000905.html Для пользовательской формы, которая за раз может выдать 12 позиций продукции, нужно показывать количество данной продукции на складе. С помощью combobox2101 - combobox2**1 - combobox2211 выбирается наименование продукции, а в соответствующие textbox2103 - textbox2**3 - textbox2213 должно быть выведено количество. Данные для списка находятся в на листе "ИБ_Выдача" в столбце 21 (U), а наличие в 20... |
Написать макрос на VBA VBA 1. Создать документ «Движение строительных материалов на складе». Структура исходных данных: шифр материала, вид материала, количество материала на начало месяца, поступление с начала месяца, расход с начала месяца, количество материала на текущий момент, расположение на складе. Структура расходных данных: шифр материала, вид материала, расход с начала месяца. Программа вводит запрос на продажу... | |||||||||||||||||
VBA Определение доступности удаленного компьютера в Visual Basic
https://www.cyberforum.ru/ vba/ thread2000739.html Здравствуйте. С помощью макроса в Word-2007 открываю файлы с другого компьютера, находящегося в локальной сети, и в конце работы макроса сохраняю их на том же компьютере. Интересно знать: а можно ли до момента начала работы с файлами с помощью макроса выполнить проверку на предмет доступности сетевого соединения с этим компьютером, чтобы Ворд не тупил и не вис в случае если, допустим, компьютер... |
VBA Симплесный метод с регулярным симплексом
https://www.cyberforum.ru/ vba/ thread2000613.html Требуется составить задачу для нахождения минимума функции. При выполнении выдает ошибку subscript out of range в строчке c функцией Fn. Прошу помочь. Заранее спасибо Function Fn(x() As Double, i As Integer) As Double Fn = (x(1) + 10 * x(2)) ^ 2 + 5 * (x(3) - x(4)) ^ 2 + (x(2) - 2 * x(3)) ^ 4 + 10 * (x(1) - x(4)) ^ 4 End Function Sub СМРС() Const n = 2, Epsilon = 1E-16, R = -1, Alfa = -1#... | |||||||||||||||||
Long из двух String VBA здравствуйте, делаю так: ЦенаLong = (Trim(y(b - 2))) & "," & (Trim(y(b))) где (Trim(y(b - 2))) = 33, а (Trim(y(b))) = 14, пытаюсь получить 33,14 - получаю облом, как нужно? спасибо |
VBA Скопировать событие листа
https://www.cyberforum.ru/ vba/ thread2000491.html Здравствуйте дорогие форумяне! подскажите пож каким образом можно скопировать событие листа из одного листа в другой програмно, если есть такая возможность) нашла лишь ссылку на копирование модуля, но это не совсем то( http://www.excel-vba.ru/chto-umeet-excel/kak-dobavit-kod-procedury-programmno-skopirovat-modul/ | |||||||||||||||||
VBA ошибка 9 - Subscript out of range - Индекс вне заданного диапазона
https://www.cyberforum.ru/ vba/ thread2000475.html здравствуйте, не понимаю, эту строку MsgBox$ Trim(c(w)) отрабатывает, получаю правильный ответ "три картонные коробки" на следующей строке Вещь_Количество_Цена(w) = Trim(c(w)) получаю указанную в названии темы ошибку, почему? спасибо |
DateDiff VBA здравствуйте в коде считаю секунды между датами, получаю выделение DateDiff и сообщение, argument not optional код: 'присвоение переменной даты начала программы Старт_программы = Time 'присвоение переменной даты окончания программы Конец_программы = Time DateDiffSekund = DateDiff("s", Конец_программы - Старт_программы) Debug.Print DateDiffSekund что делаю не так?... | |||||||||||||||||
VBA FIND вывод всех совпадений на листе (макрос-кнопка) Создал на листе кнопку со следующим макросом Sub Кнопка3_Щелчок() x = InputBox("Введите артикул, который нужно найти", "Ввод данных для поиска") If VarType(x) = vbBoolean Then Exit Sub ' нажата кнопка ОТМЕНА x_text = "*" & x & "*" Dim cell As Range Set cell = Cells.Find(What:=x_text, LookIn:=xlValues, LookAt:=xlWhole) https://www.cyberforum.ru/ vba/ thread2000344.html |
VBA Найти список телефонов сотрудников, чьи фамилии начинаются с заданной буквы
https://www.cyberforum.ru/ vba/ thread2000299.html Здравствуйте, мне необходимо доработать код. Мой код ищет фамилии по первой букве,а мне нужно,чтобы он искал номера телефонов по первой букве фамилии. Private Sub TextBox1_Change() Dim x, i As Long, txt As String, lt As Long, s As String txt = TextBox1.Text: lt = Len(TextBox1.Text) If lt = 0 Then Exit Sub x = Range("C2", Cells(Rows.Count, 3).End(xlUp)).Value For i = 1 To UBound(x, 1) '... | |||||||||||||||||
Перевод чисел разделенных пробелами из шестнадцатеричной системы счисления в десятичную и наоборот VBA Приветствую всех В столбце A в разных ячейках написаны числа в шестнадцатеричной системе счисления, разделенные пробелами, к примеру "48e eb 1c 11 10b 8c", "4a5 0 4d 14 136 8a", "466 12c 25 14 1f8 8a" и т.д. Нужно поочередно их перевести в десятичную систему счисления, так же разделить пробелами и написать в ячейках столбца B А в столбце C в разных ячейках написаны числа в десятичной системе... |
VBA Нужно получить скриншот сайта
https://www.cyberforum.ru/ vba/ thread2000097.html В Excel создана функция для получения заголовка с сайта WebPageTitle = IE.Document.Title Нужно cделать получ
Лучшие ответы (1)
Наверх
|