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

Results of 1 - 1 of about 28 for 平均平日 (0.001 sec.)

平均 (1364), 平日 (459)

[[20100923171850]]: #score: 10346; @digest: 1610f788b14a66e93da7fff8304ffbd4; @id: 51458; @mdate: 2010-09-24T02:52:03Z; @size: 3601; @type: text/plain; #keywords: 20100827094339 (22494), ・se (20834), 記済 (15957), 北": (15241), 静岡 (14915), ・静 (10881), seet3 (10356), seet1 (9919), 名古 (9831), 古屋 (9543), 動追 (9315), 岡": (7748), 岡あ (6676), 屋あ (6633), 屋": (6506), 屋い (6162), 京": (5991), 北" (5894), 京あ (5771), ・東 (5700), 屋", (5317), 東北 (4915), 岡", (4621), 岡" (4541), 屋" (3942), 動転 (3662), 東京 (3283), ウッ (2741), 京" (2477), 京", (1999), う・ (1996), ッシ (1861); 『別シートに自動転記』（ぎん）
下記のように一覧表シートに追記すると各シート（名古屋・東京・静岡）の一番下に自動転記するようにしたいのですがよろしくおねがいしますマクロがほんのすこしだけできるようになったとういうレベルですよろしくおねがいします XP 2003 seet1・・・一覧表 A B 1 名古屋あ 2 静岡あ 3 名古屋い 4 東京あ 5 東京い 6 静岡い 7 東京う・・・seet2 A3に追記 8 名古屋う・・・seet3 A3に追記 9 静岡う・・・seet4 A3に追記 seet2・・・名古屋 1 東京あ・・・seet1 A4がすでに転記済み 2 東京い・・・seet1 A5がすでに転記済み 3 東京う・・・seet1 A7が自動追記される seet3・・・東京 1 名古屋あ・・・seet1 A1がすでに転記済み 2 名古屋い・・・seet1 A3がすでに転記済み 3 名古屋う・・・seet1 A8が自動追記される seet3・・・静岡 1 静岡あ・・・seet1 A2がすでに転記済み 2 静岡い・・・seet1 A6がすでに転記済み 3 静岡う・・・seet1 A9が自動追記される ---- こんばんはなんかシート名がおかしいですね。 [[20100827094339]]に書いたのですが、Sheet2〜4を開くたびに抽出し直した方が簡単だと思います。データ量が多すぎるとレスポンスの問題は有るかも知れませんけど。（ウッシ） ---- （ウッシ）さまおはようございますすみません。シート名おかしいですね seet3が二つありました seet4の間違いです [[20100827094339]]の方と同じことでした。参考にしてやってみます。うまく動かせたらご報告しますありがとうございました。（ぎん） ---- （ウッシ）さまお世話になります [[20100827094339]]のデータは動作確認できました、「すごい」の一言です実際のデータでやってみましたら見出しだけが各シートに転記されました実際データは2000行あり振り分けたい列はH列で見出し名は「支店」ですコードのどこを変更したいいのかわからないので教えてください。実際のシート名に変更しました標準モジュールに Sub Filter_1(Sh As Worksheet) Dim Sh1 As Worksheet Dim c As Range Dim t As Range Dim m As Range Dim i As Long Application.ScreenUpdating = False Set Sh1 = Worksheets("15-22明細") Set m = Sh1.Range("A1").CurrentRegion i = m.Columns.Count With Sh .UsedRange.ClearContents m.Rows(1).Copy .Range("A1") Set t = .Range("A1").CurrentRegion .Range("A1").Cells(1, i).Copy .Cells(1, i + 2) Select Case Sh.Name Case "静岡": .Cells(2, i + 2) = "静岡" Case "名古屋": .Cells(2, i + 2) = "名古屋" Case "東京": .Cells(2, i + 2) = "東京" Case "東北": .Cells(2, i + 2) = "東北" End Select Set c = .Cells(1, i + 2).CurrentRegion m.AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=c, _ CopyToRange:=t, Unique:=False c.ClearContents End With Application.ScreenUpdating = False End Sub 「ThisWorkbook」に rivate Sub Workbook_SheetActivate(ByVal Sh As Object) Select Case Sh.Name Case "静岡", "名古屋", "東京", "東北": Call Filter_1(Sh) Case Else: Exit Sub End Select End Sub よろしくおねがいします（ぎん） ---- こんにちは > 振り分けたい列はH列でしたら、 .Range("A1").Cells(1, i).Copy .Cells(1, i + 2) を .Range("A1").Cells(1, "H").Copy .Cells(1, i + 2) に変更して下さい。（ウッシ） ---- （ウッシ）様できましたすばらしいです!感謝の気持ちでいっぱいですいつの日かコードが読めるようになりたいです。私には夢のようなはなしですが・・・。本当にありがとうございました。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201009/20100923171850.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ