输入重复值时提示错误，这段代码到底哪里有问题，求教

深秋红叶2019 · 发表于 2020-2-17 14:05

本想实现当输入重复卡项的时候提示重复不允许录入数据的，却提示错误，不知道哪里有问题：Private Sub CommandButton1_Click()
Dim xrow As Long                   '定义变量xrow，用来保存要输入数据的工作表行号
With Sheet4
      If 卡项名称 = "" Then
      MsgBox "请输入新的卡项！！！", 16, "警告……"
      Exit Sub
      End If
      xrow = Range("A1").CurrentRegion.Rows.Count + 1 '求工作表中第1条空行的行号
      If 卡项名称 And Application.CountIf(Sheet1.[A2:A100], 卡项名称.Value) > 0 Then
      MsgBox "卡项已存在,请新增不重名的卡项！！！", 16, "温馨提示……"
      卡项名称.Value = "": 卡项名称.SetFocus: Exit Sub
End If
   xrow = .[B65536].End(xlUp).Row + 1 '求工作表中第1条空行的行号号
   .Cells(xrow, "B") = 卡项名称.Value
   '将窗体中输入的数据清除，等待下次输入
   卡项名称.Value = ""
  ' .[B1] = "卡项名称" '.Text
   ThisWorkbook.Save
   MsgBox "新增卡项成功！！！", 48, "温馨提示……"
   End With
End Sub

3190496160 · 发表于 2020-2-17 22:12

在这段代码中没看到对卡项名称这个变量的赋值，除非你定义了公共变量

深秋红叶2019 · 发表于 2020-2-17 22:16

3190496160 发表于 2020-2-17 22:12
在这段代码中没看到对卡项名称这个变量的赋值，除非你定义了公共变量

应该怎么解决

SCL5801 · 发表于 2020-2-17 23:18

深秋红叶2019 发表于 2020-2-17 22:16
应该怎么解决

If 卡项名称 And Application.CountIf(Sheet1.[A2:A100], 卡项名称.Value) > 0 Then
改为
If Application.CountIf(Sheet1.[d2:d100], 卡项名称.Value) > 0 Then
试试

SCL5801 · 发表于 2020-2-17 23:24

深秋红叶2019 发表于 2020-2-17 22:16
应该怎么解决

这样对不？

蓝泰美业收银系统.rar (49.65 KB, 下载次数: 0)

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

[求助] 输入重复值时提示错误，这段代码到底哪里有问题，求教

评分

最新热点 /1