효율적인 코딩 기법 (초급)

1. Choose문에 대해서 알아보자

    Function Choose(Index As Single, ParamArray Choice() As Variant)

위와 같이 부서를 선택 할경우 메시지박스 출력 프로그램을 코딩 한다고 과정 해보자
select문 또는 if문으로 코딩을 할수 있다 여기서 한번 Select 문으로 코딩을 해보겠다.

Private Sub optC_Click(Index As Integer)
    Dim dVal As String
    Select Case Index
       Case 0
           dVal = "개발"
       Case 1
           dVal = "홍보"
       Case 2
           dVal = "영업"
       Case 3
           dVal = "전산"
    End Select
    MsgBox dVal & " 선택하였습니다.", vbOKOnly, "예제1"
End Sub

이보다 더 효과적으로 코딩. 

Private Sub optC_Click(Index As Integer)
Dim dVal As String
dVal = Choose(Index + 1, "개발", "홍보", "영업", "전산")
MsgBox dVal & " 선택하였습니다.", vbOKOnly, "예제1"
End Sub

 2. Switch문
  Function Switch(ParamArray VarExpr() As Variant)

 콤보박스 선택 해서 메시지박스 를 출력하는 프로그램을 코딩 할 때 

Private Sub cmdSelect_Click()
    Select Case CobS.ListIndex
       Case 0
       MsgBox "전산팀"
       Case 1
       MsgBox "홍보팀"
       Case 2
       MsgBox "기획팀"
       Case 3
       MsgBox "개발팀"
    End Select
End Sub

 

Private Sub cmdSwitch_Click()
    Dim Cval As Integer
    Cval = CobS.ListIndex
    MsgBox Switch(Cval = 0, "전산팀", Cval = 1, "홍보팀", Cval = 2, "기획팀", Cval = 3, "개발팀")
End Sub 

3. IIF문
    Function IIf(Expression, TruePart, FalsePart)

 Private Sub cmdIF_Click()
    If Opt(0).Value = True Then
           MsgBox "사과"
    Else
           MsgBox "나무"
    End If
End Sub

Private Sub cmdIIF_Click()
    MsgBox IIf(Opt(0).Value = True, "사과", "나무")
End Sub

 정수형도 됨