해당 요구사항을 반영하여 코드를 수정해 드릴 있습니다. 아래와 같이 각 스크립트를 업데이트 해주세요.
첫 번째 유저폼 스크립트 (날짜 추가 및 종류-품명 의존성 추가):
Private Sub UserForm_Initialize()
' 데이터 시트에서 콤보박스 데이터를 로드
Dim wsData As Worksheet
Set wsData = ThisWorkbook.Sheets("데이터 시트")
' 종류 로드
cboType.Clear
Dim rngType As Range
Set rngType = wsData.Range("A2:A" & wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row)
Dim cell As Range
Dim typeDict As Object
Set typeDict = CreateObject("scripting.Dictionary")
For Each cell In rngType
If cell.Value <> "" And Not typeDict.exists(cell.Value) Then
cboType.AddItem cell.Value
typeDict.Add cell.Value, Nothing
End If
Next cell
' 담당자 로드
cboPerson.Clear
Dim rngPerson As Range
Set rngPerson = wsData.Range("C2:C" & wsData.Cells(wsData.Rows.Count, 3).End(xlUp).Row)
For Each cell In rngPerson
If cell.Value <> "" Then
cboPerson.AddItem cell.Value
End If
Next cell
' 수량 로드
cboQuantity.Clear
Dim i As Integer
For i = 1 To 100 ' 원하는 수량까지 추가
cboQuantity.AddItem i
Next i
' 폼의 모든 입력 필드를 초기화
cboType.Value = ""
cboName.Clear ' 초기화할 때는 품명 필드를 비워둡니다.
cboQuantity.Value = ""
cboPerson.Value = ""
txtNote.Value = ""
txtDate.Value = Date ' 오늘 날짜로 초기화합니다. 또는 필요한 경우 "날짜 선택" 라벨을 사용할 수 있습니다.
End Sub
Private Sub cboType_Change()
' 종류 선택 시 품명 업데이트
Dim wsData As Worksheet
Set wsData = ThisWorkbook.Sheets("데이터 시트")
Dim selectedType As String
selectedType = cboType.Value
cboName.Clear
If selectedType <> "" Then
Dim rngName As Range
Set rngName = wsData.Range("A2:B" & wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row)
Dim cell As Range
For Each cell In rngName
If cell.Value = selectedType And cell.Offset(, 1).Value <> "" Then
cboName.AddItem cell.Offset(, 1).Value
End If
Next cell
End If
End Sub
Private Sub btnEnter_Click()
Call 입고
End Sub
Private Sub btnExit_Click()
Call 출고
End Sub
Private Sub txtDate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' 날짜 선택을 위한 캘린더 호출
Dim calendarForm As Object
Set calendarForm = CreateObject("MSComCtl2.MonthView.2") ' MSCOMCT2.OCX 컴포넌트 필요 (등록 필수)
With calendarForm
.MaxDate = Date
.Show
txtDate.Value = calendarForm.Value
End With
End Sub
두 번째는 1번 모듈 (날짜 필드 추가):
Sub 입고()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim 날짜 As Date, 종류 As String, 품명 As String, 수량 As Integer, 담당자 As String, 비고 As String
' UserForm에서 데이터 가져오기
날짜 = UserForm1.txtDate.Value
종류 = UserForm1.cboType.Value
품명 = UserForm1.cboName.Value
수량 = UserForm1.cboQuantity.Value
담당자 = UserForm1.cboPerson.Value
비고 = UserForm1.txtNote.Value
' 시트 할당
Set ws1 = ThisWorkbook.Sheets("재고 리스트")
Set ws2 = ThisWorkbook.Sheets("입출고 기록 리스트")
' 입출고 기록 리스트에 추가
With ws2
Dim LastRow As Long
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(LastRow, 1).Value = 날짜 ' 날짜
.Cells(LastRow, 2).Value = 종류
.Cells(LastRow, 3).Value = 품명
.Cells(LastRow, 4).Value = 수량
.Cells(LastRow, 5).Value = 담당자
.Cells(LastRow, 6).Value = 비고
.Cells(LastRow, 7).Value = "입고"
End With
' 재고 리스트에 기존 수량 업데이트 또는 추가
Dim rg As Range
Set rg = ws1.Range("A2:B" & ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row)
Dim found As Range
Set found = rg.Find(품명)
If Not found Is Nothing Then
found.Offset(, 2).Value = found.Offset(, 2).Value + 수량
Else
Dim NewRow As Long
NewRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row + 1
ws1.Cells(NewRow, 1).Value = 종류
ws1.Cells(NewRow, 2).Value = 품명
ws1.Cells(NewRow, 3).Value = 수량
End If
UserForm1.Hide
End Sub
Sub 출고()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim 날짜 As Date, 종류 As String, 품명 As String, 수량 As Integer, 담당자 As String, 비고 As String
' UserForm에서 데이터 가져오기
날짜 = UserForm1.txtDate.Value
종류 = UserForm1.cboType.Value
품명 = UserForm1.cboName.Value
수량 = UserForm1.cboQuantity.Value
담당자 = UserForm1.cboPerson.Value
비고 = UserForm1.txtNote.Value
' 시트 할당
Set ws1 = ThisWorkbook.Sheets("재고 리스트")
Set ws2 = ThisWorkbook.Sheets("입출고 기록 리스트")
' 입출고 기록 리스트에 추가
With ws2
Dim LastRow As Long
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(LastRow, 1).Value = 날짜 ' 날짜
.Cells(LastRow, 2).Value = 종류
.Cells(LastRow, 3).Value = 품명
.Cells(LastRow, 4).Value = 수량
.Cells(LastRow, 5).Value = 담당자
.Cells(LastRow, 6).Value = 비고
.Cells(LastRow, 7).Value = "출고"
End With
' 재고 리스트에서 기존 수량 업데이트
Dim rg As Range
Set rg = ws1.Range("A2:B" & ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row)
Dim found As Range
Set found = rg.Find(품명)
If Not found Is Nothing Then
found.Offset(, 2).Value = found.Offset(, 2).Value - 수량
Else
MsgBox "해당 품명이 재고 리스트에 없습니다."
End If
UserForm1.Hide
End Sub
세 번째는 2번 모듈 (사용자 폼 초기화 및 날짜 필드 추가):
Sub ShowEnterForm()
' 유저폼 초기화 및 설정
With UserForm1
.Caption = "입고 정보 입력"
.btnEnter.Visible = True
.btnExit.Visible = False
.txtDate.Visible = True
.lblDate.Visible = True
.Show
End With
End Sub
Sub ShowExitForm()
' 유저폼 초기화 및 설정
With UserForm1
.Caption = "출고 정보 입력"
.btnEnter.Visible = False
.btnExit.Visible = True
.txtDate.Visible = True
.lblDate.Visible = True
.Show
End With
End Sub
위의 코드에서는 유저폼에 날짜 필드(txtDate)를 추가하고, 종류와 품명 간의 의존성을 설정하였습니다. 또한 날짜 선택을 위한 캘린더 폼을 추가하였으니 필요에 따라 MSCOMCTL.OCX 파일을 적절히 등록해야 합니다.
(비밀상점)
5차입고 춘천달수닭갈비 1kg특가!
(1904)
