本文目录一览：
EXCEL做超市收银系统用哪个函数
超市收银模拟
1、建立商品基本信息表
内容包括商品号、商品名称、单位、单价等基本信息，输入数据时注意各种数据格式的设置。商品号、商品名称、单位为文本格式，单价为货币格式并保留两位小数。
2、建立商品销售记录表
内容包括商品编号、商品名称、单价、数量、应收金额、实收金额、找零，对应数据类型设置分别为文本、文本、货币、数值、货币、货币、货币。
3、设置跨表引用、编辑计算公式
A、先在商品编号栏单元格（A2）中输入一个商品编号，在对应的商品名称单元格（B2）中编辑公式，用到IF函数、VLOOKUP函数、单元格的绝对引用和相对引用。
公式为“=IF($A2"",VLOOKUP($A2,商品基本信息表!$A$2:$D$27,2,0),"")”（注：为保证在复制公式时列A不改变，在A前加“$”；数组所在的区域是固定不变的，故区域内的单元格为绝对引用，即“$A$2:$D$27”）
B、选中单元格B2，即第一个商品名称单元格，把鼠标放在单元格右下角，待鼠标指针变成“+”后向下拖动，即将公式复制到“商品名称”列。由于“商品编号”行坐标属于相对引用，公式复制时行号会随着改变，即达到复制到目的。
C、将B2中的公式复制粘贴到单价第一个单元格（C2），此时，只需要改变公式中的序列号，即希望区域中待返回的匹配值的列序号，将原公式中的序列号“2”改为商品基本信息表中单价所在的列“4”，即“=IF($A2"",VLOOKUP($A2,商品基本信息表!$A$2:$D$27,4,0),"")”。
D、如B中所述，将C2中的公式复制到C列。
E、编辑“应收金额”公式：=C2*D2，拖动填充柄复制公式到整列（E列）
F、编辑总额计算公式：=SUM(E2:E30)
G、编辑找零公式：=G2-F2
4、设置单元格保护
在操作过程中，发现即使是“商品名称”、“单价”这两栏通过公式跨表引用来的数据也能任意改变。为保证相关数据不被任意删改，设置单元格保护。其具体步骤为：
选定所有数据，在单元格格式中“保护”选项卡中撤销“锁定”的勾选；
选定“商品名称”、“单价”两列数据，在“保护”中勾选“锁定”；
选定所有数据，在“格式”下单击“保护工作表” ，在“允许此工作表的所有用户进行：”下拉选框中勾选“选定未锁定的单元格”，输入密码，确定。
关于excel超市收银系统数据有效性的公式
第一步，选中商品基本信息表的A2:A10，Ctrl+F3，新建名称：商品号，引用位置：
=商品基本信息表!$A$2:$A$10
如图：
第二步：
假设要在购物清单中的A列输入商品号，则：
选中购物清单表的A列，
数据，有效性
有效性条件（允许）
选“自定义”
自定义公式
=countif(商品号,A1)0
确定，即可。
谁会用excel做超市收银系统啊？？？要求要有前台有后台，（表格式的）
你好，我是一编程爱好者。我编写了一个小超市收银系统。可以前台收银，后台利用excel盘点。可以Q上聊。393620749
如何在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 String
Dim UserNum As Integer
Public OpenType As Boolean
Public SumPrice As Single
Private 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 If
End Sub
Private Sub Command2_Click()
MsgBox "合计：" SumPrice "元"
End Sub
Private Sub Form_Load()
Text2.Text = 1
Command1.Caption = "添加"
Command2.Caption = "合计"
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.DisplayAlerts = False
List1.Clear
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象
End Sub
这段代码可以实现你需要的大部分功能了
两个文本框（1个输入条形码，一个输入数量），两个按钮（一个添加，一个合计），一个列表框（列出商品名，数量，单价。。。）
不想做删除物品的，也不想做重复使用的。