|
|
| Другие темы раздела | ||||||||||||||||||
|
VBA Вставить текст из ячейки в формулу
https://www.cyberforum.ru/ vba/ thread2363453.html Есть формула с указанием листа. Имя листа нужно взять из ячейки. Как? нужно, чтобы он брал значение из ячейки, т. е. если в ячейке H2 будут "буклеты", то и в формуле тоже должны быть |
Перенос значений в таблицу VBA Добрый день, прошу помощи Нужен макрос где будет создавать цикл который ищет основные данные на листе в каждой строке: Имя пользователя столбец С, Действие столбец G, Тип объекта столбец J, Имя объекта столбец К, Временная столбец М , Поле столбец D, Старое значение столбец H, Новое значение столбец L И переносит на новый лист в виде 8 столбцовой таблицы с каждым из этих значений и по... | |||||||||||||||||
| VBA Найти максимальную дату среди значений в одной ячейке Добрый день! Помогите, пожалуйста, написать функцию (или формулу, если это возможно), чтобы находить самую позднюю дату среди указанных в одной ячейке. Дат может быть от одной до непонятного количества. Пример значения ячейки:" , , 07.08.2018, 07.08.2018, 10.08.2018, 17.08.2018, 07.08.2018, 06.08.2018, 07.08.2018, 06.08.2018". Понимаю, что можно разделить значение по столбцам, а потом найти... https://www.cyberforum.ru/ vba/ thread2363380.html | VBA Сортировка листов (от новых к старым) содержащих в названии дату (+дополнит сведения) Встала задача отсортировать ранее созданые листы так чтобы ЛИСТ КОДОВЫМ ИМЕНЕМ "Лист1" стоял первым , а СЛЕДУЮЩИЕ ЗА НИМ ИМЕНА (видимые пользователю) и содержащие в КОНЦЕ ИМЕНИ ДАТУ создания ПРИМЕР ИМЕНИ ЛИСТА "7раз 02.12.2018" выстроились в порядке дат "от новых к старым" слева направо. До обдумывания алгоритма сортировки не дошел , так как сразу же уперся в проблемму с оператором LIKE.... https://www.cyberforum.ru/ vba/ thread2363222.html | |||||||||||||||||
|
Где ошибка в циклах? VBA Всем привет! Есть такой код: Sub Dim k For k = 3 To 5 Dim e For e = 7 To 9 |
VBA Run time error '5' invalid procedure call or argument Option Explicit Sub Reshenie() Const e = 2.71828182846 Dim y As Double, A As Double, B As Double ' îáúÿâèë ïåðåìåííûå Sheets("Ëèñò1").Select ' âûáðàë ëèñò A = Range("A2").Value ' ïðî÷èòàë çíà÷åíèå A èç ÿ÷åéêè A2 B = Range("B2").Value ' ïðî÷èòàë çíà÷åíèå B èç ÿ÷åéêè B2 y = Exp((-Atn(A) ^ 2) ^ B) * (Abs((A - B) ^ A / Cos(B) - (Atn(A) ^ 2) ^ B)) ^ 1 / 5 * Log(Abs(A - B)) ^ 5... https://www.cyberforum.ru/ vba/ thread2363180.html | |||||||||||||||||
|
VBA Как сделать макрос автоподстраивающимся + добавить формулу
https://www.cyberforum.ru/ vba/ thread2363137.html Добрый день. Нужен макрос заменяющий функцию ВПР + автоподстраивающийся под величину таблицы (при удалении/добавлении строк снизу) и добавить формулу для колонки % (где % - это доля текущей строки (поле QTY) от общей суммы по колонке QTY. Я только начинаю своё знакомство с VBA, поэтому моих знаний хватило для простой записи функций ВПР и доли с последующем копированием в нужные ячейки=)... |
Как записать цикл для полей? VBA Всем привет! Есть такой цикл: Dim m For m = G3 To AF3 Range("N4:N9").Select Selection.Copy Sheets("анлз ЭИ").Select Range(m).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ | |||||||||||||||||
| VBA Объединение Таблиц по условию Добрый день! Нужно сделать так что бы объединялись файлы названия которых нет в списке на листе Банки, Если файл уже добавлен, переходил к следующему Sub Ob() Application.ScreenUpdating = False Dim sFilesFoldes As String sFilesFoldes = ThisWorkbook.Path awb = ThisWorkbook.Name For smes = 1 To 12 smes = Sheets("База").Range("A" & smes) https://www.cyberforum.ru/ vba/ thread2362758.html |
VBA Expected Sub, Function, or Property
https://www.cyberforum.ru/ vba/ thread2362667.html If CStr(Cells(3, j)) = "" Then N = j - l Exit Do ' Âûõîä èç öèêëà Else j -j + 1 ' Óâåëè÷åíèå íîìåðà êîëîíêè íà 1 End If Loop сначала переключитесь на русскую раскладку клавиатуры затем копируйте код и вставляйте на форум | |||||||||||||||||
|
VBA Создать два ListBox с вывод нескольких значений X и F Приложение создано. Нужно заполнить объекты ListBox (ListBox1, ListBox2) значениями аргумента и функции. Sub Lab9() ' x(x^y - 1) , если x < 2 ' F(x,y) = x - cos(x*y) , если 2<=х<=4 ' 7 + y , если x > 4 Dim X As Single, dX As Double Dim F As Double Const Y = 8: X = -0.5 dX = UserForm1.TextBox1.Value |
VBA Вставка числа в текстовую строку
Здравствуйте, уважаемые знатоки. Прошу помощи в написании кода для вставки числа в текстовую строку (см.вложение).
В колонке А цифры, котор
Наверх
| |||||||||||||||||
