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 |
'Excel VBA > VBA 예제' 카테고리의 다른 글
| unique뽑아내기 (0) | 2018.09.22 |
|---|---|
| excel vba 정렬 (0) | 2018.09.19 |
| excel vba function 예제 - 사칙연산 (0) | 2018.07.25 |
| 열개수 숫자를 알파벳으로 ex)27 -> AA (0) | 2018.07.24 |
| excel vba 글자 나누기 Split() (0) | 2018.07.11 |
| excel vba 날짜 다루기 now, string -> dateObject date add (0) | 2018.06.19 |
