- 締切済み
excel2010マクロについて助けてください!!
仕事でなりゆきでマクロを使用したいのですが、どなたかマクロを作っていただけませんか? 【内容】 下記のような管理ファイルがあります。 管理ファイルの各項目に背景色を染めて違う別の一覧ファイルに染めた管理ファイルの項目を 抽出したいというものです。 ・管理ファイルは、列見出は、01~10までありそれぞれ下に「歳(1)(2)」「視角(1)(2)」「寿命(1)(2)(3)」「顕」という項目があります。 ・行見出は、A1~A7、B1~B7がJまであります。 ・抽出する見出は、全部ではなく、歳(1)(2)と視角(2)と顕のみです。 ・基本、管理ファイルは、色を手作業で染めるだけで文字は、入りません。 ・管理ファイルに今回だけ手入力で染めたモノだけを抽出したいので管理ファイルの空いてる箇所にマクロボタンを作成して、色を染める→ボタンを押す→一覧に反映みたいな形にしたいです。 ・一覧ファイルは、別のexcelファイルで各シート名が歳一覧、視角一覧、顕一覧になっていて、各項目の箇所にデータを抽出したいです。 ・一覧ファイルは、すべて同じ作りでアドレスの項目の所にデータを抽出したいです。 画像のアドレスは、H3、I3ですが、実際会社のファイルは、H6、I6からです。 わかりにくいかもですが、よろしくお願いします。
- みんなの回答 (4)
- 専門家の回答
みんなの回答
- nonamochi
- ベストアンサー率62% (228/365)
こんばんは あれだけ単刀直入に書かれると突っ込む人もいるでしょうねぇ。 私は逆に嘘偽りが無くて好きですが。 で、マクロですが私にお手伝い出来る事があれば何でも手伝います。 この先色々とお聞きする事が必ず出てくると思いますので、何度もやりとりをしていく事になると思います。 またもっと詳細な画像も見る事が出来たら理解しやすいです。 そこで私のプロファイルに書いてあるホームページにいらっしゃいませんか? 画像も1,000メガバイトまでのJPEG形式の画像をアップロードする事が出来ますので、画面状況を詳細に見る事ができます。 処理内容そのものはさほど難しいとは思いませんので、マクロ化は可能です。 私がどの様な事をやっているのかを一度ご覧頂いて、まかせても大丈夫だと思ったらぜひ書き込んで見てください。
- nonamochi
- ベストアンサー率62% (228/365)
こんばんは 図が小さくてよく見えないため、内容が良くわからないです。 簡単にまとめてしまうと。 1. 管理ファイルがある 2. 管理ファイルの特定のセルに色を付けている 3. その色の付いたセルに該当するA1-A7、B1-B7のいずれかを別ファイルに書き出したい と言うことでしょうか?
- hallo-2007
- ベストアンサー率41% (888/2115)
私もNo1の方と同じ意見です。 しかし >・基本、管理ファイルは、色を手作業で染めるだけで文字は、入りません。 >・管理ファイルに今回だけ手入力で染めたモノだけを抽出したいので 専門家にこのような依頼をしたらびっくりされるでしょう。 この手作業している部分から自動化しなくても良いの? 今回だけ手入力した部分をどうやって探し出せばよいのか あまりにもシステム化に不向きです。 とは言っても仕方がないので、ひとつの検討案です。 新しく Sheet2 というシート名を追加 VBエディターを起動して、標準モジュールに Sub Macro1() Dim r As Range For Each r In Selection If r.Interior.ColorIndex = 6 Then Sheets("Sheet2").Rows(r.Row).Value = Rows(r.Row).Value End If Next End Sub をコピー、データが入っている部分をすべて選択して マクロ、実行すれば、黄色のセルの塗りつぶしがある行のみ Sheet2にコピーされますので、 後で、空白の行を削除してしてください。
- toshi0906xx
- ベストアンサー率7% (1/14)
その程度のマクロが作れないのであれば、しかるべきソフト会社に依頼しましょう。 それが嫌なら諦めましょう。 「マクロの一部分がうまくいかないから」ならわかりますが、丸投げですよね? 問題があったとき誰が面倒を見るのですか??
補足
こんにちわ。すいません。簡単にするとそんな感じです。 染めたセルのアドレスの行見出(A1~A7と言う見出がJ1~J7まであります。)と列見出(01~10)を同じ名前の別のファイルに一覧を作りたいんです。 無理でしょうかね?私自身も子どもが寝静まった夜中にマクロの勉強はしているのですが、単純な物しかできず、周りに知り合いもいない土地なので、聞く人もいないし、習いに行くお金もないし、 会社も子ども養わなきゃ行けないので、そう簡単に辞めれないし、大変困ってたんです(p_-) 書き込みも、迷いましたが、心ない人にキツイ事言われたりは覚悟して、ダメもとで書き込んでみました。 助けていただけたら幸いですm(_ _)m