Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Подсчитать количество календарных дней по неиспользованным отпускам поквартально данный файл считает количество календарных дней по неиспользованным отпускам поквартально Sub smena_goda() 'текущий год +1 - меняет текущий год на следующий, из последнего столбца все данные переносятся на начало года Sub podschet_mes() - подсчитывает на основе первого квартала сколько календарных дней отпуска "зарабатывает" человек в том или ином квартале Sub vichislenie_3kv() - если... https://www.cyberforum.ru/ vba/ thread154994.html VBA Создание выпадающего списка как в яндексе или Т9
Привет профессионалам, может кто знает как это сказать. Вопрос следующчий возможно сделать такую вещьч?... Во время приема больных доктор набивает в сделанном в VBA макросе Ворда, точнее сказать в TextBox'е - информацию по больному - жалобы, история заболевания, итд. Т.к. объемы оперативной памяти у специалистов разный :), то информация в этих разделах в основном похожа, за исключением нЮансов,...
VBA Суммирование числа с одним и тем же значением, которое вводится в другую форму Доброе время суток! Совсем недавно изучаю VBA! Задача такая! существует два окна. В одном заводится число, в другом это же число отображается! В первом меняется число, во втором к исходному числу прибавляется только что измененное число! Подскажите кто знает, как это красиво реализовать. Второе число меняется самостоятельно раз в 5 минут. Заранее благодарю https://www.cyberforum.ru/ vba/ thread154672.html VBA Убрать лишнее сообщение https://www.cyberforum.ru/ vba/ thread154357.html
Подскажите, пожалуйста, в скрипте представленном ниже, как убрать сообщение: программа пытается получить доступ к адресам электронной почты Dim OutlookApp As Outlook.Application Dim Contact As Outlook.ContactItem Set OutlookApp = New Outlook.Application Количество_контактов = OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Count For Each Contact In...
VBA Модули и макросы в Нормал дот
Подскажите, как при помощи ВБА узнать количество и имена всех модулей в Нормал дот и количество, и имена всех макросов в каждом модулей.
VBA Excel/MSQuery+SQL+VBA https://www.cyberforum.ru/ vba/ thread153777.html
Уважаемые Гуру и все кто сможет помочь... Не уверена что выбрала правильный раздел.. Расскажу суть проблемы с самого начала. В организации 1С ТиС7.7. Много пользователей, работает вяло, минимальный объем данных выгружается достаточно долго. Но при этом большинство пользователей извлекает по большей части сходные данные, просто по-разному организованные. Возникла идея ограничить доступ...
VBA Выполнить операции после проверки истинности значения в ячейке CheckBox Здравствуйте! Помогите, пожалуйста, выполнить следующее: необходимо выполнить действия в случае, если в окне флажок отмечен галочкой. Обращение к флажку происходит так: Application.Worksheets("Ф.1").Range("Флажок 30") Варианты программного кода: Вариант1 : if Application.Worksheets("Ф.1").Range("Флажок 30").Value=True then 'do something End If Вариант2 : if... https://www.cyberforum.ru/ vba/ thread153716.html 2 задания по массивам VBA
Оформить след. образом:(это на всякий случай) Ввод - ячейки экселя\окно сообщений\поле формы Вывод - ячейки экселя\окно сообщений\поле формы 1) След. Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов. Найти след матрицы, суммируя элементы одномерного массива. Не могу разобраться с квадратной матрицей. И не могу понять - нужно ли создовать...
VBA Маленький массив выбирает из большого по критерию "больше нуля" https://www.cyberforum.ru/ vba/ thread153621.html
Здравствуйте господа. Вот какая задача вызывает у меня затруднение. Есть два столбца в Excel (высотой 20 тыс. строк каждый). В столбце A - последовательные даты. В столбце В - числа. В основном это нули, но иногда попадаются положительные дробные числа, например, 78,43. Возможно ли на основании этих двух столбцов сделать массив (на другом листе), чтобы он выбирал из столбца B только те...
VBA Макрос на VBA Помогите плиз. Допустим в столбце "B" находяться номера серийные делатей, а в столбце "F" допустим какието данные. Структура всех вкладок книги excel одинакова. Нужно, чтоб если мы поменяли данные в столбце "F", то запоминаеться его серийный номер детали, который находиться в столбце "B"....и автоматически прогоняет по всем вкладкам книги и ищет есть ли совпадения серийного номера в стоблце... https://www.cyberforum.ru/ vba/ thread153598.html
Как поставить блокировку на прорисовку документа Word? VBA
Доброе время суток! Мне нужно, чтобы элементы в документе прорисовывались невидимо для пользователя. Т.е. изменения были видны сразу, а не появлялись постепенно. Какую функцию VBA для этого можно использовать? Цикл заполнения шаблона документа такой: For intLoopRow = 0 To intRows - 1 'Создаем новый документ на основе шаблона Set Doc = Nothing If arrayRows(2,...
VBA Группировкой программно VBA https://www.cyberforum.ru/ vba/ thread153487.html
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 40
0

В матрице поменять местами чётные и нечётные строки - VBA - Ответ 867827

21.07.2010, 20:06. Показов 2622. Ответов 6
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста. Совсем нету времени в VB разбираться.

Задание: В квадратной матрице поменять чётные и нечётные строки.

Буду ну очень благодарен))

Добавлено через 27 минут
Вродь написал, может где хрень написана, гляньте.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub matrix()
Dim A(1 To 100, 1 To 100) As Integer
Dim I As Integer, J As Integer
Dim Sum As Integer
N = 0
J = 1
Do While Worksheets("Лист1").Cells(1, J).Value <> ""
  N = N + 1
  J = J + 1
Loop
For I = 1 To N
  For J = 1 To N
    A(I, J) = Worksheets("Лист1").Cells(I, J).Value
  Next J
 Next I
  
 For I = 1 To N
    If (I Mod 2 <> 0) And (I + 1 <= N) Then
     For J = 1 To N
        b = A(I, J)
        A(I, J) = A(I + 1, J)
        A(I + 1, J) = b
        Worksheets("Лист1").Cells(I, J).Value = A(I, J)
        Worksheets("Лист1").Cells(I + 1, J).Value = A(I + 1, J)
     Next J
    End If
Next I
 
End Sub


Вернуться к обсуждению:
В матрице поменять местами чётные и нечётные строки VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.07.2010, 20:06
Готовые ответы и решения:

Поменять местами нечетные и четные строки в матрице Фортран
Помогите девушке, не понимаю как это написать.... Человек вводит с клавиатуры матрицу в...

Поменять местами в матрице четные и нечетные элементы
напишите прогу ,плиз..жизневажно))спс

Поменять местами нечетные и четные строки
Дан двумерный массив M Разработать программу в результате выполнения которой каждая нечетная и...

Поменять местами четные и нечетные символы строки
поменять местами четные и нечетные симвила строки

6
21.07.2010, 20:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.07.2010, 20:06
Помогаю со студенческими работами здесь

Поменять местами четные и нечетные символы строки
сама программа меняет символы только без цикла ... как это зациклить?? data segment str db 10...

Поменять местами четные и нечетные символы строки
Помогите решить задачку на ассемблере. Создать произвольную строку элементов byte. Из нее создать...

Поменять местами четные и нечетные строки в файле
Задача проста, но дойти ко мне не может. Есть файл, в котором 4 строки, и нужно поменять местами...

Поменять местами четные и нечетные строки матрицы
Дана матрица вещественных чисел размером N на M. Из исходной матрицы получить новую матрицу,...

Поменять местами все четные и нечетные строки матрицы
Дана матрица размером N строк и M столбцов. Поменять местами все четные и нечетные строки матрицы.

В текстовом файле поменять местами чётные и нечётные строки
Создать файл, содержащий произвольные строки. Заменить строки файла так, чтобы их порядок был...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru