|
book1を立ち上げて、得意先pとフォーマットiを立ち上げます
EXCEL2010です
得意先pのsheet1のA1から最下行(不定)に数字があり、
その数字を含む行のBAに文字(新品、代替、返品)があります
フォーマットiには6つのシートがあり、6つのシートのいずれかのT列に、
得意先pのA1から最下行(不定)の数字があった時に、I列に文字を
入力したく思います(I列は元々空白です)
文字はsheet名+得意先pのBAにある文字(新品、代替、返品)を入れます
フォーマットiは、以下のシートで構成されています
左側より、漬物、惣菜、スイーツ、カップ麺、見切品、フライ です
惣菜シートのT列は、T4、T38、T72…と言った形で、34行毎にあります
惣菜シートのI列は、I2、I36、I70…と言った形で、34行毎にあります
T4とI2が紐づき、T38とI36が紐づき、T72とI70が紐づきます
惣菜シート以外のT列は、T5、T25、T45…と言った形で、20行毎にあります
惣菜シート以外のI列は、I2、I22、I42…と言った形で、20行毎にあります
T5とI2が紐づき、T25とI22が紐づき、T45とI42が紐づきます
例えば、得意先pのA1に1000があり、BAに新品とあります
フォーマットiの惣菜シートのT38に1000があったら、
I36に惣菜新品と入力します
例えば、得意先pのA4に1500があり、BAに変更とあります
フォーマットiの漬物シートのT25に1500があったら、
I22に漬物代替と入力します
数字の体系でシートを指定しているのではなく、6つのシートのいずれかに
ありますので6つのシート内を探して、VBAで行ないたく思います
book1にコードを実装します
ご教授下さい
|
|