|
|
| Другие темы раздела | |||||||||||||||||||||||
|
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 * c, b * c) - Min(a, b, a * b * c)) / max((a + b), b * c, a * c) End Function Private Sub CommandButton1_Click() Dim a As Single, b As Single, c As Single, y As Single a = TextBox1.Text b = TextBox2.Text |
VBA Отрицательные элементы вещественной матрицы заменить максимальным элементом.
https://www.cyberforum.ru/ vba/ thread227057.html 1.В первой строке активного листа заданы N значений одномерного массива X. Вывести во вторую строку те элементы, значения которых принадлежат диапазону . 2.Отрицательные элементы вещественной матрицы заменить максимальным элементом. 3.Определить, является ли заданное слово словом-перевертышем (шалаш — слово-перевертыш). Пожалуйста, помогите с написанием программного кода! | ||||||||||||||||||||||
|
VBA Проверка орфографии в Word Как проверить орфографию в Ворде при помощи ВБА, примеры в сети видел, но они ограничиваются выводом формы Ворда "Правописание" с приглашением проверить орфографию. Одним словом есть переменная А="орфаграфия", как при помощи ВБА узнать не прибегая ни к каким формам, если бы это слово было "орфаграфия" было бы напечатано в документе Ворда, оно бы было подчёркнуто волнистой линией, если да то... |
VBA Совместимость 32- и 64- разрядного Windows
на 64-разрядном не работает
'wav
Declare Function playsound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As LongВыскакивает сообщение:
Ошибка компиляции:
код должен быт скорректирован для использования в 64-битовых
Наверх
| ||||||||||||||||||||||
