今天用VBA(Excel)做了一个通讯录

 昨天有一个同学的手机掉了，导致手机上的电话号码全没了．所以我感到备份手机号码非常有必要性了。因此今天我发了一天的时间用Excel-----VBA做了个通讯录。今晚上就把这些代码公布一下。代码写的比较难看。因为时间比较紧张。代码没有注释。请谅解！软件有图片说明！

====================================================================================

Sub auto_open()
Worksheets("通讯录记录").Activate
Worksheets("通讯录面板").Activate
End Sub
===================================================================================

Private Sub Worksheet_Activate()
     ComboBox2.Clear
     ComboBox2.AddItem "大学同学"
     ComboBox2.AddItem "高中同学"
     ComboBox2.AddItem "同事"
     ComboBox2.AddItem "朋友"
End Sub

Private Sub Worksheet_Deactivate()
     ComboBox2.Clear
     ComboBox2.AddItem "大学同学"
     ComboBox2.AddItem "高中同学"
     ComboBox2.AddItem "同事"
     ComboBox2.AddItem "朋友"
End Sub

Private Sub CommandButton1_Click()
Call 添加通讯录
End Sub
Sub 添加通讯录()
Dim xingming, shouji, gudingdianhua, qq, email, guanxi, shengri, laojia As String
Dim k As Integer
xingming = Trim(TextBox1.Text)
If xingming = "" Then
   MsgBox "姓名不能为空记录，请输入姓名数据！", vbOKOnly, "提醒"
   Exit Sub
End If
shouji = TextBox5.Text
gudingdianhua = TextBox4.Text
qq = TextBox6.Text
email = TextBox2.Text
shengri = TextBox7.Text
laojia = TextBox3.Text
guanxi = ComboBox2.Text
k = tj("通讯录记录")
With Worksheets("通讯录记录")
     .Cells(k, 1).Value = xingming
     .Cells(k, 2).Value = shouji
     .Cells(k, 3).Value = gudingdianhua
     .Cells(k, 4).Value = qq
     .Cells(k, 5).Value = email
     .Cells(k, 6).Value = shengri
     .Cells(k, 7).Value = laojia
     .Cells(k, 8).Value = guanxi
End With
Call 清除数据
End Sub
Function tj(lb) As Integer<