[[20130502114833]]　『印刷マクロ』（KAZY）　ページの最後に飛ぶ

『印刷マクロ』（KAZY）

 エクセルで、プルダウンした後の内容ごとに印刷を行いたいのですが、リストが５０あり
 非常に手間なのでマクロを使って印刷を行いたいと思っています。
 何かいい方法はありますか？（2007）

 プルダウンさせているリストの正体は？　入力規則のリスト？　フォームツールのコンボボックス？
 あるいは、ActiveXのコンボボックス？

 それと、

 >プルダウンした後の内容ごとに印刷

 ここの意味がちょっとわかりにくいんだけど、リストがプルダウンされている、そのイメージを印刷？
 それとも、そこで、各リストから何かを選んだ時に、シートが、何らかの状態になって、それを印刷？

 >リストが５０あり

 ↑の質問とも関連するけど、この５０のリストからマクロで選ぶということ？
 それぞれの組み合わせは？

 >非常に手間なので

 サンプルとして、今【手間をかけて】選んで印刷している、その手順を具体例で説明してはいかが？

 (ぶらっと)

 ぶらっとさん説明不足ですいません。

 プルダウンのリスト内はすべて印刷を行います。
 プルダウン後は、シートの内容が変わります。（数字等）

 イメージとしては、プルダンでリストを選択後、印刷。
 再度、プルダウンをし次のリストを選択し印刷。
 ・・・・・を５０回繰り返しています。

 この説明でわかりますか？（KAZY）

 リストは１つで、そのなかに、選択対象データが５０あるということなんだね？

 >プルダウンさせているリストの正体は？　入力規則のリスト？　フォームツールのコンボボックス？
 >あるいは、ActiveXのコンボボックス？

 この質問の答えは？

 (ぶらっと)

 たびたびすいません。びらっとさん。

 プルダウンのリストは、入力規制でしています。
 よろしくお願い致します。

 　　　　　　　　　　（KAZY)

 びらっと　ではなく　私は　ぶらっと。

 少し決め打ち気味かもしれないけど試してみて。
 具合悪ければ、指摘してね。

 入力規則を設定してあるセルは、実際のものになおしてね。

 Sub Sample()
    Dim c As Range
    Dim v As Variant
    Dim d As Variant

    Set c = Range("B1")         '入力規則が設定してあるセル

    If TypeName(Evaluate(c.Validation.Formula1)) = "Range" Then
        v = Range(c.Validation.Formula1).Columns(1).Value
    Else
        v = Split(c.Validation.Formula1, ",")
    End If

    For Each d In v
        c.Value = d
        ActiveSheet.PrintOut Preview:=True
    Next

 End Sub

 (ぶらっと)

 ぶらっとさんありがとうございました。上手くいきました。

 名前は大変失礼を致しました。今後ともよろしくお願い致します。（KAZY)

コメント返信：

[ 一覧(最新更新順) ]

[[20130502114833]] 『印刷マクロ』（KAZY） ページの最後に飛ぶ

[[20130502114833]]　『印刷マクロ』（KAZY）　ページの最後に飛ぶ