Подсчитать сумму! - Microsoft Office Excel

Deman4eg · 01.04.2008, 16:08

Добрый всем день. Нужен скромненький макросик от которого зависит судьба отчета. Имеем столбцы с цыфрами, нужен МАКРОС который бы отминусовывал цыфры в ячейке столбца О от цыфр в ячейке столбца Р и писал результат в ячейку колонки Q при условии что в ячейке столбца W стоит цыфра 3. Тоесть если в ячейке столбца W пусто или другая цыфра то ничего считать не надо. Жду комментариев.

Pavel55 · 01.04.2008, 19:05

Либо формулой

=ЕСЛИ(W2=3;P2-O2;0)

ну, и если нужен макрос

Код:

Sub Макрос1()
Dim i As Long
    For i = 2 To Cells(Rows.Count, "P").End(xlUp).Row
        If Cells(i, "W") = 3 Then Cells(i, "Q") = Cells(i, "P") - Cells(i, "O")
    Next i
    MsgBox "Конец", 64, ""
End Sub

Deman4eg · 02.04.2008, 09:16

Спасибо большое. Вроде все так как нужно, сейчас буду "внедрять".

01.04.2008, 16:08	#1
Deman4eg Пользователь Регистрация: 20.02.2008 Сообщений: 12	Подсчитать сумму! Добрый всем день. Нужен скромненький макросик от которого зависит судьба отчета. Имеем столбцы с цыфрами, нужен МАКРОС который бы отминусовывал цыфры в ячейке столбца О от цыфр в ячейке столбца Р и писал результат в ячейку колонки Q при условии что в ячейке столбца W стоит цыфра 3. Тоесть если в ячейке столбца W пусто или другая цыфра то ничего считать не надо. Жду комментариев. Последний раз редактировалось Deman4eg; 01.04.2008 в 16:14.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Можно ли подсчитать FPS в другом процессе?	Minimus	Win Api	7	26.08.2008 02:08
Подсчитать количества знака в числе	valerij	Microsoft Office Excel	5	17.08.2008 16:52
Как подсчитать все значения в колоне	aesoem	БД в Delphi	5	03.07.2008 15:50
Подсчитать сумму цифр числа введеного с клавиатуры. Prolog	Дурин	Помощь студентам	3	10.01.2008 16:29

02.04.2008, 09:16	#3
Deman4eg Пользователь Регистрация: 20.02.2008 Сообщений: 12	Спасибо большое. Вроде все так как нужно, сейчас буду "внедрять".