|
|
Другие темы раздела | |
VBA Не могу найти ошибку в решении, вроде какие-то ответы выдаёт, но не роботаеть.Метод Гаусса VBA EXCEL построчно вивид.Хто
https://www.cyberforum.ru/ vba/ thread2245333.html Option Explicit Public a As Variant Public b As Variant Public x As Variant Sub Main() Dim mas() As Integer Dim a() As Double Dim a2() As Double Dim a1 As Double |
VBA Вставка изображения в определенную координату листа Доброго времени суток, форумчане! Имеется код такого вот вида: Sub вставитьpng() Dim r As Range Set r = Range(A1) With ActiveSheet.Pictures.Insert("E:\file.png") .Top = r.Top .Left = r.Left |
VBA Определить суммы элементов массива, имеющих нечётные номера.
https://www.cyberforum.ru/ vba/ thread2245285.html Условие: Составить алгоритм определения значений ниже указанных параметров линейного массива длинны n, где n = 20. Задание: Определить суммы элементов массива, имеющих нечётные номера. |
VBA Определить количество элементов массива, кратных 3 Условие: Составить алгоритм определения значений ниже указанных параметров линейного массива длинны n, где n = 20. Задание: Определить количество элементов массива, кратных 3. https://www.cyberforum.ru/ vba/ thread2245284.html |
Разработка процедуры построения относительного пути между двумя файлами VBA Помогите, не понимаю VBA вообще. Word \ Excel) Разработка процедуры построения относительного пути между двумя файлами. Дано: полный путь к «родительскому» файлу и полный путь к «дочернему» файлу. Требуется построить процедуру, формирующую путь к дочернему файлу, если папка родительского является текущей (в стиле относительных ссылок в html). |
VBA Создание пользовательских классов
https://www.cyberforum.ru/ vba/ thread2245105.html Задание Создать класс День: св-во- номер дня недели, метод- по номеру дня недели выдать "Рабочий день", "Суббота" или "Воскресенье" ------------------------------- Создал класс Private No As Integer Private Sub Class_Initialize() intNo = 1 End Sub Public Sub CreateClass1(ByVal De As Integer) |
VBA Циклы в цикле Доброго времени суток, появился вопрос, как сделать так чтобы все циклы которые находятся в данном коде просто увеличивались на 1 ? я хочу сделать так чтобы все увеличивалось одновременно на 1, а так не получается, и еще с копированием какие то проблемы, вроде бы все как надо пишу For q = 10 To 20 '' Set Rng = Range(Cells(4, 2), Cells(4 + (q - 1), 2))... https://www.cyberforum.ru/ vba/ thread2245034.html |
Интерактивная база клиентов VBA Доброго времени суток, форумчане! Создаю эту тему с целью обмена опыта по работе с языком программирования VBA. Поставил перед собой цель разработать на базе Excel интерактивную базу клиентов со следующим функционалом: Создания и редактирования предустановленных фильтров Формы для создания и редактирования контакта или компании с наличием взаимосвязи(во вложениях Вы найдете наглядный... |
VBA Как организовать проверку на ошибку? делаю кучу статистических вычислений. Потом собираю результаты функцией и формирую выводы в таком виде, как их можно вставить в отчет. Вычисления делаю для групп признаков путем перебора признаков. Но иногда возникают ошибки типа деления на ноль и проч. Как проверить содержимое переменной, прежде чем начать формировать вывод? Когда в Watch отправляю переменную - в ней содержится что-то типа... https://www.cyberforum.ru/ vba/ thread2244868.html |
VBA AutoCAD VBA. Как объединить несколько объектов в один блок и начертить это в зависимости от масштаба?
https://www.cyberforum.ru/ vba/ thread2244689.html Здравствуйте. Взялся я сделать одну штуку по сварке в Автокаде. Сделал весь интерфейс и работу на форме. Теперь осталось это перенести на чертеж. Т.е. должно выводиться, как показано на форме. Дак вот сам вопрос: Как мне программно построить объекты (линии, дуги, круги...) уже в созданном блоке(или не знаю в чем)? А потом пользователь будет выбирать точку вставки этого блока и масштаб на... |
Программа с if VBA Здравствуйте. Почему выдаёт ошибки? If CheckBox1.Value = False Then TextBox6.Visible = False & Label4.Visible = False End If If CheckBox2.Value = False Then TextBox7.Visible = False & Label5.Visible = False End If If CheckBox3.Value = False Then TextBox8.Visible = False & Label6.Visible = False End If End Sub |
VBA Заполнение документа word с формы Собственно, задача следующая Составить программу, позволяющую заполнять стандартные заявления студентов учебного заведения о приеме в профсоюз студентов. Предусмотреть возможность выбора факультета и курса из раскрывающегося списка. Дайте наводку в нужном направлении, заранее спасибо. https://www.cyberforum.ru/ vba/ thread2244520.html |
4134 / 2238 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
|
||||||
13.05.2018, 21:15 | 0 | |||||
Найти номер столбца, в котором находится минимальное число - VBA - Ответ 1238718313.05.2018, 21:15. Показов 1185. Ответов 8
Метки (Все метки)
Сообщение было отмечено Илья9 как решение
Решение
Илья9, Если в указанном диапазоне всегда наличествуют числа, то можно и так :
Вернуться к обсуждению: Найти номер столбца, в котором находится минимальное число VBA
1
|
13.05.2018, 21:15 | |
Готовые ответы и решения:
8
В матрице С [4 x 4] найти среднее арифметическое по каждому столбцу, определить номер столбца, в котором находится минимальное из них Найти номер столбца, в котором находится максимальное количество минимальных элементов столбца Найти номер строки и номер столбца, в котором находится минимальный элемент матрицы Найти наименьший элемент матрицы и номер столбца, в котором он находится |
13.05.2018, 21:15 | |
13.05.2018, 21:15 | |
Помогаю со студенческими работами здесь
0
Найти наибольший элемент матрицы А, номер строки и столбца, в котором он находится Найти минимальный элемент матрицы и указать номер столбца,в котором он находится. Найти наибольший элемент матрицы и номер строки и столбца, в котором он находится Найти наибольший элемент матрицы А, номер строки и столбца, в котором он находится |