[[20130519144435]]　『マクロで印刷』（A-SU）　ページの最後に飛ぶ

『マクロで印刷』（A-SU）

A1セルにデータを代入する。（例えばC2が○の時にB1の1をA1セルに代入し印刷する。その後C3が○の時B3の2をA1セル代入し印刷,C4（印刷しない）,C5（印刷）,C6（印刷しない）,C7（印刷）の順に繰り返す。）

    A   B   C
1      
2       1  ○
3　　　 2  ○
4　　　 3 
5       4  ○
6　　　 5
7       6  ○

できますでしょうか？宜しくお願いします。

 やりたいことがよく理解できませんが、基本的にはこんな事ですよね ?
 Sub Test()
   Dim i As Long
      For i = 2 To 7
         If Cells(i, "c").Value = "○" Then
            Cells(1, 1).Value = Cells(i, "b").Value
            MsgBox "OK??" '実際はここで Print処理
         End If
      Next
 End Sub
 (暇人)

説明不足ですみませんでした。

教えていただいたコードでできました。

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

コメント返信：

[ 一覧(最新更新順) ]

[[20130519144435]] 『マクロで印刷』（A-SU） ページの最後に飛ぶ

[[20130519144435]]　『マクロで印刷』（A-SU）　ページの最後に飛ぶ