エクセルのデータシートの各行(1件づつ)を
一枚づつ定型の見積り書に印刷しようと思います。
sheet1が定型の見積書
sheet2がデータシートです。
sheet1のセル(12,3)にsheet2のセル(2,4),(3,4),(4,4)
を印刷するには
Sub 見積書印刷()
Dim i As Long
With Worksheets("sheet1")
For i = 2 To 4
.Cells(12, 3).Value = Worksheets("sheet2").Cells(i, 4)
.PrintOut
Next i
End With
End Sub
で、 できました。
データがsheet2でなく他のBOOKのsheetの場合
どのような式になるか
教えていただけませんか、お願いします。
エクセルのデータシートの各行(1件づつ)を
一枚づつ定型の見積り書に印刷しようと思います。
sheet1が定型の見積書
sheet2がデータシートです。
sheet1のセル(12,3)にsheet2のセル(2,4),(3,4),(4,4)
を印刷するには
Sub 見積書印刷()
Dim i As Long
With Worksheets("sheet1")
For i = 2 To 4
.Cells(12, 3).Value = Worksheets("sheet2").Cells(i, 4)
.PrintOut
Next i
End With
End Sub
で、 できました。
データがsheet2でなく他のBOOKのsheetの場合
どのような式になるか
教えていただけませんか、お願いします。
エクセルのデータシートの各行(1件づつ)を
一枚づつ定型の見積り書に印刷しようと思います。
sheet1が定型の見積書
sheet2がデータシートです。
sheet1のセル(12,3)にsheet2のセル(2,4),(3,4),(4,4)
を印刷するには
Sub 見積書印刷()
Dim i As Long
With Worksheets("sheet1")
For i = 2 To 4
.Cells(12, 3).Value = Worksheets("sheet2").Cells(i, 4)
.PrintOut
Next i
End With
End Sub
で、 できました。
データがsheet2でなく他のBOOKのsheetの場合
どのような式になるか
教えていただけませんか、お願いします。
下記のようなデータがエクセルシートに入力されている場合、どのように重複しないセルをカウントすれば良いでしょうか?例えば、SBの数を数えたいのですが、3行目・4行目にあるCC SBは重複しています。この重複を数えないように、かつ表全体にSBがいくつあるのかということです。宜しくお願いします。
AA SB
BB RH
CC SB
CC SB
DD HC
EE RH
FF HC
下記のようなデータがエクセルシートに入力されている場合、どのように重複しないセルをカウントすれば良いでしょうか?例えば、SBの数を数えたいのですが、3行目・4行目にあるCC SBは重複しています。この重複を数えないように、かつ表全体にSBがいくつあるのかということです。宜しくお願いします。
AA SB
BB RH
CC SB
CC SB
DD HC
EE RH
FF HC
エクセル2007です。
初心者です。
マクロが思うように動きません。
指定のセルが空白の場合、msgboxを表示して、処理を抜ける
空白でない場合は、処理をつつける。
と言う事をしたいです。
with~の後が問題だと思うのですが・・
Sub 受注履歴書き込み()
Dim ws01 As Worksheet, ws02 As Worksheet
Dim r As Long, c As Integer, tmp As Long
Set ws01 = Worksheets("受注書")
Set ws02 = Worksheets("受注履歴")
ws01.Activate
With ws01
If .Range("C2").Value = "" _
And .Range("M2").Value = "" _
And .Range("M11").Value = "" _
And Worksheets("粗利報告書").Range("D3").Value = "" Then
MsgBox "受注Noが空白です。処理を中止します。"
Exit Sub
ws02.Cells(r, 1).Value = .Range("C2").Value ' 受注No
ws02.Cells(r, 9).Value = .Range("A40").Value ' 備考
ws02.Activate
End If
End With
End Sub
採点願えますでしょうか?
宜しくお願い致します。