[[20081218145320]]　『データを品名別に別シートに自動的に入力したい』（山田）　ページの最後に飛ぶ

『データを品名別に別シートに自動的に入力したい』（山田）

 Excel2003です

 A1      B1      C1      D1      E1
 品名　仕入先　注文日　入荷日　販売日

 をseet1に入力(全部のデータをseet1に入れたい)
 これを品名毎に　seet2 seet3に　自動的に入るようにするには
 どうしたらできるのでしょうか

 「別シート」のシート名が
 品名と一致しているなら、

 ThisWorkbookのモジュールに以下を貼り付け。
 '------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim i As Long, ii As Long, xr As Long
    Dim asn As String, tbl, x
　
    If ActiveSheet.Name = "seet1" Then Exit Sub
　
    asn = ActiveSheet.Name
    tbl = Sheets("seet1").Range("A1").CurrentRegion
    ReDim x(1 To UBound(tbl, 1), 1 To 5)
    For i = 2 To UBound(tbl, 1)
        If tbl(i, 1) = asn Then
            xr = xr + 1
            For ii = 1 To 5
                x(xr, ii) = tbl(i, ii)
            Next
        End If
    Next
　
    Range("A1").CurrentRegion.Offset(1).ClearContents
    If xr = 0 Then
        MsgBox "データがありませんでした。"
    Else
        Range("A2").Resize(xr, 5) = x
    End If
End Sub
 '------

 ↓数式で処理する方法が載っていますのでこちらも参考になりそうに思います。
[[20081216163656]]『seet1にあるデータから条件に合うものをseet2に表示させる』（斉木）
 その他、この手の話は割と頻繁にあるイメージがありますので
 過去ログを探してみられても良いかもしれませんね。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20081218145320]] 『データを品名別に別シートに自動的に入力したい』（山田） ページの最後に飛ぶ

[[20081218145320]]　『データを品名別に別シートに自動的に入力したい』（山田）　ページの最後に飛ぶ