エクセルの学校：全文検索：Hyper Estraier：リスト

Results of 1 - 1 of about 8929 for リスト (0.006 sec.)

[[20130626083217]]: #score: 2746; @digest: 7597be0f0203f6c9c55c7268840ac228; @id: 62766; @mdate: 2013-06-28T00:02:50Z; @size: 5970; @type: text/plain; #keywords: 下if (21016), 請日 (20098), 請者 (13915), drng (13463), 者sh (13353), 類業 (13096), 申請 (12624), 所業 (11983), ・確 (11819), 名期 (9854), 者住 (9701), 日住 (9082), 認") (7562), 所氏 (6717), 力・ (6561), 力() (5904), 名種 (5084), ト") (4991), 蓄積 (4972), 照用 (4587), 列最 (4495), モヤ (4154), 力シ (4058), smallscroll (3890), 業者 (3109), 様式 (2953), リス (2946), calculation (2013), スト (1996), 日, (1804), トシ (1743), sheets (1633); 『入力データを別シートへ蓄積』（みなみ）
おはようございます。現在、受け付けたデータを申請様式と申請者一覧に手入力しているのですが、入力シートに入力したものをリストシートへ蓄積、リストシートから様式に抽出して印刷という感じのものを作ろうと奮闘しています。一覧から様式へはVLOOKUP等を使い抽出できるのですが、入力シートからリストへの蓄積がなかなかうまくいきません。こちらの過去ログを見ながら作ってみたのですが、リストの一番上にコピーされた後はその下に蓄積されません。どこがおかしいか教えていただけないでしょうか? 入力シートとリスト一覧はこんな感じです。『入力シート』 A B C D E F G H I J 申請日住所氏名種類業者住所業者名期間（A）（B）（C）『リストシート』 A B C D E F G H I J k 番号申請日住所氏名種類業者住所業者名期間（A）（B）（C）入力シートは入力場所は別にあるのですが参照しやすいように参照用にリストと同じ表に飛ぶようにしています。マクロはこんな感じです。 Sub 入力() Dim n As Long n = Sheets("入力・確認").Cells(Rows.Count, "B").End(xlUp).Row + 1 'B列最終行の下 If n < 4 Then n = 4 With Sheets("入力・確認") Sheets("リスト").Range("B" & n).Resize(, 4).Value = .Range("A3:D3").Value '申請日,申請者 Sheets("リスト").Range("F" & n).Resize(, 2).Value = .Range("E3:F3").Value '施工業者 Sheets("リスト").Range("H" & n).Value = .Range("G3").Value '工事期間 Sheets("リスト").Range("I" & n).Resize(, 3).Value = .Range("H3:J3").Value '交付決定額(千円) End With End Sub 入力ボタンを押した後、リストに蓄積され入力画面はクリアしたいのですができるでしょうか? ---- リストに蓄積していきたいなら、「n」の値は、リストシートの最終行じゃないですか? n = Sheets("入力・確認").Cells(Rows.Count, "B").End(xlUp).Row + 1 'B列最終行の下 ‾‾‾‾‾‾‾‾‾‾‾‾‾‾ n = Sheets("リスト").Cells(Rows.Count, "B").End(xlUp).Row + 1 'B列最終行の下クリアは With Sheets("入力・確認") .Range("A3:D3").clearcontents'申請日,申請者 end with こんな感じでできるかと。というか、 Sub 入力() Dim dRng As Range Dim n As Long n = Sheets("リスト").Cells(Rows.Count, "B").End(xlUp).Row + 1 'B列最終行の下 If n < 4 Then n = 4 Set dRng = Sheets("入力・確認").Range("A3:J3") Sheets("リスト").Range("B" & n).Resize(, dRng.Columns.Count) = dRng.Value End Sub ひとつずつ分けてリストに追加する必要あります? （稲葉） ---- 早速の回答ありがとうございます。うまくいきました、ありがとうございます! ひとつずつ分かれていたのは、参考にしたマクロをそのまま利用したためです。あと、聞き方が悪かったのですが入力シートのクリアは参照用のセルのクリアではなく別の列にある入力用の表のクリアになります。教えていただいたマクロを使ってみましたが、セルが飛び飛びな上、列の幅を1.0にして結合して表を使っているせいか、エラーになってしまいました。ためしに自動記録で作ってみました。 Range( _ "U3:W3,Y3:AA3,AV2:AX2,BA2:BC2,BF2:BH2,S4:AK4,S6:AK7,S9:V9,X9:AA9,AC9:AF9,S14:AK14,V21:W21,Z21:AA21,AW14:AY14,BA14:BC14,AU15:BM15,AU17:BM17,AU19:AX20,AZ19:BC20,BE19:BH20,AR25:AT26,AW25:AY26,BB25:BD26" _ ).Select Range("BB25").Activate ActiveWindow.SmallScroll Down:=18 Range( _ "U3:W3,Y3:AA3,AV2:AX2,BA2:BC2,BF2:BH2,S4:AK4,S6:AK7,S9:V9,X9:AA9,AC9:AF9,S14:AK14,V21:W21,Z21:AA21,AW14:AY14,BA14:BC14,AU15:BM15,AU17:BM17,AU19:AX20,AZ19:BC20,BE19:BH20,AR25:AT26,AW25:AY26,BB25:BD26,AQ31:AY38,AZ41:BH42" _ ).Select Range("AZ41").Activate ActiveWindow.SmallScroll Down:=15 Selection.ClearContents ActiveWindow.SmallScroll Down:=-42 Range("U3:W3").Select End Sub うまくいきましたが、イメージはパッと一気に消える感じではないのでなんとなくモヤモヤ。。。保護されていないセルをクリアするようにできれば一番いいのですが。。。 ---- Sub 入力() Dim dRng As Range Dim r As Range Dim n As Long n = Sheets("リスト").Cells(Rows.Count, "B").End(xlUp).Row + 1 'B列最終行の下 If n < 4 Then n = 4 With Sheets("入力・確認") Set dRng = .Range("A3:J3") Sheets("リスト").Range("B" & n).Resize(, dRng.Columns.Count) = dRng.Value Application.Calculation = xlManual '←手動計算に変更し、セルを消した時の再計算をさせない For Each r In .Range("U3:BH42") If Not r.Locked Then '保護されていないセルの時、値を消す r.MergeArea.ClearContents '結合セルの場合、結合セル範囲に置き換えて削除 End If Next Application.Calculation = xlAutomatic '←自動計算に戻す End With End Sub こんな感じでいかがでしょう? ちょっとテスト出来てないけど、大丈夫なはず・・・（念のため、バックアップ取ってから実行してみてください） 11:45追記（稲葉） ---- すごい! すべてうまくいきました、ありがとうございました!（みなみ） ---- 何度もすみません。このリストから申請月で別シートのリストと同じ様式に抽出するにはどうすればよろしいでしょうか? =IF(B4="","",TEXT(B4,"geemm")&TEXT(COUNTIF(B$1:$B4,"<"&DATE(YEAR(B4),MONTH(B4)+1,1))-COUNTIF(B$1:$B4,"<="&(B4-DAY(B4))),"-00")) こんな感じで申請日番号を作って =IF($A6="","",VLOOKUP(TEXT($A$1,"gemm")&TEXT($A6,"-00"),リスト!$A:$Q,COLUMN(L6),FALSE)) こんなんで抽出できるみたいですが中身を理解できていないので全然うまくいきません(ToT) （みなみ） ---- この質問って↓に続いてるんですかね? [[20130627083141]]『リストから受付月ごとに抽出』（みなみ）それとも、また別の話なんでしょうか。 (HANA) ---- つづいてます〜、もうしわけありんません。質問してから反応が無かったので新しく質問してしまいました。ごめんなさい。（みなみ） ---- あ、ごめんなさいねどちらも私が関わった内容だ。「すべてうまくいきました」を読んで、自分の中で終りになってました。こちらは続けず、HANAさんが提示してくれたスレッドで続けてよろしいですね? （稲葉） ---- はい、よろしくお願いします。（みなみ） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201306/20130626083217.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ