mokachan回答ポイント 70ptウォッチ 1

【エクセルマクロ】に詳しい方教えて下さい。

以下のマクロを
印刷用シートの　ＡＶ１　を検索値　として
データシートの　Ｄ列には関数が入っていてある条件にあったセルに正の整数が返る様になっています。
データシートの　Ａ列には１から順番に数字が入っています。


データシートのＤ列に数字が入っているレコードのＡ列の番号を印刷用シートのＡＶ１に順番に入れて印刷してＤ列の全てが印刷出来るようにしたいと思っています。

このマクロのどの部分を直せばいいか教えて下さい。宜しくお願いします。


Option Explicit
Option Base 0

Sub test()

Dim PrintSheet As Worksheet
Dim DataSheet As Worksheet
Dim r As Long

Set PrintSheet = Worksheets("印刷用シート")
Set DataSheet = Worksheets("データシート")

r = 2

Do While DataSheet.Cells(r, 1).Value <> ""
If DataSheet.Cells(r, 2).Value => 1 Then

PrintSheet.Cells(1, 1).Value = DataSheet.Cells(r, 1).Value

PrintSheet.Calculate

PrintSheet.PrintOut
End If
r = r + 1
Loop

End Sub

• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• SALINGER2008/01/30 20:43:12

  満足35pt

  とりあえず

  If DataSheet.Cells(r, 2).Value => 1 Then
  
  PrintSheet.Cells(1, 1).Value = DataSheet.Cells(r, 1).Value
  

  のところはＤ列と、AV1ということで

  If DataSheet.Cells(r, 4).Value => 1 Then
  
  PrintSheet.Cells(1, 48).Value = DataSheet.Cells(r, 1).Value
  

  スター

  • mokachan 2008/01/30 20:51:22

    回答ありがとうございます。

    実は、ご指摘の内容は実証してみたんです。

    でも１枚印刷するだけで後が印刷出来ないんです。

devichan2008/01/31 01:43:39

満足35pt

こんなやり方も、あるという事で、みてください。

これは、cellじゃなくRangeで指定する場合です。

(sortとか貼り付けの例としてみてください)

(随分前に作ったものを引っ張り出しているので、まちがいがあるかもしれません)

Sub test()

Dim PrintSheet As Worksheet

Dim DataSheet As Worksheet

Dim r As Long

Set PrintSheet = Worksheets("印刷用シート")

Set DataSheet = Worksheets("データシート")

r = 1

'D列で　sort
  DataSheet.Select
  Range("A1").Select
  Range("a1").Activate
  Selection.End(xlToLeft).Select
  Selection.End(xlUp).Select
  Range(Selection, Selection.End(xlDown)).Select
  Range(Selection, Selection.End(xlToRight)).Select
  Application.CutCopyMode = False
  Selection.sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("AD2" _
    ), Order2:=xlAscending, Key3:=Range("M2"), Order3:=xlAscending, Header _
     :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
    , SortMethod:=xlPinYin
  Range("A1").Select
  Range("a1").Activate

'データ量抽出 参考
'   DataSheet.Select
'   Range("A1").Select
'   Range("a1").Activate
'   Selection.End(xlToLeft).Select
'   Selection.End(xlDown).Select
'　　　　　　　　　　Selection.Rows.Row ←この時の、この値が最終行

' おまじない
  PrintSheet.Select

Do While DataSheet.Range("d" & r ).Value <> ""

If DataSheet.Range("d" & r ).Value >= 1 Then

'データの値のみコピー(セル値=式としてはコピーしません)

DataSheet.Range("a" & r).Copy

PrintSheet.Range("AV1").PasteSpecial Paste:=xlPasteValues, _

Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'一応コメント
' PrintSheet.Calculate

PrintSheet.PrintOut

End If

r = r + 1

Loop

End Sub




'プリンタの選択例

' Application.ActivePrinter = "プリンターです on Ne01:"

'プリンタのセットアップ例

Sub prt_set()

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = "&18&Uヘッダータイトル等"

.RightHeader = "" & Chr(10) & " &P頁"

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(0.68)

.RightMargin = Application.InchesToPoints(0.43)

.TopMargin = Application.InchesToPoints(1.10236220472441)

.BottomMargin = Application.InchesToPoints(0.62)

.HeaderMargin = Application.InchesToPoints(0.78740157480315)

.FooterMargin = Application.InchesToPoints(0.393700787401575)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 92

' ↓エラーになるのでコメント

' .PrintErrors = xlPrintErrorsDisplayed

End With

ActiveWindow.SelectedSheets.PrintPreview

End Sub

スター

• mokachan 2008/01/31 19:16:01

  いろいろありがとうございました。

  後でじっくり試してみたいと思います。

• その他の回答を読む

この質問へのコメント

• arhbwastrh2008/01/30 21:07:38
  データシートのD列にはどんな風に数字が入ってるんですか？
  例えば・・1行目は３　2行目は空欄　3行目は・・みたいな。
  
• mokachan2008/01/30 21:38:34
  早速コメントを頂きありがとうございます。
  
  えっと・・・・Ｄ列には
  
  =if(counta(P7:T7)=0,"",1+MAX($d$5:$d$6))
  
  と関数が入っており、　値が返ったセルに上から順番に
  1.2.3・・・と入るようです（私が作ったシートではないので良く分かりません。）
  
  このＤ列に値が返ったデータを印刷シートの検索値として使用して
  VLOOKUPを使って書類を作成したいのです。
  
  検索値に入れるのはデータシートのＤ列に数字のあるレコードの
  Ａ列を使っているんです。
  
  
  
  どうぞ　宜しくお願いします。
  
• SALINGER2008/01/30 21:44:29
  Ａ列には順番に数字が入っているとありますが途中に空白がありませんか？
  このコードでは2行目から調べて、空白が出るまでを印刷するようになっています。
  それから、ＶＢＡでは => ではなく　>=　を使います。
• devichan2008/01/31 01:36:47
  なんだか、やりたいことがみえているような、わかりづらいようなです。
  意図をはき違えていたらごめんなさい。
  
  印刷用のシートで再計算されていますが、印刷用のシート内に、その値を参照されていということですか？
  たぶん必要ないかとも思います。
  

質問の情報

登録日時

2008-01-30 19:27:31

終了日時

2008-02-06 19:30:02

回答条件

1人2回まで

この質問のカテゴリ

• コンピュータ
• 学習・教育

この質問に含まれるキーワード

人気の質問

• いつも大変お世話になっています。 アスペルガー精神3級独身会社員34歳男です。 最近心身共に疲れがもの凄…hayakushinene11日前
• https://hikky-mura.org/t/topic/2523/7 でsma200さんという方に戸塚ヨットスクールを勧められましたが、僕…hayakushinene11日前
• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者2214日前
• 度々すみません。 私は以前から大学入試・成績など教育関連のネガティブな夢を見ていましたが、ここ最近そ…hayakushinene152日前
• 学歴詐称ではなくて、貴族称号詐称について伺います。イボンヌの香りという映画で、ロシアの伯爵を詐称して…匿名質問者3日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ