• ベストアンサー

エクセルマクロで文字列にメタキャラを付加したい

宜しくお願いいたします。 エクセルマクロでテキストファイルに出力させる処理を考えているのですが その際メタキャラコードを付加する場合の使い方を教えて頂けないでしょうか EX：行頭にタブを付けたい場合 Dim foo As String foo = "hoge" foo= \t + foo このように書くとエラーが出るのですが、どのように書けば良いのでしょうか？

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

>メタキャラコードを付加する メタチャラクターはOSや特定ソフトがそれを受け入れてくれる機能が 前提になると思います。 VBやエクセル・ワードではあまり、検索の場合ぐらいで、前面に出てきません。 http://homepage1.nifty.com/gutchie/kirikiri_kag/tjs_regexp000.html に有るようなものなら、文字（キャラクター）ストリングの中に １６進で表現する１バイト文字のコード（水平タブは9）を 　指定して、＆でつなげば好いと思いますがいかがですか。 　例　CHR(9) & A こういう印刷や、画面表示において文字にならない、制御・機能文字はJISコード表を見れば載っていると思います。 LF改行は１０、CRは１３などは有名です。 またvbcrlf,vbCｒ、vbTab などの定数も使えます。 例　vbTab & A

perl_2005
質問者

お礼

imogasisさん ありがとうございました、参考になりました。

その他の回答 (1)

  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.1

> その際メタキャラコードを付加する場合の VBAの表記法にはありません。 コードを指定して文字列に変換するか、 > foo= Chr(9) + foo 組み込みの定数を使ってください。 > foo= vbTab + foo

perl_2005
質問者

お礼

dsuekichiさん ありがとうございました、理解できました。

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

関連するQ&A

  • VB(2008)で文字列の置き換え

    Dim a As String Dim b As String a = TextBox1.Text b = a.Replace("hogehoge", "fuga") b = a.Replace("piyo","xyzzy") b = a.Replace("foo", "bar") Textbox2.Text= b のようにしているのですが、置き換えることができません。 初歩的な内容ですがどなたかよろしくお願いします。

  • 文字列の括弧について(初心者)

    textに自分で入力した値を変数文字列として扱う場合に、括弧を使いたいのですが、 例 Dim A as string Dim B as string A = Text1.text B = "abc" としてコマンドボタンを押したときにAとBの値が同じ場合(Aがabc)は１をAとBの値が違うときは０を出力するプログラムを作ったのですが、これに追加で括弧()や[]をつけても１を出力するプログラムが作りたいのですが、よくわかりません。 Text1.textの値が(abc)か[abc]でも１を出力、 [ab]cやa(b)cでも１を出力、(abcやa)bc(やa(b(cのときは０を出力するプログラムが作りたいのです。 どうか教えてください。 おねがいします。

  • エクセルでのマクロ

    学校の授業で、エクセルのマクロ（ＶＢＡ）を習っています。 そこで、質問なんですけど、 Dim ???? As Long Dim ???? As String というように????のところが異なる文字をおいたりして変数を定義するのはわかったのですが、なぜLong とＳtringと異なるものを使うのでしょうか？同じでも問題はないのでしょうか？教えてください。

  • ☆文字列を抜き取る★

    テキストファイルに GetPoint = ErrMsg("おはよう",target) の行があるとします。 ダブルクオートでくくられた文字列だけを出力させたい場合 下記コードでどこが間違っているでしょうか？？ 今のままだと全てのコードが出力になるんですよ。。。 アドバイスをいただけると幸いです。 Sub Main() Dim iFileNumber As Integer iFileNumber = FileSystem.FreeFile() Open "C:temp\sample.txt" For Input As #iFileNumber Dim stResult As String Dim stSerch As String Dim point As Long Do While (Not FileSystem.EOF(iFileNumber)) Dim stBuffer As String Line Input #iFileNumber, stBuffer stResult = stResult & stBuffer & vbNewLine If Instr(stResult,Chr(34)) > 0 Then If Instr(stResult,Chr(34)) > 0 Then v = stResult End If End If Loop Close #iFileNumber End Sub

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

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

  • 文字列検索

    文字列検索 テキストファイルの検索を行いたいです． 下記のようなサンプルファイルでfooを検索し， 含まれるならマッチした個数，含まれないならnilを返す関数を作りたいです． mecabを用いて形態素解析を１行ずつしようかと思ったんですが， 大量のファイルを処理する予定なので，オーバヘッドが気になります． 関数でgrepがあるみたいですが，マッチした行しか返されません． 標準関数で１行ずつよみこんで，１行のなかでマッチした回数を返す関数はありますか？ --sample.txt-- foo foo bar bar foo hoge,hoge,hoge,hoge hage-hage-hage-foo -- end --

    • ベストアンサー
    • Ruby
  • ダブルクォートで囲まれた文字列の取り出し

    Windows環境でRuby 1.8.7を使用しております。 ----sample1.txt----- hoge"foo\"bar\"foo"hage"bar\"baz\"bar"hoge ------------------ ファイルから1行ずつテキストを読み込んで処理を行います。上のsample.txtの様な行を読み込んだ場合にダブルクォートで囲まれた部分 foo\"bar\"foo bar\"baz\"bar を取り出すのにはどの様な正規表現を用いればよろしいでしょうか？ エスケープされたダブルクォートを除ける上手い方法がわかりません。 また、ダブルクォートで囲まれた部分が複数行にまたがる場合はどの様に処理をすれば良いでしょうか？ -----sample2.txt----- hoge"foo \"bar\" baz" hage ---------------------- -----sample3.txt----- hoge"foo \"ba r\"baz" hage ---------------------- 最初の例のように1行の場合は File.foreach(file) do | line | …… end で良いのですが、複数行の場合には同じように単純には行きません。 ダブルクォートの数を数えて、奇数の場合は偶数になるまで次行をくっつける様な処理を考えているのですが、もっと適切な方法はありますか？ 宜しくお願いします。

  • 文字列の保存に関して

    質問です。 保存と共有方法についてお聞きしします。私はいつもフォーム内では、 プログラム内で生成した文字列（例：テストhogehoge）を Dim hoge as string ------------------------------ Private Sub CheckBox4_Click(sender As Object, e As EventArgs) Handles CheckBox4.Click Dim Random As .... ←で生成した「テストhogehoge」 hoge = random end sub ------------------------------ と宣言しておいて、 生成された時に hoge = randam(生成した宣言) と保存して、 ソフトが起動中に、いつでも「テストhogehoge」をhogeという場所に 保存しているのですが、起動時にform1.vbで「テストhogehoge」を生成した時に 別フォーム（例: form2.vb）に dim hoge as string に文字列を 保存したいのですが、どうすればいいでしょうか？ form2.hoge = random とやっても Null扱いになってしまい、困ってます。 またソフトウェア上での上記みたいな全てのフォームで 共有出来る方法があったら教えて下さい。

  • 文字列aを一文字ずつExcelのセルに入力する方法

    Excel VBAについて確認させてください。 下記のエクセルマクロはエクセルのA列に入力されてある文字を順に読み込んで ユーザが入力したテキストファイル（＝FN1）を開いて エクセルのA列に入力されてある文字が見つかった場合は削除する作業を 文字が入力されてある最後の行までループによって行い、 最終的に処理した文字列aを出力ファイル（＝FN2）に保存するプログラムです。 このプログラムを改良して文字列aを出力ファイル（＝FN2）に保存するのをやめて 文字列aを一文字ずつ、Excelのセルごとに1行ずつ入力するプログラムを作成したいのですが どのようにすればよいかご教授いただけますでしょうか。 以下、プログラム本文です。 ------------------------- Sub sample() Dim a As String Dim y As Long Dim x As String Dim FN1 As String Dim FN2 As String x = InputBox("チェックするファイル名を入力してください。（拡張子も含めてください。）") FN1 = ThisWorkbook.Path & "\" & x FN2 = ThisWorkbook.Path & "\チェック済" & x With CreateObject("Scripting.FileSystemObject").GetFile(FN1).OpenAsTextStream a = .ReadAll For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row a = Replace(a, Cells(y, 1), "") '読み込んだテキストファイルにエクセルのA列にある文字が見つかった場合削除 a = Replace(a, vbCrLf, "") '改行コードの削除 a = Replace(a, vbTab, "") 'タブコードの削除 Next .Close End With With CreateObject("Scripting.FileSystemObject").OpenTextfile(FN2, 2, True) .Write a .Close End With End Sub

  • エクセルのマクロについて

    エクセル2010を使用しています。 工程表を作成するため、以下のマクロを組もうと苦戦しています。 任意のセルを選択し、マクロを実行すると選択したセルに線を引き 線の上部にテキストボックスで文字を入力できるようにするマクロを 作成しようとしています。 また、テキストボックスは文字入力後、大きさの自動調整をかけようと しています。 線を引くところまでは、うまくいったのですがテキストボックスの挿入→入力待機 →入力後、大きさの自動調整（幅）までのマクロがよくわかりません。 可能であれば、任意の選択したセルの中央に配置をしたいです。 お知恵をお貸しください。よろしくお願いします。 koutei() Dim SentakuTop As Single Dim SentakuLeft As Single Dim SentakuWidth As Single Dim SentakuHeight As Single Dim SentakuAddress As String Dim X0, Y0, X1, Y1 As Variant SentakuAddress = Selection.Address(ColumnAbsolute:=False, RowAbsolute:=False) With ActiveSheet.Range(SentakuAddress) SentakuTop = .Top SentakuLeft = .Left SentakuWidth = .Width SentakuHeight = .Height End With X0 = SentakuLeft Y0 = SentakuTop + SentakuHeight / 2 X1 = SentakuLeft + SentakuWidth Y1 = Y0 With ActiveSheet.Shapes.AddLine(X0, Y0, X1, Y1).Line .ForeColor.RGB = RGB(0, 0, 0) .Weight = 1 .BeginArrowheadStyle = msoArrowheadOval .EndArrowheadStyle = msoArrowheadOval End With End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する