|
|
本帖最后由 深秋的黎明 于 2020-8-27 09:05 编辑
配件管理（试用版）.zip
(1.21 MB, 下载次数: 11037)
废话不多说，先发几张界面图：
模糊查询
Private Sub TextBox9_Change()
Dim i&, j%, t%, myStr$, k&, n$, P$, S$
Dim LG As Boolean, ARR1()
With Sheets("éìƷĿ¼")
Myr = .[B7000].End(3).Row
Arrsj = .Range("A2:J" & Myr)
End With
Me.ListBox2.Clear
myStr = UCase(Me.TextBox9.Value)
For i = 1 To Len(myStr)
If Asc(Mid$(myStr, i, 1)) < 0 Then LG = True: Exit For
Next
tr = 1
ReDim ARR1(1 To Myr, 1 To 10)
'---------------------------------------------------------------
For R = 1 To UBound(Arrsj)
For c = 1 To UBound(Arrsj, 2)
If Arrsj(R, c) Like "*" & TextBox9 & "*" Then
tr = tr + 1
ARR1(tr, 1) = Arrsj(R, 1)
ARR1(tr, 2) = Arrsj(R, 2)
ARR1(tr, 3) = Arrsj(R, 3)
ARR1(tr, 4) = Arrsj(R, 4)
ARR1(tr, 5) = Format(Arrsj(R, 5), "0.00") '---------------
ARR1(tr, 6) = Arrsj(R, 6)
ARR1(tr, 7) = Arrsj(R, 7)
ARR1(tr, 8) = Arrsj(R, 8)
ARR1(tr, 9) = Arrsj(R, 9)
ARR1(tr, 10) = Arrsj(R, 10)
Exit For
End If
Next
Next
Me.ListBox2.List = ARR1
If Len(TextBox9.Value) < 5 Then
Me.ListBox3.Clear
Else
LSJL
End If
End Sub
导入图册
Private Sub CommandButton40_Click()
UserForm3.Show 0
Image1.Picture = Nothing
A = Left(UserForm6.TextBox2.Text, 9)
MyPic = ThisWorkbook.Path & "\Åä¼tí¼\" & A & ".jpg"
If Dir(MyPic) <> "" Then
UserForm3.Image1.Picture = LoadPicture(MyPic)
UserForm3.Image1.PictureSizeMode = 1
End If
End Sub附件大于3M，需要交流 欢迎邮箱联系
|
评分
-
3
查看全部评分
-
|
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2020-8-23 22:22
楼主
