発信元情報を表示するためのエクセルＶＢＡ。返品依頼書を作る

①「発信元情報」を登録する入力欄を作成します。

②番線印と番線印情報を選択表示できるようにします。

全体として

セル高さ・・・
シート全体をつかんで、「高さ：３７ピクセル」にセットしてください。

セル幅・・・
シート全体をつかんで、「幅：７２ピクセル」にセットしてください。

●「発信元情報」はＨ２からＬ７

●「番線印」はＨ１２からＬ１５

のセル範囲で作成します。

Sub 発信先情報()
End Sub

Sub 発信元情報()

Dim Ha As Variant
Dim Hb As Variant
Dim Hc As Variant
Dim Hd As Variant
Dim He As Variant

　　Worksheets("スタート設定").Select
　　　　Ha = Range("K3")
　　　　Hb = Range("K4")
　　　　Hc = Range("K5")
　　　　Hd = Range("K6")
　　　　He = Range("K7")
　　Worksheets("返品依頼テンプレート").Select
　　　　Range("C31") = Ha
　　　　Range("C32") = Hb
　　　　Range("C33") = Hc
　　　　Range("C34") = Hd
　　　　Range("C35") = He
End Sub

「１つ選択」・・・チェックした方が表示されます。

「２つ選択」・・・「番線印」が表示されます。

「選択無し」・・・何も表示されません。

Sub 番線印転記()
End Sub

Sub 番線印転記()

Dim BNa As Boolean
Dim BNb As Boolean
　　Worksheets("スタート設定").Select

　　If Worksheets("スタート設定").CheckBox1.Value = True Then
　　　　BNa = True
　　End If

　　If Worksheets("スタート設定").CheckBox2.Value = True Then
　　　　BNb = True
　　End If

　　If BNa = True And BNb = True Then
　　　　BNa = True
　　　　BNb = False
　　End If
　　Worksheets("返品依頼テンプレート").DrawingObjects.Delete
　　If BNa = True Then
　　　　Range("I14").Copy _
　　　　　　Destination:=Worksheets("返品依頼テンプレート").Range("A31")
　　　　Range("I14").Copy _
　　　　　　Destination:=Worksheets("返品依頼テンプレート").Range("A40")
　　　　Range("I14").Copy _
　　　　　　Destination:=Worksheets("返品依頼テンプレート").Range("A66")

　　ElseIf BNb = True Then
　　　　Range("K14").Copy _
　　　　　　Destination:=Worksheets("返品依頼テンプレート").Range("A31")
　　　　Range("K14").Copy _
　　　　　　Destination:=Worksheets("返品依頼テンプレート").Range("A40")
　　　　Range("K14").Copy _
　　　　　　Destination:=Worksheets("返品依頼テンプレート").Range("A66")
　　End If
線引き直し
End Sub

Sub 線引き直し()

Worksheets("返品依頼テンプレート").Select
　　With Range("A40").Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　End With
　　With Range("A66").Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　End With

End Sub