• 締切済み

マクロ（VBA)で検索した文字

また面倒お掛けします マクロ（VBA)で検索した文字は文字として認識しないのでしょうか？ 知識がないので一つ一つのマクロを作っていますが、検索した文字から次の展開が出来ないで困っています。検索した文字（加藤）を値でコピーして次に展開すると文字として認識していないのか展開出来ません、そのセルに加藤を新たに入力すると展開されます。 セルの中で文字の位置がずれているように見えます（　加藤）こんな感じです位置修正しても標準の位置にはならない、標準ですと（加藤）と表示されると思うのですが。 文章で解りますでしょうか 宜しくお願いいたします

みんなの回答

  • nao-y
  • ベストアンサー率58% (111/190)
回答No.1

>検索した文字から次の展開 の意味がちょっとわからないんですが、、、 ソースコードを提示していただいたほうが早いと思います。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. Windows
  4. Windows Vista

関連するQ&A

  • VBAマクロ・・同一セルの検索と検索したセルの操作

    VBAマクロ・・同一セルの検索と検索したセルの操作 　VBAのほぼ初心者です。 　決められたセル（たとえばE100）に入力された文字列と同一の文字列を その列内の上（E1～E99）で検索する。 そして、検索できれば（たとえばE30）そのセルがある行（行30）を削除する。 なお、複数検索されれば、検索されたすべてのセルに対応する行を削除する。 　というようなことをVBAのマクロで作成したいです。 FindメソッドとDo..Loop Whileを使って試行錯誤してみたのですが、うまくいきません。。 　いい方法があれば、是非教えていただきたいです。 　どうぞよろしくお願いいたします。

  • 【Excel】 *を上付き文字にするマクロ

    Excelで統計の図表を作成する際、 P値に付随する、その有意性を表す*（アスタリスク）を上付き文字に設定することが頻繁にあるのですが、面倒で困っています。 マクロで組みたいのですが、 LIKE演算子で*を設定する方法はどうすればいいのでしょうか？ チルダを使用した"~*"でも無理だったのですが、方法があれば教えてください。 よろしくお願いします。 ※以下に現在暫定的に使用している、"数値"、"."、"-"以外の文字を上付きに設定するマクロを書いておきます。 Sub 数字のみ上付き設定() Dim セル As Range Dim 値 As String Dim 文字の位置 As Integer For Each セル In Selection For 文字の位置 = 1 To Len(セル.Value) 値 = Mid(セル, 文字の位置, 1) If 値 Like "[0-9]" <> True And 値 Like "." <> True And 値 Like "-" <> True Then セル.Characters(Start:=文字の位置, Length:=1).Font.Superscript = True End If Next 文字の位置 Next セル End Sub

  • エクセルのセルの文字をyahooで検索

    エクセルのセルに記載されている文字をyahooで検索したいと思っています。 VBA初心者です。色々サイトを見たのですがエラーばっかりで前に進まなかったので 質問させていただきます。 <流れとしては…> (1)エクセルVBAでマクロを起動させるとyahooを自動的に開く (2)セルに記載されている文字をコピーしてyahooの検索できる枠にペースト (3)yahooの「検索」ボタンを自動的に押して検索結果の画面まで進む を目標にしてマクロを作成したいと思っています。 <出来上がりは…> (1)エクセルVBAでマクロを起動させるとyahooを自動的に開く ⇒こちらはネットで調べて起動することができました。 (2)セルに記載されている文字をコピーしてyahooの検索できる枠にペースト ⇒Sheet1のA1に記載されている文字をコピーする所まで進みました。 　 yahooの検索の枠にペーストしたいです。 (3)yahooの「検索」ボタンを自動的に押して検索結果の画面まで進む ⇒yahooの検索ボタンを押してそのまま検索結果の画面を開きたいです。 ===[マクロ文]================================================== 　 'yahooで自動で検索' CreateObject("wscript.shell").Run "http://www.yahoo.co.jp/" Sheets("Sheet1").Select ActiveSheet.Range("A1").Select Selection.Copy ====ここまで================================================== この先が調べてもどうマクロを組んでよいのか不明でしたので 質問させて下さい。 よろしくお願いします。

  • 指定した文字を検索

    エクセル2003を使っています。 ＶＢＡを使って文字を検索したいと思います。 (1)「あるセル」から見て最も近い、Ａ列の「ある特定の文字が入っているセル」を検索しコピーし、別シートに貼り付ける。 （最初の「あるセル」というのはデータによって、セルの場所が変わります。但し、Ａ列には入りません。 また、次の「特定の文字が入っているセル」というのは、データによってＡ列は変わりませんが、行番号は変わります。そして、特定の文字はＡ列に数個あります。そこであるセルから最も近いセルを検索するとします。） 例. 最初の「あるセル」をＪ３０とします。Ａ列に入っている「時間」という文字を探すことにします。但し、「時間」というのはＡ列に数個あります。 そこで、「Ｊ３０」から見て、最も近いセルの「時間」を検索してコピーし、別シートのセルＡ１に貼り付けます。 分かりにくいかもしれませんが、よろしくお願いします。

  • エクセルVBA初心者です。マクロを組んでください。

    エクセルVBA初心者です。組んで欲しいマクロがあります。 Sheet 1に13桁を入力するセル sheet 2に検索したいデータ 手順としては、 Sheet 1のセルにデータを入力 →13桁以上でマクロが開始(されるように設定します) →Sheet 1のセルと同じ数列をSheet 2の列Aから検索 →該当のセルを含む行をSheet 3にコピー →Sheet 1の入力セルの少し下にもコピー (確認用) というのを一回一回ずつやりたいです。 できれば作業中マウスやキーボードを触りたくないので、そのために、マクロの終わわりには入力セル内の消去、マクロの始まりには確認用でコピーした行の削除もつけて下さい。 検索するSheet 2には同じデータが含まれているので、出来ればひとつずつSheet 3にコピーしたいので組み込んで頂けると幸いです。 よろしくお願いいたします。

  • エクセル【マクロ】について

    初心者です。 エクセルでシート１のA1からA10まで決めた文字（abc）という文字を検索して、検索文字があるセルの１行をコピーしてシート２のA1から下へ貼り付けるというマクロ（VBA）を作成したいと考えています。 詳しい方、よろしくお願いします。

  • VBA マクロの作り方で迷ってます

    ＥＸＣＥＬ2000でＶＢＡマクロ作成しています。 10枚のシートを作成するについて 同じ結果がでる次の方法で迷っています。 10枚は10人の個人別データが入っています。 10枚のデータは前回入力したデータのうち 変化のないものはそのまま使用します。 1）最初の一枚目のシートのセルに公式を埋め込みます。　2枚目以降のシートにも順次公式を埋め込んで行きます。少し面倒ですが、各シートを表示したとき即座に値が表示され肩が懲りません。（手入力もしくはマクロでつくる） 2）最初の一枚のシートにマクロで部品化したサブルーチンをつくり2枚目以降はＣａｌｌステートメントで呼び出すマクロを作る。 上の2つの方法は結果が同じだと思いますが、処理速度や容量の点でどちらでつくるべきか迷ってます。教えてください。 違うカテゴリで質問してしまいました。すいません。

  • Excelで頭に文字をマクロで加える

    <http://okwave.jp/qa/q439461.html> にて、次のVBAが紹介されていますが、(1)セルがブランクの場合にも文字が追加、(2)ダブリの文字がある場合には文字がダブリの数だけ追加されてしまいます。 Sub Macro1() 　For i = 1 To 100 Cells.Replace What:=Cells(i, "A"), _ Replacement:="1-" & Cells(i, "A") Next i End Sub 添付画像のように、セルの値がが無い（Nul）の場合には文字を加えない、そしてセルの値がダブっている場合では各々のセルの値にひとつだけ文字を加えるようにするには、どのように修正すればよいのでしょうか。 なお、Excelは2007を使用しています。

  • EXCEL VBAで文字列の検索とコピー

    検索したい文字をinputboxで入力して、A列を検索して、検索文字を含むセルをコピーして、そのコピーしたデータを、別のシートに貼り付ける、次に該当したセルをさっきコピーしたデータの次の行に貼り付けて・・・。とデータが入力してある最終行までの繰り返し、をやりたいのですが、ご指導の程、説明が下手ですが宜しくお願いします！

  • VBAの書き方

    只今VBAで、あるセルで文字を検索して、その文字があるときに、違うセルに文字を出すマクロを作っています。 例えば、エクセルのＩ列に記入されている文章に"VBA"という文字が入っているとき、M列に"YES"という文字を出したいです。 どのようなマクロの式を書けばこのような操作が出来るのでしょうか。 FINDやInStr関数を使えばよいのかと思いますが… どなたかお分かりのかたは、教えて頂ければと思います。 よろしくお願い致します<m(__)m>

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する