excel vba function 예제 - 사칙연산, 시트개수 세기

728x90

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

시트개수 = 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