ログインしてさらにmixiを楽しもう

コメントを投稿して情報交換!
更新通知を受け取って、最新情報をゲット!

EXCEL VBAコミュの注文表を作成

  • mixiチェック
  • このエントリーをはてなブックマークに追加
いつも活用させて頂いてます。

最近マクロ作ってなくてみなさんのお力をお借りしたく投稿させるもらいます。

入力するシートに支店名、日付をプルダウンから選択し、発注項目に発注数を入力し、発注日のシートの、該当の支店の欄に書き込みをするというマクロを作成してますが、該当のシートを、選択し、該当の支店場所を検索する方法が出来なくてさまよってます。

伝授お願いします。

コメント(14)

こんにちわ。

発注日シートがどんな感じなのかもう少し説明いただけますか?
もしくは画像でも添付していただければ。
>入力するシートに支店名、日付をプルダウンから選択し、
>発注項目に発注数を入力し、
>発注日のシートの、該当の支店の欄に書き込みをするというマクロを作成


とおっしゃいますが、どんなプロシージュアをマクロで実行させたいかが、ごめんなさい、わたしにはよくわかりません。


どこまでのプロシージュアを人がして、その結果を受けてマクロで何をさせたいか、これをはっきりさせればもっといろんな人のコメントが付くと思います。
みてるか見てないかわかんないですけど、

まずシートコレクションをfor eachで回して該当シートを探す。
シートが見つかったら目的のセルを探して入力。

以上です。
http://mixi.jp/view_bbs.pl?id=66412984&comm_id=24524
は解決されたのでしょうかね??
マリ男さん

随分前のことまですみますん。
この件は解決しました。
花姉さん

遅くなりすみますんでした。コメントありがとうございます。

業務上仕事場に携帯を持ち込む事が出来ない為、説明をさせていただきます。
入力用のシート
A6店名(本店、静岡、藤枝、浜松)をプルダウンより選択
A9発注日(2016.7.1、2016.8.3)をプルダウンより選択(本社からまとめて発注する日)

発注する者
ダンボール 数量
シュレッターBox 数量

1.発注する日から該当のシート(発注日のシート)を探す。
         本店 静岡 藤枝 浜松
ダンボール    
シュレッターBox 

入力シートから発注する日のシートに転記するマクロを作成です。
久しぶりにマクロを組むので、忘れてる事が多くて、ご教示いただけると助かります。

よろしくお願いします。
>>[7]

携帯???なんでw
まあ、それはさておき、やっぱり説明がよくわかりません。

検索するシート名は発注日なのですか?店名なんですか?それとも発注日から店名を推察しなくてはいけないのですか?この説明ではわからないので、できれば具体例をお願いします。
>>[7]
>業務上仕事場に携帯を持ち込む事が出来ない為、説明をさせていただきます。
説明用の写真を携帯が持ち込み不可なので撮れないということでしょうかね??
(であれば、スクリーンショットをすれば良いだけなのですが)

シート名は発注日でそのシートに
>         本店 静岡 藤枝 浜松
>ダンボール    
>シュレッターBox 
というような表があるので、入力シートで選択された店名に該当する列に
ダンボール数とシュレッターBox数を転記したいということでしょうか?

入力シート
A6セル 静岡
A9セル 2016.8.3
ダンボール   5
シュレッターBox 10

転記シート(シート名:2016.8.3)
>         本店 静岡 藤枝 浜松
>ダンボール        5
>シュレッターBox     10

という感じに


だとすれば、シート名が入力シートのA9セルと同じになっているのであれば
その値を利用してシート選択できるのでは?
その後は表の見出し行のなかで入力シートのA6セルの値がどの列なのか
算出できれば、あとは転記するだけだと思いますが
マリ男さん。

会社のパソコンも社内Lanしか繋がっていなくて、インターネットには繋がらないようになっているので、スクリーンショットをしても使うことは難しいかと...

スクリーンショットを印刷して、画像に残せばとも、思いましたが、厳重な管理のため危ない橋は渡れませんでした。すみますんが、私のわかりづらい説明でお許し下さい。

マリ男さんのコメントの通りのような事がしたいです。
ありがとうございました。
発注日から発注日シートを、探すマクロがよくわかりません。
そこをご教示いただけると助かります。
よろしくお願いします。
>>[8]

わかりづらい説明で、すみますんでした。
マリ男さんのコメントにも書きましたが、職種の関係上仕事場に携帯を持ち込めない為、画像なくて、説明で、すみませんでした。

誤字ばかりで、すみません。
インターネットには繋がっていない環境です。
色々とセキュリティが、厳しい為、すみません。

転記は、うまく出来ました。
ありがとうございました。
>>[12]
>会社のパソコンも社内Lanしか繋がっていなくて、インターネットには繋がらないようになっているので、>スクリーンショットをしても使うことは難しいかと...
>スクリーンショットを印刷して、画像に残せばとも、思いましたが、厳重な管理のため危ない橋は渡れま>せんでした。すみますんが、私のわかりづらい説明でお許し下さい。
そのものでなくても、それらしいものを会社以外でサンプルとして作成し、
こんな感じになっているというものすらアップできないのでしょうかね・・・・・・

>発注日から発注日シートを、探すマクロがよくわかりません。
探すというよりそのシート名のシートを指定すれば良いのでは?
「Sheet1」という名前のシートを指定するのと同じように
「2016.08.03」という名前のシートを指定するというような感じで

ただしコード中に文字列で名前(たとえば「2016.08.03」)を書いてしまうと
その名前のシートしか指定できなくなるので、発注日のセルを参照して
そのセルの値のシートを指定するようにすれば可変にできますよね


>転記は、うまく出来ました。
>ありがとうございました。
??
結局出来たのですか?
>>[10]

なるほどね。それなら携帯も納得です。
こちらこそすみませんでした。
絵とかでもよかったんですけどね。
もちろん言葉で伝わればそれでもいいのだし。
シート名の実例を挙げてくれるだけでよかったんですけどねー。

発注日シートのシート名がそのまま使えるものなら、マリ男さんが言ってみえる通り
そのものズバリの指定で十分だと思いますよ。もちろん変数で。

そのものズバリじゃないなら、for each文でシートコレクションを回してさがします。
構文そのものはネットにいくらでも落ちてますよ。

で、結局できたんですかね???

ログインすると、みんなのコメントがもっと見れるよ

mixiユーザー
ログインしてコメントしよう!

EXCEL VBA 更新情報

EXCEL VBAのメンバーはこんなコミュニティにも参加しています

星印の数は、共通して参加しているメンバーが多いほど増えます。