Excel VBA質問箱 IV

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

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


65168 / 76733 ←次へ | 前へ→

【16140】Re:別のシートの値をバー(図形)を動か...
お礼  さる E-MAIL  - 04/7/17(土) 15:04 -

引用なし
パスワード
   IROC 様
ありがとうございました。私のミスでした。作動できました。
これから差込印刷のVBAを取り組んでしましたがエラーになるけど
どこか悪いでしょうか?

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

With Worksheets("ストレスポイント変換")

  
    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

1 hits

【16065】別のシートの値をバー(図形)を動かす方法 さる 04/7/15(木) 17:27 質問
【16067】Re:別のシートの値をバー(図形)を動かす... IROC 04/7/15(木) 17:51 回答
【16068】Re:別のシートの値をバー(図形)を動かす... Asaki 04/7/15(木) 17:52 回答
【16110】Re:別のシートの値をバー(図形)を動かす... さる 04/7/16(金) 18:38 質問
【16112】Re:別のシートの値をバー(図形)を動かす... IROC 04/7/16(金) 18:45 回答
【16115】Re:別のシートの値をバー(図形)を動かす... さる 04/7/16(金) 19:36 発言
【16117】Re:別のシートの値をバー(図形)を動かす... IROC 04/7/16(金) 22:00 回答
【16120】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 0:30 質問
【16121】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 0:37 回答
【16125】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 1:13 質問
【16126】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 1:23 回答
【16127】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 1:27 質問
【16140】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 15:04 お礼
【16146】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 16:10 回答
【16148】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 17:20 質問
【16149】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 17:33 回答
【16151】Re:別のシートの値をバー(図形)を動か... さる 04/7/17(土) 20:05 質問
【16152】Re:別のシートの値をバー(図形)を動か... IROC 04/7/17(土) 20:20 回答

65168 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free