78 lines
1.7 KiB
Plaintext
78 lines
1.7 KiB
Plaintext
|
VERSION 5.00
|
||
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} build
|
||
|
|
Caption = "UserForm1"
|
||
|
|
ClientHeight = 3015
|
||
|
|
ClientLeft = 120
|
||
|
|
ClientTop = 465
|
||
|
|
ClientWidth = 8100
|
||
|
|
OleObjectBlob = "build.frx":0000
|
||
|
|
StartUpPosition = 1 'CenterOwner
|
||
|
|
End
|
||
|
|
Attribute VB_Name = "build"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = True
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Public part As String
|
||
|
|
Public bill As String
|
||
|
|
Public ship As String
|
||
|
|
Public useval As Boolean
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Private Sub cbBill_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
|
||
|
|
Select Case KeyCode
|
||
|
|
Case 13
|
||
|
|
useval = True
|
||
|
|
Me.Hide
|
||
|
|
Case 27
|
||
|
|
canel = False
|
||
|
|
Me.Hide
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
|
||
|
|
Private Sub cbPart_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
|
||
|
|
|
||
|
|
Select Case KeyCode
|
||
|
|
Case 13
|
||
|
|
useval = True
|
||
|
|
Me.Hide
|
||
|
|
Case 27
|
||
|
|
useval = False
|
||
|
|
Me.Hide
|
||
|
|
End Select
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
|
||
|
|
Private Sub cbShip_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
|
||
|
|
Select Case KeyCode
|
||
|
|
Case 13
|
||
|
|
useval = True
|
||
|
|
Me.Hide
|
||
|
|
Case 27
|
||
|
|
useval = False
|
||
|
|
Me.Hide
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub UserForm_Activate()
|
||
|
|
|
||
|
|
useval = False
|
||
|
|
|
||
|
|
cbPart.value = part
|
||
|
|
cbBill.value = bill
|
||
|
|
cbShip.value = ship
|
||
|
|
|
||
|
|
cbPart.list = Application.transpose(Worksheets("mdata").Range("A2:A26267"))
|
||
|
|
cbBill.list = Application.transpose(Worksheets("mdata").Range("D2:D14295"))
|
||
|
|
cbShip.list = Application.transpose(Worksheets("mdata").Range("D2:D14295"))
|
||
|
|
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
|