エクセル 日報売上を月報に展開するマクロで困っております。
準備するシート
(1)日報入力シート
(2)月報売上シート
日報入力シートに作ったボタンを押すとB3の日付(今日)と月報売上シートA列の2~31に用意された日付(1ヶ月分)を参照する
一致した場所(B列~D列)に 入力シート B7:D7のデータを貼り付ける作業を考えております。
以下は過去の事例を参考にさせて頂きました。日付が横軸ですが、目的は縦軸です。
日報入力は1回のみですので、重複はなく1行ずらす処理は必要ありません。
ご教示頂けば助かります。
よろしくお願い致します。
Sub ボタン1_Click()
Dim FRng As Range
Dim Rw As Long
With Sheets("月報売上シート")
If Range("B3").Value = "" Then
MsgBox "入力日を記入してください。", vbExclamation
Exit Sub
End If
Set FRng = .Rows(1).Find(Range("B3").Value, lookat:=xlWhole)
If Not FRng Is Nothing Then
Rw = .Cells(Rows.Count, FRng.Column).End(xlUp).Row
If Rw < 3 Then Rw = 3 Else Rw = Rw + 1
.Cells(Rw, FRng.Column).Resize(, 3).Value = Range("B7:D7").Value
Else
MsgBox "転記先日付が 見つかりません。", vbCritical
Exit Sub
End If
End With
Set FRng = Nothing
MsgBox "転記しました。", vbInformation, "完了"
End Sub
No.1ベストアンサー
- 回答日時:
Private Sub Sample()
Dim lngMaxRow As Long
Dim NippoWs As Worksheet
Dim GeppoWs As Worksheet
Dim rng As Range
Dim lngRow As Long
Dim lngCol As Long
Set NippoWs = Workbooks(ThisWorkbook.Name).Sheets("日報入力")
Set GeppoWs = Workbooks(ThisWorkbook.Name).Sheets("月報売上")
lngMaxRow = GeppoWs.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = GeppoWs.Range("A:A").Find(NippoWs.Cells(3, 2))
If NippoWs.Cells(3, 2) = "" Then
MsgBox "日付が入力されていません"
Exit Sub
ElseIf rng Is Nothing Then
MsgBox "日付がありません"
Exit Sub
End If
lngRow = 0
For lngRow = 1 To lngMaxRow Step 1
If NippoWs.Cells(3, 2) = GeppoWs.Cells(lngRow, 1) Then
GeppoWs.Cells(lngRow, 2) = NippoWs.Cells(6, 2)
GeppoWs.Cells(lngRow, 3) = NippoWs.Cells(6, 3)
GeppoWs.Cells(lngRow, 4) = NippoWs.Cells(6, 4)
End If
Next
End Sub
こんな感じでどうでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
最近、いつ泣きましたか?
泣いてストレス発散! なんて言いますよね。 あなたは最近いつ、どんなシチュエーションで泣きましたか?
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
「お昼の放送」の思い出
小学校から中学校、ところによっては高校まで お昼休みに校内放送で、放送委員が音楽とかおしゃべりとか流してましたよね。 最近は自分でもラジオができるようになって、そのクオリティもすごいことになっていると聞きます。
-
Excelで日報から月報へとデータ参照をさせたい。
Excel(エクセル)
-
日報のデータを月報にデータを挿入したい
Excel(エクセル)
-
エクセルで日報と月報を作成中です。日付と活動内容の件数を計算する関数に悩んでいます。この場合、cou
Excel(エクセル)
-
-
4
エクセル 日報に入力すると月報に総合計金額が表示できるようにしたい
Excel(エクセル)
-
5
エクセルで入力→日付を自動判別して、その日付用のセルに転記したい
Excel(エクセル)
-
6
エクセル 日計表から月計表に自動入力
その他(Microsoft Office)
-
7
毎日の日計を別シートに自動で更新、反映させたい
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
Excel の複数シートの列幅を同...
-
Excelでの並べ替えを全シートま...
-
エクセルの列の限界は255列以上...
-
エクセルの保護で、列の表示や...
-
Excel VBA ピボットテーブルに...
-
VBAで繰り返しコピーしながら下...
-
【VBA】ピボットテーブルを既存...
-
エクセル マクロ 標準モジュー...
-
エクセル複数シートのデータを...
-
エクセルVBAでエラーがでます。
-
【エクセル】1列のデータを交...
-
エクセル機能 オートフィルター
-
【条件付き書式】countifsで複...
-
エクセルで横並びの複数データ...
-
Excelのセルの色を変えた行(す...
-
Excel 2段組み
-
エクセル 他シート入力 自動表示
-
EXCEL VBAのコンボボックスに取...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
エクセルの保護で、列の表示や...
-
Excel の複数シートの列幅を同...
-
Excelでの並べ替えを全シートま...
-
Excel VBA ピボットテーブルに...
-
VBAで繰り返しコピーしながら下...
-
エクセルの列の限界は255列以上...
-
エクセル マクロ 標準モジュー...
-
エクセルで、チェックボックス...
-
スプレッドシートでindexとIMPO...
-
【条件付き書式】countifsで複...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで横並びの複数データ...
-
エクセルVBAで、ある文字を含ん...
-
エクセル複数シートのデータを...
-
Excelに自動で行の増減をしたい...
-
VLOOKアップ関数の結果の...
-
Excel 2段組み
-
【VBA】複数のシートの指定した...
おすすめ情報
早速にご返答ありがとうございました。
月報売上シートのカレンダーはマクロでするのではなく、
関数を利用し、任意のセルに年と月を入力すると、
A列に日付(標準の数値)
B列に曜日(関数式)
が入る万年カレンダーを作成しようと考えております。
よってA列の数値を参照させたいと思います。
その場合の変更はどのようになりますでしょうか?
お手数おかけしますがよろしくお願い致します。