- 締切済み
エクセル２０００ マクロ
エクセル２０００を使用しています。マクロを使って定型の入力フォームへの入力を素早く、正確に行えるようにしたいと思っています。 「申請書」と「標準事務用品」の２種のシートに分かれており、「申請書」が定型の入力フォーム、「標準事務用品」は入力フォームに反映させたいデータが一覧になっています。 「標準事務用品」のデータの一覧は５つの項目があり、左から１．品物 ２．商品名 ３．品番 ４．メーカー名 ５．申請 となっています。 ５．申請の列はオプションボタンを1行ごとに１つ設けてあり、オプションボタンがオン（Ｔｒｕｅ）の時に、同じ行の１～４の項目のデータを「申請書」シートの入力フォームの任意のセルへコピーしたいです。 何かよいマクロの記述方法はありますでしょうか。
- 09051114
- お礼率55% (19/34)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- web2525
- ベストアンサー率42% (1219/2850)
マクロの記録で コピーしたいセルの選択 貼り付け先を選択して貼り付け 記録終了 後はマクロの中身を汎用性のあるコードに置き換え。 マクロの作成方法・マクロの編集方法自体が分からないのであれば何が分からないのか 自動作成されたマクロのどこを置き換えるのかが分からなければ、マクロコードを書き込んで質問しないと答えようがないです。
関連するQ&A
- エクセル マクロ
エクセル２０００を使っています。 「申請書」、「標準事務用品」の２種のシートがあって、「申請書」のシートは定型の入力フォーム、「標準事務用品」は入力フォームに反映させたいデータの一覧表になっています。データの項目は左から、１．申請２．品物３．商品名４．品番５．メーカー名となっており、データは全部で７４行あります。１．申請項目の列には各行１個づつコマンドボタンを設けました。コマンドボタンがクリックされたときに、該当行のセルの内容を入力フォームにコピーする処理が実行されるようにしたいです。 マクロの記録で記述されたコードをコマンドボタンのコードにコピーしてみましたが、エラーになってしまい修正の仕方がわかりません。 Private Sub CommandButton1_Click() Range("K30").Select Selection.Copy Sheets("申請書").Select ActiveSheet.Paste Sheets("標準事務用品").Select Range("L30").Select Application.CutCopyMode = False Selection.Copy Sheets("申請書").Select （↓ここでエラーになってしまします。） Range("B13:G13").Select ActiveSheet.Paste Sheets("標準事務用品").Select Range("M30").Select Application.CutCopyMode = False Selection.Copy Sheets("申請書").Select Range("B15:C15").Select ActiveSheet.Paste Sheets("標準事務用品").Select Range("N30").Select Application.CutCopyMode = False Selection.Copy Sheets("申請書").Select Range("B14:G14").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub また、全部で７４行あるので、全てに操作を記述するのは非効率的だろうと思います。何か良い方法はありますでしょうか。 ご助言お待ちしております。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロで別のシートに追加する方法
入力するためのシート1からデータをためるためのシート2に入力するものをマクロのボタンでできるようにしたいのですがどのようにマクロのVBA打てばいいのか分からないので教えて下さい。 したいことは、データ４列でシート1の1行目は項目の行にして、 2行目にデータを入力する。 入力したデータを切り取って、シート２の２行目に張り付けて 次のデータをシート１の２行目に入力して 同じように切り取って次は３行目、４行目…というマクロ作りたいんです。 どなたかお願いします
- ベストアンサー
- その他(データベース)
- エクセルマクロの構文
エクセルマクロに関してご教示いただきたく存じます。 下記の手順を1つのマクロで実行したい場合、どのような構文を書けば実現できますでしょうか？ 前提： ・エクセル中、シート(1)、シート(2)を準備。 ・シート(1)には毎日1日分のデータを入力（例えば、1行目の経費項目、金額、経費支払者 の3カラムヘッダーの下に、2行目から1日分のレコードを入力していく） ・シート(2)には毎日の日別データを累積していく（例えば、シート(1)に1日目で10レコード、2日目で15レコード、3日目で20レコードの場合、3日目終了時に計45レコードにしたい。1行目の経費項目、金額、経費支払者 の3カラムヘッダーはシート(1)と同様） マクロ実行： ・シート(1)に1日目のデータ入力（10レコード）が終わった段階で、ボタンを押し、下記マクロを実行 (1)シート(1)の10レコード（A2:C11）を、シート(2)のA2:C11にコピー (2)シート(1)の10レコード（A2:C11）を、削除（データクリア） ・シート(1)に2日目のデータ入力（15レコード）が終わった段階で、上記と同じボタンを押し、下記のマクロを実行 (1)シート(1)の15レコード（A2:C16）を、シート(2)のA12:C26にコピー（シート(2)において1日目のデータの次に累積させていく） (2)シート(1)の15レコード（A2:C16）を、削除（データクリア） ・シート(1)に3日目のデータ入力（20レコード）が終わった段階で、上記と同じボタンを押し、下記のマクロを実行 (1)シート(1)の20レコード（A2:C21）を、シート(2)のA27:C46にコピー（シート(2)において1日目のデータの次に累積させていく） (2)シート(1)の20レコード（A2:C21）を、削除（データクリア） ・4日目以降、同じボタンでマクロを実行する度に、シート(1)のデータがシート(2)の47行目以降、空白なく追加されていく 以上、皆様のお知恵をお貸しください。
- 締切済み
- Excel（エクセル）
- エクセル マクロについて
１）マクロでボタンを作成して、Sheet２に自動記載出来るようにしました。Sheet2で記載された文字は行で保護出来ないのでしょうか？シート全体に保護をかけたら、勿論ボタン入力出来なくなりました。 ２）マクロのボタンで１回同じ項目をSheet2へ入力した人が、もう一回続けて入力ボタンを押して、Sheet2には同じ文字が入っていました。それを防ぐには何かないのでしょうか？例えば、同じ入力が項目・時間ならメッセージが出てくるとか、1回入力したら”保存されました”などのメッセージがあれば、防げるかな？と思っています。教えてください。
- ベストアンサー
- オフィス系ソフト
- マクロでエクセルの空白行をアクティブにしたい
データーを入力しているシートがあり、マクロのボタンをクリックする データの空白行をアクティブになるようにしたいのです。 具体的に B列のデーターが入力されていない行をアクティブにして他のシートのデーターを張り付ける作業をしたいのですが・・よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのコピー貼り付けマクロ
EXCEL2003を使用しております。 用品の使用記録簿を作っております。 Sheet”入力”で日付や社員名や品目を入力し、（登録）のマクロボタンを押せばSheet”集計”（約１００行）に１行目から順次貼りつく表を考えているのですが、うまくできません。 ご存知の方は、教えてくださいお願いいたします。
- 締切済み
- その他MS Office製品
- マクロ初心者です。よろしくお願いします。
マクロ初心者です。よろしくお願いします。 エクセルのシート上には３つの同様な書式があり、No.1～No.3まで入力ができる。 No.1～No.3の各書式欄外に入力ボタン1～3が配置されている。入力ボタン1を選択すると ユーザーフォーム1が表示される。ここまではできたのですが… (1)ユーザーフォーム上に作成したオプションボタンで「男」と「女」を選択 (2)同フォーム上で作成したコマンドボタン１～８でそれぞれの該当する項目１つを選択 (3)(2)の項目に該当がない場合はコマンドボタン９「該当なし」かコマンドボタン１０「「入力不要」 のどちらかを選択 (4)「Ok」ボタンを選択するとすでに作成済みの標準モジュール男女別・各項目別１～８・該当なし・ 入力不要の作成済みのマクロを呼び出し実行させる。 なお、(1)のデフォルトは「男」になっており、ユーザーフォーム上(2)か(3)のどれか１つを選択し なければMsgboxで"エラーメッセージを表示" (5)コマンドボタン11「キャンセル」を選択すると(2)～(4)の入力内容が無効になる。 このようなマクロを作成したいのですが、色々なサイトやマニュアル本を見ても、うまく作動しません。 ご教示のほどお願い致します。
- 締切済み
- オフィス系ソフト
- エクセルのマクロを知りたい
エクセルで，たくさんのデータが入力された【シートａ】があります。 新しく【シートｂ】を作成して，そこに空白の表(1)～(10)までを作成します。 （ちなみに表(1)は１行から始まり１００行まで，表(2)は１０１行から始まり２００行まで・・・・といった感じです） 【シートｂ】の表(1)には，【シートａ】でＡ列に「１」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。同様に，表(2)には，【シートａ】でＡ列に「２」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。・・・というのを表(10)まで続けます。 上記のような命令をボタン一つで操作できるようなマクロを教えて欲しいのです。 お願いします。
- 締切済み
- オフィス系ソフト
- エクセル マクロ 行
エクセル マクロについて Sheet１にはボタンがあり そのボタンをクリックすると フォームが表示してそのテキストに記入して、記録ボタンを押すと Sheet１最終行のフォームからシートにコピーするボタン方法は出来るのですが・・それだと最終行が新しい記載になってしまいます。 Range("a65536").End(xlUp).Offset(1).Select Selection = Selection.Row - 1 例えば A１ タイトル A2 小項目 A3 挿入させたい！ A列の3行目から挿入して、その後も常にA３から挿入したいです。 新しい記載は常にA3にさせたいのですが、どうすれば良いのでしょうか？記述を教えて下さい。
- ベストアンサー
- オフィス系ソフト
補足
ご助言有難うございます。 マクロの記録で以下のようなコードが記述されました。 Range("J30").Select Selection.Copy Sheets("申請書").Select Range("B12:G12").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("標準事務用品").Select Range("K30").Select Selection.Copy Sheets("申請書").Select Range("B13:G13").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("標準事務用品").Select Range("L30").Select Selection.Copy Sheets("申請書").Select Range("B15:C15").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("標準事務用品").Select Range("M30").Select Selection.Copy Sheets("申請書").Select Range("B14:G14").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("標準事務用品").Select End Sub マクロの記録に、オプションボタンを押す行為が反映されません。各行（ＡＡ３０～ＡＡ１７２まであります）のオプションボタンを選択したら、指定した行のセルをコピー、指定の貼り付け先（毎回同じ）に貼り付けできるようにしたいのです。 説明が足りず、不可解な所があったら申し訳ありません。ぜひお力をお借り出来ればと思いますのでよろしくお願い致します。