견적서 종류 추가 - 코드제공, 파일제공

재고관리프로그램-Ver.7.xlsm

0.16MB

안녕하세요.

 

사용자가 입력하는 유형의 견적서를 추가하는 기능을 업데이트하였습니다.

 

코드부터 제공해드리겠습니다.

 

1. 견적서 추가폼 실행

Sub add_kind()
    AddKindForm.Show
End Sub

2. 견적서 추가폼

Private Sub CommandButton1_Click()
    Dim column As String
    Dim kind_name As String
    
    Dim i As Integer
    
    If (OptionButton1.Value) Then
        column = "I"
    Else
        column = "J"
    End If
    i = 3
    Do While (Not Worksheets("재고관리").Cells(i, column).Value Like "")
        i = i + 1
    Loop
    kind_name = TextBox1.Value
    Worksheets("재고관리").Cells(i, column).Value = kind_name
    
    Sheets("예시(삭제X)").Visible = True
    Sheets("예시견적서(삭제X)").Visible = True
    Sheets("새시트").Visible = True
    
    'kind 시트 추가
    Sheets("예시(삭제X)").Select
    Cells(1, "D").Value = kind_name
    Sheets("예시(삭제X)").Copy after:=Sheets(ActiveWorkbook.Sheets.Count)
    Sheets("예시(삭제X) (2)").Name = kind_name
    
    'kind 견적서 시트 추가
    Sheets("예시견적서(삭제X)").Select
    Sheets("예시견적서(삭제X)").Copy after:=Sheets(ActiveWorkbook.Sheets.Count)
    Sheets("예시견적서(삭제X) (2)").Name = kind_name & "견적서"
    
    'kind Undo 시트 추가
    Sheets("새시트").Select
    Sheets("새시트").Copy after:=Sheets(ActiveWorkbook.Sheets.Count)
    Sheets("새시트 (2)").Select
    Sheets("새시트 (2)").Name = "Undo " & kind_name & "데이터"
    
    'kind Redo 시트 추가
    Sheets("새시트").Select
    Sheets("새시트").Copy after:=Sheets(ActiveWorkbook.Sheets.Count)
    Sheets("새시트 (2)").Select
    Sheets("새시트 (2)").Name = "Redo " & kind_name & "데이터"
    
    '불필요 시트 숨기기
    Sheets("Undo " & kind_name & "데이터").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Redo " & kind_name & "데이터").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("새시트").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("예시(삭제X)").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("예시견적서(삭제X)").Select
    ActiveWindow.SelectedSheets.Visible = False
    Unload Me
    
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub OptionButton1_Click()
OptionButton2.Value = False
End Sub
Private Sub OptionButton2_Click()
OptionButton1.Value = False
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub