[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『文字列の１文字目によって異なるシートへ移動し、同じ文字列を探す』（MSCL）
長くてすみません。VBA初心者です。
ある『ボタン』(フォームコントロール)に
４ケタの文字が入力されています。
その文字の、１ケタ目が、Ａの時は、Ａのシートへ移動し、
そのシートで、４ケタが一致するセルを探す。
その４ケタに一致するセルが無い場合は、MsgBox"見つかりません。"
その文字の、１ケタ目が、Ｂの時は、Ｂのシートへ移動、
そのシートで、４ケタが一致するセルを探す。
その４ケタに一致するセルが無い場合は、MsgBox"見つかりません。"
その文字の、１ケタ目が、ＡでもＢでもない場合は、
MsgBox"文字列を確認してください。"
というのを作りたいです。
そもそもの話…『ボタン』ではなく、セルに文字を入れ、関数で、
いけたりするのかも知れません…
しかし、何を思ったのか、４ケタの文字を入力したボタンを作り、
ボタンに入力されている文字を読み込んで作ろうとしました。
ボタンの文字列の読み込みに関しては、うまく動いているようで…
１ケタ目がＡの時は、こっちのコード、
１ケタ目がＢの時は、こっちのコードでは、うまく動きました(下のコード)。
ところが、これだと、少々面倒な作業が出るため、
つまり、１ケタ目がＡのボタンには、Ａ用のマクロを割り当て、
１ケタ目がＢのボタンには、Ｂ用のマクロを割り当て…
とボタンによって割り当てるマクロを変えなければいけないのです…。
ボタンが５００個くらいあるので…今後、追加されたりした場合も想定して…
文字列の１ケタ目で判断してくれたら、
全部のボタンに同じマクロを割り当てるだけだと思い、
作り始めたものの、条件の部分がうまく作れませんでした。
単に、条件文を作るごくごく基本のスキルがないだけと思いますが、
何かよい方法はないでしょうか。(『そもそも』の話でも構いませんので。)
シートが決まっている場合のものをのせます。
(残念ながら、自分で作ったものではありません。ネットで探しました。)
Sub シートＡの該当行へ()
Dim rng As Range
CBName = ActiveSheet.Buttons(Application.Caller).Text
Sheets("シートＡ").Select
Set rng = Cells.Find(What:=CBName) '４ケタが一致するセルを探す
If rng Is Nothing Then
MsgBox "見つかりませんでした。"
Else
Cells(rng.Row, "D").Select 'その行のＤ列へ移動
End If
End Sub
＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
Leftで、１文字目を取り出せばよいです。
（マナ） 2019/10/07(月) 18:17
＞ボタンが５００個くらいあるので…今後、追加されたりした場合も想定して…
わたしなら、セルをボタンの代わりに使うと思います。
（マナ） 2019/10/07(月) 18:22
■１
↓の段階で設計が変な気がします。
＞ある『ボタン』(フォームコントロール)に４ケタの文字が入力されています。
やりたいことって、
検索値「A123」だったら Aシートのセルから「A123」という内容のセルを探してそこに飛ぶ 検索値「B456」だったら Bシートのセルから「B456」という内容のセルを探してそこに飛ぶ
みたいなことですよね
それだったら、【検索値を入力する欄】と、【マクロを実行するボタン】を分けませんか？
そのようにすれば、検索値ごとにボタンを作る必要はないので１つのボタンで対応できます。
また、 検索値「A123」だったらAシート、検索値「B456」だったらBシートのように、1桁目？の文字と、シート名に関連性がある場合は、マナさんが指摘されているように、文字列操作でシート名を作れるから、マクロも１つでよいはずです。
さらに、順番が前後しますが、検索欄についても自由に入力するのではなく、候補のなかから選ばせたいということであれば、コンボボックスを使ってみるとか、適当なセルを入力欄にして入力規則で制御するとか手はいくつかあると思います。
■２
参考にされようとしているコードにFindメソッドという命令が使用されています。
一般機能で言うところの「検索」ですから、目の付け所はよいとおもうのですが、現状のままだと存在するに見つからないなんて悩む日が来るかもしれません。
したがって、Findメソッドを使用するのであれば、事前に↓を読むことをおすすめします。
検索に失敗するとき（Findメソッドの引数省略時に起きる失敗） https://www.moug.net/tech/exvba/0150111.html
（もこな２） 2019/10/08(火) 04:56
最終的に、今、作ったモノの修正が少ない、
マナさんの、最初のレスを採用させていただきました。
スムーズに動いています。ありがとうございました。
まっつわんさん、探しに行くシートは、あまり変更しないので、
確かに、ハイパーリンクも、ありですね。少し考え過ぎたかも…です。
もこな２さん、はい、
一度、計算結果を見に行ってほしいのに、見つけてくれなくて、
『～, LookIn:=xlValues)』に気付くまでに、苦労しました。
他にも色々ありますね。以後、使わせて頂きます。
皆さん、どうもありがとうございました。
（MSCL） 2019/10/09(水) 07:34
シート１A
A列………B列
A123………=RIGHT(CELL("filename",A3),LEN(CELL("filename",A3))-FIND("]",CELL("filename",A3))) & "!" & "R" & ROW() & "C" & COLUMN()-1
(パクリですが、シート名を取り出して、セルの番地を追加しています…)
シート１B
B123………〃
シート２
A列………B列
A123………=HYPERLINK("#" & VLOOKUP(A3,シート１A!$A:$B,2,FALSE),A3)
…
B234………=HYPERLINK("#" & VLOOKUP(A10,シート１B!$A:$B,2,FALSE),A10)
…
当初、シート名に()が入っていたので、なかなかうまく動きませんでしたが、
多分、()や＋－のような数式に使用する文字をシート名から無くしたので、うまくいったんだと思います…
IF文を追加すれば、式も１つにできそうですが、今回は、ここまでにしました。
マナさん、まっつわんさん、もこな２さん、ありがとうございました。
（MSCL） 2019/10/15(火) 17:33
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.