수다닷컴

Private Sub cmd확인_Click()
Dim i As Long, k As Long
Dim 거래번호 As Integer
거래번호 = 1

k = Sheets(주문등록).Range(B3).CurrentRegion.Rows.Count

If (Sheets(주문등록).Range(B3).Offset(k - 1, 0).Value = 거래번호) Then
거래번호 = 1
Else
거래번호 = Sheets(주문등록).Range(B3).Offset(k - 1, 0).Value + 1
End If
With Me.lst상품
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(주문등록).Range(B3).Offset(k, 0) = 거래번호
Sheets(주문등록).Range(B3).Offset(k, 1) = .List(i)
Sheets(주문등록).Range(B3).Offset(k, 2) = .List(i, 1)
Sheets(주문등록).Range(B3).Offset(k, 3) = .List(i, 2)
k = k + 1
End If
Next
End With
Unload Me

End Sub

Sub AprioriTest1()
Dim itemCode As String
Dim k, i, line, cols As Integer
Dim t_num As Integer

k = Sheets(주문등록).Range(B3).CurrentRegion.Rows.Count
line = 0
cols = 0
For i = 1 To k - 1
t_num = Sheets(주문등록).Range(B3).Offset(i, 0).Value
itemCode = Sheets(주문등록).Range(B3).Offset(i, 1).Value

If (Sheets(3).Range(A3).Offset(line, 0) t_num) Then
line = line + 1
cols = 0
End If

cols = cols + 1

Sheets(3).Range(A3).Offset(line, 0) = t_num
Sheets(3).Range(A3).Offset(line, cols) = itemCode
Next
End SubSub AprioriTest2()
Dim line, cols, pos As Integer
Dim i As Integer
Dim p_data As Integer
Dim advent As Integer

line = 0
cols = 0
advent = 1
pos = 1

p_data = Sheets(3).Range(A4).CurrentRegion.Count - Sheets(3).Range(A4).CurrentRegion.SpecialCells(xlCellTypeBlanks).Count - Sheets(3).Range(A4).CurrentRegion.Rows.Count

For i = 0 To p_data - 1
Sheets(3).Range(H4).Offset(i, cols) = Sheets(3).Range(A4).Offset(line, cols + pos + 1)
Sheets(3).Range(h4).Offset(i, cols + 1) = advent
pos = pos + 1
If (Sheets(3).Range(A4).Offset(line, cols + pos + 1).Value = ) Then
pos = 0
line = line + 1
End If
Next
End Sub
학교 과젠데 뭔말인지 모르겠어요ㅜ 해석좀 부탁드려요ㅜㅜ

신청하기