- ベストアンサー
マクロのInstr()などでスペースが半角全角不明の時は？
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
StrConv()で事前に文字全体を半角か全角に置き換える。 Instr(StrConv(myStr,VbNarrow)," ") Instr(StrConv(myStr,VbWide)," ") Replace()で事前にスペースのみを半角か全角に置き換える。 Instr(Replace(myStr," "," ")," ") Instr(Replace(myStr," "," ")," ")
その他の回答 (1)
- merlionXX
- ベストアンサー率48% (1930/4007)
Instr(myStr," " Or " ")という書き方はできません。 Sub test01() myStr = "abc d" MsgBox InStr(StrConv(myStr, vbNarrow), " ") End Sub こんな感じでしょうか。
お礼
一度変換する必要があるみたいです。 ありがとうございました。
関連するQ&A
- 半角スペースを全角スペースに
文字列で、半角スペースを全角に置き換える方法がわかりません。。。 正規表現が苦手で、MySQLに登録する画面を作りましたが、半角スペースがあると、それ以降が無視されてしまうため、その半角スペースを全角スペースに置き換えたいのですが、書式がわかりません。 すいませんが、ご教授お願いします。 あと、もし全角スペースに置き換える方法以外で何かいい策などもしありましたら、それもよろしくお願いします。
- ベストアンサー
- PHP
- マクロで半角・全角スペースと改行を削除したい
マクロ初心者です。 BookA-sheetAの「F1：F40」に入っている文字列左右（前後）の半角・全角スペースと、 改行コードを削除したいのですが、書いてみたマクロはエラーが出てしまいます。 trim関数と、改行コード削除はどう組み合わせればよいのでしょうか？ 初心者で申し訳ないのですが、ご教示いただければ幸いです。
- ベストアンサー
- その他MS Office製品
- 文字列に半角・全角スペースが入っているかをチェックする関数のおかしな結
文字列に半角・全角スペースが入っているかをチェックする関数のおかしな結果？ 下記コードのように「文字列に半角・全角スペースが入っているかをチェックする関数」を作りました。 $textに入る文字列に半角・全角のスペースが入っているかをチェックします。 -------------------------------------------- my $text = "東 京"; if( isSpace($text) ) { print "スペースあり"; } else { print "スペースなし"; } sub isSpace{ my $str = shift || return(undef); if( $str =~ /.*[\s ]+.*/ ){ return(1); }else{ return(0); } } -------------------------------------------- しかしなぜか1行目を my $text = "メ"; とするとスペースが入っているという結果になってしまいます。 なぜ「メ」が入ると半角もしくは全角のスペースとみなされてしまうのでしょうか？ また、どうすれば正しくチェックできるようになりますか？ よろしくお願いします。
- ベストアンサー
- Perl
- 【VBA】半角カタカナのみを全角にするには?
http://bekkoame.okwave.jp/qa8979427.html こちらのページを参考にしたのですが カタカナのみ全角にしたいのですが 平仮名がカタカナになってしまいます。 正規表現と言うのがよくわからないので コピペで使ってますが Sub Sample2() Dim myStr As String Dim Match As Object, Matches As Object Dim CW As String With CreateObject("VBScript.RegExp") .Pattern = "[\uFF61-\uFF9F]+" '---(1) .Global = True myStr = "あああイイイ" If Len(myStr) > 0 Then Set Matches = .Execute(myStr) 'マッチしたすべての文字列を置換 For Each Match In Matches myStr = Replace(myStr, Match.Value, _ StrConv(Match.Value, vbWide)) '---(2) Next Match CW = myStr End If End With End Sub だと「あああ」は平仮名のままなのですが myStr = "のののノノノ" にすると、ひらがなの「ののの」が全角カタカナになってしまいます。 Sub test() Call KanaJisF("あああイイイ") End Sub Function KanaJisF(ByVal sSrc As String) As String Dim sTempW As String Dim sTempN As String Dim i As Long ' ' 全角カナに相当する文字コードを総当たりでループ For i = -31852 To -31936 Step -1 sTempW = Chr(i) ' 全角カナ変数に格納 sTempN = StrConv(sTempW, vbNarrow) ' 半角カナに変換して変数に格納 ' ' 半角カナ各文字が、文字列に含まれている場合、全角カナに置換 If InStr(1, sSrc, sTempN) Then sSrc = Replace(sSrc, sTempN, sTempW) Next i ' ' 半角長音、文字列に含まれている場合、全角長音に置換 sTempN = Chr(176) If InStr(sSrc, sTempN) Then sSrc = Replace(sSrc, sTempN, "ー") KanaJisF = sSrc End Function こちらのコードは、「あああ」も全角カタカナになりました。 "のののノノノ"も同様です。 平仮名は平仮名のままにしたいのですが そのような方法はありますか？
- ベストアンサー
- オフィス系ソフト
- エクセルで、【スペース除き】【半角⇒全角へ】
タイトルの件、質問します。 A1セルに、下記のように、全角と半角の文字数字及び、スペースが入っています。 これを ・全角のみ ・半角文字、半角スペース 削除 を出来ないでしょうか？ あいうえお１２３４５ アイウエオ 12345
- ベストアンサー
- オフィス系ソフト
- 全角半角あわせて3文字
全角半角が混在している文字列の左から3文字を取得したい場合にいい方法はないでしょうか？ mb_substr関数で第3パラメータはバイト数で指定するようです。 関数リファレンスでは「最大文字数」って表現になってます。 http://php.net/manual/ja/function.mb-substr.php 半角なら文字数=バイト数ですが、全角だと指定の半分の文字数になります。 最大だから間違ってはないですが、文字数じゃないよな‥‥っていつも思ってます。 いったん半角→全角にして、6バイト分を切り出すのはできます。 でも、英数字も全角半角混在してるので元の文字列を壊したくないのです。 mb_substrの第3パラメータを6から3まで、mb_strlenが3になるまで回すのもやってみました。 でも、なんかスマートじゃないんですよ‥‥。 なにかこう、スマートないい手はないでしょうか？ よろしくお願いします。
- ベストアンサー
- PHP
- excel2000で半角スペースを全角に変換する方法
excel2000で半角スペースを全角スペースに一括変換（置換え）する方法を教えてください。 列を指定して検索で半角スペースを入力しても 文字でなければ検索できません。 宜しくお願いいたします
- 締切済み
- Windows XP
- 半角全角スペースの削除（先頭＆末尾）
やまとです。 ある文字列の先頭と末尾のスペースを取り除きたいのですが、 どのようにしたら良いでしょうか？ 事前に試した事が２つあります。 １．trim を使用する。 $aiueo = " あいうえ お "; $aiueo = trim($aiueo)); とすると、スペースが削除されます。 しかし、これでは全角のスペースが削除されないようですね。 ２．置換する。 $aiueo = " あいうえ お "; $aiueo = str_replace( ' ', '', $aiueo ); とすると、全角のスペースが削除されます。 しかし、文字列の先頭と、末尾以外の全角スペースも削除されてしまう ようですね。 では、文字列の先頭と末尾の半角スペースと全角スペースを削除したい場合は どのようにしたら良いでしょうか？ ご教授願います。
- ベストアンサー
- PHP
- 再変換時、スペースを全角⇔半角
最近Windows Vistaを使い始めました。 文字入力の時、再変換機能を使うことがよくあるのですが、 スペースを入れた文章を範囲選択などで再変換した時に、全角スペースを半角にすることはできますか？ 厳密には、できるというのはわかっているのですが。 以前XPを使っているときは最初から普通にできたので、そういう設定を変えたこともなく、どこをいじればできるようになるのかわからず困っています。 現在の状態は、半角だったものを全角にすることはできるのですが、全角から半角に変えることができません。 既定言語はMicrosoft office IME 2007です。 (必要かどうかわかりませんが、似たようなトピックで書かれていたので一応書いておきます。) 詳しい方、ぜひご回答願います。
- 締切済み
- Windows Vista
お礼
ありがとうございます。 Replaceで置き換えます。