- ベストアンサー
Excel2010*マクロで経費明細の合計値を[まとめ]シートに引用する方法
- Excel2010の初心者が経費明細の合計値を[まとめ]シートに引用する方法を教えてください。
- 現在の仕様は、会場ごとに経費明細のシートがあり、その合計値を[まとめ]シートで一括集計する仕組みです。
- 具体的な操作方法は、[まとめ]シートのB列に[会場明細]シートのシート名を入力すると、経費合計の数値が引用されるようになるようです。
- みんなの回答 (4)
- 専門家の回答
関連するQ&A
- エクセルのマクロを使って・・・
見積書を作成するマクロを作っているのですが、シートの追加がうまくいかず困っています。 見積書を作る際に、明細を入力する行が足らない時に、あらかじめ、作ってある『明細マスター』と言う名前のシートから、明細書をコピーして新しいシートを挿入して、そこに貼り付けると言う作業を、最大で“明細書(1)~(5)”5枚のシートを追加できる…と言う、マクロを作りたいのですが… 追加する枚数はその都度、違うそうなので、1回実行すると、『明細書(1)』が追加され、2回目の実行で『明細書(2)』が追加・・・・・ と言うようなマクロを作りたいのですが・・・ Sub 明細書() Worksheets.Add After:=ActiveSheet ActiveSheet.Name = "明細書(1)" Sheets("明細マスター").Select Cells.Select Selection.Copy Application.CutCopyMode = False Selection.Copy Sheets("明細書(1)").Select Cells.Select ActiveSheet.Paste Range("B2").Select End Sub 上記のマクロで、一枚だけの追加だと明細書が追加されるんですが、それを最大5枚まで追加すると言うマクロが分かりません。 質問が、分かりにくかったら申し訳ありませんが、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロに関する質問です。
エクセル2010使用。 以下の動作をマクロで行いたいです。 「まとめ」という名前のシートを追加。 全てのシート(シート数は毎回違い、10~18くらいあります。シート名もバラバラです。 )のC列にあるデータ(データ数も毎回違います。)をすべて抜き出して、(C列のデータだけでいいです。他の列のデータはいりません。)追加した「まとめ」というシートのA列にまとめるというマクロを組みたいです。 どなたかご教示いただけないでしょうか?
- ベストアンサー
- Excel(エクセル)
- シート名変更のマクロ
QNo.4400605『エクセルでシート数を指定して挿入するマクロはどうやって作ったらいいでしょうか。例えばA1セルに挿入したいシートの数を入力するとその数のシートが作成されるというようなマクロを作りたいのですが』という質問をしてそれについては解決しましたが、作成されたシートの名前を1~40のような数字に変更するマクロが分かりません。作成するシートの枚数は決まってなく、25シートであったり、40シートだったりします。A1:A40に1~40と変更後のシート名を入力して、それをシート名に反映させるマクロは作れたのですが、毎回シート枚数が変わるので「インデックスが有効範囲にありません」と出てしまいます。型としては、元シートがあり、そこでシート数を指定しシートを挿入し、そのできたシートに数字の名前をつけたいと考えています。長々なりましたが教えて下さい。
- ベストアンサー
- オフィス系ソフト
- マクロでシートの読込と繰り返し
エクセルでマクロを作成しました。 ファイルを読み込んで実行したいのです。シートを次々に読み込んで最後のシートまで処理したいのです。 最初にシートの枚数を読みとり繰り返しをすればいいと思うのですが、シート名は数字ではなく文字になっております。 マクロはまだ不自由なもので何分よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- Excelマクロ シート名一覧からシート削除
Excelマクロで質問させてください。 任意のシートに記載されたシート名一覧を参照して、そこに記載されているシート名のシートを、ブック内から削除するマクロは作れますでしょうか? よろしくお願いします。
- ベストアンサー
- Visual Basic
- マクロを使ってハイパーリンクを作りたい
エクセルで下記作業をマクロで行いたいのですが、 途中までつくれたのですが、うまくいきません (1)sheet2をコピーしてsheet2(2)を作る (2)sheet2(2)のsheet名を任意の名前(例222)にかえる (3)sheet1の任意のセルから新しく作った222へハイパーリンクを張る 下記のようなマクロを作りましたが ハイパーリンクを張るとことでうまく行きません どうすればよいのでしょうか。。。 助けてください sub 新しいシートの追加() 'dim sheet名 as string シート名 = InputBox("新しいシート名を入力してください", "シート名の指定") If シート名 <> "" Then Sheets("Sheet2").Select Sheets("Sheet2").Copy After:=Sheets("Sheet2") ActiveSheet.Name = シート名 Sheets("Sheet1").Select Range("A3").End(xlDown).Offset(1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ シート名 TextToDisplay:=シート名 Selection.Hyperlinks(1).SubAddress = シート名 End If End Sub
- ベストアンサー
- その他MS Office製品
- マクロについて。
次のマクロ自体の操作がわかりません。教えていただけると幸いです。 問題は、1,タイトルを16ポイント、斜体で入力しなさい。 2,合計、平均を求めなさい。 3,合計の高い順に並べ替えるマクロを、マクロ名「並び替え」で作成しなさい。 4,マクロを実行しなさい。 問題 1,果物名の昇順に並び替えるマクロを、マクロ名「果物名」で作成しなさい。また、次の条件でテキストボックスを作成し、「果物名」マクロを登録しなさい。 1)B1からB2の範囲に作成する。 2)テキストボックス内に「果物名」という文字列を入力する。 3)テキストボックスの塗りつぶしの色を任意の色に設定し、文字の配置を縦位置、横位置とも中央揃えとする。 2,数値をカンマ表示にするマクロを、マクロ名「カンマ」で作成しなさい。 また、次の条件でテキストボックスを作成し、「カンマ」マクロを登録しなさい。 1)D1からD2の範囲に作成する。 2)テキストボックス内に「カンマ」という文字列を入力する。 3)テキストボックスの塗りつぶしの色を任意の色に設定し、文字の配置を縦位置、横位置とも中央揃えとする。 教えていただけると幸いです。
- 締切済み
- Excel(エクセル)
- エクセルのデータ整理をマクロを用いて行おうと思っているのですが、素人で
エクセルのデータ整理をマクロを用いて行おうと思っているのですが、素人でなかなか前に進みません。 sheet1にあるデータの合計をsheet2の任意のセルに書き込ませたいと考えています。 Sheet1のA1~A4の合計をSheet2のA1に、Sheet1のA5~A8の合計をSheet2のA2に、、、という具合に合計するデータのセル範囲が移動していくような処理をしたいと考えています。 参考になるページやポイントなどがあれば教えていただけますでしょうか。 よろしくお願いします。 Sheet1 Sheet2 A B... A 1 2 合計(1) 2 2 合計(2) 3 2 ・ 4 2 ・ 5 4 ・ 6 4 7 4 8 4 ・ ・ ・ ・ ・ ・
- ベストアンサー
- Visual Basic
- excel2000マクロ抽出方法
2つのファイルがあります。ブック名A.XLS シート名 WORK ブック名b.XLS シート名 SORT ブック名A.XLS シート名 WORKに下記のデータが入っています。 AD 1300G A227550 000PA505(C列2行目) 200112(F列)200201(G列)200202(H列)200203(I列)200204(J列)200205(K列)→1行目固定データ AD 1300G A227550 000PA533(C列3行目) ブック名b.XLS シート名 SORTに下記のデータが入っています。 AD 1300G A227550 000PA505(A列2行目)200112(E列)200201(F列)200202(G列)200203(H列)200204(I列)200205(J列) →1行目E列~J列のデータは都度変わっている AD 1300G A227550 000PA533(A列3行目) データ抽出条件 ブック名A.XLS シート名 WORKの F列~K列の1行目の列データとブック名b.XLS シート名 SORTの E列~J列の1行目の列データが同じで、ブック名A.XLS シート名 WORKのC列の2行目以降のコードと ブック名b.XLS シート名 SORTのA列の2行目以降のコードが同じだったら ブック名b.XLS シート名 WORKの E列~J列の同じ行にデータを入れる。違うときは、 ブック名b.XLS シート名 WORKのデータはそのままにする。 上記の条件を満たしたマクロの記述の仕方を教えてください。 以上よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007のマクロで2つのBOOKを比較
EXCEL2007のマクロでABook,BBookと2つのBookのセルを比較して、数値が違うセルがある場合、BBookの方に新しいsheetを作成して、このsheetのA列に数値が違うセルの番地を、新しいsheetのA1、A2・・・と埋めていくマクロは作成する事は出来るでしょうか?因みに新しいsheetを作成するマクロまでは、出来ました。しかし、新しいsheetのA1、A2と書き込んでいくと、クリップボードの値がA1、A2、・・・入ってしまいます。 Dim ws1 As Object Dim ws2 As Object Dim ws3 As Object Dim co As Integer, ro As Integer, e As Integer Set ws1 = Workbooks(bookname1).Worksheets("明細") Set ws2 = Workbooks(bookname2).Worksheets("明細") Set ws3 = Workbooks(bookname2).Worksheets("エラーセル") If ws1.Cells(y, x).Value = ws2.Cells(y, x).Value Then Else ws3.Cells(e).Select ActiveCell.FormulaR1C1 = "A,e+1" End If マクロの骨格はこんな感じですけど、後は、Forループで回せば良いと考えております。 ActiveCell.FormulaR1C1 = "A,e+1"の部分が良く分かりません。 どの様にすれば、新たに作成したsheetのA1に数値が違うセルの番地例えばE5と入れる事が出来るのでしょうか、それもE5一つだけではなく沢山あります。G7とか・・・ どなたか、ご教授願います。宜しくお願い申し上げます。
- ベストアンサー
- その他(業務ソフトウェア)
お礼
Mathmi様 大変お世話になります。 度々お手数をお掛けしてしまい、申し訳ございませんでした。 あの後、帳票の仕様が一部変更になりましたが、 ご教示いただいたコードを一部変更することで、意図する動作ができるようになりました。 誠にありがとうございました。 今回作成のブックは『第一案』となり、 今後も継続して仕様改訂を行っていく予定です。 また改めて質問を掲載することがあるかと思いますが、 お時間許されましたら是非お知恵をお借りできましたら有難く存じます。 よろしくお願い申し上げます。