|
|
| Другие темы раздела | |
| VBA Проверить есть ли Dom элемент или нет добрый день. vba-Excel-парсер. Проверить есть ли элемент или нет. Есть выражение a.getElementsByClassName("pager-last")(0).getElementsByTagName("a")(0).innerHTML 'Dim a As MSHTML.HTMLDocument ' элемент DOM-а Document 'Set a = objIE.document как проверить элемент на наличие? Спасибо. https://www.cyberforum.ru/ vba/ thread2564484.html |
VBA Определить количество непустых строк в Word Добрый день, уважаемые форумяне! С Новым Годом Вас!!! подскажите пожалуйста как можно посчитать непустые строки в документе word? |
| VBA сравнение цвета ячейки Ошибку нашёл, тeму можно удалить https://www.cyberforum.ru/ vba/ thread2564446.html | VBA Вычисление координат точки пересечения графиков Здравствуйте. Прошу помощи с задачей. Задача следующая: "распечатать значения функций, пока не будет достигнуто пересечение графиков функций 2х3-x2+2, и ex/3+ex/3. Начальное значение х=-2 и изменяется с шагом 0,01." Я написал следующий код Sub zad4() Dim x, y, z As Double, n As Integer x = -2 n = 1 Do Cells(n, 1) = x y = 2 * x ^ 3 - x ^ 2 + 2 Cells(n, 2) = y z = (Exp(x / 3)) + (Exp(x /... https://www.cyberforum.ru/ vba/ thread2564344.html |
|
VBA Вставить в Word макрос средствами VBA Всем добрый вечер! Имеется код: Sub Test() Dim WDApp As Object Dim WDDoc, oWord, oDocument As Object Dim WDObj As OLEObject Set WDObj = Sheets("Test").OLEObjects("TestWord1") WDObj.Activate |
VBA Ошибка Runtime eror '438'. Object doesn't support this property or method
https://www.cyberforum.ru/ vba/ thread2564161.html Sub macro1() Dim wSheetName(1 To 5) As String wSheetName(1) = "КЦМР12" wSheetName(2) = "Forte Bank 12" wSheetName(3) = "Народный банк12" wSheetName(4) = "Каспий12" wSheetName(5) = "Kassa24 12" Dim wSheet As Worksheet For Each wSheet In Worksheets For i = 1 To 5 |
| VBA Сравнить ориентацию 2 картинок в цикле For Как в ворде сравнить ориентацию 2 картинок в цикле For если они обрабатываются в разных итерациях? https://www.cyberforum.ru/ vba/ thread2564100.html |
Userform (Не получается ассоциировать ячейки между собой) VBA Private Sub Label1_Click() End Sub Private Sub TextBox1_Change() 'Количество поставок For a = 2 To 25 If ComboBox1.Text = Cells(a, 3) Then TexBox1.Cells(a, 2) = b End If Next |
|
VBA Разрыв раздела при изменении ориентации inlineshape
https://www.cyberforum.ru/ vba/ thread2564003.html Добрый день. У меня есть документ ворд с картинками inlineshape по 1 шт на каждой странице. Подскажите, пожалуйста, как сделать так, чтобы по ходу документа при изменении ориентации картинки вставлялся разрыв раздела перед этой страницей, а также перед дополнительными номерами страниц, которые я вобью через inputbox (там другой формат листа будет). Сам новичок в этом, буду благодарен за любую... |
VBA Сохранение файла с заданным именем Добрый день! Всех с наступающими праздниками! Есть проблемка: нужно сохранить копию файла, но нужно, чтобы человек сам выбрал путь куда сохранить при этом имя файла-копии чтобы проставлялось автоматически. Думаю нужно вызвать диалоговое окно Сохранить как (это я осилил), а вот как туда автоматически подтянуть имя файла, допустим из ячейки А1...:scratch: Всем заранее спасибо! https://www.cyberforum.ru/ vba/ thread2563966.html |
|
VBA Зациклить фрагмент кода Есть макрос. По сути это один и тот же кусок кода скопированный несколько раз. Меняется только значение в скобках параметра boolstatus = myMotionStudy.SetTime(9) boolstatus = myMotionStudy.SetTime(9) boolstatus = Part.Extension.SelectByID2("Плоскость1@шар-1@4", "PLANE", 0, 0, 0, False, 0, Nothing, 0) Part.SketchManager.InsertSketch True boolstatus =... |
VBA Найти сумму произведений элементов массива в VBA (Excel)
https://www.cyberforum.ru/ vba/ thread2563729.html Добрый день. Мне нужна помощь в решении задания по VBA в excel: Массив целых чисел , i =4; j=3 ] импортируется из некоторого заполненного диапазона ячеек Excel (функция Cells). Найти сумму произведений элементов 1-ой и 4-ой строки. Результат вывести в окно MsgBox. Заранее спасибо. |
|
11508 / 3794 / 681
Регистрация: 13.02.2009
Сообщений: 11,197
|
|
| 03.01.2020, 00:16 | 0 |
Подстановка значений по похожим данным на разных листах - VBA - Ответ 1414413603.01.2020, 00:16. Показов 1051. Ответов 4
Метки (Все метки)
Ответ
А исходя из чего вы сделали вывод, что не выходит?
код предусматривает выход только из самого внутреннего цикла. А там их 6 вложенных И сколько данных на каждом листе тоже не понятно. А с таким обращением с листом: Смотрите как работать с массивами, словарями.... Вернуться к обсуждению: Подстановка значений по похожим данным на разных листах VBA
2
|
|
| 03.01.2020, 00:16 | |
|
Готовые ответы и решения:
4
Поиск одинаковых значений на разных листах
Поиск и суммирование значений по условию в разных листах |
| 03.01.2020, 00:16 | |
| 03.01.2020, 00:16 | |
|
Помогаю со студенческими работами здесь
0
Проверка на совпадение значений ячеек на разных листах
Сравнение двух пар столбцов в разных листах и вывод значений
|