表二的窗体通过删除按钮为什么删不了表一的内容

深秋红叶2019

窗体在表二，通过删除记录按钮为什么删不了表一的数据，但是如果学员查询停在表一就可以把数据删掉，这段代码哪里的问题，求老师指正，谢谢

Private Sub CommandButton8_Click() '删除记录
Dim xrow As Long   这个指定删除表一的代码似乎没有用
    With Sheet1
If Len(店名) = 0 Then
MsgBox "内容为空，删除学员信息失败！！！", 16, "温馨提示……": Exit Sub
End If
If MsgBox("是否真的要删除该学员信息？", vbQuestion + vbYesNo, "删除学员") = vbYes Then
    Dim j
   Application.ScreenUpdating = False
   xrow = Range("A2").CurrentRegion.Rows.Count + 1
   For j = Cells(Rows.Count, 2).End(3).Row To 3 Step -1
       If Cells(j, 1) = 学员电话.Text Then
           If Val(姓名.Text) = Val(Cells(j, 2)) And (性别.Text) = (Cells(j, 3)) And (区域.Text) = (Cells(j, 4)) And Val(店名.Text) = Val(Cells(j, 5)) And (卡项名称.Text) = (Cells(j, 6)) And Val(卡号.Text) = Val(Cells(j, 7)) And Val(老板电话.Text) = Val(Cells(j, 8)) And Val(激活日期.Text) = Val(Cells(j, 9)) And Val(到期日期.Text) = Val(Cells(j, 10)) Then
               Rows(j).Delete
           End If
       End If
   Next j
   Application.ScreenUpdating = True
学员电话.Value = ""
姓名.Value = ""
性别.Value = ""
区域.Value = ""
店名.Value = ""
卡项名称.Value = ""
卡号.Value = ""
老板电话.Value = ""
激活日期.Value = ""
到期日期.Value = ""
UserForm7.学员电话.Enabled = True
UserForm7.姓名.Enabled = True
UserForm7.性别.Enabled = True
UserForm7.区域.Enabled = True
UserForm7.店名.Enabled = True
UserForm7.卡项名称.Enabled = True
UserForm7.卡号.Enabled = True
UserForm7.老板电话.Enabled = True
UserForm7.激活日期.Enabled = True
UserForm7.到期日期.Enabled = True
MsgBox "删除学员成功！！！", 48, "温馨提示……"
End If
'学员电话.Text = ""
'姓名.Text = ""
'性别.Text = ""
'区域.Text = ""
'店名.Text = ""
'卡项名称.Text = ""
'卡号.Text = ""
'老板电话.Text = ""
'激活日期.Text = ""
'到期日期.Text = ""
End With
End Sub

liulang0808

Rows(j).Delete 是针对activesheet
sheets("表1". Rows(j).Delete测试看看

基础不牢地动山摇。。。

深秋红叶2019

liulang0808 发表于 2020-3-11 21:31
Rows(j).Delete 是针对activesheet
sheets("表1". Rows(j).Delete测试看看

老师sheets("表1". Rows(j).Delete是不是少了一个括号啊，代码是红色字体，然后我加了个括号，sheets("学员信息建档"）. Rows(j).Delete就不会了，但是还是没用
Private Sub CommandButton8_Click() '删除记录
Dim xrow As Long
    With Sheet1
If Len(店名) = 0 Then
MsgBox "内容为空，删除学员信息失败！！！", 16, "温馨提示……": Exit Sub
End If
If MsgBox("是否真的要删除该学员信息？", vbQuestion + vbYesNo, "删除学员") = vbYes Then
    Dim j
   Application.ScreenUpdating = False
   xrow = Range("A2").CurrentRegion.Rows.Count + 1
   For j = Cells(Rows.Count, 2).End(3).Row To 3 Step -1
       If Cells(j, 1) = 学员电话.Text Then
           If Val(姓名.Text) = Val(Cells(j, 2)) And (性别.Text) = (Cells(j, 3)) And (区域.Text) = (Cells(j, 4)) And Val(店名.Text) = Val(Cells(j, 5)) And (卡项名称.Text) = (Cells(j, 6)) And Val(卡号.Text) = Val(Cells(j, 7)) And Val(老板电话.Text) = Val(Cells(j, 8)) And Val(激活日期.Text) = Val(Cells(j, 9)) And Val(到期日期.Text) = Val(Cells(j, 10)) Then
               Sheets("学员信息建档").Rows(j).Delete
           End If
       End If
   Next j
   Application.ScreenUpdating = True

liulang0808

深秋红叶2019 发表于 2020-3-11 22:02
老师sheets("表1". Rows(j).Delete是不是少了一个括号啊，代码是红色字体，然后我加了个括号，sheets("学 ...

楼主要考虑下，判断条件等等部分是不是也需要带表名的？

深秋红叶2019

liulang0808 发表于 2020-3-12 07:41
楼主要考虑下，判断条件等等部分是不是也需要带表名的？

老师，不知道是不是这样改，也没有反应，请老师指点
Private Sub CommandButton8_Click() '删除记录
Dim xrow As Long
    With Sheet1
If Len(店名) = 0 Then
MsgBox "内容为空，删除学员信息失败！！！", 16, "温馨提示……": Exit Sub
End If
If MsgBox("是否真的要删除该学员信息？", vbQuestion + vbYesNo, "删除学员") = vbYes Then
    Dim j
   Application.ScreenUpdating = False
   xrow = Sheets("学员信息建档").Range("A2").CurrentRegion.Rows.Count + 1
   For j = Cells(Rows.Count, 2).End(3).Row To 3 Step -1
       If Cells(j, 1) = 学员电话.Text Then
           If Val(姓名.Text) = Val(Cells(j, 2)) And (性别.Text) = (Cells(j, 3)) And (区域.Text) = (Cells(j, 4)) And Val(店名.Text) = Val(Cells(j, 5)) And (卡项名称.Text) = (Cells(j, 6)) And Val(卡号.Text) = Val(Cells(j, 7)) And Val(老板电话.Text) = Val(Cells(j, 8)) And Val(激活日期.Text) = Val(Cells(j, 9)) And Val(到期日期.Text) = Val(Cells(j, 10)) Then
               Sheets("学员信息建档").Rows(j).Delete
           End If
       End If
   Next j
   Application.ScreenUpdating = True
学员电话.Value = ""
姓名.Value = ""
性别.Value = ""
区域.Value = ""
店名.Value = ""
卡项名称.Value = ""
卡号.Value = ""
老板电话.Value = ""
激活日期.Value = ""
到期日期.Value = ""
UserForm7.学员电话.Enabled = True
UserForm7.姓名.Enabled = True
UserForm7.性别.Enabled = True
UserForm7.区域.Enabled = True
UserForm7.店名.Enabled = True
UserForm7.卡项名称.Enabled = True
UserForm7.卡号.Enabled = True
UserForm7.老板电话.Enabled = True
UserForm7.激活日期.Enabled = True
UserForm7.到期日期.Enabled = True
MsgBox "删除学员成功！！！", 48, "温馨提示……"
End If
'学员电话.Text = ""
'姓名.Text = ""
'性别.Text = ""
'区域.Text = ""
'店名.Text = ""
'卡项名称.Text = ""
'卡号.Text = ""
'老板电话.Text = ""
'激活日期.Text = ""
'到期日期.Text = ""
End With
End Sub

网海遨游

以下涉及单元格cells都要带表名或者不带表名，但在引用或循环前，先激活要引用的表。如：sheets("你的表").activate
For j = Cells(Rows.Count, 2).End(3).Row To 3 Step -1
       If Cells(j, 1) = 学员电话.Text Then
           If Val(姓名.Text) = Val(Cells(j, 2)) And (性别.Text) = (Cells(j, 3)) And (区域.Text) = (Cells(j, 4)) And Val(店名.Text) = Val(Cells(j, 5)) And (卡项名称.Text) = (Cells(j, 6)) And Val(卡号.Text) = Val(Cells(j, 7)) And Val(老板电话.Text) = Val(Cells(j, 8)) And Val(激活日期.Text) = Val(Cells(j, 9)) And Val(到期日期.Text) = Val(Cells(j, 10)) Then

深秋红叶2019

网海遨游 发表于 2020-3-12 09:17
以下涉及单元格cells都要带表名或者不带表名，但在引用或循环前，先激活要引用的表。如：sheets("你的表"). ...

老师改完后是这样的就弹出如图错误，然后我把学员信息建档的Private Sub Worksheet_Deactivate()     UserForm1.Hide  '.Hide
End Sub删掉了，但是点击删除按钮的时候就自动跳到了学员信息建档表，这样的话我又要重新点回表二看我的报名登记情况，我想要的效果是窗体仍然停在报名登记表界面也可以删掉学员的建档信息，应该怎么改呢
Private Sub CommandButton8_Click() '删除记录Dim xrow As Long                     '定义变量xrow，用来保存要输入数据的工作表行号
With Sheet1
If Len(店名) = 0 Then
MsgBox "内容为空，删除学员信息失败！！！", 16, "温馨提示……": Exit Sub
End If
If MsgBox("是否真的要删除该学员信息？", vbQuestion + vbYesNo, "删除学员") = vbYes Then
    Dim j
   Application.ScreenUpdating = False
   xrow = Range("A2").CurrentRegion.Rows.Count + 1
   Sheets("学员信息建档").Activate
   For j = Cells(Rows.Count, 2).End(3).Row To 3 Step -1
       If Cells(j, 1) = 学员电话.Text Then
           If Val(姓名.Text) = Val(Cells(j, 2)) And (性别.Text) = (Cells(j, 3)) And (区域.Text) = (Cells(j, 4)) And Val(店名.Text) = Val(Cells(j, 5)) And (卡项名称.Text) = (Cells(j, 6)) And Val(卡号.Text) = Val(Cells(j, 7)) And Val(老板电话.Text) = Val(Cells(j, 8)) And Val(激活日期.Text) = Val(Cells(j, 9)) And Val(到期日期.Text) = Val(Cells(j, 10)) Then
               Sheets("学员信息建档").Rows(j).Delete
           End If
       End If
   Next j
   Application.ScreenUpdating = True
学员电话.Value = ""
姓名.Value = ""
性别.Value = ""
区域.Value = ""
店名.Value = ""
卡项名称.Value = ""
卡号.Value = ""
老板电话.Value = ""
激活日期.Value = ""
到期日期.Value = ""
UserForm7.学员电话.Enabled = True
UserForm7.姓名.Enabled = True
UserForm7.性别.Enabled = True
UserForm7.区域.Enabled = True
UserForm7.店名.Enabled = True
UserForm7.卡项名称.Enabled = True
UserForm7.卡号.Enabled = True
UserForm7.老板电话.Enabled = True
UserForm7.激活日期.Enabled = True
UserForm7.到期日期.Enabled = True
MsgBox "删除学员成功！！！", 48, "温馨提示……"
End If
'学员电话.Text = ""
'姓名.Text = ""
'性别.Text = ""
'区域.Text = ""
'店名.Text = ""
'卡项名称.Text = ""
'卡号.Text = ""
'老板电话.Text = ""
'激活日期.Text = ""
'到期日期.Text = ""
End With
End Sub

网海遨游

想看哪个表，就在适当位置再激活它。不过这样不断激活会导致工作表不停切换。

不想这样就
方法一：利用
WITH  表名'cells前加.

..........
end with
方法二：cells前逐个加工作表名。

深秋红叶2019

网海遨游 发表于 2020-3-12 10:24
想看哪个表，就在适当位置再激活它。不过这样不断激活会导致工作表不停切换。

不想这样就

可以了，谢谢老师