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

エクセルマクロに詳しい方にお伺いします。


以下のマクロは以前質問させて頂いた時の回答ですが、B列に“1”が入っている場合に
A列のNOを返すように組んでいただいたのですが、このVBAのB列に別に関数が入っていて
1以上の数字が返っている場合にA列のNOを返す様にするには何処をどう変えたら良いか
教えてください。 宜しくお願いいたします。

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("データシート")

' B1には"印刷したいデータ"という文字が入っていると仮定し、
' B2から始める
r = 2

' A列にデータがなくなるまでループ
Do While DataSheet.Cells(r, 1).Value <> ""
If DataSheet.Cells(r, 2).Value = 1 Then
' データシートのA列から印刷用シートのA1に転記する
PrintSheet.Cells(1, 1).Value = DataSheet.Cells(r, 1).Value

' 印刷用シートの再計算
PrintSheet.Calculate

' 印刷
PrintSheet.PrintOut
End If
r = r + 1
Loop

End Sub

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する

みんなの回答

この質問へのコメント

この質問への反応(ブックマークコメント)

質問の情報

登録日時
2008-01-06 22:12:57
終了日時
2008-01-10 18:57:23
回答条件
1人2回まで

この質問のカテゴリ

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

関数2326エクセル3560マクロ1586

人気の質問

メニュー

PC版