Private Sub CommandButton1_Click() '============================================ ' テキストが英語かどうかチェックする '============================================ '左から1文字目をチェック。 A-zだったら、英語。 If Left(Trim(TextBox1), 1) Like "[A-z]" = True Then MsgBox TextBox1.

Private Sub CommandButton1_Click() '============================================ ' テキストが英語かどうかチェックする '============================================ '左から1文字目をチェック。 A-zだったら、英語。 If Left(Trim(TextBox1), 1) Like "[A-z]" = True Then MsgBox TextBox1.

- 6月 22, 2017

22.06.2017 07:48
=======================================

Private Sub CommandButton1_Click() '============================================ ' テキストが英語かどうかチェックする '============================================ '左から1文字目をチェック。 A-zだったら、英語。 If Left(Trim(TextBox1), 1) Like "[A-z]" = True Then MsgBox TextBox1.

http://ift.tt/1abnmbU
June 22, 2017 at 02:48PM

コメント