vba窗体 点击增加减少_求助:窗体控件点击添加数量按钮按条件录入数据! 谢谢!...

grf1973发表于

2013-10-29 13:27

请看附件。

2013-10-29 13:27 上传

点击文件名下载附件

26.23 KB, 下载次数: 114

评分

grf1973发表于

2013-10-29 13:25

Private Sub CmdAdd_Click()

Dim str1, str2 As String, i, x As Integer

If Me.TextBox1 = "" Then MsgBox "输入数据为空", 48, " 温馨提示:": Exit Sub

str1 = ComboBox1 & "," & ComboBox2 & "," & ComboBox3

With Sheet9

For i = 1 To .UsedRange.Rows.Count

str2 = .Cells(i, 4) & "," & .Cells(i, 5) & "," & .Cells(i, 6)

If str1 = str2 Then

x = x + 1

.Cells(i, 256).End(xlToLeft).Offset(0, 1) = TextBox1  '当前行最后空单元格

End If

Next

If x > 0 Then

MsgBox TextBox1.Text & "数据录入成功,共成功录入" & x & "条数据记录."

Else

MsgBox "未找到匹配行", 48, " 温馨提示:"

End If

End With

End Sub复制代码

评分

yanyishui发表于

2013-10-29 11:29

grf1973 发表于 2013-10-29 10:43

你试着把窗体上一些非常规的控件去掉再上传附件试试。

谢谢!重新简单做了一个

Book1.rar

(23.42 KB, 下载次数: 33)

2013-10-29 11:28 上传

点击文件名下载附件

谢谢!

yanyishui发表于

2013-10-29 11:04

grf1973 发表于 2013-10-29 10:43

你试着把窗体上一些非常规的控件去掉再上传附件试试。

谢谢

库存表-修改.rar

(33.63 KB, 下载次数: 38)

2013-10-29 11:04 上传

点击文件名下载附件

!

yanyishui发表于

2013-10-29 11:03

本帖最后由 yanyishui 于 2013-10-29 11:05 编辑

谢谢! 试试这个可以打开吗?

非常感谢!

2013-10-29 11:02 上传

点击文件名下载附件

33.63 KB, 下载次数: 35

yanyishui发表于

2013-10-29 10:45

grf1973 发表于 2013-10-29 10:43

你试着把窗体上一些非常规的控件去掉再上传附件试试。

好的 谢谢!