Excel VBA質問箱 IV

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

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


40085 / 76738 ←次へ | 前へ→

【41757】Re:引数を使いコードをまとめたい
回答  Kein  - 06/8/22(火) 2:48 -

引用なし
パスワード
   Sub Main()
  Dim Num As Long, X As Long
  Const Pmt As String = _
  "1から80のいずれかの数値を入力してください"
 
  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 質問
【41756】Re:引数を使いコードをまとめたい Blue 06/8/22(火) 2:16 発言
【41757】Re:引数を使いコードをまとめたい Kein 06/8/22(火) 2:48 回答
【41762】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 9:44 発言
【41763】Re:引数を使いコードをまとめたい ponpon 06/8/22(火) 10:56 発言
【41764】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 11:42 発言
【41765】Re:引数を使いコードをまとめたい ponpon 06/8/22(火) 12:02 発言
【41770】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 13:27 発言
【41778】Re:引数を使いコードをまとめたい Kein 06/8/22(火) 16:22 発言
【41786】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 19:05 お礼

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