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

Results of 1 - 1 of about 8934 for リスト (0.007 sec.)

[[20150206135317]]: #score: 2746; @digest: 11286277deb4b6bcc8067eb866acd60c; @id: 67222; @mdate: 2015-03-30T10:36:49Z; @size: 5867; @type: text/plain; #keywords: 刷ナ (15497), plst (12851), sarara (12773), 様式 (8852), 式2 (7770), 木東 (7635), 続印 (7271), 動印 (5950), 所[ (5793), 式1 (4976), 印刷 (3784), 名住 (3069), 刷シ (3003), 番近 (2705), 稲葉 (2573), 葉様 (2431), 所録 (2395), リス (2331), 文書 (2259), ス内 (2115), 雛形 (2070), ナン (2000), 住所 (1965), ンバ (1784), 連続 (1660), スト (1596), トピ (1428), トシ (1307), 2015 (1167), ws2 (1022), 刷す (993), 氏名 (968); 『リストの不連続印刷について』（sarara）
連続印刷について教えてください。 Sheet1に文書の雛型があります。この文書は、不特定多数の方に送付するため氏名や住所などのセルには別の住所録からデータが飛ぶようにVlook関数が入っています。同じSheetの中には、入力規則のリストボックスがあり、リストには住所録の個人ごとにふっている数字が入っています。例えば、「1」をリストから選択すると、別ファイルにある住所録の1に該当する個人を Sheet1の文書の氏名や住所にデータが飛びます。この文書を印刷する場合、リストで数字を選択して印刷というのを繰り返さないといけなので手間がかかるので、リスト内にある数字を自動的に選択して印刷を行うように設定したいと思い、このサイトで調べたところ [[20130626182234]] 『自動で連続印刷をしたい』（Bert）『自動で連続印刷をしたい』が一番近い方法だったのですが、リストの数字が連続していない時、例えば「1、2、5、6、9、10・・・」だと印刷ページを「1-2,5-6,9-10・・・」と指定しないといけません。そこでリスト内に表記されいている数字のみを連続印刷する方法（VBA)をご教授願えないでしょうか? ＜使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- 別に「1,2,5,6,9,10」でもいいのではないか? それとも「,」もなくして「1 2 5 6 9 10」と入力したいということか? また、1から10まで印刷したいときも「1,2,3,4,5,6,7,8,9,10」と入力するのか? (区切りが「,」(カンマ)か「」(スペース)かは置いといて) （ねむねむ） 2015/02/06(金) 14:37 ---- 一番近いかもしれませんが、個人の名前を入力するならともかく、ナンバーを入力するのは面倒じゃないですか? 私ならリストに印刷フラグをつける欄を設けて、印があるところだけ印刷する、というプログラムを組みます。こんな感じで、○が付いているところだけ印刷する [A] [B] [C] [D] [1] 印刷 No 氏名住所 [2] ○ 1 鈴木東京 [3] 2 田中埼玉 [4] ○ 3 伊藤千葉 [5] 4 小林栃木 [6] ○ 5 沢田群馬（稲葉） 2015/02/06(金) 15:01 ---- ねむねむ様言葉不足ですみません。リストボックス内の数字「1 2 5 6 9 10 12 15 16 17 18 22・・・」を印刷するときMsgboxに数字を入力しなくても、印刷実行をした時に自動でリストボックス内の数字が印刷したいと思ったのです。稲葉様そういう方法もあるんですね^^; またよろしければご教授願えないでしょうか<m(__)m> 皆様、返事がおそくなり申し訳ありませんでした。（sarara） 2015/02/07(土) 00:27 ---- リストがあるシート名を「リスト」印刷するシートを「様式」として、○をつけるのを簡単にするために、リストシートのシートモジュールに Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) With Target If .Address Like "$A$*" Then Cancel = True .Value = IIf(.Value = "○", "", "○") End If End With End Sub 右クリックでA列に○をつける細工標準モジュールに Sub 印刷() Dim WS1 As Worksheet '//リストシート Dim WS2 As Worksheet '//印刷シート Dim rNo As Range '//印刷シートで、ナンバーを入力するセル Dim lst '//リストを配列に取り込む Dim plst As String '//印刷ナンバーを文字列として取得 Dim dlm As String '//Split関数で使う、区切り文字 Dim i As Long '//ループ処理の変数 Dim p '//設定 Set WS1 = Sheets("リスト") Set WS2 = Sheets("様式") Set rNo = WS2.Range("A1") dlm = "-" '//印刷ナンバーの取得 lst = WS1.Range("A1").CurrentRegion.Value For i = 2 To UBound(lst, 1) If lst(i, 1) = "○" Then plst = plst & dlm & lst(i, 2) Next i '//印刷 If plst <> "" Then For Each p In Split(Mid(plst, 2), dlm) rNo.Value = p WS2.Calculate WS2.PrintPreview 'WS2.PrintOut copies:=1 Next p End If End Sub 実行はどちらの画面でもOK リストシートにフォームか、図形でボタンを作って登録しておくと使いやすいかも。いきなり印刷ではアレなので、プレビューのみにしてあります。テストがOKなら、コメントアウトを付け替えてください。（稲葉） 2015/02/08(日) 16:32 ---- 稲葉様いつもいつもありがとうございます。すごいです!バッチリでした! 私がこうしたいと思う作業をいとも簡単にコードを書かれるので本当にすごいなあと思っています。稲葉さんのように私もなりたいですが、なかなか難しいです・・（sarara） 2015/02/08(日) 20:59 ---- やりたいことをどんどん見つけて、解決していけばいずれできるようになりますよ。私はほかの先生方のように頭がいいわけじゃないので、真似事しかできませんし・・・文字列をSplit関数で配列にしてループする方法はいろんな場面で役に立ちますので覚えてみてください。（稲葉） 2015/02/08(日) 21:08 ---- 稲葉様自動印刷について調べていたら、このサイトにたどり着きました。この質問に近いのですが、 ○印のあるシートの自動印刷仕方について教えてください。 [A] [B] [C] [D] [1] 様式1 様式2 No 氏名住所 [2] ○ ○ 1 鈴木東京 [3] ○ 2 田中埼玉 [4] ○ 3 伊藤千葉 [5] 4 小林栃木 [6] ○ ○ 5 沢田群馬 Sheet1（[A]列は空白）に上記のようなリストがあり、 Sheet2に様式1の雛形がり、Sheet3に様式2の雛形があります。様式1のB15、様式2のB5にNOを入力するとデータが飛ぶようになっています。 ○印のある様式1と様式2を自動で印刷する方法はありますでしょうか? マクロについて、初心者で、あれこれ変更して試してみましたが、できませんでした。言葉と説明がうまく表現できていなかったら、ごめんなさい。どうかご教示お願いします。（niji） 2015/03/30(月) 19:15 ---- >様式2のB5 様式2のC15 かな? いずれにしても、よく似ているとはいえ、別の質問者さんによる別の質問なので新規にトピを立ち上げ、このトピを参照する形で質問したらいかが? このトピは、解決ということになっているので、もう、稲葉さんの目に留まらないかもしれないし。（β） 2015/03/30(月) 19:36 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150206135317.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ