エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.009 sec.)

フォーマット (1423), 自動 (14517), 印刷 (5709)

[[20110713165112]]: #score: 8137; @digest: 39ab5d043d049458405ce1a7ac188a97; @id: 55226; @mdate: 2011-07-15T14:08:18Z; @size: 5146; @type: text/plain; #keywords: ワ1 (29523), サタ (19327), 行枚 (19277), 得者 (16799), ノ2 (15241), エノ (11311), カガ (11311), myw (10731), カサ (9992), キ1 (9663), ウ1 (8179), ラデ (7697), ガワ (7635), オタ (7299), タナ (6585), サス (6375), dr (5294), カワ (5281), ダ1 (5208), クワ (5173), ズキ (5044), 枚数 (4965), ワタ (4793), スド (4720), ロ組 (4427), オオ (3912), スズ (3850), アカ (3666), イダ (3511), 数") (3300), タ3 (3270), ィッ (3208); 『別シートの来場者リストを自動で表示したい』（ラディック）
Excel2000 WindowsXP 先日『名前の頭文字だけ抽出して置き換えたい』でお世話になったものですが、追加で質問です。シート1に E列 F列 G列 H列 6 行名前枚数取得者 7 アアイカワ 1枚省略 8 サスズキ 1枚 9 アウエノ 2枚 10 サスドウ 1枚 11 アイイダ 1枚 12 カクワタ 3枚 13 カカガワ 1枚 14 アオオタ 1枚のように、F列には名前 E列には名前の頭文字を「アカサタナ」に変換したもの（関数で表示）G列にはチケットの枚数、H列には予約を取った取得者（身内）が記入されていて、これをシート2に A列 B列 C列 D列 E列 3 ア行枚数カ行枚数 4 アイカワ 1枚カガワ 1枚 5 イイダ 1枚クワタ 3枚 6 ウエノ 2枚 7 オオタ 1枚 8 9 10 サ行枚数タ行 11 スズキ 1枚同様に… 12 スドウ 1枚と言う感じで、シート1にリストが追加されたら、シート2に自動で表示されるようにしたいのですが、可能でしょうか? 欲を言えば自動で五十音順で並び替えまで出来ると最高ですが、出来なければ並び替え位はマクロ組んでやります。よろしくお願いします! ---- 数式レベルだと大変そうに見えます。 >出来なければ並び替え位はマクロ組んでやります。が可能のであれば、全体をマクロで処理することを検討してはどうでしょうか。 1)シート1をシート2にコピー 2)シート2をソート 3)アカサタナ順でレイアウト調整とすれば10〜20行くらいの処理だと思いますが。 (Mook) ---- やはりすべてをマクロで組むしかないですか… がんばってやってみます! ---- ピボットテーブルで行フィールドに行と名前、列とデータフィールドに枚数を入れてあげれば、ほとんど近くないですか? ソートもされますし（momo） ---- ピボットテーブルも試してみたんですが、印刷して提出するので、あくまで上記の表の形じゃないといけないんです。。。（ラディック） ---- ごめんなさい。やってみましたが20行では書けませんでした。かなり無理して26行でしたが、本来は40行くらいはかかりますね。 Sub Sample26() Worksheets(1).Range("E1").End(xlDown).CurrentRegion.Copy With Worksheets(2) .Range("A1").PasteSpecial xlPasteValues .Columns("A:D").Sort key1:=.Range("B1"), Order1:=xlAscending Const aks = "アカサタナハマヤラワヲン" Dim i, j, r, dr(2) r = 1: dr(0) = 1: dr(1) = 1 For i = 2 To Len(aks) Step 2 For j = 0 To 1 .Cells(dr(j), 5 + 3 * j).Resize(1, 2).Value = Array(Mid(aks, i - 1 + j, 1) & "行", "枚数") If .Cells(r, "A").Value <> "" Then Do While AscW(.Cells(r, "A").Value) < AscW(Mid(aks, i + j, 1)) dr(j) = dr(j) + 1 .Cells(dr(j), 5 + 3 * j).Resize(1, 2).Value = .Cells(r, "B").Resize(1, 2).Value r = r + 1 If .Cells(r, "A").Value = "" Then Exit Do Loop End If Next If dr(0) < dr(1) Then dr(0) = dr(1) dr(0) = dr(0) + 2: dr(1) = dr(0) Next .Columns("A:D").Delete End With End Sub (Mook) ---- フィルターオプションを使った別案 Sub Sample() Dim myA As Range, myW As Range Dim w1 As Variant, w2 As Variant Dim z As Long, z1 As Long, z2 As Long Dim j As Long With Sheets("Sheet1") Set myA = .Range("E6", .Range("E" & .Rows.Count).End(xlUp)).Resize(, 3) Set myW = .Cells(1, myA.Cells(myA.Count).Column + 2).Resize(2) myW(1).Value = "行" End With With Sheets("Sheet2") .Cells.ClearContents For Each w1 In Array("アカ", "サタ", "ナハ", "マヤ", "ラワ") z1 = .Range("A" & .Rows.Count).End(xlUp).Row z2 = .Range("D" & .Rows.Count).End(xlUp).Row z = WorksheetFunction.Max(z1, z2) + 2 j = -2 For Each w2 In Array(Left(w1, 1), Right(w1, 1)) j = j + 3 .Cells(z, j).Resize(, 2).Value = Array("名前", "枚数") myW(2).Value = w2 myA.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=myW, _ CopyToRange:=.Cells(z, j).Resize(, 2), Unique:=False .Cells(z, j).Value = w2 & "行" Next Next End With myW.ClearContents Set myA = Nothing Set myW = Nothing End Sub ぶらっと立ち寄り ---- ありがとうございます。しかし、お二方のを試しみましたが、どうも上手く行きません・・・原因はおそらくレイアウトが若干変わったのと、説明不足もあったんですがシート2は印刷用なのでフォーマットのような感じで、消えてはいけない文字（見出しや会場名など）があったり、逆にシート1からは引用したくない部分（取得者など）があるんです。なので、元になる数式やVBAをいただいて、対応するセルだけ変えればいいかな?とか思ってたんですが、甘かったですね。自分には早すぎる技術でした（´д｀）もう少し勉強してから出直します。考えて下さってありがとうございました! そしてごめんなさい。。。(ラディック) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201107/20110713165112.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ