エクセルの学校：全文検索：Hyper Estraier： A��...

Results of 1 - 1 of about 48855 for A��... (0.012 sec.)

[[20050206101838]]: #score: 1420; @digest: a61d91a5554ae0d02babb6f6c995675b; @id: 11867; @mdate: 2005-02-07T17:34:37Z; @size: 5410; @type: text/plain; #keywords: 刻種 (29523), sheeta (20520), 量仕 (19867), 類商 (18228), mymonth (13408), smonth (13353), sheetc (12960), 日19 (12224), emonth (11665), 上品 (10055), 月", (9645), 日1 (6684), 先2 (5742), 品b (5498), 日10 (5345), 品a (4788), 日25 (4671), 月10 (4289), 月9 (3672), 入先 (3379), 月8 (3291), 日11 (3184), 日13 (3121), 月2 (3121), 日月 (3039), 月日 (2961), 日15 (2925), 月6 (2716), トc (2679), 仕入 (2615), 月7 (2491), 月5 (2247); 『シートの表示』（ひょ）
シートAに日ごとの売上品目(1年間分)のデータ毎日を入力しています。シートAに入力したデータが、自動的に月ごとにシートC・D・・・へと分かれるようにできますか? そしてシートBには月ごとの合計(売上品目データの中から項目を2つに分けたものの @の合計Aの合計と月ごとの全体合計)を表示させたいのです。よろしくお願いします。 ---- 具体的な内容が不明のため、若干違うかもしれませんが以下のような感じでしょうか。 SheetA A B C 1 月日商品A 商品B 2 1月2日 100 180 3 1月5日 150 210 4 1月8日 200 240 5 1月10日 250 270 6 2月6日 300 300 7 2月9日 350 330 8 2月12日 400 360 9 2月20日 450 390 10 3月1日 500 420 11 3月7日 550 450 12 3月16日 600 480 13 3月22日 650 510 SheetC A B C 1 1月商品A 商品B 2 1月2日 100 180 3 1月5日 150 210 4 1月8日 200 240 5 1月10日 250 270 SheetCのA1には数値のとして、表示形式で 0月 SheetCのA2=IF(SUM(N(MONTH(SheetA!$A$2:$A$100)=$A$1*(SheetA!$A$2:$A$100<>"")))<ROWS($A$2:A2),"",SMALL(IF(MONTH(SheetA!$A$2:$A$100)=$A$1*(SheetA!$A$2:$A$100<>""),SheetA!$A$2:$A$100),ROWS($A$2:A2))) として、ShiftキーとCtrlキーを押しながらEnterキーで確定させて配列数式に。 B2=VLOOKUP($A2,SheetA!$A$2:$C$100,COLUMN(),FALSE) （川野鮎太郎） ---- ありがとうございます。具体例がなくすみませんでした。教えていただいたのですが何度もしてみたのですが、上手くいかないのです。 SheetA A B C D E F G H I 1 月日月日時刻種類商品A 商品B 数量仕入先 2 1月2日 1月2日 10:00 1 ああ 18 A 3 1月5日 1月4日 19:12 2 いい 12 B 4 1月8日 1月7日 19:08 1 うう 1 C 5 1月10日 1月10日 11:05 2 ええ 3 D 6 2月6日 2月6日 10:50 2 おお 4 A 7 2月9日 2月9日 13:40 1 かか 10 C ---- 上記で月日が2列ありますが基準となるのはどちらですか。上記の表からCのシートにはどのような結果がほしいのでしょうか。出来ればCのシートの例を挙げてください。（Aのシートを例にして）（川野鮎太郎）すみません。基準となるのはA列の日付です。よろしくお願いします。シートAに入力すると自動的にその月のシートも反映させたいのです。 Cのシートには 1月 A B C D E F G H I 1 月日月日時刻種類商品A 商品B 数量仕入先 2 1月2日 1月2日 10:00 1 ああ 18 A 3 1月5日 1月4日 19:12 2 いい 12 B 4 1月8日 1月7日 19:08 1 うう 1 C 5 1月10日 1月10日 11:05 2 ええ 3 D Dのシートには 2月 A B C D E F G H I 1 月日月日時刻種類商品A 商品B 数量仕入先 2 2月6日 2月6日 10:50 2 おお 4 A 3 2月9日 2月9日 13:40 1 かか 10 C ---- ほとんどそのまんまで使えますよ。 SheetC A B C D E F G H 1 1月 2 月日月日時刻種類商品A 商品B 数量仕入先 3 1月2日 1月2日 10:00 1 ああ 18 A 4 1月5日 1月4日 19:12 2 いい 12 B 5 1月8日 1月7日 19:08 1 うう 1 C 6 1月10日 1月10日 11:05 2 ええ 3 D A3=IF(SUM(N(MONTH(SheetA!$A$2:$A$100)=$A$1*(SheetA!$A$2:$A$100<>"")))<ROWS($A$3:A3),"",SMALL(IF(MONTH(SheetA!$A$2:$A$100)=$A$1*(SheetA!$A$2:$A$100<>""),SheetA!$A$2:$A$100),ROWS($A$3:A3))) として、ShiftキーとCtrlキーを押しながらEnterキーで確定させて配列数式にして下方にコピー。 B3=IF(VLOOKUP($A3,SheetA!$A$2:$H$100,COLUMN(),FALSE)="","",VLOOKUP($A3,SheetA!$A$2:$H$100,COLUMN(),FALSE)) としてH列まで数式のコピー A1には数値の1を入れてください。（川野鮎太郎） --------- 横からお邪魔します。トピ主さんが混乱するといけないのでどうしょうか迷いましたが、いらなかったら( -.-)ノ⌒-‾ポイしてください。 >自動的に月ごとにシートC・D・とはいきませんが、一括してオートフィルタで振り分けるものです。シートBのイメージがよくわからないので何もしていません。よかったら、試してみてください。 Option Explicit Sub てすと() Dim MyMonth As Variant Dim i As Long Dim SMonth As String, EMonth As String MyMonth = Array("1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月") Application.ScreenUpdating = False With Worksheets("A") For i = 1 To 12 SMonth = Format(DateSerial(Year(Date), i, 1), "yyyy/mm/dd") EMonth = Format(DateSerial(Year(Date), i + 1, 0), "yyyy/mm/dd") .AutoFilterMode = False .Range("A1").CurrentRegion.AutoFilter _ Field:=1, Criteria1:=">=" & SMonth, Operator:=xlAnd, Criteria2:="<=" & EMonth With .AutoFilter.Range If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then Worksheets(MyMonth(i - 1)).Cells.ClearContents .Resize(1, .Columns.Count).Copy _ Destination:=Worksheets(MyMonth(i - 1)).Range("A1") .Resize(.Rows.Count - 1, .Columns.Count).Offset(1).Copy _ Destination:=Worksheets(MyMonth(i - 1)).Range("A65536").End(xlUp).Offset(1) Worksheets(MyMonth(i - 1)).Range("A1").CurrentRegion.EntireColumn.AutoFit End If End With .AutoFilterMode = False Next End With Application.ScreenUpdating = True End Sub http://ryusendo.no-ip.com/cgi-bin/upload/src/up0233.xls （SoulMan） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200502/20050206101838.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ