能够运行，可代码找不见了（我抄写的代码）

同城一个兵

请教各位高手，我原来在一本书上学习写的代码，可现在Excel VBA里为什么代码不见啦，书名也忘了？咋回事啊？谁知道为什么？我也没在别的地方备份啊。帮我找出原来的代码，万分感谢啊。

湘南游侠

点击窗体查看代码

1. 
   
2. Private Sub 保存_Click()
   
3.     If 姓名.Value = "" Or 电话.Value = "" Or 单位.Value = "" Then
   
4.     MsgBox "信息输入不完整，请重新输入", vbExclamation, "错误提示"
   
5.     Exit Sub
   
6. End If
   
7. Dim xrow As Integer
   
8. xrow = Range("a1").CurrentRegion.Rows.Count + 1
   
9. Cells(xrow, "A") = 姓名.Value
   
10. Cells(xrow, "B") = 电话.Value
    
11. Cells(xrow, "C") = 单位.Value
    
12. Cells(xrow, "D") = 备注.Value
    
13. 
    
14. 姓名.Value = ""
    
15. 电话.Value = ""
    
16. 单位.Value = ""
    
17. 备注.Value = ""
    
18. End Sub
    
19. 
    
20. Private Sub 退出_Click()
    
21.     Unload Me
    
22. End Sub
    

复制代码

同城一个兵

湘南游侠 发表于 2018-7-27 01:57
点击窗体查看代码

谢谢，谢谢高手

同城一个兵

湘南游侠 发表于 2018-7-27 01:57
点击窗体查看代码

再次谢谢“湘南游侠”热心相助。

ghoob

alt+f11

Private Sub 保存_Click()
    If 姓名.Value = "" Or 电话.Value = "" Or 单位.Value = "" Then
    MsgBox "信息输入不完整，请重新输入", vbExclamation, "错误提示"
    Exit Sub
End If
Dim xrow As Integer
xrow = Range("a1").CurrentRegion.Rows.Count + 1
Cells(xrow, "A") = 姓名.Value
Cells(xrow, "B") = 电话.Value
Cells(xrow, "C") = 单位.Value
Cells(xrow, "D") = 备注.Value

姓名.Value = ""
电话.Value = ""
单位.Value = ""
备注.Value = ""
End Sub

Private Sub 退出_Click()
    Unload Me
End Sub

同城一个兵

谢谢“这真是极好的”