728x90
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 | Sub main_function() Cells.Clear result = plus(10, 20) result2 = minus(10, 20) result3 = multiple(10, 20) result4 = divide(10, 20) Range("a1").Value = result Range("a2").Value = result2 Range("a3").Value = result3 Range("a4").Value = result4 End Sub Function plus(val1, val2) plus = val1 + val2 End Function Function minus(val1, val2) minus = val1 - val2 End Function Function multiple(val1, val2) multiple = val1 * val2 End Function Function divide(val1, val2) divide = val1 / val2 End Function | cs |
시트개수 = ActiveWorkbook.Worksheets.Count
728x90
'Excel VBA > VBA 예제' 카테고리의 다른 글
고급필터 예제, 해당 시트 존재 여부 알려주는 function (0) | 2020.11.10 |
---|---|
구글 스프레드시트 세로값 펼치기 (0) | 2019.05.09 |
excel vba function 예제 - 사칙연산, 시트개수 세기 (0) | 2018.07.25 |
열개수 숫자를 알파벳으로 ex)27 -> AA (0) | 2018.07.24 |
excel vba 날짜 다루기 now, string -> dateObject date add (0) | 2018.06.19 |
excel vba regexp (0) | 2018.06.02 |