티스토리 뷰


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(1020)
    result2 = minus(1020)
    result3 = multiple(1020)
    result4 = divide(1020)
    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

공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크
«   2024/03   »
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 28 29 30
31
글 보관함