エクセルの学校：全文検索：Hyper Estraier：日付

Results of 1 - 1 of about 13164 for 日付 (0.003 sec.)

[[20160316124038]]: #score: 2423; @digest: 28183ce210a1868cfb0bfcba536eee96; @id: 70180; @mdate: 2016-03-21T00:22:48Z; @size: 19631; @type: text/plain; #keywords: 付番 (45938), 号日 (40750), 郎4 (37157), 右近 (30969), 基シ (28421), 郎5 (18357), 郎6 (13920), 近） (11786), 間集 (9402), 次郎 (7176), 年間 (6575), 前日 (6177), 各月 (5571), 番号 (3716), 元シ (3676), 日付 (3480), 2016 (3476), 鈴木 (3037), ・1 (3014), 山田 (2877), ル行 (2852), レイ (2654), 元デ (2501), セッ (2370), 機能 (2355), イア (2261), アウ (2228), 集計 (2183), ウト (2153), 名前 (2050), トル (2019), 月分 (1859); 『月毎のデータを年間集計する』（右近）
以下のような表が同じシートにあります。月別で4月から3月まであります。ここに表示しているのは、同じ名前となっていますが、月によって異なる名前が出てきます。必ずしも以下のような並びになるとは限らないです。これは、基シートが別にあって、以下はOFFSET関数のデータになります。 4月 A B C D E ・・・ 1 名前日付番号日付番号・・・ 2 鈴木太郎 4/ 1 100 4/ 9 115 3 山田次郎 4/ 4 105 4/12 119 4 小?蜑ヤ子 4/10 108 4/16 120 5 山下琢夫 4/ 8 110 4/18 130 ・・・ 5月 A B C D E ・・・ 1 名前日付番号日付番号・・・ 2 鈴木太郎 5/ 2 136 5/13 144 3 山田次郎 5/ 5 139 5/15 148 4 小?蜑ヤ子 5/ 9 140 5/18 151 5 山下琢夫 5/10 141 5/26 153 ・・・上記のデータを別シートに以下の形に横に並べたいです。大体、月に日付と番号のセットが3〜5件ほどあります。良い方法をご教示ください。よろしくお願いします。年間合計 A B C D E F G H I・・・ 1 名前日付番号日付番号日付番号日付番号 2 鈴木太郎 4/ 1 100 4/ 9 115 5/ 2 136 5/13 144 3 山田次郎 4/ 4 105 4/12 119 5/ 5 139 5/15 148 4 小?蜑ヤ子 4/10 108 4/16 120 5/ 9 140 5/18 151 5 山下琢夫 4/ 8 110 4/18 130 5/10 141 5/26 153 ・・・＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- To 右近さん >月別で4月から3月まであります。・そのシート名は何ですか?12シートの名前、全てを教えてください。・シートは全部で12シートではなく、他にあるんですよね? ・マクロを使用してもいいですか? （マリオ） 2016/03/16(水) 13:11 ---- いいえ、最後の集計以外は同一シートです。マクロ、使ったことありませんが、ぜひご教示ください。（右近） 2016/03/16(水) 13:34 ---- マクロを使わない方法も教えて頂ければ有難いです。（右近） 2016/03/16(水) 13:36 ---- よき方法はないでしょうか? （右近） 2016/03/16(水) 21:01 ---- ＞基シートが別にあって、以下はOFFSET関数のデータになります。案外、その元シートから、直接作成したりできませんか? どんな元シートで、どのような形で参照しているのか説明してみてはどうでしょうか。（γ） 2016/03/16(水) 21:57 ---- γさんとかぶりましたが、メモしましたので。交通整理だけ。 >>いいえ、最後の集計以外は同一シートです。同一シートなのに、4月分も5月分も行番号が 1行目からなんですか?? それに、最後の集計シート以外はということですけど【基シート】もあるのでは? >>基シートが別にあって、以下はOFFSET関数のデータになります。その元シートデータってどんなもの（レイアウト）で、どこにあるのでしょうか? で、これを OFFSET関数で月別表に展開しているんでしょうかね。その数式をアップされてはいかがでしょう。 ●もしかしたら、元シートから集計シートに展開できるかもとおもったりしているんですが。（β） 2016/03/16(水) 22:05 ---- ありがとうございます。 4月が7行目から、5月は70行目から・・・以降3月まであります。元データ、いわゆる直接手入力した同じシートにあって、今回何とか年間集計させたいオフセット関数を入れているのがBD7からに入っています。 BD7: =IFERROR(OFFSET(A6,AZ7,37),"")こんな感じです。これを12ヶ月分のデータを以下のように集計させたいのです。すみません。 A B C D E F G H I・・・ 1 名前日付番号日付番号日付番号日付番号 2 鈴木太郎 4/ 1 100 4/ 9 115 5/ 2 136 5/13 144 3 山田次郎 4/ 4 105 4/12 119 5/ 5 139 5/15 148 4 小?蜑ヤ子 4/10 108 4/16 120 5/ 9 140 5/18 151 5 山下琢夫 4/ 8 110 4/18 130 5/10 141 5/26 153 ・・・を（右近） 2016/03/16(水) 22:25 ---- 分かりずらい説明の上に文章がおかしくなっていて、申し訳ありません。どうか、よろしくお願いします。（右近） 2016/03/16(水) 22:29 ---- BD7セルから始まる表が、元表なのですか? 最初に示した4月、5月、・・・の例示は、いずれも1,2,3行があります。これが同一シートにあるってどういうこと? なにかさっぱりですな。（γ） 2016/03/16(水) 22:45 ---- 最初の説明は分かりやすくと思い、1行から説明しました。実際には先ほどの行になります。説明が分かりにくくすみません。 BD7セルはオフセットが入っているセルです。（右近） 2016/03/16(水) 22:55 ---- ＞これは、基シートが別にあって、以下はOFFSET関数のデータになります。この文章の説明をお願いします。（γ） 2016/03/16(水) 22:57 ---- 説明が誤りです。実際には、基本になる（手入力したデータが入ったセル）シートはオフセット関数の入った同一のシートにあります。 4月だと、C7からAU56まで 5月だと、C70からAU119まで以下3月まで同じ行数よろしくお願いします。（右近） 2016/03/16(水) 23:04 ---- 作成したいという表をみると、 4月分の、日付と番号の二つのセットがあり次の列には、 5月分の、日付と番号の二つのセットを書き込むというように読めます。これも分かりやすいようにということで、実際とは別の並び方を書いているのですか? 分かりやすいように、というのが、返って混乱を来す元になっていると思います。省略せずに説明すれば、コメントがいただけるでしょう。がんばって説明してください。私はここで。（γ） 2016/03/16(水) 23:06 ---- 以下のような表が4月から3月まであります。日付と番号が1セットです。月によって、2セット〜5セット程度あります。名前は、月によって順番が異なりますし、途中の月から新規の名前が登場してくる場合があります。全て直接入力データです。 4月 D E F G H 6 名前日付番号日付番号 7 山田太郎 4/ 4 6 4/21 25 8 鈴木次郎 4/ 7 9 4/23 29 9 本田五郎 4/ 9 12 4/25 32 10 佐藤三郎 4/13 14 4/30 35 11 加藤四郎 4/20 20 4/30 40 ・・ 5月 69 名前日付番号日付番号日付番号 70 加藤四郎 5/ 1 45 5/15 55 71 鈴木次郎 5/ 4 47 5/17 57 72 山田太郎 5/ 8 49 5/20 59 5/29 69 73 佐藤三郎 5/11 50 5/22 61 74 本田五郎 5/13 53 5/23 63 ・・ 6月 132 名前日付番号日付番号日付番号 133 佐藤三郎 6/ 1 72 6/20 90 134 山田太郎 6/ 3 75 6/22 93 6/29 102 135 加藤四郎 6/ 9 78 6/25 95 136 鈴木次郎 6/13 82 6/27 96 6/30 105 137 本田五郎 6/18 86 6/28 99 ・・上記の表をOFFSET関数等?を活用して、別のシートに以下のように集計させたいのです。名前の順番は、基本的に4月の順番で、新規で追加されたら、その下に出てくるようになります。出来れば、指定の条件で並べ替えさせられたら最高です。例えば、五十音順だったり、地区別だったりです。年間 D E F G H I J K L M N O P Q R 6 名前日付番号日付番号日付番号日付番号日付番号日付番号日付番号 7 山田太郎 4/ 4 6 4/21 25 5/ 8 49 5/20 59 5/29 69 6/ 1 72 6/20 90 8 鈴木次郎 4/ 7 9 4/23 29 5/ 4 47 5/17 57 6/ 3 75 6/22 93 6/29 102 9 本田五郎 4/ 9 12 4/25 32 5/13 53 5/23 63 6/ 9 78 6/25 95 10 佐藤三郎 4/13 14 4/30 35 5/11 50 5/22 61 6/13 82 6/27 96 6/30 105 11 加藤四郎 4/20 20 4/30 40 5/ 1 45 5/15 55 6/18 86 6/28 99 ・・昨日、分かりづらい説明でご迷惑をおかけしました。どうぞよろしくお願いします。（右近） 2016/03/17(木) 18:04 ---- 失礼します。わかりにくさのポイントは2つあります。 1.月ごとの領域最初の説明では A列からでした。次の説明では D列からでした。で、次には >>4月だと、C7からAU56まで >>5月だと、C70からAU119までということで C列からになっています。で、その次にアップされたサンプルではまた D列からになっています。別のポイントで見ますと、 >>4月が7行目から、5月は70行目から・つまり、月ごとのブロックがデータとして 63行、タイトル行もいれると 64行。一方、 >>4月だと、C7からAU56まで >>5月だと、C70からAU119までということですから、月ごとのブロックは 50行?（タイトル行をいれて 51行?） ★なぜ、そちらに、実際にあるシートレイアウトを説明されるのに、毎回、その場所が違っているのでしょうか? 2.元のデータこれが使えるかどうかはわかりませんけど、年間集計をつくるうえで、むしろ、この元データを相手にしたほうがつくりやすいのでは? というのが、βの推測です。（おそらく γさんも同じ指摘をしておられると思います）なので、元データのレイアウト（場所とサンプル）を教えてくださいとお願いしています。 ★説明いただいて、あぁ、これは使えないねとなるかもしれませんが、だめもとで、元データ情報がどうなっているか説明お願いします。（β） 2016/03/17(木) 18:52 ---- ↑ あぁ、2つ、読み違えていたところがありました。・行については、4月がタイトル行いれて 6行目から、5月がタイトル行入れて69行目から。これは一貫していましたね。失礼しました。・もう1つ、元データといっておられるのは年間集計をしようとして OFFSET関数を使ったものをBD7あたりから作った。でも、うまくいかないので、これは忘れて、あらためて、各月データから年間集計を作成したいと、そういうことですね。 ★なので、開始列いがいは一貫していました。（β） 2016/03/17(木) 18:58 ---- ところで、トライされようとした式、BD7: =IFERROR(OFFSET(A6,AZ7,37),"") これは、具体的に何をどうしようとされたのですか? A6を起点に A6 が 0 として下に AZ7に入っている値,右に37 移動したところの値ということですが。具体的に、OFFSETで指し示しているセルはどこなのですか? （β） 2016/03/17(木) 19:21 ---- ありがとうございます。正直、オフセットは失敗というかうまくいかなくて、それで先ほどアップしたものからスタートしたいと考えていますが、どうでしょうか? よろしくお願いします。（右近） 2016/03/17(木) 19:58 ---- 要件誤解している公算大ですが、とりあええず試してください。 ★印のところ、実際のシート名になおしてください。 Sub Test() Dim j As Long Dim x As Long Dim i As Long Dim line As Range Dim body As Range Dim k As Variant Dim dic As Object Dim y As Long Dim w As Variant Dim mx As Long Application.ScreenUpdating = False Set dic = CreateObject("Scripting.Dictionary") With Sheets("Sheet1") '★元シート For i = 7 To .Range("D" & Rows.Count).End(xlUp).Row Step 63 x = .Cells(i - 1, "D").End(xlToRight).Column Set body = .Cells(i, "D").Resize(62, x - 3) For Each line In body.Rows k = line.Cells(1).Value If k = "" Then Exit For If Not dic.exists(k) Then Set dic(k) = CreateObject("Scripting.Dictionary") dic(k)(dic(k).Count) = k End If For j = 2 To line.Columns.Count Step 2 dic(k)(dic(k).Count) = line.Cells(j).Value dic(k)(dic(k).Count) = line.Cells(j + 1).Value Next Next Next End With With Sheets("Sheet2") '★転記シート .UsedRange.ClearContents y = 2 '転記開始行 For Each k In dic w = dic(k).items .Cells(y, "A").Resize(, UBound(w) + 1).Value = WorksheetFunction.Transpose(WorksheetFunction.Transpose(w)) y = y + 1 If UBound(w) > mx Then mx = UBound(w) Next .Range("A1").Value = "名前" .Range("B1:C1").Value = Array("日付", "番号") .Range("B1:C1").Copy .Range("B1").Resize(, mx) .Select End With End Sub （β） 2016/03/17(木) 20:23 ---- βさん、ありがとうございます。ただ、マクロ使ったことがありません。まずどこからはいればよいのかから・・・すみません。詳しく教えて頂けますか? エクセル2016です。（右近） 2016/03/17(木) 23:40 ---- またまた横から茶々入れ失礼します。 > まずどこからはいればよいのかから・・・すみません。 > 詳しく教えて頂けますか? マクロを知らないのであれば、基本的なテキストを買って勉強してください。何から何まで人に聞いちゃダメですよ。 # 詳しく教えようと思うと一冊の本になってしまうはずです。 # マクロの動かしかたくらい勉強してくださいな。 βさんの提示されたマクロ利用で一件落着かもしれませんが、「何でも関数でできませんか」と言う前に、手作業でもいいから結果を出す努力をされたほうがいいんじゃないかと思う。直前のスレッドで回答された式をあなたは理解できていますか? ソートも式で、などとリクエストする前に、ご自分でExcelに備わっているソート処理を実行することです。さて、今回のテーマも、ご自分でまず手作業で実行することにトライしたらどうですか? 以下のような方針で実行してみてはどうですか? (1)4月の欄を合計に使うんじゃなくて、合計は合計として別の領域に作成しましょう。 4月の欄は、それはそれとして残すべきです。 (2)まず各月に登場するメンバの重複を除いたものを作成します。それには、別のシートに氏名の列をいったんコピーして、「重複の排除」機能を利用すれば可能です。 (3)各月のデータから、VLOOKUPで引っ張ってきます。 (4)問題は、"該当しない箇所は詰めて作成する"ことでしょうか? それには、少しトリッキーですが、以下のような手があります。 =IFERROR(VLOOKUP(氏名のセル,月ごとの表,何番目かを表すセル,FALSE),NA()) のように、該当しない場合は、#N/Aを返すような式にしておきます。 (5)そして、表引きが終わったら、コピーで自分自身に値複写します。（その前に、このあたりでいったん、シートごとバックアップをとったほうがよいかも）「検索と選択」の「ジャンプ」機能でエラー値だけを選択します。その状態で、「セルの削除」「左方向にシフト」を実行すれば、該当なしデータを削除できて、仕上がります。 (6) > 出来れば、指定の条件で並べ替えさせられたら最高です。 > 例えば、五十音順だったり、地区別だったりです。地区って何って感じですが、これもソート機能を使うべきで、関数でする話じゃないです。（関数もマクロも）他人に丸投げするまえに、手作業が入っても、ご自分でトライすることが必要だと思う。すべてを関数式で書きたい、といったことは考えないほうがよい。 Excelに備わった機能を使いこなすことを考えたほうがよいです。関数で簡単にできるならExcelが特別の機能を提供するはずがない。もちろん、高度な関数式やマクロを勉強することも大切ですが、両面から攻めていったほうが実りは多いはずです。 --------- なお、個人的には、単に各月のデータを横にならべるだけにして、詰めないほうが便利かと思う。詰めてしまうことにより失われる情報もあることに気づくべきかもしれません。その後にどんな使い方をするかに依存しますから、そのこともよく検討すべきでしょう。（γ） 2016/03/18(金) 07:16 ---- あぁ、関数、あるいはエクセル標準機能による操作での解決を希望しておられたんですね。詳しくという意味が、マクロを使えるようにするまでの環境づくりのことをいわれているのかそうではなく、アップされたコードの中身についていわれているのか、わかりませんがいずれであっても、もちろん、お手伝いはできます。でも・・それより、関数やエクセル標準機能による解決が右近さんにとって有益なのではと思います。で、その領域の場合、このレイアウトから要望されている年間の表に落とし込む関数、 βには荷が重すぎます。（せめて、エクセル標準機能で、それらしいものができないかどうか、いろいろ試していますが）専門家さんからの回答をお待ちください。以下は余談です。・列について、レイアウトがどうなっているのかの説明が、まだ、ないですね。・このデータ、各人が入力しているのか、管理者が、伝票のようなものからまとめて入力しているのかそこは、わかりませんけど、月によって横の項目数ってきまっているのかな? それとも、月の最後に、あぁ、今月は一番多い人が10項目だったと、そういう感じで、管理者が各月のタイトル行を10項目まで記入するのかな? ・月ごとに何人分と決めたレイアウト。もし、それ以上の人数になれば? かりに、超難解な数式で、このデータを参照して年間表をつくることができたとして、人数がふえて各月の行数を増やしたとき、その数式で、おそらく基準にしている要素が異なってくるので、もう、しっちゃかめっちゃかの数式変更が必要になりそう? ・たとえば、このデータが A,B,C 3列のみで、各データは、淡々と上からつめて追記していく。こういうレイアウトなら、βにも、なんとか扱えるかもしれません。もちろん、そのために入力がしづらくなる、入力チェックが煩雑になるということなら本末転倒ですがもし、単純なレイアウトにしておければ、適宜、年月、名前で並び替えをしてやることで月別チェック、人別チェックもやりやすくなるかもしれませんし。・そういった単純なレイアウトにしておいて、必要に応じて、今提示されている年間表、あるいは、別の見方のレポートが必要になった際に、この単純なレイアウトから展開する。もしかしたら、ピボットや小計や統合等々の機能で簡単に作り上げることもできるかもしれません。（β） 2016/03/18(金) 07:29 ---- 提案したように元データを名前日付番号の3列だけで、ずら〜っと入力する運用ができないとして、現在のデータを別シートの A,B,C 列に組み変えて配置できれば以下の数式が使えるかと思います。組替配置、なんとか、エクセル標準機能で簡単にできないかと試行錯誤しましたが、結局は・値の貼り付け・1〜5行削除、A〜C列削除・切り貼りで D列以降のものを、A,B,C列に切り貼り・名前と日付で並び替え・B列空白セルをジャンプ機能で選択し・選択されたセルの行全体を削除こんな操作をしました。もっと簡単な方法もあるかもしれません。で、ここから本番作業です。 1.A列を E列にコピペ 2.E列を重複の削除で一意化。 3.F2 : =IFERROR(INDEX(OFFSET($B:$B,,MOD(COLUMN()-COLUMN($E2)-1,2)),SMALL(IF($A$2:$A$10000=$E2,ROW($A$2:$A$10000)),QUOTIENT(COLUMN()-COLUMN($E2)+1,2))),"") これを、Ctrl/Shift/Enter で入力。（式そのものはもっとスマートなものもあると思います） 4.F2 をずるずる右にフィルコピーし、そのまま下にフィルコピーなお、・F,H,J,・・・等の書式は、あらかじめ日付書式に・1行目のタイトルは手入力とりあえず、これで提示の年間レイアウトができました。（β） 2016/03/20(日) 09:00 ---- 追伸です。 ↑の手順内で、E列の名前に一意化をエクセル機能で行いました。これが一番いいと思っているのですが、仮にここも関数でということだと、ネットをさがすと以下のようなものがありました。（とっても重いですが） E2 : =A2 E3 : =IFERROR(VLOOKUP("*",IF(COUNTIF(E$2:E2,A$2:A$10000)=0,A$2:A$10000),1,FALSE),"") これを Ctrl/Shift/Enter で入力し下にフィルコピー。また、できあがるレイアウトは少し異なりますが、A,B,C列の元データを相手にピボットを使えばたてが人名、横が日付のマトリックスがいとも簡単に完成します。なにがいいたいかというと、元データをシンプルな形で持っておけば、関数処理にしろエクセル機能による処理にしろ簡単に、かつ柔軟に扱えるということです。もちろん、マクロ処理をする場合も、コードがきわめてシンプル、かつ簡単なものになります。是非、ご一考ください。（β） 2016/03/20(日) 13:55 ---- Excelの一般機能を使う方法（データ表の日付はシリアル値、番号は数値である。と言う前提で） 1.月のタイトル行の、E6に以下の数式を入れ、右へフィルコピー =CHOOSE(MOD(COLUMN(B1),2)+1,"日付/","番号/")&MONTH($E7)&"_"&INT(COLUMN(B1)/2) E6をコピーし、E69,E132へコピーし、右へフィルコピー（名前以外のタイトルが全ての月でユニークならなんでも可） 2.集計表を表示したいシートの起点セルを選択し、データタブの統合を選択集計の方法:合計統合元範囲:テキストボックスの右のボタンを押下、4月の表 D6:??を選択し、Enter、追加ボタン押下統合の基準:上端行、左端列にチェックを入れ、OKボタン押下 3.出力された集計表のセルA1に"名前"と入力 4.集計表全体を選択し、Ctrl+G同時押しで、ジャンプ機能を呼出し、セル選択ボタン押下、空白セルにチェックして、OK 5.空白セルが選択された状態で、右クリックショートカットメニューから、削除、左方向にシフトでOK 6.各月データ表と集計表のタイトルを元の、日付、番号に戻す（きまぐれ） 2016/03/21(月) 09:22 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201603/20160316124038.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ