Advertisement
balkan

Excel Macros 10a

May 28th, 2022
793
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub GradeCount()
  2. '
  3. ' GradeCount Macro
  4. ' Проверка на брой оценки
  5. '
  6.  
  7. Dim otlichen, mnDobyr, dobyr, sreden, slab As Integer
  8.  
  9.     otlichen = WorksheetFunction.CountIf(Range("C2:C6"), 6)
  10.     Range("G3").Value = otlichen
  11.    
  12.  
  13.     MsgBox otlichen
  14.  
  15. '
  16. End Sub
  17.  
Advertisement
RAW Paste Data Copied
Advertisement