• ベストアンサー

エクセル:VBA 特定の文字列を入力後⇒MsgBox

pkh4989の回答

  • pkh4989
  • ベストアンサー率62% (162/260)
回答No.5

No3です 別のシートにするには、以下ののようにすれば良いです。 後は、No1さんの通りです。 Private Sub Worksheet_Change(ByVal Target As Range)   Dim c   Dim wSt       As Worksheet   Set wSt = Worksheets("Sheet2")   If Target.Column <> 11 Then Exit Sub   If Target.Count > 1 Then Exit Sub   If Len(Target.Value) <> 11 Then Exit Sub   Set c = wSt.Range("U1:U" & wSt.Range("U" & Rows.Count).End(xlUp).Row).Find(Target.Value)   If Not c Is Nothing Then     MsgBox "【注】この商品は" & c.Offset(0, 1).Value & "です。" & Chr(13) & "発送時にxxxxx。"   End If End Sub

TENSAW
質問者

お礼

pkh4989さん、 どうもありがとうございました。別シートもうまくいきました! 毎回レスポンス悪くて申し訳ございませんでした。 今回のポイントですが、どちら様にも20pを差し上げたいのですが、システム上そうもいかずお答えいただいた順番にさせていただきます。 なにとぞご了承ください。

関連するQ&A

  • 文字列操作(ExcelのVBAですが)

    特定のExcelセル内にある文字列について、 例えば、 138.40.8.7 と入っている場合、 138.40.08.7 に、 35.9.1.6 と入っている場合、 35.09.01.6 にするVBA関数を作りたいのです。(セル関数でもかまわないですが) つまり、小数点で区切られている2番目と3番目の数字が 一桁の場合、頭に0を付けて、必ず二桁になるようにしたいわけです。 どなたか、ご教授くださいませ。 よろしくお願い致します。

  • エクセルで、特定の文字列より前の文字列を抜き出す(文字数固定)

    こんにちわ。 「特定の文字列より前の文字列を抜き出す(文字数固定)」を質問させてください。 例) あいうS01234(Backup) かきS10233(Backup) さしすせそS0223(Backup) といったデータがあります。 隣のセルにSから始まる数字(Sを含む5文字分)を抜き出すことは可能でしょうか。 *文中に、どこからS****が入るかばらばら *抜き出したい文字列は半角で必ずSから始まり、数字4文字 *抜き出したい文字列(Sと数字をあわせ5文字)の後ろに必ず”(Backup)”がつく *Sから始まる数字の4文字は必ず0から始まるが、その後の数字3桁はユニーク どなたか、よろしくお願いします。

  • ・エクセルで特定の条件に合う文字列を抜き出す方法を教えて

    ・エクセルで特定の条件に合う文字列を抜き出す方法を教えて 例のようにA列の文字の中からカッコ内(4桁数字“ハイフン”7桁数字)を B列に表示するにはどうしたらよいでしょうか。 ちょっと面倒なのはカッコは複数ある場合があり(xxxx-xxxxxxx)の条件に 合ったものだけを隣のセルに表示したいのです。 カッコとカッコ内は半角でxは不特定な数字です。 (例) A1=あいうえお(abcde)かきくけこ(xxxx-xxxxxxx)さしすせそ B1=xxxx-xxxxxxx よろしくお願いいたします。

  • Excelの数字の文字列入力で

    Excel2003です。 セルに   "651,652,653" のような3ケタ分の数字とカンマの文字列を入力しようとすると    651652653 という数値にみなされてしまいます。 入力するときに、文字列の先頭に ’ を付けると文字列に みなしてもらえるのですが、つい忘れてしまい面倒です。 セルに指定などで設定する方法は何かありますでしょうか。 よろしくお願いします。

  • Excel VBAで、特定半角文字のみ全角文字に変換したい。

    Excel VBA で、 A列に半角、全角が混在した文字列及び数字が入っています。 ファイル名に出来ない半角文字 \ / : * ? " < > | だけを全角文字にするには、 どのようなコードを書けば良いのか、宜しくお願いします。

  • エクセルの入力について教えてください。

    エクセルのひとつのセルに入力する際、下の数桁だけ違った数字を入力したい場合、下の桁数だけ入力すればいいような設定や、または簡単になる入力方法ってありますか? 例えば、ひとつのセルに下4桁だけ数字を変えて入力したい場合       (1列目)   (2列目) (1行目)12345601234 123456 (2行目)12345601235 234567 (3行目)12345601345 345678 (4行目)12345601346 456789 のように頭の1234560は固定で、下4桁だけを変えて入力していきたいのですが、この1列目の1234560が固定なので、ベタ入力をするのではなくて、もっと簡単にできないものかなぁと思っています。 ちなみに辞書ツールの使い方は知っているので、それ以外で何かやり方をご存知名でしたら教えてください。 エクセルは2003を使っています。 質問の表現が下手でわかりにくかったらすみません。

  • Excel セル内の文字だけを取り出すには

    Excelの1つのセルに 01234 ABCDEFG のように、「数字5つ(固定)+半角スペース+(任意の数の)文字」 が入力されています。数値は必ず5桁と決まっていますが、 文字列の数はさまざまです。 関数で文字の部分だけ、別のセルに取り出したいのですが、 どの関数を使うとできますか?教えて下さい。 よろしくお願いします。

  • エクセル2000 文字列の削除を関数でできますか?

    1132 相川 1133 小笠原 A列のセルに上のよう入力されています。 「1132 相川」 でひとつのセルです。 関数を用いて「半角4桁の数字部分」と「半角の空白」を削除したいと思います。 1132 相川 1133 小笠原   ↓ 相川 小笠原 つまり上のようにしたいのです。 お時間の許す方にご回答をお願いしたいと思います。

  • エクセルVBAで特定の範囲を検索したい

    VBAを使って、A1セルに入力した数値をA列から検索して、そのセルをアクティブにしたいのですが、検索範囲のA列を特定するにはどのようなコードが必要でしょうか?現状ではシート全体を検索してしまいます。 超初心者です。よろしくお願いします。

  • エクセル VBA セル内の文字検索について

    XP microsoft visual basic 6.0 です A1からA10に書かれた文章(平仮名、カタカナ、漢字、数字、記号、含む)の中に 0から始まる半角8桁の数字があれば 取り出し B列に書き出す VBAを用いてこのようなことは可能でしょうか ※8桁の数字は文章内の何文字目にあるか決まっていない ※文章内に0から始まる8桁の数字が複数あることはない、が、0から始まり記号を含む8桁の文字列はある ご教授ください