質問: 自分にはとても難しい、でも実現したい。。。と、 実力無いのに夢ばかり大きい自分にご協力いただける方を探しています。 エクセルのユーザーフォームの、複数(45個)のテキストボックスに入力した データを、あるシートにデータ転送したいのです。 ここまでのことだと、自分でも出来そうなのですが、難しいのがこの先です。 (1) 転送先のシート名が、月(JAN, FEB, MAR, APR...DEC) まで12枚あり、 今月のシートを獲得。 ただ、Userform1のコードの中では、このシート名が代入されたものだと 認識してくれない?ようで、エラーが出てしまいます。 (2) (1)のシートの中で、1日ごとに5行づつ入力欄がある。例えば今月8月ならば、 1-AUG 3-7行 2-AUG 8-12行... これも、右に作業列を作り、=TEXT(TODAY(),"DDMMM") で 今日の日付を出して、KEYWORDを見つけるコードで、当日の5行を見つけるまで は何となくわかるのですが。。。(実際に入力するのは3行です) Dim で定義したものを、ユーザーフォームとどうからめてよいのか、 また、Userfrom1.Show で入力しクリックされたユーザーフォームの中での コードと、元となるコードとを、どこにどのようにシート名を獲得するコードで 今月のシートを選んだり、Findwhatのコードで今日の入力すべきセルを決めて それをどうテキストボックスからデータ転送するのか、わかりません。 もし可能であればテストとして、 2,3個のテキストボックスで、 複数のシートから今月のシートを特定し、 1-5日くらいの日数で、 サンプルで示していただけたら、本当に助かります。 ネットで公開していただいているものは、 基本的にシートが固定で決まっているもので、かつ セルの位置が固定されているもの なので、 このようにシート名を獲得し、 セルも、日によって動く というものに、ユーザーフォームを絡めると、 どのようなコードが必要になるのか、非常に興味があります。 知識がないのに難しいことの要求ばかりで申し訳ありませんが、 もしわかると非常に勉強になります。 ご親切なご教授、どうかよろしくお願いいたします。
回答: サンプルの提示より実際のコードの提示とエラー内容を掲載した方が確実かと。 サンプルを望んでも質問者さんの力量もわからないので、どのようなコードを書けば良いのか見当が付きませんし。 ⇒よくありますが回答を貰って質問を閉じてもそのコードがどう言う物かわからず(解析できず)再度質問を立てるケースが度々あります。