手把手教你定制属于自己的进销存软件

lupei0331 · 发表于 2020-4-28 15:06

授人以鱼不如授人以渔，帮助别人，提升自己。收藏了

abc111112 · 发表于 2020-5-17 20:42

Private Sub CommandButton1_Click()
Dim cnADO, rsADO As Object
Dim strPath, strTable, strSQL As String

  aa = Sheet1.Cells(2, 2)
Sheet1.Range("a7:k1000") = ""
Set cnADO = CreateObject("ADODB.Connection")

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=yes;imex=1';;data source=" & ThisWorkbook.FullName
strSQL = "select * from  [数据表$a1:k1000] where  存区 like '%" & aa & "%' or 规格型号 like '%" & aa & "%'  "
Sheet1.Cells(7, 1).CopyFromRecordset cnADO.Execute(strSQL)

cnADO.Close
Set cnADO = Nothing
End Sub

Sub zz()
Dim cnADO, rsADO As Object
Dim strPath, strTable, strSQL As String

  aa = Sheet1.Cells(2, 2)
Sheet1.Range("a7:o1000") = ""
Set cnADO = CreateObject("ADODB.Connection")

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=yes;imex=1';;data source=" & ThisWorkbook.FullName
strSQL = "select * from  [数据表$a1:o1000] where  物料名称 like '%" & aa & "%' or 规格型号 like '%" & aa & "%'  "
Sheet1.Cells(7, 1).CopyFromRecordset cnADO.Execute(strSQL)

cnADO.Close
Set cnADO = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Or Target.Address = "$B$2" Then
zz
End If
End Sub

楼主可以帮我译一下这两段代码各条语句的涵义    我是个新小白拜托了在这先谢谢了

mengyang0 · 发表于 2020-6-23 17:59

感谢论坛大佬的知识分享

18180529628 · 发表于 2020-8-26 16:52

谢谢分享，作经典收藏

七夕の伝说 · 发表于 2020-10-10 16:36

不错不错

Popeye-opeye201 · 发表于 2020-10-12 15:58

我学习一下。

a18b88 · 发表于 2020-10-12 16:33

maqiuhua 发表于 2018-12-11 13:40
接上次，这次来做入库单和出库单的功能，首先关于供应商这块的引用问题，当然可以用数据有效性来做，我这 ...

谢谢分享，有个小小的建议，应该考虑跨年度连续适应的问题，建议汇总表增加期初数列。

a18b88 · 发表于 2020-10-13 08:11

本帖最后由 a18b88 于 2020-10-13 14:06 编辑

附件有误，删除。

a18b88 · 发表于 2020-10-13 15:40

79楼附件有误，修改后附件：

进销存教程期初数设置.rar (46.88 KB, 下载次数: 75)

		自动登录	找回密码
密码			免费注册

[分享] 手把手教你定制属于自己的进销存软件