这个保存修改按钮和删除记录按钮代码怎么写

深秋红叶2019

网上找了一些代码试过都失败了，再次求大师帮帮忙，保存修改按钮代码，还有就是删除记录按钮代码，就是说吧上一条记录好下一条记录的信息删除记录，是删除整行，然后工作表数据自动上移，意思是删除内容后不要有空行存在，谢谢老师了

一指禅62

楼主学习很勤奋，钦佩！

提一句建议，供参考：循序渐进很重要。

深秋红叶2019

一指禅62 发表于 2020-2-26 10:06
楼主学习很勤奋，钦佩！

提一句建议，供参考：循序渐进很重要。

谈不上学习，顶多就是代码搬运而已，之前有老师给了条件查询后的修改代码，这个没有估计这个没有条件，所以出现错误了，不知老师可否帮写一下，深表谢意

liulang0808

深秋红叶2019 发表于 2020-2-26 10:26
谈不上学习，顶多就是代码搬运而已，之前有老师给了条件查询后的修改代码，这个没有估计这个没有条件，所 ...

用论坛里大神的一句话：基础不牢，地动山摇
拼凑起来的代码很“危险”

liulang0808

删除的，看看是否合适吧

microyip

进展不错，估计下一步就开始搞统计查询了

深秋红叶2019

microyip 发表于 2020-2-29 00:21
进展不错，估计下一步就开始搞统计查询了

统计查询是啥功能

林越洋

删除记录代码如下

1. 
   
2. Private Sub CommandButton10_Click()
   
3. 
   
4. With Sheet3
   
5.     .Rows(Rnumber).Delete Shift:=xlUp
   
6. End With
   
7. End Sub

复制代码

保存修改代码如下

1. Private Sub CommandButton9_Click() '修改
   
2. '
   
3. '     Sheet1.Range("B" & hh) = Me.学员电话
   
4. '     Sheet1.Range("J" & hh) = Me.课程名称
   
5. '     Sheet1.Range("K" & hh) = Me.实缴学费
   
6. '     Sheet1.Range("L" & hh) = Me.返学费
   
7. '
   
8. ''     Unload Me
   
9. '
   
10. 
    
11. With Sheet1.Rows(Rnumber)
    
12.     .Resize(, 2).Value = Array(Date & " " & Time, Me.学员电话)
    
13.     .Columns(10).Resize(, 3) = Array(Me.课程名称, Me.实缴学费, Me.返学费)
    
14. End With
    
15. 
    
16. 
    
17. MsgBox "修改报名信息成功！！！", 48, "温馨提示……"
    
18. End Sub

复制代码

深秋红叶2019

liulang0808 发表于 2020-2-26 15:19
删除的，看看是否合适吧

老师，没有反应
Private Sub CommandButon10_Click() '删除记录
Dim j
Application.ScreenUpdating = False
For j = Cells(Rows.Count, 2).End(3).Row To 7 Step -1
    If Cells(j, 2) & "" = 学员电话.Text Then
    If 课程名称.Text = Cells(j, 10) And Val(实缴学费.Text) = Val(Cells(j, 11)) And 返学费.Text = (Cells(j, 12)) Then
       Rows(j).Delete
    End If
End If
Next j
Application.ScreenUpdating = True
End Sub

liulang0808

深秋红叶2019 发表于 2020-3-8 15:16
老师，没有反应
Private Sub CommandButon10_Click() '删除记录
Dim j

楼主的代码跟上面有出入吧？