Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65158 / 76734

←次へ　｜　前へ→


	【16151】Re:別のシートの値をバー（図形）を動か...

さる

- 04/7/17(土) 20:05 -


	引用なし

	パスワード

▼IROC さん：
>With文の使い方が間違っています。
ありがとうございます。直してみたらエラーなかったけど
何の表示が出ない。
どこかおかしいでしょうか？

Sub 一人ずつ印刷_click()

Dim PrintMenu As Long
Dim i As Long

With Worksheets("全体データ")

　　For i = 3 To .Range("A65536").End(xlUp).Row
　　　　Worksheets("プロフィール").Range("CE45").Value = .Cells(i, 1).Value '整理番号
　　　　Worksheets("プロフィール").Range("AG35").Value = .Cells(i, 2).Value '氏名
　　　　Worksheets("プロフィール").Range("AG34").Value = .Cells(i, 3).Value '社員番号
　　　　Worksheets("プロフィール").Range("CO52").Value = .Cells(i, 7).Value '判定結果A-1
　　　　Worksheets("プロフィール").Range("CO53").Value = .Cells(i, 9).Value '判定結果A-2
　　　　Worksheets("プロフィール").Range("CO54").Value = .Cells(i, 11).Value '判定結果A-3
　　　　Worksheets("プロフィール").Range("CO55").Value = .Cells(i, 13).Value '判定結果A-4
　　　　Worksheets("プロフィール").Range("CO56").Value = .Cells(i, 15).Value '判定結果A-5
　　　　Worksheets("プロフィール").Range("CO57").Value = .Cells(i, 17).Value '判定結果A-6
　　　　Worksheets("プロフィール").Range("CO58").Value = .Cells(i, 19).Value '判定結果A-7
　　　　Worksheets("プロフィール").Range("CO59").Value = .Cells(i, 21).Value '判定結果A-8
　　　　Worksheets("プロフィール").Range("CO60").Value = .Cells(i, 23).Value '判定結果A-9
　　　　Worksheets("プロフィール").Range("CO62").Value = .Cells(i, 25).Value '判定結果B-1
　　　　Worksheets("プロフィール").Range("CO63").Value = .Cells(i, 27).Value '判定結果B-2
　　　　Worksheets("プロフィール").Range("CO64").Value = .Cells(i, 29).Value '判定結果B-3
　　　　Worksheets("プロフィール").Range("CO65").Value = .Cells(i, 31).Value '判定結果B-4
　　　　Worksheets("プロフィール").Range("CO66").Value = .Cells(i, 33).Value '判定結果B-5
　　　　Worksheets("プロフィール").Range("CO67").Value = .Cells(i, 35).Value '判定結果B-6
　　　　Worksheets("プロフィール").Range("CO69").Value = .Cells(i, 37).Value '判定結果C-1
　　　　Worksheets("プロフィール").Range("CO70").Value = .Cells(i, 39).Value '判定結果C-2
　　　　Worksheets("プロフィール").Range("CO71").Value = .Cells(i, 41).Value '判定結果C-3
　　　　Worksheets("プロフィール").Range("CO72").Value = .Cells(i, 43).Value '判定結果C-4
　　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 '仕事
　　　　Worksheets("結果表").Select

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
　　　
　 Next i
　　
End With
End Sub

0 hits

▼

【16065】別のシートの値をバー（図形）を動かす方法 さる 04/7/15(木) 17:27