‘\uc601\ubb38 \uc22b\uc790\ub9cc \uc785\ub825\uac00\ub2a5 \ud558\uac8c \ub9cc\ub4e0 \ud568\uc218 (\uc77c\uc77c\uc774 \uc801\uae30 \uadc0\ucc2e\uc544\uc11c \ub9cc\ub4e4\uc5c8\uc74c)
\nPublic Function CharacterMode(KeyAscii As Integer, Mode As Integer, Optional CharacterCode1 As Integer, Optional CharacterCode2 As Integer) As Integer
\n‘mode:’\uc601\ubb38 0 ‘\uc22b\uc790 1 ‘\uc601\ubb38+\uc22b\uc790 2
\n”’22 Ctrl+V
\n”’3 Ctrl+C
\n”’24 Ctrl+X
\n’66~90 :A~Z 97~122 :a~z
\n’48~57 :0~9
\n’47 : \/ ,
\n‘8 : backspace,
\n‘tab, enter \ub4f1\uc740 \ud544\uc694\ud558\uc2dc\uba74 \ucd94\uac00. \ub3c4\uc6c0\ub9d0\uc5d0\uc11c Ascii \ucc3e\uae30<\/p>\n
Select Case Mode<\/p>\n
Case 0 ‘\uc601\ubb38<\/p>\n
If KeyAscii <> 3 And KeyAscii <> 22 And KeyAscii <> 24 And _
\nKeyAscii <> 8 And _
\nKeyAscii <> CharacterCode1 And _
\nKeyAscii <> CharacterCode2 And _
\n(KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then
\nKeyAscii = 0 ‘\uc81c\uc678\ud558\uae30
\nEnd If<\/p>\n
Case 1 ‘\uc22b\uc790<\/p>\n
If KeyAscii <> 3 And KeyAscii <> 22 And KeyAscii <> 24 And _
\nKeyAscii <> 8 And _
\nKeyAscii <> CharacterCode1 And _
\nKeyAscii <> CharacterCode2 And _
\n(KeyAscii < 48 Or KeyAscii > 57) Then
\nKeyAscii = 0 ‘\uc81c\uc678\ud558\uae30
\nEnd If<\/p>\n
Case 2 ‘\uc601\ubb38+\uc22b\uc790<\/p>\n
If KeyAscii <> 3 And KeyAscii <> 22 And KeyAscii <> 24 And _
\nKeyAscii <> 8 And _
\nKeyAscii <> CharacterCode1 And _
\nKeyAscii <> CharacterCode2 And _
\n(KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And _
\n(KeyAscii < 48 Or KeyAscii > 57) Then
\nKeyAscii = 0 ‘\uc81c\uc678\ud558\uae30
\nEnd If<\/p>\n
End Select<\/p>\n
If KeyAscii >= 97 And KeyAscii <= 122 Then ‘\ub300\ubb38\uc790\ub85c
\nKeyAscii = KeyAscii – 32
\nEnd If<\/p>\n
CharacterMode = KeyAscii<\/p>\n
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"