vba程式-excel

Question

要怎麼寫程式讓輸入textbox的值要英文&數字，不能用中文啊？

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
　If KeyAscii <> 8 And KeyAscii <> 13 Then
　　If KeyAscii < Asc("a") Or KeyAscii > Asc("z") Then
　　　If KeyAscii < Asc("A") Or KeyAscii > Asc("Z") Then
　　　　If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
　　　　　KeyAscii = 0
　　　　End If
　　　End If
　　End If
　End If
End Sub