В тази статия ще научим как да броим и показваме общата сума чрез VBA в Microsoft Excel.
Нека разберем с едно просто упражнение как и къде можем да преброим и покажем суми чрез VBA в Microsoft Excel.
Имаме данни в лист 1, в който колона А съдържа категория, колона В съдържа идентификационен номер на конкурент, а колона С съдържа статус.
Сега искаме да извлечем отчет в Sheet2 в същата работна книга, който съдържа данните за преминалите и неуспешните кандидати, категорично.
Следвайте следните стъпки:-
- Натиснете клавиша Alt+F11, за да отворите страницата VBE, за да напишете макроса.
- След това отидете на раздела за вмъкване и поставете модул.
- Напишете по -долу споменатия код на страницата.
Sub CountStatus () Dim Lastrow As Long, Countpass1 As Long, countfail1 As Long Dim erow As Long, Countpass2 As Long, CountFail2 As Long Lastrow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Row erow = Sheet2 .Клетки (Редове. Брой, 1). Край (xlUp). Офсет (1, 0). Ред. = "CTY1" И Sheet1.Cells (i, 3) = "Pass" Тогава Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" И Sheet1.Cells (i, 3) = "Fail" Тогава countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" И Sheet1.Cells (i, 3) = "Pass" Тогава Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" And Sheet1.Cells (i, 3) = "Fail" then CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Pass count of CTY1," & "" & Countpass1 & "" & "Fail Count of CTY1," & " "& countfail1 & vbCrLf &" Преброяване на CTY2, "&" "& Countpass2 &" "&" Брой неуспехи на CTY2, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Изчистете Sheet2.Cells ( erow, 1) = "CTY1" Sheet2.Cells (erow, 2) = Countpass1 Sheet2.Cells (erow, 3) = countfail1 erow = erow + 1 Sheet2.Cells (erow, 1) = "CTY2" Sheet2.Cells (erow, 2) = Countpass2 Sheet2.Cells (erow, 3) = CountFail2 End Sub
• За да стартирате макроса, натиснете клавиша F5.
• Всички подробности ще бъдат актуализирани в Sheet2 според изискванията.
Това е начинът за преброяване и показване на суми чрез VBA в Microsoft Excel.
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта