|
皆様こんにちは。最近このHPを参考にVBAを始めました。
今データ入力用のマクロを作っていて煮詰まりました。
アドバイスをよろしくお願いします。
第1列に商品名が並んでいて行方向に陳列棚の名前が書かれています。
商品名を検索して陳列棚セルに“1 ”を入力したいです。
・入力は陳列棚ごとに行ないます。
・既に入力した陳列棚は非表示にしてあります。
・商品名いちいち入力するのは長いので“マスク”のように入力するのに
面倒でなくかつある程度絞れる単語を検索ウィンドウで入力しています。
A B C
1ガーゼマスク 店奥中段 店奥下段
2伸縮包帯
3立体マスク
4ガーゼ
例えばマクロを使わずに手作業でやると
検索ウィンドウで“マスク”と入れる⇒“ガーゼマスク”がアクティブになる
⇒もう一度リターンキーを押して入力したい“立体マスク”をアクティブにする
⇒escキー ⇒ 右→キー ⇒ “1”を入力
⇒ ctrl+Fで検索ウィンドウを表示し次の商品名を検索(以下続く)
複数の人データ入力に関わるので対話型のmsgboxを用いたいです。
下記のような条件分岐のパーツは何となくわかっているのですが
条件分岐をどのようにすればよいのかわかりません。
特に検索したい文字列(例えばマスク)を含むセルをこちらが入力したい
文字列を含むセル(立体マスク)が見つかるまで検索させる方法がわかりません。
’inputboxで格納した変数mytarget(文字列)を検索
Cells.Find(What:="mytarget", After:=ActiveCell, LookIn:=xlFormulas,_ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,_ MatchCase:=False).Activate
’mytargetを含む次のセルを検索
Cells.FindNext(After:=ActiveCell).Activate
'適合した商品名の隣りのセル(陳列棚の列)を指定して1を入力
ActiveCell.FormulaR1C1 = "1"
|
|