|
|
| Другие темы раздела | ||||||||||||||||||
|
VBA Вставить программу-функцию
https://www.cyberforum.ru/ vba/ thread227863.html Преобразовать матрицу а(м,н) так, чтобы столбцы были упорядочены по убыванию Все сделала, все работает. НО(!) препод сказал, что тема называется программы-функции, а знач они должны быть использованы в задании. Ума не приложу куда ее, функцию, всунуть. Помогите, пожалуйста. Dim a() As Single, n As Single, m As Single, i As Integer, j As Integer Private Sub CommandButton1_Click() Dim... |
VBA Определить средние значения площади стран и их населения для каждого полушария Земли Создать электронную таблицу3 MS Excel. Определить средние значения площади стран и их населения для каждого полушария Земли, а также эти показатели для всех представленных в таблице стран. Для данных Западное Среднее, Восточное Среднее, Общий итог построить гистограмму по площади. Полушарие Земли Часть света Страна Площадь, тыс. кв. км Население, тыс. чел. Плотность населения, чел./кв. км.... | |||||||||||||||||
| VBA Снятие значение с других CheckBox На форме есть 4 "флажка". Надо чтобы через 1 макрос, поставленный на все 4 флажка выполнялось следующее действие: если кликнули на флажок1, то снять флажки с флажок2,3,4 , если кликнули на флажок2, то снять с фладок1,3,4 и т.д. Может быть решить так: узнать имя кликнутого флажка, снять все флажки и установить флажок на кликнутый. Это моему сыночке надо. Сами-то не изучали VBA https://www.cyberforum.ru/ vba/ thread227800.html |
VBA Определить количество строк матрицы, состоящих из равных элементов
https://www.cyberforum.ru/ vba/ thread227779.html Доброго времени суток, есть задачка, никак не могу сделать,жду вашей помощи. Дана целочисленная прямоугольная матрица A(m,n), m<=15,n<=10. Определить количество строк состоящих из равных элементов.Найденное кол-во вывести в текстовое поле.Если таких строк не окажется,то заменить значения элементов строк с нечетными индексами на единицу.Матрицу ввести,использую inputbox.Исходную и... | |||||||||||||||||
|
Считать примечание VBA Добрый вечер! Помогите, пожалуйста написать макрос! В табл. Exсel 2 столбца, в ячейках число и примечание(текст). Необходимо считать примечание из первого столбца и если есть примечание во втором, сложить примечания(примечание ячейки первого столбца+примечание ячейки второго столбца) и записать(уже объединенное примечание) в соседний столбец! Если примечание есть только в одном столбце, то... |
VBA Найти остаток от деления двух действительных чисел Задание такое: найти остаток от деления двух действительных чисел. Реализовал вот так: Sub Lab4_1() Dim a! Dim b! Dim c As Double a = Cells(2, 1) b = Cells(2, 2) c = a Mod b Cells(2, 3) = c https://www.cyberforum.ru/ vba/ thread227742.html | |||||||||||||||||
|
VBA Замена части содержимого TextBox
https://www.cyberforum.ru/ vba/ thread227687.html Дано: 1) 3 текстовых поля: Вох1, Вох2, Вох3; 2) 3 кнопки: Добавить, Поместить, Обновить. Вводим в поле Вох1 текст, н-р "Кабинет ", нажимаем на кнопку Добавить и в поле добавляется текст "Х", в итоге содержимое поля Вох1: "Кабинет Х". Далее нажимаем кнопку Поместить и содержимое поля Вох1 отображается в поле Вох2 (содержимое поля Вох2:"Кабинет Х"). Затем вводим в поле Вох3 текст:... |
VBA в ворде VBA В ворде очень мало работал с VBA Пытаюсь найти и удалить(заменить) кусок текста между двойными квадратными скобками. Нахожу позицию обних и позицию других. Но это не те позиции! Опытным путем нашел нужные значения Что такое это 57? Это разница между найденным и эксперементальным значением Set R1 = ActiveDocument.Range Pos1 = InStr(1, R1.Text, "]") Debug.Print Pos1, pos2 Set R2 =... | |||||||||||||||||
| VBA таблица результатов сдачи физо. Всем привет!!! С прошедшими и наступающими праздниками!!! нужна небольшая помощь. Сам я полный ноль в VBA, а для Вас это небольшая разминка. Суть проблемы такова. Необходимо заполнить таблицу сдачи физо. сложность заключается в том, что в одной таблице находятся разные категории и соответственно сдаются разные упражнения. номер упражнения и результат вводится в ручную а вот количество балов за... https://www.cyberforum.ru/ vba/ thread227416.html | VBA Функция НОМИНАЛ В общем такой трабл, в лабе надо было реализовать следующие: Возвращает номинальную годовую ставку, если заданы эффективная (фактическая) ставка и число периодов в году, за которые начисляются сложные проценты. Все сделал, проработчику сдал ее, а вот лектор не хочет принимать. Ошибки он пометил желтым и синим цветом. Может у кого то есть идеи как сделать так, чтоб угодить ему. https://www.cyberforum.ru/ vba/ thread227196.html | |||||||||||||||||
|
Удаление пустых строк листа VBA Помогите, пожалуйста, исправить макрос так, чтобы он удалял не все пустые ячейки, а удалял только строку целиком, только в том случае, если в ней не заполнена ни одна ячейка. Sub deleteemptyrows2() Selection.SpecialCells(xlCellTypeBlanks).Select Selection.delete Shift:=xlUp End Sub |
VBA Функция в функции VBA
https://www.cyberforum.ru/ vba/ thread227071.html 1)Даны числа a,b,c . Вычислить: Z = (max(a * b, a * c, b * c) - Min(a, b, a * b * c)) / max((a + b), b * c, a * c) Function Z(a, b, c) As Single Z = (max(a * b, a *
Наверх
| |||||||||||||||||
Сообщение от unick12345
