sheet1のB2セルに入力されている数値を、sheet2の"O"列に反映させ、
Sheet2の”O”列掛ける(Sheet1のB2の値)sheet2の”P”列="N"列 としたいのですが、記述がわかりません。
それと、sheet2の”Z”列=”N”列+”Q”列+”T”列 たす方法も教えて欲しいです。
列全体の合計を計算するのではなくて列全体に計算式をあてはめて計算させたいのですが、
Range("N2:N" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=Round(P2*O2)"
を変形させたら出来るのかなと思うのですが、四苦八苦しています。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
下記マクロを実行して、Sheet2のO列、N列、Z列に設定された式をご確認ください。
たぶん、ご要望どおりになっていると思います。しかし、正直、何がしたいのか分かりませんでした。特に「Sheet1のB2セルをSheet2のO列に」の部分ですが、O列すべてにB2セルを反映させて良いのでしょうか?B2→O2、B3→O3、B4→O4、・・・が正しいような気がするのですが…。
Sub sample()
Dim LastRow As Long
LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("Sheet2")
.Range("O2:O" & LastRow).Formula = "=Sheet1!$B$2"
.Range("N2:N" & LastRow).Formula = "=O2*P2"
.Range("Z2:Z" & LastRow).Formula = "=SUM(N2,Q2,T2)"
End With
End Sub
No.4
- 回答日時:
こんにちは
申し訳けありませんが回答ではありません。ちょっと気になったので・・・
なさろうとしていることは、式の定義とオートフィルで充分に実現できるものと思いますが、わざわざマクロで処理なさろうとしている意図がよくわかりません。
勉強のために作成してみるのであれば別ですが、通常、VBAで処理することのメリットは
・同じ作業を何度も行うので、自動化しておきたい
・1回だけの作業だが、大量にあるので自動処理にしたい
などだと思います。
ご質問の場合は、その内容からして何度も実行するものとは思えませんし、大量にあるとしてもオートフィルで簡単に実現できるものに思えます。
極端に言えば、(よくわからない)マクロを作成してチェックするのに時間をかけるくらいなら、その何十分の一かで、手作業で実現できてしまうたぐいのものではないでしょうか?
もしもお勉強のために作ろうとなさっているのであれば、大変失礼な言い方になりますが、「安易に聞くよりも、自分で調べられる力をつける」ことこそがお勉強すべきことなのではないかと思います。
(現在は、様々な情報が比較的容易に入手できるようになっていますので)
考え方のヒントとしては、
・1行分の式を書いてみて、それを一般化したものを
必要な範囲(Range)に対して代入する
・1行分作成しておいて、オートフィルを利用する
などでしょうか。
まったくわからない場合は、「マクロの記録」を利用して記述させてみると、ヒントが得られると思います。
ただし、自動記録で生成されるマクロは、実用的ではないものがほとんどであるという点にもご留意ください。
No.2
- 回答日時:
僕の理解力が足らないせいか?全体的に言いたい事がわかりません。
出来れば具体的な例を挙げていただけると助かります。
元がセル単体なのに、先が列になっていますがどういうことでしょうか?
もしかしたら元も、値が入っているB列全体でしょうか?
また貼り付けるのは「計算結果の値」ですか?それとも「計算式」ですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報
おはようございます、皆様回答くださいましてありがとうございます。こちらも素人でうまく質問が出来ませんですみません。sheet1のB2に、単価(円)を入れ、sheet2のO列の(O2:100)までその値を表示させます。その後、O列に入った単価をP列と掛けて、Q列に料金を出したいなと思います。その後、Q列たす、○列たす、○列してX列で0.08かけて、Y列に税額のみ表示し、Z列で総合計を出したいのです。100行目までとしてしまうと、増えたときに困るので、できたら、.End(xlUp).Row).Formulaですかね?を使って、データのある最下部までとしておきたいと思います。分からないのに要望が多くてすみません><;
おはようございます、具体的な記述をいただきまして、ありがとうございます。早速、試してみます。LastRowを使うと、その列の下部データがあるまでの指定になるのですね!