수다닷컴

txtTemp = a~Z or A~Z 라고 가장할때
a or A = 1
b or B = 2
.....
....
y or Y = 25
z or Z = 26
으로 변경하는 프로그램을 작성중입니다.

if 문으로 총 26개 조건을 달고 바로 하는것 말고
간단하게 변경해서 프로그램 하려고 하다보니 문제가 발생합니다.

1. 먼저 해당 문자를 아스크 코드로 변경한다
2. 해당 아스키 코드 값에서 일정 수치값을 빼고 그아스키코드값을 문자로 변경한다

이렇게 할경우 a~i 까지는 제대로 되나

j 부터는 10이 아닌 :, ;.... 형식으로 되네요 조언좀 바랍니다.

Public Function change_Pos(txtTemp As String) As String
If ((txtTemp = a) And (txtTemp = z)) Then
txtTemp = Chr(Asc(txtTemp) - 48)
ElseIf ((txtTemp = A) And (txtTemp = Z)) Then
txtTemp = Chr(Asc(txtTemp) - 16)
End If
change_Pos = txtTemp
End Function

신청하기