|
|
| Другие темы раздела | |
|
VBA Определить номера столбцов матрицы, в которых нет ни одного нулевого элемента
https://www.cyberforum.ru/ vba/ thread1356477.html Определить номера столбцов матрицы(4,6), в которых нет ни одного нулевого элемента. Помогите пожалуйста сделать это + блок-схему |
Сопоставить номерам телефонов организации VBA Привет! Помогите решать задачу!) В книге есть два листа: на одном звонки за месяц с разных номеров, на другом справочник, где для каждого номера указана организация. Как в первый лист для каждого звонка в соседний столбец добавить организацию? OldList = "Телефонный справочник" t = 1 While Sheets(NewList).Cells(t, 1).Text <> "" t = t + 1 Wend 't - количество... |
| VBA Найти среднее арифметическое матрицы, и определить количество элементов матрицы, его превышающих Для матрицы a(3,8) найти ее среднеарифметическое и определить количество элементов матрицы его превышающих Помогите решить пожалуйста Из написанного уже есть такое: Sub Mas Dim A(3,8) As integer For i =1 to 3 For j = 1 to 8 A(1,j)=Cells(1,j) A(2,j)=Cells(2,j) A(3,j)=Cells(3,j) https://www.cyberforum.ru/ vba/ thread1356394.html | VBA Пронумеровать первый столбец Добрый день. Как с помощью vba пронумеровать первый столбец (1.2.3.4.5 и тд.). Кол-во строк всегда разное. https://www.cyberforum.ru/ vba/ thread1356374.html |
|
Макрос для Outlook: автоматическая проверка входящих писем и сохранение аттачментов VBA Доброго времени суток,друзья! Я не являюсь специалистом в области макросов, но возникла необходимость смены почтовика и допиливания его до автоматической работы... Для наладки автоматического приема данных необходима настройка Outlook. Ранее работали с почтовиками заточенными под спутниковые системы передачи данных и там эта задача решалась на уровне MAPI интерфейса - никаких дополнительных... |
VBA Сортировка массива: доделать
https://www.cyberforum.ru/ vba/ thread1356225.html Добрый день, помогите до делать элементарную программу сортировки массива , программа работает, массив сортируется, но иногда заходит за границы, массив должен быть заполнен числами от 10 до 100 вот код Dim A() As Integer Dim Z As Integer, N As Integer Dim i As Integer, j As Integer Private Sub CommandButton1_Click() Randomize N =... |
| VBA ASCII art Коня давай Будет тебе конь :) ---------------------------_(\_/)--------------- -------------------------,((((^`\-------------- ------------------------((((--(6-\-------------- ----------------------,(((((-,,---\------------ --,,,_--------------,(((((--/"._--,',;---------- -((((\\-,...-------,((((---/----`,@)---------- -)))--;'----`"'"'""((((---(------??-------- ----- ... https://www.cyberforum.ru/ vba/ thread1356172.html |
Формирование третьего массива VBA есть массив A1...A1 и B1...B5 нужно сформировать массив С, содержащий отрицательные элементы Аi и Bj. подскажите ход действий. нужно реализовать в виде функций, желательно трех первая/основная - ввод в массив. а остальные две какие? |
|
VBA Обновление\перерисовка слайдов PowerPoint
https://www.cyberforum.ru/ vba/ thread1355977.html Добрый вечер. PowerPont 2010 Ситуация такая: Есть презентация в PowerPoint С помощью VBA меняется содержание слайдов, а именно 1. Смена заголовков 2. Показ\Скрытие элементов на слайде |
VBA Объединение содержимого ячеек в одну при нескольких условиях Доброго времени суток, Уважаемые. Подскажите, пожалуйста, как с помощью формулы решить задачу по объединеию содержимого ячеек в одну при выполнении нескольких условий. Во вложеном примере: объединить содержимое ячеек из диапазона "Наименование" и диапазона "Номер" в ячейку "Сводная для 2015" через запятую при выполнении условия 1 - наличие метки "+" и условия 2 - наличие одной из меток "2015",... https://www.cyberforum.ru/ vba/ thread1355584.html |
|
Как из XLAM запустить Sheets().Copy Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) VBA Привет. Есть макрос, который копирует две эксель вкладки на активную книгу. При это макрос в файле с расширением xlsm работает преотлично. Вот его код: Sub Combiner() If Sheets.Count > 1 Then MsgBox "Please make sure you have no more" & Chr(13) & "than ONE sheet on your active workbook." & Chr(13) & "Current quantity of sheets is " & Sheets.Count: End: End If FilesToOpen =... |
VBA Надо поменять диапазон копируемых ячеек
https://www.cyberforum.ru/ vba/ thread1355063.html Ребята прошу помочь. Надо поменять диапазон копируемых ячеек.Пока мои старания тщетны. Надеюсь на вашу помощь. Private Sub CommandButton1_Click() Me.CommandButton1.Caption = "Скопировать в Excel" Me.CommandButton1.BackColor = vbGreen Me.CommandButton1.ForeColor = vbBlack Dim n, m As Integer For n = 1 To 30 If Range(Cells(2, n), Cells(2, n)).Value = 1 Then For m = 3... |
| 19.01.2015, 21:14 | 0 |
Найти строку в матрице, где больше всего положительных элементов - VBA - Ответ 712529519.01.2015, 21:14. Показов 1202. Ответов 12
Метки (Все метки)
Ответ
Почему у похожих тем судьба незавидная: Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов (и даже не из-за блок-схем, которые мало кто вообще любит)!
Возможно, помощью будет вот такой код: Найти каких элементов больше в массиве: отрицательных или положительных (Казанский). Добавлено через 22 минуты Что-то можно почерпнуть из темы Найти произведение всех отрицательных чисел над побочной диагональю (генерацию матрицы, например). Вернуться к обсуждению: Найти строку в матрице, где больше всего положительных элементов VBA
0
|
|
| 19.01.2015, 21:14 | |
|
Готовые ответы и решения:
12
|
| 19.01.2015, 21:14 | |
| 19.01.2015, 21:14 | |
|
Помогаю со студенческими работами здесь
0
Найти в матрице столбцы, в которых положительных элементов больше, чем отрицательных Найти в матрице последний столбец, в котором положительных элементов больше чем отрицательных |
Наверх