No.1
- 回答日時:
式が複雑になりますので作業列を作って対応するのがよいでしょう。
また配列数式などを使いますと計算に負担がかかります。シート1のD2セルには次の式を入力して下方にドラッグコピーします。
=IF(C2="","",C2*100+COUNTIF(C$2:C2,C2))
シート2のB2セルには次の式を入力してC2セルまでドラッグコピーしたのちに下方にもドラッグコピーします。
=IF(ROW(A1)>MATCH(10^10,$A$2:$A2)+5,"",IF(ISERROR(INDEX(Sheet1!$A:$B,MATCH(LOOKUP(10^10,$A$2:$A2)*100+ROW(A1)-MATCH(10^10,$A$2:$A2)+1,Sheet1!$D:$D,0),COLUMN(A1))),"",INDEX(Sheet1!$A:$B,MATCH(LOOKUP(10^10,$A$2:$A2)*100+ROW(A1)-MATCH(10^10,$A$2:$A2)+1,Sheet1!$D:$D,0),COLUMN(A1))))
No.2ベストアンサー
- 回答日時:
回答No2,3です。
シート2のB2セルへは次の式で良かったですね。=IF(ISERROR(INDEX(Sheet1!$A:$B,MATCH(LOOKUP(10^10,$A$2:$A2)*100+ROW(A1)-MATCH(10^10,$A$2:$A2)+1,Sheet1!$D:$D,0),COLUMN(A1))),"",INDEX(Sheet1!$A:$B,MATCH(LOOKUP(10^10,$A$2:$A2)*100+ROW(A1)-MATCH(10^10,$A$2:$A2)+1,Sheet1!$D:$D,0),COLUMN(A1)))
KURUMITOさん お礼遅くなりましたが、早速の回答ありがとうございます。
なるほど~☆作業列の使い方、参考になります。
自分なりにアレンジして、思っていた予定表が仕上がりました!!!
今月から、作業に活かせそうです。本当に助かりました~。
ありがとうございます(^-^)
No.3
- 回答日時:
こんばんは!
VBAでの一例です。
前提条件として・・・
(1)画像のようにSheet2のA列は6セル毎に結合している
(同一日のデータは6以上表示しない)というコトが前提となります。
(2)同一日に生産された「製品名」「製品番号」の重複はない。
だとします。
画面左下のSheet2のSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてSheet2のA列に日付データを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i, k As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1") '←「Sheet1」の部分は実際のSheet名に!
On Error Resume Next
If Intersect(Target, Columns(1)) Is Nothing Or _
Target = "" Then Exit Sub
Application.ScreenUpdating = False
k = Target.Row - 1
Range(Cells(k + 1, 2), Cells(k + 6, 3)).ClearContents
For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
If ws.Cells(i, 3) = Target Then
k = k + 1
With Cells(k, 2)
.Value = ws.Cells(i, 1)
.Offset(, 1) = ws.Cells(i, 2)
End With
End If
Next i
Application.ScreenUpdating = True
End Sub 'この行まで
参考になりますかね?m(_ _)m
tom04さん 丁寧なご回答ありがとうございます。
ただ、日付は、月初めの1日目(4/1)を入力し、以降A列の4/2,4/3,・・・は
数式で自動的に表示させるつもりでした。
B列、C列は、A列に直接入力した時しか表示されませんでした。
私は、コードの意味はよく分かりませんが、入力したところは、うまく表示され、
感動しました!!!
ありがとうございます☆
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【詳しい方教えて下さい】EXCEL条件に一致する値の複数抽出 9 2022/04/29 10:56
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) Excel 売上管理シートに入力した売上データを、日報に自動反映させたいと考えています。 売上管理シ 3 2023/04/29 18:08
- Excel(エクセル) Excelで日報を自動で作成したい 売上管理シートに入力した売上データを、日報に自動反映させたいと考 1 2023/04/29 18:07
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2022/03/24 16:07
- Excel(エクセル) Excelについて質問です。 シート1の検索値例えば *ABC* をシート2.3.4から検索して、シ 5 2023/02/17 23:30
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) Excelで在庫表(クエリ、ピボット) 2 2022/04/11 17:11
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
関連するカテゴリから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 フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報