excel2019制作收银表格?网吧每天结帐表格怎么做
你的要求不明确,我根据个人理解帮你完成一个,你看看有什么改进的。 备注: 1、报表的“价格设定”工作表只要一经设定,则可以锁定,以免操作失误后面的公式算错。
2、报表里蓝色字体部分已设置了公式,可以自动生成所要的数值。
报表只需要输入每日报表里的人数即可。月汇总表不需要输入,会根据每日报表自动生成。
网吧每天结帐表格怎么做?
1、电脑可以制作表格可以通过安装office、金山WPS软件之后制作。2、表格制作方法(以office的excel作为示范)3、电脑安装好office软件之后在桌面右键新建一个excel打开,选中单元格,要做的表格行数和例数,如图是4*64、然后右键设置单元格。
5、设置外边框,可以设置边框颜色。
6、设置好表格就做成了。
如何在excel中制作收银系统
其实推荐你用数据库比较好,excel做这种效率低(还是可以做的,但是当商品数量越来越大时就会出现问题,或者当你录入信息时失误就更可怕了),至于数据库你可以直接用Access,其他也可以,只是用Access可以更快捷的把Excel的数据转为数据库。用Excel代码有点难Dim xlApp As Excel.Application '定义EXCEL类Dim xlBook As Excel.Workbook '定义工件簿类Dim xlsheet As Excel.Worksheet '定义工作表类Dim UserDataBase(1 To 2000, 1 To 2) As StringDim UserNum As IntegerPublic OpenType As BooleanPublic SumPrice As SinglePrivate Sub Command1_Click() UserNum = 1 ExcelFile = App.Path & "\1.xls" '定义Excel文件路径 Dim Price As Single If Dir(ExcelFile) <> "" Then Set xlBook = xlApp.Workbooks.Open(ExcelFile) '打开EXCEL工作簿 Do While xlBook.Sheets(1).Range("C" & UserNum) <> "" If Text1.Text = xlBook.Sheets(1).Range("C" & UserNum) Then Price = CSng(xlBook.Sheets(1).Range("D" & UserNum)) * CSng(Text2.Text) SumPrice = SumPrice + Price List1.AddItem "商品名:" & xlBook.Sheets(1).Range("B" & UserNum) & " 数量:" & Text2.Text & " 价格:" & Price & "元" Exit Do End If UserNum = UserNum + 1 Loop If xlBook.Sheets(1).Range("C" & UserNum) = "" Then MsgBox "未找到条形码为" & Text1.Text & "的商品" Else MsgBox "文件未找到:" & ExcelFile End IfEnd SubPrivate Sub Command2_Click()MsgBox "合计:" & SumPrice & "元"End SubPrivate Sub Form_Load()Text2.Text = 1Command1.Caption = "添加"Command2.Caption = "合计"Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类xlApp.DisplayAlerts = FalseList1.ClearEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) xlApp.Quit '关闭EXCEL Set xlApp = Nothing '释放EXCEL对象End Sub这段代码可以实现你需要的大部分功能了两个文本框(1个输入条形码,一个输入数量),两个按钮(一个添加,一个合计),一个列表框(列出商品名,数量,单价。
)不想做删除物品的,也不想做重复使用的。