• ベストアンサー

VBAでおしえてください

お世話になります 同一フォルダ内に５個のエクセルファイルがあります。 中身の形式は一緒でA1～Y50まで数値が並んでいます。 （５個の違いは、追い番でファイル名を変えただけです） このファイルの行番号１に１行を挿入して、５個のファイルの同じセルに同じ文字を 書き込みたいです。 A1セル：東京 B1セル：新潟 ・ ・ Y1：山形 これのマクロを組みたいのですが、お教え願えないでしょうか？ よろしくお願いします 分かりづらい文章ですみません

回答 全件
ベストアンサー
自動で開くところまでは書いてません。 一緒に開いていて、非表示になっ…

質問者が選んだベストアンサー

  • ベストアンサー
  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.1

自動で開くところまでは書いてません。 一緒に開いていて、非表示になっていない全てのブックに処理をします。 1）新規ブックの標準モジュールに下記のマクロをコピペ 2）そのブックのSheet1 A1:Y1に挿入に使いたい文字を書く 3）対象となる5個のファイルを開く 4）マクロを実行 Sub Test() Dim wb As Workbook For Each wb In Workbooks 　If Not wb Is ThisWorkbook And Windows(wb.Name).Visible Then 　　 ThisWorkbook.Worksheets(1).Rows(1).Copy 　　 wb.Worksheets(1).Rows(1).Insert Shift:=xlDown 　End If Next wb Application.CutCopyMode = False End Sub

towa2005
質問者

お礼

すばらしいーですぅ。できました、５個じゃなくてもできるんですね ありがとうございます、

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • 【Excel VBA】並べ替え

    Excel2003を使用しています。 あるテキストファイルから必要なデータを抽出し、予めExcelで作成してある表に、抽出したデータをコピーするという作業をマクロで処理しています。 Excelの表は、A列→4桁の番号(数値)、C列→文字列、D列→数値で、A列の番号順(昇順)に表示されています。 抽出されたデータは、2行目以下に表示されるので、まず、A2セルに『0000』、C2セルとD2セルにそれぞれ該当のデータがコピーされ、以下、順番にコピーされます。このA2セル『0000』の行データをコピーされたデータの一番最後にもっていき、下記のように上方向へシフトさせたいのですが、このようなことはコードを追加することで可能でしょうか？ 　　　A列　　C列　　D列 2　　0000　　あ　　100 3　　1200　　い　　200 4　　1500　　う　　300 　　　　　　　↓ 2　　1200　　い　　200 3　　1500　　う　　300 4　　0000　　あ　　100 データ元のテキストファイルは、会社で使用しているシステムの機能を使って、テキストファイルにしたものです。このデータが昇順で表示されているので、こちらを並べ替えてマクロを実行すればいいかと思ったのですが、数値と文字列が混在しているので、Excelの表にコピーした後(数値と文字列の混在がなくなった後)に、上記のように並び替えることができればと思い、質問させていただきました。 よろしくお願いします。

  • 行位置の設定について

    ランダムに行が増えていく（挿入などをして増やす）データに対して、 そのファイルを開いたときに一番行の下（何も入っていない行）の A列のセルをアクティブにする方法ってないのでしょうか。 今は、一つ一つデータがないかを検索してアクティブにする マクロにしております。 すいませんが教えてください。

  • Excel_VBAでできることでしょうか？

    マクロの記録では何も記録されなかったため下記のことについて質問します。 よろしくお願いいたします。 フォルダABCに1から（増えていくので仮にですが）20までのフォルダがあるとします。 その各フォルダの中に多くのファイルがあります。 例）「1」のフォルダで保存されている「あいうえお.xls」ファイルのショートカットキーを作成し，「3」のフォルダの中にそのショートカットキーを移動させたいと思います。可能でしょうか？ これを手動ではなくVBAで行いたいと思っています。 　A列にグループ番号 　　※グループとグループの間は空白行あり 　　※行の追加，削除が行われるためセル指定（行番号指定）はできない 　AB列にファイルが保存されているフォルダの場所 　　※A列が第一グループなら「1」 　AC列に同名ファイルがあるかどうかを数字で記載しているます 　　※A列が第三グループでなのAB列に「3」と入っているが同名ファイルが「1」にある場合 　　　 そのファイルのショートカットキーをAC列の「3」のフォルダ場所へ作成したい 　 「1」のフォルダから中をチェックし，同名ファイルがあった場合はショートカットキーを作成し，保存。 　同名ファイルがなかった時はそのまま保存というようなものを作成したいためです。 以上になります。相変わらずの説明下手で申し訳ありませんが，よろしくお願いいたします。

  • VBA 指定値に最も近い値のセルの行番号は？

    A列に数値が昇順で並んでます。指定の値に最も近い値が並んでるセルの行番号を知りたいのです。 WorksheetFunction.vlookupを使うと、値は分っても行番号はわからない筈です。 Cells.Find().Row を使うと、行番号はわかりますが「最も近い」値はわからない筈です。 マクロを組め！との御指摘があるかも知れませんが、便利な関数があるのならそれで済ませたいです。何かありませんか？無ければ諦めます。

  • VBA　セルのジャンプ

    教えて下さい。 Excelにて、シート１のＡ行のある番号セルをクリックすると、シート２の番号一覧の同じ番号のセルにジャンプするというマクロを組みたいのですが、どうすればいいでしょうか？

  • エクセルVBA　任意のセルの指定について

    流れ的には、 マクロ発動→セルをクリック→選んだセルの行の挿入 ここで悩んでいるのは　マクロ発動後にセルを選べるか？という事と、選んだセルの挿入は行で行いたいということ、マクロの構文が思いつかないことの3点です。 なにとぞよろしくお願いいたします。

  • VBAで、excelファイルのマクロを実行したら、特定のフォルダのファ

    VBAで、excelファイルのマクロを実行したら、特定のフォルダのファイルの特定セルを確認し、その結果を反映する、というマクロを組みたいと思っています。 具体的には下記のマクロを組みたいと思っています。 ------------------------------------------------------ (1)マクロを組むファイル【worksheet】にてマクロを実行する (2)特定のフォルダのファイルのA1、A2、A3、A4の全てに”OK”という文字が入っているかを確認 ・C:\excel\1番\kakunin_1.xls にあるkakunin.xlsの、A1セルに”OK”という文字が入っていたら次はA2、A３、A4の順序で 確認する。 ・このとき、A1にOKと入っていて、A2には入っていなかった場合は、A２という文字を、【worksheet】のB1セルに結果を表示する ようにする。 ・特定のフォルダの構成は下記 C:\excel\1番\kakunin_1.xls |--\2番\kakunin_2.xls |--\3番\kakunin_3.xls ・上記の処理を、1番フォルダの【kakunin_1.xls】で実行し、【worksheet】のB１セルに結果を表示。 ２番フォルダの【kakunin_2.xls】で実行し、【worksheet】のB２セルに結果を表示。 ３番フォルダの【kakunin_3.xls】で実行し、【worksheet】のB３セルに結果を表示。 ------------------------------------------------------ VBAどころかプログラミング自体が初めてなので、例えば引数が何かも一々考えて１文ずつ読み込まなければいけない状態です。。 どなたかこの無知な自分に力を貸して頂けないでしょうか？

  • VBAでログファイルを使って表をつくりたいです。

    Excelのマクロを使って、ログファイル「PPP.0413」というファイルを読み込み、表にして出力したいです。ファイルの中身は、 00201204110255******制御A ***** というようなものが５０行あります。 00は無視、20120411が日付、0255が時刻、制御Aがプロセス名、****は無視 日付をセルA列に、時刻をセルB列に、制御AをセルCに出力 これを５０行繰り返し行いたいです。 あとOpenで開いたときに化け文字になってしまうので文字変換コード？も指定したいです。 よろしくお願いします。

  • VBAでの構築の質問

    VBAの初心者ですが、データの抽出をしたいと考えています。 フォルダの中に、複数のテキストファイル形式のデータがあり、 その中にあるファイル毎の一部データのみ抽出できないかと考えております。 元データ(1)（テキストファイル形式） 10行目にあるデータ A TOKYO 20行目にあるデータ 100 200 1000 2000 （データの間には、スペースがあります。） 元データ(2)（テキストファイル形式） 10行目にあるデータ B Fukuoka 20行目にあるデータ 300 400 3000 4000 （データの間には、スペースがあります。） 編集後のデータは、それぞれのテキストデータ ・10行目データの2番目の抽出 ・20行目データの2番目の抽出 ・20行目データの4番目の抽出 を抽出できないかと考えています。 編集後データ（エクセルファイル形式に出力）は、下記のような感じできないかと考えてます。 　　　　(A列) (B列) （1行目)TOKYO Fukuoka （2行目)200 400 （3行目)2000 4000 皆さんからのご回答、 よろしくお願いいたします。

  • エクセル　ＶＢＡ

    Ａ列に番号が１から順番にコード番号がはいっています。所々欠番が合ったりするのでそれをマクロで自動に行を挿入したいのですができますでしょうか？ 文章だとうまくいえないので、 Ａ　　　Ｂ　　　　　Ｃ １　　　〇×商品　　１０，０００ ２　　　ＡＡ商品　　３０，０００　 ４　　　ＢＢ商品　　２５，０００ ６　　　ＺＺ商品　　２０，０００ を １　　　〇×商品　　１０，０００ ２　　　ＡＡ商品　　３０，０００ ３ ４　　　ＢＢ商品　　２５，０００ ５　　　 ６　　　ＺＺ商品　　２０，０００ といった感じに欠番を追加してその行の右側すべてに空白のセルを追加する方法があれば教えて下さい。

色弱の遺伝について
このQ&Aのポイント
  • 45歳男性・既婚、一人息子がいます。過去に学校の検査で「色弱」と診断されました。息子の将来が心配です。
  • 私・男（色弱）、妻・女（正常）の場合、子・男の子は（正常）となり、女の子は遺伝子の保因者となることを理解しました。
  • 相手の女性が正常である限り、息子の子供・孫に色弱の遺伝子は伝わらないのでしょうか。息子は遺伝子の保因者ですらないので、代を経ても色弱となる子孫は発生しないとの理解で良いでしょうか。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する