| |
どうしても一つ目のシートだけに読み込んでも、
二つ目のシートが出てこない。
コードの方法が間違えていますか？
どなたへ教えてください。
ご指導お願いします。
Sub 一人ずつ印刷_click()
Dim PrintMenu As Long
Dim i As Long
With Worksheets("全体データ")’----ひとつ目のシートです。
For i = 3 To .Range("A65536").End(xlUp).Row
Worksheets("プロフィール").Range("CE46").Value = .Cells(i, 1).Value '整理番号
Worksheets("プロフィール").Range("AG35").Value = .Cells(i, 2).Value '氏名
Worksheets("プロフィール").Range("AG34").Value = .Cells(i, 3).Value '社員番号
Worksheets("プロフィール").Range("CO53").Value = .Cells(i, 7).Value '判定結果A-1
Worksheets("プロフィール").Range("CO54").Value = .Cells(i, 9).Value '判定結果A-2
Worksheets("プロフィール").Range("CO55").Value = .Cells(i, 11).Value '判定結果A-3
Worksheets("プロフィール").Range("CO56").Value = .Cells(i, 13).Value '判定結果A-4
Worksheets("プロフィール").Range("CO57").Value = .Cells(i, 15).Value '判定結果A-5
Worksheets("プロフィール").Range("CO58").Value = .Cells(i, 17).Value '判定結果A-6
Worksheets("プロフィール").Range("CO59").Value = .Cells(i, 19).Value '判定結果A-7
Worksheets("プロフィール").Range("CO60").Value = .Cells(i, 21).Value '判定結果A-8
Worksheets("プロフィール").Range("CO61").Value = .Cells(i, 23).Value '判定結果A-9
Worksheets("プロフィール").Range("CO63").Value = .Cells(i, 25).Value '判定結果B-1
Worksheets("プロフィール").Range("CO64").Value = .Cells(i, 27).Value '判定結果B-2
Worksheets("プロフィール").Range("CO65").Value = .Cells(i, 29).Value '判定結果B-3
Worksheets("プロフィール").Range("CO66").Value = .Cells(i, 31).Value '判定結果B-4
Worksheets("プロフィール").Range("CO67").Value = .Cells(i, 33).Value '判定結果B-5
Worksheets("プロフィール").Range("CO68").Value = .Cells(i, 35).Value '判定結果B-6
Worksheets("プロフィール").Range("CO70").Value = .Cells(i, 37).Value '判定結果C-1
Worksheets("プロフィール").Range("CO71").Value = .Cells(i, 39).Value '判定結果C-2
Worksheets("プロフィール").Range("CO72").Value = .Cells(i, 41).Value '判定結果C-3
Worksheets("プロフィール").Range("CO73").Value = .Cells(i, 43).Value '判定結果C-4
Worksheets("プロフィール").Select
Next i
End With
With Worksheets("ストレスポイント変換")’----二つ目のシート
For i = 3 To .Range("A65536").End(xlUp).Row
Worksheets("プロフィール").Range("N141").Value = .Cells(i, 49).Value '仕事
Worksheets("プロフィール").Range("N142").Value = .Cells(i, 50).Value '精神
Worksheets("プロフィール").Range("N143").Value = .Cells(i, 51).Value '身体
Worksheets("プロフィール").Range("N144").Value = .Cells(i, 52).Value '疲労
Worksheets("プロフィール").Range("N145").Value = .Cells(i, 53).Value '抑うつ
Next i
End With
PrtMsg:
PrintMenu = MsgBox("印刷を実行してもいいですか？。 もし中止したい場合はEscキーを数回に押して下さい" & Chr(13) & _
" [は い] : 印刷実行" & Chr(13) & _
" [いいえ] : 印刷プレビュー" & Chr(13) & _
" [キャンセル] : 次を読込", 3, "確認")
If PrintMenu = 6 Then 'はい（印刷実行）
MsgBox "印刷します。"
Worksheets("プロフィール").PrintOut’---読み込むシート
ElseIf PrintMenu = 7 Then 'いいえ（印刷プレビュー）
Worksheets("結果表").PrintPreview
GoTo PrtMsg 'プレビューを閉じた後、確認メッセージに戻る。
ElseIf PrintMenu = 2 Then 'キャンセル（何もしない）
End If
End Sub
|
|
さる
- 04/7/18(日) 1:15 -
