|
▼けい さん:
注釈をつけて見ました
一部添削あります。
Set ShWO = Worksheets("WO") '←ブック名を指定
'号機情報
With UserForm2
If .LineStxt = "" Then
MsgBox "号機を入力して下さい"
'End
Exit Sub
Else
If .LineStxt.Value = .LineEtxt.Value Or .LineEtxt.Value = "" Then
号Start = .LineStxt.Value
号End = .LineStxt.Value
Else
号Start = .LineStxt.Value
号End = .LineEtxt.Value
End If
End If
'SFX
Select Case True
Case .OptionButton1.Value
SFX = "-101"
WO = "部品用"
Case .OptionButton2.Value
SFX = "-201"
WO = "部品用"
Case .OptionButton3.Value
SFX = "-301"
WO = "部品用"
Case .OptionButton4.Value
SFX = "-111"
WO = "部品用"
Case .OptionButton5.Value
SFX = "-301"
WO = "組立用"
Case .OptionButton6.Value
SFX = "-201"
WO = "組立用"
Case .OptionButton7.Value
SFX = "-111"
WO = "組立用"
Case .OptionButton8.Value
SFX = "-101"
WO = "組立用"
Case Else
MsgBox "WOを選択して下さい"
'End
Exit Sub
End Select
End With
Set ShBOM = Worksheets("BOM") '← ブック名を指定
LastR = ShBOM.Range("B65536").End(xlUp).Row
For i = 11 To LastR
If ShBOM.Range("A" & i).Value = "★" Then
Lev = ShBOM.Range("B" & i).Value '階層
Parts = ShBOM.Range("D" & i).Value '部品番号
'↓ コピー元ブック名指定 ↓ コピー先のブック名指定
Worksheets("原紙").Copy after:=Worksheets(Sheets.Count) '←ここでたまにエラーがでます
'↓ コピー先のブック名指定
Worksheets(Sheets.Count).Name = Parts & "_" & Format(号Start, "0000")
'↓ コピー先のブック名指定
Set ShMas1 = Worksheets(Parts & "_" & Format(号Start, "0000"))
|
|