- ベストアンサー
Excel2000のマクロでデータを指定の順序で入れ替え、項目名を書き換え、掛け算と合計を計算する方法
merlionXXの回答
- merlionXX
- ベストアンサー率48% (1930/4007)
では、前回答えたものをちょといじって・・・ Sub TEST01() Dim x As Long With ActiveSheet .Columns("C").Cut .Columns("A").Insert Shift:=xlToRight .Columns("T:U").Cut .Columns("C:D").Insert Shift:=xlToRight .Columns("W").Cut .Columns("E").Insert Shift:=xlToRight .Columns("W").Cut .Columns("F").Insert Shift:=xlToRight .Columns("AA").Cut .Columns("G").Insert Shift:=xlToRight .Columns("AA").Cut .Columns("H").Insert Shift:=xlToRight .Columns("T").Cut .Columns("I").Insert Shift:=xlToRight .Columns("J:AE").Delete Shift:=xlToLeft .Columns("I").Insert Shift:=xlToRight .Range("G1") = "数量" .Range("H1") = "仕入単価" .Range("I1") = "合計金額" x = .Range("H" & .Rows.Count).End(xlUp).Row .Range("I2:I" & x).FormulaR1C1 = "=ROUNDDOWN(RC[-2]*RC[-1],0)" .Range("I2:I" & x).NumberFormatLocal = "G/標準" .Range("A1:J1").Interior.ColorIndex = 6 End With End Sub でいいでしょうか？
関連するQ&A
- エクセル２０００のマクロで教えて下さい。
日々あるデータが送られてきます。 A～AEまであります。 マクロで下記のようにしたいのです。 残すのはA、C、N、T、U、V、W、Z、AAのみですが順序を入替えたい。 順番としてC、A、T、U、W、V、AA、Z、Nの順です。 どのようにすれば良いのか教えて下さい。 もし補足が必要なら申し付け下さい。
- ベストアンサー
- オフィス系ソフト
- Excelで作った表で・・・
よくある「単価×数量」の表を作りました。 答えに小数点以下になるものが含まれるため、その列に セル書式で小数点以下を四捨五入して整数になるように 設定しました。それぞれの答えはそれで良かったのですが、今度はさらにそれらの合計を求めようと「SUM」を 入力したら表示された整数の合計ではなく、 それぞれのセルある小数点以下の数次を合計して四捨五入してしまいます。 (例)単価×数量＝1.2 表示は1 単価×数量＝1.3 表示は1 計 3 になってしまう←「2」にしたい どうしたらいいのでしょうか？教えてください。
- ベストアンサー
- Windows NT・2000
- Excel計算が合わない
Excelで請求書を作成しましたが、合計金額が一円単位出会わないことがあります。 表は簡単に数量ｘ単価＝合計 数量ｘ単価＝合計 金額合計 金額の合計の答えが１００１だとしても時々１０００だと計算したりしてます。 考えられるのは小数点を使った計算があるからかもしれませんが？？？数量０．５ｘ単価３３円＝１７とか四捨五入があるときによく間違いがあるような気がします。 手直しする方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- （エクセルマクロ）複数の一連作業をマクロで行う処理について
以下の一連の処理についてマクロのコードを一式で教えてください。 【エクセルの構成】 1.シート名 日付だけ都度変更する形式 （例:YYYYMM_教えてGoo） 2.表 列 AからAAまでデータあり 行 1行目はタイトル。2行目以降からデータ。 【処理手順】 1.表全体のフォントを「MS Pゴシック フォント9」にする。 2.1行目から11行目と13行目を削除 3.A列とD列削除 4.一行目の項目行にオートフィルタを設定 5.ウインドウ枠の固定（先頭行（一行目の項目行)の固定） 6.H列に文字が入ってる行のみ削除 7.E列とF列を昇順に並び替え（優先順位は(1)F列、(2)E列） 8.データの最終行の次の行のU列からZ列に表を入れる。 （例）5行目が最終データ行の場合 A…U V W X Y Z 1 ・ 5 6 A =SUM() 7 B 8 C =SUM() (書式設定と詳細） セルU6 「文字列A」と入力し、背景は黄色、文字色は赤 セルV6 背景は黄色、文字色は赤 セルW6 背景は黄色、文字色は赤 セルX6 背景は黄色、文字色は赤 セルY6 背景は黄色、文字色は赤 セルZ6 数式入力（=SUM(Z$2:Z5（最終行））、背景は黄色、文字色は赤 セルU7 「文字列B」と入力し、背景は黄色、文字色は赤 セルV7 背景は黄色、文字色は赤 セルW7 背景は黄色、文字色は赤 セルX7 背景は黄色、文字色は赤 セルY7 背景は黄色、文字色は赤 セルZ7 背景は黄色、文字色は赤 セルU8 「文字列C」と入力し、背景は黄色、文字色は赤 セルV8 背景は黄色、文字色は赤 セルW8 背景は黄色、文字色は赤 セルX8 背景は黄色、文字色は赤 セルY8 背景は黄色、文字色は赤 セルZ8 数式入力（=SUM(Z6:Z7）、背景は黄色、文字色は赤 すべて掛け線なし 9.データ最終行（表も含む）から5行目全体をグレーにし、その行のA列に「データA」と入力。 10.I列に文字が入ってる行のみを切り取り、一番最後にデータが入ってる行から6行目（「データA」と入力した下の行から） から貼り付ける。（切り取った行は行削除し、上詰め） 11.データ最終行（切取貼り付けしたデータAを含む）から3行目全体を黄色にし、その行のA列に「データB」と入力。 12.X列の前に列を挿入し、挿入した列の一行目（項目行）に「タイトル」と記入。 13.挿入した列の2行目から前の列（W列）にデータが入ってる行まで数式（＝ROUND（W2/1.05,0)※2行目に入力した場合)をコピー。 14.セルAB1に「No.」と記入。 15.G列からW列とY列からAA列を非表示にする。 6と8以降からマクロの自動記録ではできませんでした。 ご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- アクセスで見積書作成
アクセスで見積書を作成していますが、レポートで経費の計算が上手くいきません。 作成したい見積のレイアウトは以下の通りです。 (1)○○費 (1)○○○ 単価 × 数量 ＝ 金額 (2)○○○ 単価 × 数量 ＝ 金額 (3)○○○ 単価 × 数量 ＝ 金額 (2)××費 (4)××× 単価 × 数量 ＝ 金額 (5)××× 単価 × 数量 ＝ 金額 (6)××× 単価 × 数量 ＝ 金額 以下同じように（5）まであります。 (6) 経費A (1)～(3)の合計 × 1% (7) 経費B (4)～(5)の合計 × 2% (8) 経費C (1)～(5)の合計 × 3% (9) 端数処理 (1)～(8)の合計の千円以下の部分 (10) 合計 (1)～(8)の合計－(9) テーブルは次の4つを作成しました。 ・大項目Tとして(1)～(5)の値 ・小項目Tとして(1)～(15)の値、大項目名（リレーション） ・見積Tとして見積No、相手先名等 ・見積明細Ｔとして見積No（リレーション）、小項目（リレーション）、数量等 レポートで経費の計算がどうしても上手くいきません。クエリーも色々作成してみましたが、レポートでどう参照すればいいのかわかりません。完全に行き詰まっています。 どなたかお知恵を貸してください！レポートでのグループヘッダ・フッタの設定の仕方なども教えていただけると大変ありがたいです。
- ベストアンサー
- その他(データベース)
- Excel ＶＢＡ 「小計」と入力したら自動計算
エクセルの小計の計算について質問いたします。 Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 Ｆ列 １ 施設名 ２ 商品名,内容 １ 単位 単価 金額（数量×単価） ３ 商品名,内容 １ 単位 単価 金額（数量×単価） ４ 小計 ●●●● ――――――――――――――――――――――――――――――――― ５ 施設名 ６ 商品名,内容 １ 単位 単価 金額（数量×単価） ７ 商品名,内容 １ 単位 単価 金額（数量×単価） ８ 商品名,内容 １ 単位 単価 金額（数量×単価） ９ 小計 ●●●● ――――――――――――――――――――――――――――――――― 合計 ●●●● 施設名ごとに項目が複数あり、施設ごとに項目の数も違います。 これを施設ごとに●の所に小計を出したいです。 「小計」が数回にわたり出てくる場合は、「前回小計をした次のセルから今回小計するセルの前まで」を計算させる訳ですが、どんなＶＢＡを組めばいいのかわかりません。 理想としてはにＥ列に小計という文字を入れるとＦ列に自動で計が出るようにして、さらに小計の合計を最後の行のセルにだしたいです。。 さらに、見やすくなるように小計の下のセルにＡ～Ｆの間に太線を引いて施設ごとの区切りがわかるようにしたいです。。 繰り返し作業ばかりで大変です。 どなたか知恵をお貸しください。
- ベストアンサー
- オフィス系ソフト
- Excelマクロの組み方を教えてください。
マクロ初心者です。 見積のフォーマットを作成しているのですが、 どなたかマクロの組み方をご教授いただければありがたいです。 見積のフォーマットは下記のようになっております。 A B C D E F 番号 製品名 数量 単価 合計 製品カテゴリ 製品カテゴリは、例えば食料品、衣料品といったものを選択してもらうように、 入力規則でリストから選んでもらうようになっています。 製品カテゴリごとでいくらの合計金額になるのかを集計したいので、 C列に数量が入っている場合は必ず製品カテゴリを選択して欲しいのです。 印刷マクロはもう既に組んであり、そのマクロボタンを押したときに、 C列に数量が入っていて、同じ行の製品カテゴリの欄が未入力の場合に、 そのマクロが実行されない（エラーメッセージが出る）マクロを組みたいと考えております。 ※ちゃんと製品カテゴリが入っていれば、そのままメッセージなども出ずに印刷されるようにしたいです。 お忙しいところすみませんが、どなたかお力をお貸しいただければと思います。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルでセル一つ置きの数量合計
エクセルで例えば、 Ａ Ｂ １ 数量 1111 ２ 単価 111 ３ 数量 2222 ４ 単価 222 ５ 数量 3333 ６ 単価 333 ・ ・ ・ ・ ・ ・ 100 数量合計 xxxx として、Ｂ100に数量の合計だけを 表示させる関数を教えて下さい。
- ベストアンサー
- オフィス系ソフト
- エクセル任意の整数を少数表示に変える
PDFの設計書をエクセルに変換したのですが、数量の値表示が小数点以下の値が分かれてしまい、2つのセルに分かれて表示されてしまいました。結合すると後ろの値がなくなってしまい困っていますご教授お願いします。 A列・B列（3桁までの数）に任意の整数があります。C列にB列の値を小数点表示に変えて合計を表示したいのですが教えてください。B列は 2 や 02 や 002 などで表示されています。 A列=13 B列=2 C列=13.2 A列=13 B列=02 C列=13.02 A列=13 B列=002 C列=13.002
- ベストアンサー
- オフィス系ソフト
- エクセルの使い方
エクセルで、シート１のデータを元に、シート２に連動させるにはどうしたらよいのでしょう？？ シート1で、定価、数量、合計を入力して、シート2で定価の70％で計算するには。 小数点以下を切捨てで、合計金額を出したい。 例 シート1 定価1234円 数量4個 合計4936円 ↓ シート2 863円 4個 3452円 小数点以下の作業がわからないものですから・・・ どなたか教えていただけないでしょうか？？ よろしくお願いします
- 締切済み
- その他(業務ソフトウェア)
お礼
お礼が遅くなり申し訳ありませんでした。 私の意図している事が出来ました。 有難うございます。 一つ後で気が付いたんですがI列の合計を一番下のセルに表示させるには どうすれば良いのでしょう？