|
|
Другие темы раздела | |
VBA Vba задача
https://www.cyberforum.ru/ vba/ thread1410989.html Всем привет. Помогите бедному студенту с задачкой) Ее условие :Информация о продаже автомобилей содержит следующие данные: марка, цвет, год выпуска, объем двигателя, цену. Написать программу, в которой: -обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле; -организовать выборку из типизированного файла информации об автомобилях заданной марки и ценой ниже средней, вывод... |
VBA Worksheet_BeforeDoubleClick Добрый день, можно ли задать это событие не на весь лист, а на отдельный столбец? Идея такова: если 2ной щелчок на ячейку из столбца А:А, то ячейка копируется и значение вставляется в другую ячейку, если двойной щелчок на другой столбец, то не копируется (или копируется, но не вставляется) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If... |
VBA Можно ли использовать макрос без книги?
https://www.cyberforum.ru/ vba/ thread1410717.html В макросе прописан скрип открывающий определенную книгу и поверх книги форму , в форме textbox'Ы привязаны к листу в книге excel , как сделать что бы я просто видел форму а как редактируется книга не показывалось, а после всех изменений книга сохранилась с новыми данными? Возможно ли это , т.е. формы выглядели как отдельная программа ? |
VBA Не получается правильно обозначить диапазон Помогите пожалуйста найти ошибку в коде, диапазон не получается правильно обозначить? Sub Programm() Dim WBook As Workbook Dim iFilter As Range Dim MyRange As Range Dim iCell As Range Dim IpRange As Range Dim iFirstCell As Integer Dim iLastCell As Integer https://www.cyberforum.ru/ vba/ thread1410688.html |
Разрешить ввод в TextBox только цифр VBA у меня есть код ввода только цифр, при вводе буквы выходит ошибка, как сделать, чтобы выходило окно...к примеру, "Буквы нельзя!!" ?? Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Chr(KeyAscii) = "-" And _ InStr(1, TextBox1.Text, "-") = 0 Then KeyAscii = 0 TextBox1.Text = "-" & TextBox1.Text Else KeyAscii = IIf(InStr(1, "0123456789" & Chr(8), Chr(KeyAscii)) >... |
VBA Обращение к Label по индексу вызывает ошибку Первое условие выполняется нормально - если в Combobox1 выбрана запись содержащая первую букву "С" Результат выводится в несколько надписей - label. Если в combobox1 выбрана другая запись , то вылетает ошибка: Run-time error '-2147024809 (80070057)' Could not find the specified object Код : Private Sub CommandButton1_Click() Dim sStr As String Dim i As Integer If ComboBox1.Text <>... https://www.cyberforum.ru/ vba/ thread1410614.html |
VBA Разделить число на 2 ячейки
https://www.cyberforum.ru/ vba/ thread1410547.html Добрый день, подскажите, возможно ли решить следующую задачу с помощью формулы или макроса? В диапазоне ячеек А1:А3 есть числовые значения (100, 200,100) необходимо чтобы при вводе формулы (макроса) В ячейках А1:А3 осталось 90% от числа на 10% переместилось в соответствующие В1:В3 т.е. было 100,200,100 стало |
Отключение шифрование в outlook VBA Добрый день! Я через vba в outlook отправляю письма, всё работает отлично. Вот мой макрос: Set OutlookApp=CreateObject("Outlook.Application") Set SM=OutlookApp.CreateItem(olMailItem) SM.TO=qwe@qwe.ru SM.Subject="Тема" |
VBA Рекурсивный поиск
https://www.cyberforum.ru/ vba/ thread1410469.html Здравствуйте, есть кнопка с выбором папки и выводом файлов *.doc в listbox. Можно ли сделать рекурсивный поиск? Например выбираю Папку, и в ней есть несколько под папок с файлами *.doc, и он считывает все файлы в lsitbox Код кнопки Private Sub CommandButton1_Click() curr_dir$ = Module1.SelDir(0) If curr_dir$ <> "" Then Me.Label2 = curr_dir$ ... |
VBA Как использовать CheckBox по другому ?
https://www.cyberforum.ru/ vba/ thread1410457.html Необходимо что бы при активном (нажата галочка ) CheckBox, использовалось его название в тексте , например : sSubject = "бла бла бла " & UserForm2.TextBox24 & UserForm2.CheckBox1.Caption'(есть ли другая команда выполняющая такую же функцию ?) |
Добавление строки макросом VBA Здравствуйте! Помогите, пожалуйста! Есть защищенная книга из 5 листов. Как выполнить макрос, чтобы добавлялась снизу новая строка на всех листах с формулами предыдущей? |
VBA Using Microsoft.Office.Interop.Excel как изменить имя листа
https://www.cyberforum.ru/ vba/ thread1410099.html Добрый день! В excel лист имеет два имени (то, что отображается на вкладке и то, как к нему обращаются из VBA). То, что на вкладке, меняется легко через свойство Name: m_objSheet.Name = "Тест" Подскажите, как поменять второе имя? |
03.04.2015, 04:33 | 0 |
Найти наименьшие элементы каждой строки матрицы и поставить их первыми - VBA - Ответ 742664003.04.2015, 04:33. Показов 846. Ответов 3
Метки (Все метки)
Ответ
Вот это да! В шаге от звания хакера.
Столь успешное начало здесь большая редкость: www.cyberforum.ru/vba/thread1212700.html#6 — припоминаю лишь один подобный случай, с Natashamakros! Добавлено через 2 часа 25 минут Ну вот что пока получилось, исключительно для двух колонок (зато коротко): Вернуться к обсуждению: Найти наименьшие элементы каждой строки матрицы и поставить их первыми VBA
2
|
03.04.2015, 04:33 | |
Готовые ответы и решения:
3
Определить наименьшие элементы каждой строки матрицы и найти их сумму Найти наименьшие элементы каждой строки квадратной матрицы и поместить их на главную диагональ Найти наименьшие, отрицательные, элементы каждой строки матрицы EW{m, m} находящиеся над главной диагональю и переписать их в одномерный массив W. Наименьшие отрицательные элементы каждой строки матрицы |
03.04.2015, 04:33 | |
03.04.2015, 04:33 | |
Помогаю со студенческими работами здесь
0
Найти в строках матрицы самые левые наименьшие элементы и поставить их в первый столбец Наибольший и наименьший элементы каждой строки матрицы поставить на первое и последнее место Выбрать в строках матрицы самые левые наименьшие элементы и поставить их в первый столбец Выбрать в строках матрицы самые левые наименьшие элементы и поставить их в первый столбец Вывести наименьшие элементы каждой строки и их индексы Для каждой матрицы найти наибольшие элементы каждой строки |