Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
53219 / 76732 ←次へ　｜　前へ→
【28331】お願いします。
質問  かず  - 05/9/2(金) 15:35 -
引用なし
パスワード
   今、研修をしていまして一昨日から悩んでます。
Private Sub 見積書作成_Click()

Dim InData As Range

　　Set InData = ActiveCell


　　Sheets("見積テンプレート").Copy Before:=Sheets(3)
　　ActiveSheet.Name = InData.Value & "見積" & Year(Cells(4, 9)) & Month(Cells(4, 9))


　　ActiveSheet.Cells(3, 9).Value = Sheets("契約一覧").Cells(4, 2).Value
　　ActiveSheet.Cells(9, 9).Value = Sheets("契約一覧").Cells(4, 4).Value
　　ActiveSheet.Cells(20, 4).Value = Sheets("契約一覧").Cells(4, 4).Value
　　ActiveSheet.Cells(7, 7).Value = "〒" & Sheets("契約一覧").Cells(4, 5).Value
　　ActiveSheet.Cells(7, 9).Value = Sheets("契約一覧").Cells(4, 6).Value
　　ActiveSheet.Cells(8, 9).Value = Sheets("契約一覧").Cells(4, 7).Value
　　ActiveSheet.Cells(18, 4).Value = Sheets("契約一覧").Cells(4, 8).Value
　　ActiveSheet.Cells(22, 4).Value = Sheets("契約一覧").Cells(4, 9).Value
　　ActiveSheet.Cells(22, 7).Value = Sheets("契約一覧").Cells(4, 10).Value


　　ActiveSheet.Cells(24, 5).Value = Sheets("契約一覧").Cells(4, 14).Value
　　ActiveSheet.Cells(25, 5).Value = Sheets("契約一覧").Cells(4, 12).Value
　　ActiveSheet.Cells(25, 7).Value = Sheets("契約一覧").Cells(4, 13).Value
　　ActiveSheet.Cells(26, 5).Value = Sheets("契約一覧").Cells(4, 15).Value
　　ActiveSheet.Cells(27, 5).Value = Sheets("契約一覧").Cells(4, 16).Value
　　ActiveSheet.Cells(29, 4).Value = "検収毎月" & Sheets("契約一覧").Cells(4, 17).Value & "締め、" & Sheets("契約一覧").Cells(4, 18).Value & "銀行振込"
　　ActiveSheet.Cells(32, 4).Value = Sheets("契約一覧").Cells(4, 19).Value

' ActiveSheet.Cells(34, 1).Value = Sheets("契約一覧").Cells(4, 20).Value ' ActiveSheet.Cells(35, 1).Value = Sheets("契約一覧").Cells(4, 21).Value


　　ActiveSheet.Cells(34, 5).Value = Sheets("契約一覧").Cells(4, 22).Value
　　ActiveSheet.Cells(35, 5).Value = Sheets("契約一覧").Cells(4, 23).Value
　　ActiveSheet.Cells(36, 5).Value = Sheets("契約一覧").Cells(4, 24).Value


　　Sheets("見積テンプレート").Copy Before:=Sheets(3)
　　ActiveSheet.Name = InData.Value & "注文" & Year(Cells(4, 9)) & Month(Cells(4, 9))


　　ActiveSheet.Cells(3, 9).Value = Sheets("契約一覧").Cells(4, 3).Value
　　ActiveSheet.Cells(9, 9).Value = Sheets("契約一覧").Cells(4, 4).Value
　　ActiveSheet.Cells(20, 4).Value = Sheets("契約一覧").Cells(4, 4).Value
　　ActiveSheet.Cells(7, 7).Value = "〒" & Sheets("契約一覧").Cells(4, 5).Value
　　ActiveSheet.Cells(7, 9).Value = Sheets("契約一覧").Cells(4, 6).Value
　　ActiveSheet.Cells(8, 9).Value = Sheets("契約一覧").Cells(4, 7).Value
　　ActiveSheet.Cells(18, 4).Value = Sheets("契約一覧").Cells(4, 8).Value
　　ActiveSheet.Cells(22, 4).Value = Sheets("契約一覧").Cells(4, 9).Value
　　ActiveSheet.Cells(22, 7).Value = Sheets("契約一覧").Cells(4, 10).Value


　　ActiveSheet.Cells(24, 5).Value = Sheets("契約一覧").Cells(4, 14).Value
　　ActiveSheet.Cells(25, 5).Value = Sheets("契約一覧").Cells(4, 12).Value
　　ActiveSheet.Cells(25, 7).Value = Sheets("契約一覧").Cells(4, 13).Value
　　ActiveSheet.Cells(26, 5).Value = Sheets("契約一覧").Cells(4, 15).Value
　　ActiveSheet.Cells(27, 5).Value = Sheets("契約一覧").Cells(4, 16).Value
　　ActiveSheet.Cells(29, 4).Value = "検収毎月" & Sheets("契約一覧").Cells(4, 17).Value & "締め、" & Sheets("契約一覧").Cells(4, 18).Value & "銀行振込"
　　ActiveSheet.Cells(32, 4).Value = Sheets("契約一覧").Cells(4, 19).Value

' ActiveSheet.Cells(34, 1).Value = Sheets("契約一覧").Cells(4, 20).Value ' ActiveSheet.Cells(35, 1).Value = Sheets("契約一覧").Cells(4, 21).Value


　　ActiveSheet.Cells(34, 5).Value = Sheets("契約一覧").Cells(4, 22).Value
　　ActiveSheet.Cells(35, 5).Value = Sheets("契約一覧").Cells(4, 23).Value
　　ActiveSheet.Cells(36, 5).Value = Sheets("契約一覧").Cells(4, 24).Value
'複数のシートをコレクションによりまとめてループでコピーする方法は

End Sub

というがありまして、契約一覧というシートのどこかを選択して、見積テンプレートクリックすると、新しいシートに契約一覧にある行の情報が作成されます。今の状態だと契約一覧シートのどこをクリックしても同じ情報しか作成されません。課題は、契約シートで選択した際の行の情報が作成されてほしいのですが、全く上手くいきません。教えてください。
0 hits
▼ 【28331】お願いします。 かず 05/9/2(金) 15:35 質問≪
【28333】Re:お願いします。 こたつねこ 05/9/2(金) 16:07 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
53219 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free