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

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

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

[[20050610121144]]: #score: 8137; @digest: e5b69d01424137c6c8fe7b8dcb959ee1; @id: 14703; @mdate: 2005-06-12T00:43:02Z; @size: 2919; @type: text/plain; #keywords: mystartnum (14782), myendnum (14665), 求") (11311), filterprint (7815), mynum (7141), 続差 (7005), 書印 (4320), 力", (3228), タ表 (2923), トse (2316), 刷フ (2311), 請求 (2208), リリ (1710), 印刷 (1486), myrange (1419), トフ (1157), 求書 (1142), printout (1127), 込印 (1081), 差込 (1004), オー (989), 録日 (903), 要領 (886), マリ (831), ルタ (829), 日: (780), inputbox (773), 番号 (703), にvl (701), フィ (695), vlookup (681), ィル (661); 『オートフィルタで選んだものだけを印刷したい』（マリリン）
Vlookup関数を使いながらの印刷をさせていただきました。とても助かっています。ただ、続いている番号だけでなくオートフィルタで選んだものだけ印刷するわけにいかないかなと思っています。別の表を作って印刷していたのですが、欲が出てしまいました。よろしくお願いします。請求書印刷する Macro ' マクロ記録日 : 2005/6/8 ユーザー名 : ' ' Sheets("請求").Select MyStartNum = Application.InputBox("印刷開始番号を入力してください。", _ "番号の入力", "1", Type:=1) If MyStartNum = False Then Exit Sub MyEndNum = Application.InputBox("印刷終了番号を入力してください。", _ "番号の入力", "1", Type:=1) If MyEndNum = False Then Exit Sub For MyNum = MyStartNum To MyEndNum Range("B1").Value = MyNum Range("A2:t15").PrintOut Next MyNum End Sub ---- 具体的な例を挙げたほうが良いですね。表の配置、内容、結果としてどうなりたいかなどなど。（川野鮎太郎）今回の内容には上記のコードは関係ありません。 ------------ こんな表が100までずっとあったとして日付が一定のもののみをオートフィルタで出して請求書に印刷していきたいと思います。番号が飛び飛びになってしまいますよね。でもできればデータは差し込んでいくのではなく前回のようにVlookup関数でいきたいです。できますでしょうか? もしできないのであれば、オートフィルタで選んだものだけを他の場所に貼り付けられるのでしょうか?うまくできないのですが・・・・・ A B C D E F G H I J 2 日付工事番号コード費目取引先名メーカー品名数量単価金額 3 12/15 C05-001 805 材料費 ○○会社金型 1 50,000 50,000 4 1/10 C05-002 836 消耗品@××会社ハケ 2 400 800 ---- VLOOKUP関数を使う方法は私もお勧めです。であれば、A列に作業列を1列挿入して、A3セルに =SUBTOTAL(2,B3)*ROW() を入れて、必要数だけ下方にコピーしてください。このA列の数値を元にVLOOKUP関数で請求シートに数式を入れておきます。マクロのコードは以下にして試してください。 Sub FilterPrint() Set Sh1 = Worksheets("請求") '印刷フォーマットのシート Set Sh2 = Worksheets("Sheet1") 'オートフィルタするシート Set MyRange = Range(Sh2.Range("A3"), Sh2.Range("A65536").End(xlUp)) For Each MyNum In MyRange If MyNum > 0 Then Sh1.Range("B1").Value = MyNum Sh1.Range("A2:T15").PrintOut End If Next MyNum End Sub （川野鮎太郎） ------------------------------ オートフィルタで選んだ行だけを集めて新たなデータ表を別シートにつくり、そのシートに対して、いままでの要領で連続差込印刷を行えば容易ですね。ここで、ポイントは、 1) 新しいデータ表は、別シートの特定の行から下につくり、その行の上は印刷したいフォーム（VlookUP関数埋め込み）にしておくということです。 2）新しいデータ表は、元表がら選択されたもののみ、マクロで自動で行全体を所定の行以下に転記します。（なお） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200506/20050610121144.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ