色々調べてみたのですが該当するものが見当たらず、ご存知の方がいらっしゃいましたら教え下さい。
同じ列内で連続する数式を同じ項目にまとめて繰り返したいのですが、そのようなことは可能でしょうか? 画像の赤枠に入力されている数式を同列の赤枠内にコピーしたいイメージです。
合計1にある日付欄は空欄のままです。
(参考)各日の単価についてはFor~Nextでマクロを組みました。
------------------------------------------------------------------------------------------
◎作成したマクロ
Sub 週ごとの合計()
Range("J3:J4").Formula = "=SUM(C3:I3)"
Range("J5").Formula = "=J3/J4"
Range("J5").NumberFormat = "####.0"単価
------------------------------------------------------------------------------------------
(参考) 客単価のマクロ
Sub 客単価()
Dim i As Long
Dim j As Long
For i = 3 To 9
For j = 3 To 21 Step 4
Cells(j + 2, i) = Cells(j, i) / Cells(j + 1, i)
Cells(j + 2, i).NumberFormat = "####.0" '少数点1桁で示します。
Cells(j + 2, i).HorizontalAlignment = xlRight '右寄せにします。
Next j
Next i
End Sub
No.3
- 回答日時:
No.1はダメ!間違い!失礼しました。
こっちでお試しを。
Sub 客単価()
Dim i As Long
Dim j As Long
Dim lastRow As Long
For i = 3 To 9
For j = 3 To 2 Step 4
Cells(j + 2, i).Select
Cells(j + 2, i) = Cells(j, i) / Cells(j + 1, i)
Cells(j + 2, i).NumberFormat = "####.0" '少数点1桁で示します。
Cells(j + 2, i).HorizontalAlignment = xlRight '右寄せにします。
Next j
Next i
For j = 3 To 25 Step 4
Cells(j, "J").Formula = "=SUM(RC[-7]:RC[-1])"
Cells(j + 1, "J").Formula = "=SUM(RC[-7]:RC[-1])"
Cells(j + 2, "J").Formula = "=R[-2]C/R[-1]C"
Cells(j + 2, "J").NumberFormat = "####.0"
Next
End Sub
No.1
- 回答日時:
こういう感じかな。
Sub 客単価()
Dim i As Long
Dim j As Long
Dim lastRow As Long
For i = 3 To 9
For j = 3 To 21 Step 4
Cells(j + 2, i).Select
Cells(j + 2, i) = Cells(j, i) / Cells(j + 1, i)
Cells(j + 2, i).NumberFormat = "####.0" '少数点1桁で示します。
Cells(j + 2, i).HorizontalAlignment = xlRight '右寄せにします。
'↓追加----
Cells(j, "J").Formula = "=SUM(RC[-7]:RC[-1])"
Cells(j + 1, "J").Formula = "=SUM(RC[-7]:RC[-1])"
Cells(j + 2, "J").Formula = "=R[-2]C/R[-1]C"
Cells(j + 2, "J").NumberFormat = "####.0" '単価
'↑追加----
Next j
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) 日付を重複させずに数えたい 4 2022/12/04 16:26
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
はじめまして。私、配管業を個...
-
売上高の計算
-
構造解析(CAE)業務の相場
-
積算 高所作業車 建築
-
単価の前についている「@」
-
鉄板の㎡単価の求め方
-
一式という言葉の使い方
-
雑貨店さんの1日の売上平均て...
-
建築現場の、土工、雑工、多能...
-
excelを使用したVBAの問題に関...
-
リストボックスの項目に、他の...
-
売上、客数、単価から買い上げ...
-
事務所ビルの電気料金について...
-
「魚由来」、「高単価」という...
-
この間、新規のエアコンを設置...
-
工事現場の騒音は泣き寝入りす...
-
玄関のひさしの上部分ががめく...
-
建築現場の騒音で気が狂いそうです
-
近所の工事現場へのクレーム、...
-
土日も近所の新築工事の騒音で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
はじめまして。私、配管業を個...
-
製造業に勤めています。 外注さ...
-
一式という言葉の使い方
-
天井開口費の見積について
-
CIF単価→FOB単価の算出の仕方を...
-
仕入単価
-
公共建築工事(設備)の積算に...
-
事務所ビルの電気料金について...
-
外構見積もりましたが、どうで...
-
1工数1人工
-
接客販売店員の一日の平均売り上げ
-
米農家の売上
-
積算 高所作業車 建築
-
言葉について
-
投信の「数量」がよく分からない
-
数量×単価+数量×単価... 合計を...
-
卸単価の95掛けってどうゆう意...
-
食材の単価と価格の違いを教え...
-
ACCESSのレコード順番の入れ替え
-
IFERROR、SMALL関数について
おすすめ情報