請高手幫忙

cree01

小弟做了一個系統（菜鳥一枚），但現在遇到瓶頸，向各位請教：
1.附件的信息能否在EXCLE上挪列出來（如圖所示）？2. 統計信息如何統計數據. .  （ Label23顯示統計掃描內容PASS的次數，Label24顯示掃描內容NG的次數）
3.結束鍵按了不會退出.  （已OK）

蓝桥玄霜

结束按钮没有代码。
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

cree01

蓝桥玄霜 发表于 2014-4-8 10:36
结束按钮没有代码。
Private Sub CommandButton2_Click()
UserForm1.Hide

非常謝謝蓝桥玄霜. 第三點搞定！

cree01

沒人會嗎？

grf1973

把workbook_open事件里的applictaion.visible=false去掉。或者在窗体按钮里设置applictaion.visible=true。我打不开其中的代码，直接窗体进窗体出。。。。。。。。

cree01

請高手指教

gilligan

cree01 发表于 2014-4-9 18:41
請高手指教

看一下附件是否满足的需要。 条码扫描系统.rar (17.55 KB, 下载次数: 6)

2014-4-9 23:52 上传

点击文件名下载附件

cree01

gilligan 发表于 2014-4-9 23:52
看一下附件是否满足的需要。

我試了你發給我的附件，我這邊打開提示“找不到工程或庫”  偵錯是這個代碼：Private Sub UserForm_Initialize()  ，請問什麽問題？

grf1973

1. Private Sub CommandButton1_Click()
   
2. If ComboBox1.Text = "" Or TextBox3.Text = "" Then
   
3.     MsgBox "請填入基本信息！", vbOKOnly, "警告"
   
4. Else
   
5.     TextBox1.Locked = True
   
6.     ComboBox1.Locked = True
   
7.     TextBox3.Locked = True
   
8. End If
   
9. With Sheet1
   
10.     r = .[a65536].End(3).Row + 1
    
11.     .Cells(r, 1).Resize(1, 5) = Array(Me.TextBox1, Me.ComboBox1, Me.TextBox3, Me.TextBox2, Me.Label21)
    
12. End With
    
13. End Sub

复制代码

可以把窗体内容存入表格。

grf1973

关于统计。做个子程序，在窗体初始化和扫描事件都引用一下就行。

1. Sub 统计()
   
2.         Dim arr, i, x, pass, ng
   
3.         arr = Sheet1.[a1].CurrentRegion
   
4.         For i = 1 To UBound(arr)
   
5.             x = arr(i, 5)
   
6.             If InStr(x, "PASS") > 0 Then pass = pass + 1
   
7.             If InStr(x, "NG") > 0 Then ng = ng + 1
   
8.         Next
   
9.         Me.Label23 = pass
   
10.         Me.Label24 = ng
    
11.     End Sub
    

复制代码