• ベストアンサー

文字列の一番右が数字であるかどうかの判断

お世話になります。 文字列の一番最後が数字である場合と数字でない場合について判断する方法を教えて頂きたいのですが、数字である場合 then以下の処理をするという風にしたいと思っています。ですが以下のところでつまずいて数字であるかどう確かめればよいのやらわからないので教えて下さい。 　　　If Right("abcdef7", 1) = ここに何を書けばいいのでしょう？ 　　　Then　処理する。 　　　end if という文なんですけど。=の右はなにをかけばいいのでしょうか？

  • mixiho
  • お礼率41% (251/608)

質問者が選んだベストアンサー

  • ベストアンサー
  • popesyu
  • ベストアンサー率36% (1782/4883)
回答No.1

If Right("abcdef0", 1) Like "[0-9]" Then MsgBox ("数字") End If 下記でも対応可 If Right("abcdef0", 1) Like "#" Then 他にはIsNumeric関数 http://homepage1.nifty.com/rucio/main/technique/InputChk2.htm

mixiho
質問者

お礼

へーlikeっていう演算子を使うんですね。 勉強になりました。ありがとうございます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 空文字列の判断方法

    お世話になっています。 空文字列を判断させる方法について教えて下さい。 下記のように、If分を作成しています。 ============================== If rs("USER") = "" Then Response.write "有効" Else Response.write "無効" End If ============================== これだと、空文字列をうまく判断してくれず、結果がすべて"無効"になってしまいます。rs("DEL_FLAG") = ""をrs("DEL_FLAG") = Nullにしても駄目でした。 空文字列を判断させるには、どのように記述したらよいでしょうか？ どうしても空文字列を判断させる必要があります。 よろしくお願い致します。

  • asp：所定の文字列が含まれているかどうか判別したい

    hoge = request("hoge") if （もしhogeの中に「aaa」の文字列が含まれていたら） then response.write "aaaがありますよ！" end if という処理を作りたいです。 （もしhogeの中に「aaa」の文字列が含まれていたら） の処理がよく分かりません。HELPください。

  • 文字列かどうかの判定

    例えばA1セルに入力せれているものが、数字（もしくは文字）であった場合プログラムを実行させようと考えています。 入力されている数字や文字列は一定では有りません。 If　数字（文字）であった場合　Then Call *** end If の様な感じです。 過去ログの文字列検索を探しましたが、使った事の無いコードばかりでアレンジのやり方が全く分かりません。 数字の場合と文字列の場合の2通りの方法をご教示頂きたくよろしくお願い致します。

  • 文字列に特定の文字の有無を調べたい。

    ある文字列に特定の文字が入っているか否かを調べたいのです。 AccessでVBAを使用して有無を調べたいんです。 具体的には下記の通りです。 カナ氏名が入力されているフィールドを検索して文字列を抽出したいんです。 "抽出"をカナにすると"チュウシュツ"ですよね。 所が私が使用しているテーブルのカナ氏名が入力されているフィールドには "抽出"は"チユウシユツ"と入力されているんです。 "チュウシュツ"と入力しても"抽出"は表示されず、"チユウシユツ"と入力しなければ "抽出"は表示されません。 従って"チュウシュツ"とキーボード入力してから先頭から2文字目と5文字目の "ュ"を"ユ"に再度変換しなければならないんです。 何か簡単な関数やプロシージャがないでしょうか？ 何分初心者なんで下記の様な凄く長いプロシージャしか思い浮かびません。 宜しくお願いいたします。 （例） Public Function Kana_change() Dim kana As String '左から2桁目が小文字の時の変換 If Mid(kana, 2, 1) = "ァ" Then kana = Right(kana, 1) & "ア" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ィ" Then kana = Right(kana, 1) & "イ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ゥ" Then kana = Right(kana, 1) & "ウ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ェ" Then kana = Right(kana, 1) & "エ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ォ" Then kana = Right(kana, 1) & "オ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ャ" Then kana = Right(kana, 1) & "ヤ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ュ" Then kana = Right(kana, 1) & "ユ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ョ" Then kana = Right(kana, 1) & "ヨ" & Mid(kana, 3, 13) Else kana = kana End If If Mid(kana, 2, 1) = "ッ" Then kana = Right(kana, 1) & "ツ" & Mid(kana, 3, 13) Else kana = kana End If End Sub End Function

  • ExcelVBAで文字列の制御をしたいのですが

    セルに５文字の数字を文字列として取り込む入力規制をしているのですが、現段階では小数点を入力してもチェックにはじかれません。 小数点その他記号等チェックではじきたいので以下のようなマクロを組みました。 Dim A As String　 ’値の取得用の変数 Dim i As Integer 'ループカウンタ For i = i To 5 '左からi個の数値を取り出す A = Left(target.Text, i) '取り出した数の右側の文字を検索（小数点があるとすればこの位置） If Len(A) = 2 Then A = Right(A, i) End If If Len(A) = 3 Then A = Right(A, i) End If If Len(A) = 4 Then A = Right(A, i) End If If Len(A) = 5 Then A = Right(A, i) End If '取り出した文字が数値以外ならメッセージを表示 If IsNumeric(A) = False Then Call MsgBox("数値以外が入力されています", vbExclamation) Next これでも何とか希望通りの動きはしたのですが、あまりスマートなプログラムに思えません。 不勉強で申し訳ありませんが、関数で○文字目、ひと文字だけを検索できるもはないのでしょうか？ そうすればスマートにいきそうなのですが... このプログラムをもっとスマートな形にできる方法をご存知の方がいらっしゃれば、ご教授お願いします。

  • 文字列を判断して処理をする書き方

    2バイトの文字列の中身によって違う処理をするプログラムを作成しています。 数値ならば、 switch(no){ case 10: 処理１ break; case 20 処理２ break; ・ ・ ・ } と書けるのですが、文字列だと if(strncmp(no,"10",2) == 0){ ＜処理１＞ }else if(strncmp(no,"20",2) == 0){ ＜処理２＞ }else if ・ ・ ・ } というような書き方しか分かりません。数値同様にswitch文できれいに書くような方法はありませんでしょうか？ もしくはこうすればスマートに書けるというようなものがあればお教えください。よろしくお願いします。

  • エクセルマクロで、書式が違っても文字列を評価する方法

    文字列書式のセルと、標準書式のセルの数字文字列を比較したいのですが、うまくいきません。 書式が違うと、range.textも違う値になってしまうようです。 結局、現状では一度文字列変数の中に一度いれてから処理していますが、もっと他によい方法はないでしょうか？ ------------------------------- If range1 = range2 Then 　・・・・・ End If ------------------------------- Dim temp1 As String Dim temp2 As String If temp1 = temp2 Then ・・・・・・ end If ------------------------------

  • 文字列で渡された式

    質問です。 タイトルのままですが文字列で渡された式で 処理を決定させることはできるのでしょうか？ たとえば ============================ dim str as string = "10 > 5" if strの文字列判定 then msgbox("TRUE") else msgbox("FALSE") end if ============================

  • 文字列の比較

    現在Ｃでプログラムをつくっているのですが いきずまってしまいました。 １．テキストファイルを読み込む ２．書き込みファイルを開く ３．読み込んだデータを一行読み込んで 　　その行の特定の文字列があれば、 　　特定の文字列のみ取り出し、 　　書き込みファイルに書く。 　　 ４．次以降の行も同じ処理をする。 　　 ５．読み込み、書き込みファイルを閉じる。 と、こんな感じのプログラムなのですが、 ３の特定の文字列をどのように取り出せばいいのかわかりません。 取り出したいのが数字ならば、if文でできるのですが 文字列の場合は、どうなんでしょうか。 例えば、「ＭＯＪＩＲＥＴＵ１１」という取り出したいとき 数字と同じようにＩＦ文を使用することは、できるのでしょうか。

  • VBAにて文字を数字に変換

    先日教えて頂いた下記コードについて If Right("0000000000" & Numbers1(i), 10) > Right("0000000000" & Numbers1(j), 10) Then Numbers1(i)に１や３が入っていますが、数字ではなく文字とみなされていました。 上記の処理をすると、数字に変換されました。 どうして数字に変換されるのでしょうか？ （先日の質問を間違って締め切ってしまったため、改めて質問しました）

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する