|
|
| Другие темы раздела | |
| VBA Макрос для матриц Доброе время суток, уважаемые форумчане! Как переделать макрос, чтобы он определял размерность массива (динамический массив), затем выполнял его логарифмирование. Вторым действием, два получившихся массива (Таблицы) перемножить. Еще необходимо, чтобы этот макрос работал и на старых версиях офиса(2007 и т.д.) Код(сделан в 13-м офисе): Sub Макрос3() ' ' Макрос3 Макрос ' ' https://www.cyberforum.ru/ vba/ thread1835282.html |
Почему subscript out of range? VBA VBA выполняет все процедуры из условий даже если уже ясно что все выражение будет true или что? Заранее благодарю, файл с макросом (Task_9_button) приложила. Private Sub checkGameEnd() Dim i, j, cur As Integer For i = 0 To 2 cur = 0 For j = 0 To 2 If j = 0 Or field(i, j - 1).Caption = field(i, j).Caption Then ' Ошибка здесь cur =... |
|
VBA Как надежно защитить лист в ексель из вба
https://www.cyberforum.ru/ vba/ thread1835245.html Нарыл код, который снимает защиту листа в два счета за 1 секунду, независимо какой длины и какой сложности пароль - хоть в 200 разных символов. Как уберечь лист от этого кода? Sub Password_Cracker() Dim t! Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Long Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer... |
VBA Поменять местами элементы главной и побочной диагонали в массиве Дана матрица A. Поменять местами элементы главной и побочной диагонали. Private Sub CommandButton1_Click() Dim s() As Integer Dim f As Integer Dim g As Integer ReDim Preserve s(n, n) As Integer For i = 1 To n For j = 1 To n n = InputBox("Введите n", "Окно ввода", "") https://www.cyberforum.ru/ vba/ thread1835212.html |
|
Поменять местами элементы главной и побочной диагонали VBA Ребята, выручайте, срочно нужно решить задачу, а то не примут лабораторные работы и выгонят из универа... Дана матрица A. Поменять местами элементы главной и побочной диагонали. |
VBA Подсчет времени в TimeSerial
https://www.cyberforum.ru/ vba/ thread1835113.html возникла проблема в подсчете времени Label1.Caption = 16:30:00 n = TimeValue(Label1.Caption) + TimeSerial(7, 30, 0) VBA выдает что n = 31.12.1899 как бы переходит на новый день. а надо чтоб получилось 00:00:00 подскажите как решить проблему. при других значениях Label1.Caption программа работает исправно Добавлено через 3 минуты |
|
VBA Почему type mismatch?
https://www.cyberforum.ru/ vba/ thread1835079.html Есть у меня форма gameForm, и есть на ней 9 кнопок, при клике на которые выполняются одинаковые действия, соответственно вынесенные в отдельную функцию. Вот эта функция: Private Sub fieldClick(but As CommandButton) If but.Caption = "" Then butCaption = userPlaysFor checkForGameEnd End If End Sub И вот как вызывается эта функция при нажатии на кнопки: |
VBA Ссылка на другую книгу из функции Есть функция: Function Poisk(baza, texty) Dim massiv As Variant massiv = Workbooks("04.16_Sharing_ МАС_.xlsx").Worksheets("Лист1").UsedRange.Value For a = 5 To UBound(massiv, 1) If massiv(a, 5) = baza And Left(massiv(a, 9), 7) = Left(texty, 7) Then Poisk = massiv(a, 14) Exit Function End If Next a |
| VBA Ячейки столбцов A и B поместить в кавычки Добрый день! Имеется excel файл напечатанного ниже формата: Столбец "A" - Артикула; Столбец "B" - Артикула для сравнения. 1. Напишите пожалуйста макрос который поместит артикула в ячейках в кавычки. Пример: https://www.cyberforum.ru/ vba/ thread1835052.html | VBA Функция: вычисление суммы ряда (Excel) Составить так чтобы можно было пользоваться в Excel \sum_{n=1}^{\infty}\left(-1 \right)^n\,\frac{\left(2x \right)^{2n}}{\left(2n \right)!} https://www.cyberforum.ru/ vba/ thread1835036.html |
|
Поиск даты в массиве VBA Добрый день. Помогите решить задачку: есть 2 даты(24.10.2016 -начало и 31.10.2016 - конеч), я от начала до конца прохожу циклом for для получения каждой даты периода. При получении даты из периода проверяю на наличие этой даты в массиве праздников (массив дат выходных и праздников месяца), и если текущей даты нет в массиве праздников - пишу дату в новый массив. Понимаю, что при обходе массива с... |
VBA Разработать макро функцию с одним параметром “x", которая рассчитывает смотрите рисунок Разработать макро функцию с одним параметром “x", которая рассчитывает см рис. В функции запрещено использовать условный оператор возведения в степень и оператор (if) ! Думаю что алгоритм должен быть составлен соответствующем образом, но не вижу в чем ошибка. Public Function uz1(X As Double) Dim sign As Integer, i As Integer sign = 1 For i = 2 To 20 Step 2 https://www.cyberforum.ru/ vba/ thread1835014.html |
|
1 / 1 / 0
Регистрация: 03.12.2014
Сообщений: 329
|
|
| 26.10.2016, 20:11 [ТС] | 0 |
Как выйти из цикла - VBA - Ответ 969246626.10.2016, 20:11. Показов 3336. Ответов 3
Метки (Все метки)
Ответ
большое спасибочки)
Добавлено через 1 минуту 
Сообщение от Shersh
Вернуться к обсуждению: Как выйти из цикла VBA
0
|
|
| 26.10.2016, 20:11 | |
|
Готовые ответы и решения:
3
Как выйти из замкнутого цикла двух макросов?
do while - как выйти из цикла? |
| 26.10.2016, 20:11 | |
| 26.10.2016, 20:11 | |
|
Помогаю со студенческими работами здесь
0
Как выйти из цикла while();
Как выйти из замкнутого цикла Как принудительно выйти из цикла? |
Наверх