Sub test() Worksheets("メインシート").Select ' Cells(行番号, 列番号) .Range("D" & LastRow).Value = Worksheets("Sheet1").Range("A9").Value .Range("G" & LastRow).Value = Worksheets("sheet1").Range("B11").Value Sub 連続印刷() どなたかお力をお貸しください。, Vista Excel2007でマクロ作成中の初心者です。 ------------------------------------- With Worksheets("名簿") VBAで休暇願を作成し印刷時は差し込み印刷方法でA4用紙に両面印刷したいのですが書き方が判りません。 And .Range("M2").Value = "" _   MsgBox "印刷が終わりました" ElseIf Cells(2, 2).Value = "プレビュー表示しない" Then Dim LastRow As Long 会社名 担当 印刷 End With .List = myData 印刷列は、 設定値に基づいて、条件分岐するには、どうすればいいでしょうか。   End With If Cells(2, 2).Value = "1" Then ですので、誰かが印刷設定を変えて保存したりすると、こういったことが起こってしまいます。 こうなると印刷設定を再設定しなければいけないので大変です。 今回はそんな時に便利な、 印刷設定をボタン1つで完了させるマクロ をご紹介します。 列があります。 .Range("A" & LastRow).Value = Worksheets("sheet1").Range("A5").Value Sub 印刷() End With 標準フォーム ActiveSheet.PrintPreview エクセル2010です。 あなたもQ&Aで誰かの悩みに答えてみませんか?, http://www.max.hi-ho.ne.jp/happy/YNxv9b8.html. With Worksheets(i) ' プレビュー確認 End With インストールしたプリンターのアイコンを右クリックして Dim LastRow As Long .PrintPreview Private Sub UserForm_Initialize() 誰か教えて頂けませんでしょうか?お願いします。 With Worksheets("sheet2") 宜しくお願い致します。, excel2000を使っています。 【DELL】New Vostro15 3000(3580)メモリ増設&SSD換装など. ' 配列に格納 --------------------------- End With With Worksheets(Sheet) 以下のコードだと最終行にデータが転記されます。これを4行目に確定して、転記したいのです。常に4行目つまりA列4行目以下に上書きしたいのです。 End With Dim i As Integer Sub 入力() このリストボックスにはボタンが二つありボタン1を押したときに標準フォームへ[hinban] Dim LastRow As Long .Range("D" & LastRow).Value = Worksheets("sheet1").Range("A10").Value (1)常時、両面印刷になっているプリンターを決めて、アクチブプリンター 項目1には、「プレビュー表示」があり、 With Worksheets("daityou") とりあえず、データーだけでもシート2に移せたら(転記)と思い以下の記述をしたのですが、       End With ' プレビュー表示分岐 この複数シートの1ページ目だけを連続印刷したいです。 Dim myNo As Variant A4用紙に左側(名簿の1番目)右側(名簿の2番目) End Sub, Sheet1にグループボックス内で、チェックボタンで項目を選択するとA1に記載されるように作成、マクロで入力ボタン作成しボタンをクリックするとSheet2に記載されるように作りました。しかし、項目が多いためSheet2を見るとABCDEFGなどの列に空白が目立ち使いづらいです。 うまく印刷できません。よろしくお願いします。 End Sub, VBAがまったくわからないのに参考書を見て高度な事に挑戦しています Worksheets("シート2").Rows(r).Value = Worksheets("シート1").Rows(r).Value のセルがあります。 Sub 入力()   With Worksheets("名簿マスター") シート2のA1B1C1‥の列に入力文字だけが羅列されます。 誰かの疑問に誰かが答えることでQ&Aが出来上がり、後で見に来たたくさんの人の悩みの解決に役立てられています。 .Range("f7").Value = myNo End With 特定のPCで特定のプリンタなら以下の手順で最初から両面印刷に設定しておくことをお勧めします。 .Range("B" & LastRow).Value = Worksheets("sheet1").Range("B1").Value Private Sub CommandButton2_Click() .Range("J" & LastRow).Value = Worksheets("Sheet1").Range("A19").Value Sub 帳票印刷() それぞれのシートには、必ず2ページの改ページが設定してあります。 と作り、それらがチェックされていたら、A1の列に表示され入力ボタンを押したら、Sheet2のAには原因、Bには対応と記載されるようにしたいです。その時Sheet1のA列に空白があれば、Sheet2の列に表示するようにしたいです。 と参考書とおりいれたのですが‥。教えて下さい。, 以下のマクロを実行すると同一ブック内の他のシートに入力 Sub シートの1ページ目の印刷() いただければ助かります。よろしくお願いします。 [印刷設定]をクリック ⇒ 両面印刷の設定 「前回と同じ印刷設定で印刷したいのに、いつの間にか変わってて、設定し直すはめになった……」, ですので、誰かが印刷設定を変えて保存したりすると、こういったことが起こってしまいます。, このマクロを実行すると入力ダイアログが表示されるので、印刷範囲を手動で選択し、「OK」を選択してください。, このマクロを実行すると、「印刷範囲」という名前の付いたセル範囲で印刷設定が行われ、プレビュー画面に切り替わります。, マクロ実行前に、印刷したいセル範囲に名前の定義で「印刷範囲」という名前を付けておいてください。, 先程紹介したコードのうち、ポイントとなるコードについて解説します。必要に応じて変更してください。, ◯◯Marginは、左・右・上・下・ヘッダー・フッターの余白に関するプロパティです。, 印刷範囲をあらかじめ設定しているので、マクロを実行するとすぐにプレビュー画面に切り替わります。, 常に同じ設定値で印刷したい場合は、今回ご紹介したマクロをぜひ活用してみてください。, Excel、Photoshop、WordPressなど、IT関連のネタを記事にしています。わかりやすくまとめることを心がけています。. があるが、(2)は簡易でなく、(1)は完全ではなさそうだ(それまでに、誰かが片面に変更可能)。 全部転記してしまいます。 .PrintOut Dim LastRow As Long .Range("H" & LastRow).Value = Worksheets("Sheet1").Range("A15").Value .Range("I" & LastRow).Value = Worksheets("Sheet1").Range("A16").Value   'アクティブプリンターを記録 .Range("G" & LastRow).Value = Worksheets("Sheet1").Range("A13").Value B2に原因のグループボックスにカテゴリー(チェックボックスにて1)入力ミス、2)人、3)機械) With Worksheets("印刷シート") End Sub LastRow = .Range("A65536").End(xlUp).Row End Sub, プリンタードライバを追加してディフォルトで両面印刷するように設定 E列の重複を削除するマクロです。不要なWithを使っているのは、別マクロから切り出したものだからです。 With ActiveSheet 推測では、多分メーカーでのこの面のドライバー(機器仕様密着の)ソフトでの標準化・共通化がなされる前に、エクセルVBAなどのしよう仕様が決まって、そのままになっているのでは? If vbNo = MsgBox("印刷を開始していいですか?", vbYesNo) Then Exit Sub .Range("Q46:Q89").PrintOut     Next i   Dim myPrinter As String LastRow = .Cells(Application.Rows.Count, "A").End(xlUp).Row End With No.     For i = 1 To LastRow Sub 印刷() Range("A4").Value = .Range("A" & i).Value (マクロの知識がなく 下のマクロもコピーで使用しています) Next num LastRow = Worksheets("sheet2").Range("B" & Rows.Count).End(xlUp).Row + 1 Unload Me Dim i As Long with~の後が問題だと思うのですが・・ .Range("C" & LastRow).Value = Worksheets("sheet1").Range("A8").Value Sub シートの2ページ目の印刷() どのようにマクロの記述をすれば宜しいのでしょうか?マクロの初心者にも分るようにご教授 For i = 1 To LastRow という変数にリストボックスでフォーカスしているデータを取り込みたいのですが以下の方法でうまくいきません。 Set ws01 = Worksheets("受注書")   If vbNo = MsgBox("印刷を開始していいですか?", vbYesNo) Then Exit Sub       myNo = .Range("A" & i).Value .ColumnCount = 3 ページレイアウトのタブからページ設定の画面を表示します。 下記のマクロで片面印刷は可能です。 .Range("A1:Q44").PrintOut With ws01         .PrintOut ActivePrinter:="両面印刷", Copies:=1 設定後、プリンター名を"両面印刷"とする Next i Dim i As Integer myData = .Range(.Cells(1, 1), .Cells(Rows.Count, 3).End(xlUp)).Value シート1のA列に5:15:30以下にランダムな時刻が入力されています。(時間と分と秒が表示になっています。) 下のオプションをクリックして、両面印刷にして、すべてOKし、 .Range("F" & LastRow).Value = Worksheets("sheet1").Range("B9").Value Sub 入力() Dim i As Integer End If .Range("D" & LastRow).Value = Worksheets("sheet1").Range("B5").Value End If .Range("E" & LastRow).Value = Worksheets("Sheet1").Range("A10").Value Next i End Sub 設定シートには、 End With Set SaleAry = Nothing ws02.Cells(r, 9).Value = .Range("A40").Value ' 備考 LastRow = Worksheets("シート1").Range("A65536").End(xlUp).Row .Range("C4").Value = myNo Next         '両面印刷をデフォルトで設定したプリンターで印刷 >2. Dim SaleAry As Variant ご教授お願いいたします。 ' プレビュー確認 ・名簿 印刷ができるようにしたいのです。 .Range("r7").Value = num ws02.Cells(r, 1).Value = .Range("C2").Value ' 受注No Dim i As Long End Sub, 以下のようなマクロを作りましたが、帳票を印刷すると1枚印刷されます。 Set ws02 = Worksheets("受注履歴") End If これでは、時刻データーも29035.0658333333となったりA列以外のデーターも For i = 1 To 12 End Sub Dim LastRow As Long Copyright © 2017-2020 自恃ろぐ-jizilog.com- All Rights Reserved. 勉強不足で申し訳ございませんが、ご指南くださいますようお願いいたします。 ぜひマクロを教えてください。 LastRow = Worksheets("sheet2").Range("A" & Rows.Count).End(xlUp).Row ' 配列に格納 --------------------------- 何が間違ってるのでしょう? End With ファイルを保存します。, 両面印刷とかの制御はVBAではできません。 ですが、この帳票がA5サイズの決まりがあり、かつプリンタがA4しか用紙を入れることができないので、 Worksheets("Sheet1").Range("a1:C35").Value = "" 両面印刷のようにプリンターのドライバーの機能に依存するものは、マクロを自動記録することは不可能と思います。 初心者です。 .Cells(LastRow + 1, i + 1).Value = SaleAry(i) '   Application.ActivePrinter = myPrinter その場合コードをどのように変更すべきでしょうか? End With http://www.max.hi-ho.ne.jp/happy/YNxv9b8.html And Worksheets("粗利報告書").Range("D3").Value = "" Then   Dim i As Long Dim Colref As Long, LastRow As Long Dim LastRow As Long Dim r As Long, c As Integer, tmp As Long End Sub, 検索して、WEBページに聞けば、すぐわかる有名な課題。 メッセージ:アプリケーション定義またはオブジェクト定義のエラーです。 Windows8 .Range("F" & LastRow).Value = Worksheets("Sheet1").Range("A12").Value   Dim LastRow As Long MsgBox ("test")