>>626907
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+โ+-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "L"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ")"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++โ" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "M"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "."
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-++โ" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "N"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ","
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++โ" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "O"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "9"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-++-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "P"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "0"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Q"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "1"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "-+-+-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "R"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "4"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "โ+-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "S"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "BELL"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+โ-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "T"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "5"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "โ+++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "U"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "7"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++++-" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "V"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = ";"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+โ++" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "W"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "2"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "X"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "/"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+-+-+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Y"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "6"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+โ+" Then
If upperCase = False Then
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "Z"
Else
ActiveSheet.Range(writeColumn & CStr(rowNumber)).Value = "''"
End If
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "+++++" Then
upperCase = True
End If
If ActiveSheet.Range(columnNumber & CStr(rowNumber)).Value = "++-++" Then
upperCase = False
End If
If upperCase = True Then
Range("a1").Value = True
Else
Range("a1").Value = False
End If
rowNumber = rowNumber + 1
letterNumber = 0
Loop
End
endit:
Application.ScreenUpdating = True
MsgBox ("Error!")
End Sub