昨天有一个同学的手机掉了,导致手机上的电话号码全没了.所以我感到备份手机号码非常有必要性了。因此今天我发了一天的时间用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<