- ベストアンサー
マクロVBA入力
pkh4989の回答
こんにちは。 変更出来ます。ブック名を変更して保存するのと同じ方法で名前を変えれば、全てのシート名が違う名称で保存出来ます。 が、以下のようにするとシート名は固定「XXXXX」になります。 頑張ってくださいね。 'ファイル保存処理 If wR3 > 1 Then wSeq = wSeq + 1 wFlnm = wPath & wFlnm1 & "-" & Format(wSeq, "000") Worksheets("Sheet3").Copy ActiveSheet.Name = "XXXXX" '← シート名を「XXXXX」で変更 ActiveWorkbook.SaveAs Filename:=wFlnm ActiveWorkbook.Close End If
関連するQ&A
- エクセルVBA及び関数
初心者です。お教えお願いします エクセル2003です 空白行及び0をなくしたいのですが（C列を入力された時点で自動でE列のようにしたい） 関数の場合及びVBAのシートコードを両方教えていただけないでしょうか VBAのコードは勉強の為です Sheet1 A B C D E F 16 文字A 文字A 17 文字B 文字B 18 0 文字C 19 文字C 文字D 20 0 文字E 21 文字D 文字F 22 23 文字E 24 25 文字F 文字はC16～C80まで入っております B16～E80までのセルのみで行いたいのですが 他の場所は関数やグラフ等がすでに入ってますのでいじりたくありません E16～をフォームのコンボボックスのリストにしようと思ってます よろしくお願いましす
- ベストアンサー
- オフィス系ソフト
- エクセルVBA/抽出・貼付け
下記を行いたいのですが、どのようなコードになるのでしょうか？ シート001（入力用） (1)A1～A50、B1～B50、C1～C50、D1～D50 に数値、E1～E50に文字列 (2)F1～F50、G1～G50、H1～H50、I1～I50 に数値、J1～J50に文字列 ※空白行混在 シート002（計算用） シート001に作ったコマンドボタン：クリックにより、 シート002を表示させ、A1～E100に、 シート(1)のA1～E50とF1～J50の空白行以外を連続して 反映させたい。並べ替え用など別シートを用いずに、 VBAコード内で処理したい。
- ベストアンサー
- オフィス系ソフト
- 項目別に合計数入力
シート１の表－１にA~C列に文字とD,E列に数値が入力されておりシート２の表－２にA,B,C列の文字が同一行であれば１行とし違えば行を追加し同一行はD,E列の数値を加算していきたいのですがどなたかVBAコードか関数の解る方宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- 【VBA】シート１の入力表をシート２に並び替えて表示させたい【VBA】
はじめて質問させて頂きます。 駄文で伝わりづらいかと思いますが、大変困っておりますので、ご教授下さい。宜しくお願いします。 【シート１】 商品コード 店舗コード ００１ ００２ ００３ ００００Ａ ￥１ ￥２ ￥３ ００００Ｂ ￥４ ￥５ ￥６ ００００Ｃ ￥７ ￥８ ￥９ 【シート２】 店舗コード 商品コード 金額 ００００Ａ ００１ ￥１ ００００Ａ ００２ ￥２ ００００Ａ ００３ ￥３ ００００Ｂ ００１ ￥４ ００００Ｂ ００２ ￥５ ００００Ｂ ００３ ￥６ ００００Ｃ ００１ ￥７ ００００Ｃ ００２ ￥８ ００００Ｃ ００３ ￥９ ★実現したいこと ＶＢＡを用いて、シート１にて入力した内容を、シート２のように並べ替えて表示したい。 ★条件 店舗コード→可変（Ａ列で上から拾いNULLまでループ） 商品コード→固定（上記例だと001～003の３つ） 金額→可変 以上です。当方VBA初心者ですが宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel マクロ・VBAの印刷方法について
急ぎの回答です！！ 関数式の入っているセル（空白表示）を印刷範囲に入れずに印刷する方法を教えてください。 別シートのデータを関数で引っ張てきてひな形のセルに表示しています。 行→$1:$6 列→$A:$Agは印 刷タイトルに設定。 Ａ列7行目から1.2.3... とNo.が入っており、 Ｂ.～Ｊ. 列7行目からはデータが最終の50まで入力してます。（ 関数式=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1)) ） Ｋ.～AG.列7行目からは書式データ（同じ文面の繰り返です。最終の50まで入っています）Ｂ～Ｊ列の7行目から関数（データ）=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1))をコピぺと一部を変更しセルへ入力して別シートからデータを引っ張てきてます。この関数だと該当する値がない場合はセルは表面上は空白セルに見えますが、セルには数式が入っている状態です。セルデータの最終行を習得し印刷に設定すると関数入力されているところで最終行と認識し、関数式を入れている50行まで印刷してしまいます。 したいことは、データが表示されている30行までなら30行まで印刷という感じにはできないでしょうか？ シートを様式一枚ずつ作成しており、1ブックには20シートずつ保存しています。そしてこのブックはおよそ30ブックあります。 1ブック内の全てのシート（20シート）に反映できるようしたいです。 ※30行までデータが表示されている場合、C～Ｊには途中とちゅうで空白欄がありますが、Ｂ列は30行全てデータの表示（該当する場合）されます。 Excel マクロ VBA に詳しい方回答お願いします！ B７からはB56まですべて関数式を入力しています（最大50までデータが表示されるように） シート枚数と、元のデータ数が行で7000程とかなり多く、このような関数式になりました。できればマクロ、VBA等での処理が望ましいです（時間がないので＞＜）よろしくお願いいたします！！！
- ベストアンサー
- Excel（エクセル）
- エクセル 関数を自動的に入力するVBAで困っています
VBA初心者です。 エクセルの入力シートで行ごとにデータを下記のように入力しています。 A B C 1 日付 品番 商品 2 10/25 10 りんご 3 10/26 20 みかん 4 5 6 2行目から順にデータを入力すると自動的にC列にVBAで VLOOKUP関数をセットして商品を検索したいのですが 上手くできませんでした。 教えてください。よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- 自動入力マクロ教えてください
sheet1のB列に数値を入力していますデータは10行目以降に入力されています。 データが1,10.20ならsheet2のB列、2.15.35ならsheet2のC列5.40ならsheet2のD列それ以外はsheet2のE列に自動的に入力したいのですがそのマクロを教えていただけないでしょか。行はsheet1と同じ行に入力します
- ベストアンサー
- オフィス系ソフト
- VBA（マクロ）について
エクセルのマクロを使って下記のように実行を考えています。 A列のコード番号が一定ではないため、処理に困っています。 どなたかアドバイス頂けないでしょうか。 詳細についてです。A列にコード番号があり、B列に数値があります。 例えば、A列の１～３行目まで１００とあり、４～５行目まで４００と１～３行目と４～５行目の数値はおなじです。３行分だったり２行分だったりと不規則に下に続いていきます。 そのA列の同じコード番号全てに対して、B列の値を合計してC列に合計値を入力したいのです。 C列の合計値入力箇所は、A列の１～３行目までだとするとC列１行目に合計値がくるようにしたいのです。 ちなみに行数は１０万桁ほどあります。
- ベストアンサー
- Visual Basic
- VBA
エクセルVBAについて教えてください。 シート１ Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 Ｆ列 ・・・ 商品Ａ 商品Ｂ 商品Ｃ 商品Ｄ・・・ 日付 名前(1) 3 2 1 日付 名前(2) 1 3 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ シート２ Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 日付 名前(1) 商品Ａ 3 商品Ｃ 2 商品Ｄ 1 日付 名前(2) 商品Ｂ 1 商品Ｃ 3 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ 上記のような、エクセルで作ったシート1があります。 これを、シート2のようにコピーしたいと思っています。 商品は20列あり、数字が入っている列と入っていない列があります。 数字が入っている列の商品と数字をコピーして、すべてコピーが 終わったら次の行のコピーしていく。 行は100ほどあります。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- VBA,行列入れ替え挿入
初めまして、よろしくお願いします。 VBAで、シート Ａ Ｂ Ｃ Ｄ Ｅ １ ９ ２ ８ ３ ７ ４ ５ を Ａ Ｂ Ｃ Ｄ Ｅ １ ２ ３ ４ ５ ９ ８ ７ とＣ列（Ｃ１：Ｃ３）を５行目（Ｂ５：Ｄ５）へと行を挿入していくＶＢＡを教えて頂きたく、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
お返事が遅れてしまい申し訳ありませんでした。とても勉強にもなりました。本当に有難うございました。