|
|
| Другие темы раздела | |
|
VBA Сохранение формата таблицы
https://www.cyberforum.ru/ vba/ thread2213527.html Добрый день! Имеется макрос,который заливает цветом определенным нужные ячейки таблицы. В таблице имеются объедененные ячейки,но при работе макроса они снова разделяются.Помогите сделать так,чтобы формат таблицы сохранялся. Вот собственно сам макрос: Sub Format() Dim myColor(1 To 15, 1 To 2) As String Dim rngSearch As Excel.Range Dim rngFind As Excel.Range, myAddress As... |
VBA Перенос макроса Excel в Гугл Таблицу Есть таблица в эксель с макросом. Помогите переписать код на ява скрипт для гугл таблицы, пожалуйста!! Таблица вот, просто должна фиксировать смену статуса (дата/время) при вводе в колонки значений. |
|
VBA Проверить наличие ссылки на веб-странице
https://www.cyberforum.ru/ vba/ thread2213201.html Добрый день, на фрейме веб-страницы может располагаться ссылка с текстом Взять задачу в работу. Но данная ссылка также может и отсутствовать. В коде макроса нажимаю на ссылку следующим образом^ If IEdoc.frames(1).document.Links(0).innerText = "Взять задачу в работу " Then IEdoc.frames(1).document.Links(0).Click Как проверить есть ли данная ссылка на фрейме либо ее нет? Заранее спасибо. |
VBA Подпрограммы: площади, периметры Доброго времени суток:), задача вроде бы простая, но что то не получается и еще ошибку выдает Задача: Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров и сумму их площадей. Определить процедуру для расчета периметра и площади равнобедренной трапеции по ее основаниям и высоте. Dim a1 As Integer, b1 As Integer, h1 As Integer, p1 As Integer, s1 As Integer, a2 As... https://www.cyberforum.ru/ vba/ thread2213140.html |
|
Задать имя ячейки в виде переменной в VBA VBA Есть пример: выделения незаполненных ячеек цветом Range(Cells(iStart, 11), Cells(n + iStart - 1, 11)).Select 'выделяю диапазон ячеек для вставки формулы Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ЕПУСТО($k2)" 'устанавливаю формулу Selection.FormatConditions(1).Interior.Color = VBA.RGB(255, 0, 0) 'говорю чем закрашивать пример работает, но только в том... |
VBA Изменить путь сохраняемого файла: WinAPI в VBA Всем доброго времени суток! Вопрос с применением API-функций в VBA: Нужно поменять путь сохраняемого файла в строке адрес, диалоговое окно Windows "Сохранить как" Как сделать поле Edit активным, т.к. смотрю через Spy++ окно серое. SetFocus и мышиные сообщения не помогли...Насколько я понял, повозившись с API-функциями, здесь (в Си) очень много разных параметров, и нужно точно знать как что... https://www.cyberforum.ru/ vba/ thread2212790.html |
| VBA Удалить последний отрицательный элемент Сейчас последний отрицательный элемент заменяется на 0, подскажите, как его удалить ? Sub zad5() Dim a(5) As Integer, n As Integer, p As Integer, m As Integer, t As Integer For n = 1 To 5 a(n) = Int(Rnd * 41) - 20 Cells(n, 1) = a(n) Next For n = 5 To 1 Step -1 If a(n) < 0 Then m = n: Exit For https://www.cyberforum.ru/ vba/ thread2212780.html |
VBA Вставить число после всех нечетных элементов Нашел нечетные элементы массива, подскажите, как после всех нечетных элементов вставить число 400 ? Dim a() As Integer, n As Integer, b() As Integer, i As Integer, j As Integer Randomize n = 12 ReDim a(1 To n) For i = 1 To n a(i) = Int(Rnd * 71 - 10) Next i |
| VBA Заменить все четные элементы на их квадраты, а нечетные удвоить Нашел четные и нечетные элементы, подскажите как их вывести в новый listbox ? И четные заменить на их квадраты, а неченые удвоить. Private Sub CommandButton1_Click() Dim c As Long N = Val(InputBox("введите количество элементов массива", , 10)) List1.Clear: ListBox1.Clear ReDim A(N) Randomize For i = 1 To N https://www.cyberforum.ru/ vba/ thread2212754.html |
VBA Элементы стоящие на четных местах т.е имеющие четный номер
https://www.cyberforum.ru/ vba/ thread2212735.html Есть программа, которая ищет четные элементы, подскажите, а как сделать так, чтобы она искала четные элементы на четных местах(т.е имеющие четный номер) ? Private Sub CommandButton1_Click() Dim P As Byte, N As Byte, A(1 To 100) As String, i As Byte Randomize f = Val(InputBox("введите количество элементов массива")) For i = 1 To f A(i) = Int(100 * Rnd + 5) If A(i) Mod 2 <> 0 Then... |
|
Как избежать появление диалога при удалении листа VBA Удаляю листы с данными в VBA. Как отключить вопрос о том, что на листе есть данные, а я тут такой крутой вознамерился их удалить? |
VBA Разработайте функцию пользователя для расчета общей численности государств, чья площадь превышает 5 млн. км2
https://www.cyberforum.ru/ vba/ thread2212483.html Известны данные о численности населения (в млн. жителей) и площади (в млн. км2) государств. Разработайте функцию пользователя для расчета общей численности государств, чья площадь превышает 5 млн. км2 |
|
3897 / 2302 / 776
Регистрация: 02.11.2012
Сообщений: 6,119
|
||||||
| 20.03.2018, 10:12 | 0 | |||||
Занесение в массив значений с первого столбца всех листов - VBA - Ответ 1223010920.03.2018, 10:12. Показов 1802. Ответов 8
Метки (Все метки)
Ответ
1. зачем 13 строка если вы её далее нигде не используете?
2. от Select желательно избавится. 3. в начале Application.ScreenUpdating = False 'отключаем обновление экрана, ну а затем в конце кода возвращаем Application.ScreenUpdating = True 'включаем обновление экрана Добавлено через 2 минуты
у вас цикл по определенным листам или все таки по всем? Вернуться к обсуждению: Занесение в массив значений с первого столбца всех листов VBA
1
|
||||||
| 20.03.2018, 10:12 | |
|
Готовые ответы и решения:
8
Определить наименьшее из всех значений элементов первого столбца матрицы и вывести его на экран Найти итоги из всех листов другой книги и записать в факт для всех выделенных значений рабочей книги Занесение значений БД в массив
|
| 20.03.2018, 10:12 | |
| 20.03.2018, 10:12 | |
|
Помогаю со студенческими работами здесь
0
Установка всех галочек в DataGridView первого столбца Отсортировать строки матрицы по возрастанию значений первого столбца |
Наверх