Excel VBA質問箱 IV

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

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


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

40079 / 76732

←次へ　｜　前へ→


	【41757】Re:引数を使いコードをまとめたい

Kein - 06/8/22(火) 2:48 -


	引用なし

	パスワード

Sub Main()
　 Dim Num As Long, X As Long
　 Const Pmt As String = _
　 "１から８０のいずれかの数値を入力してください"
　
　 Do
　　　Num = Application.InputBox(Pmt, Type:=1)
　　　If Num = False Then Exit Sub
　 Loop While Num < 1 Or Num > 80
　 X = Num + 7
　 Call MyCode(X)
End Sub

Sub MyCode(X As Variant)
　 Dim SetR As Long, Ans As Long
　 Dim GetV As Variant, GetV2 As Variant
　 Dim Sh As Worksheet

　 If IsMissing(X) Then
　　　MsgBox "先にMainプロシージャを実行して下さい", 48
　　　Exit Sub
　 End If
　 SetR = CLng(X): Set Sh = Worksheets("契約書作成")
　 With Worksheets("入力")
　　　GetV1 = .Cells(SetR, 2).Value
　　　GetV2 = .Cells(SetR, 10).Value
　　　Ans = MsgBox(GetV1 & " の契約書を作成しますか" & _
　　　vbLf & "内訳は " & GetV2 & " です", 36)
　　　If Ans = 7 Then GoTo ELine
　　　.Range(.Cells(SetR, 1), .Cells(SetR, 55)).Copy
　 End With
　 Sh.Range("AN3").PasteSpecial
　 With Sh.Range("AM3:DA3").Interior
　　　.ColorIndex = 10
　　　.Pattern = xlSolid
　 End With
　 With Application
　　　.CutCopyMode = False
　　　.GoTo Sh.Range("A1"), True
　 End With
ELine:
　 Set Sh = Nothing
End Sub

で、よいでしょう。

0 hits

▼

【41755】引数を使いコードをまとめたい yusuke 06/8/22(火) 1:55