新作的电话簿

xiquan · 发表于 2017-4-1 12:10

厉害

学良 · 发表于 2017-4-2 11:30

谢谢！

丹烟☆远方 · 发表于 2017-4-11 11:19

厉害了，我的哥

pjkyo · 发表于 2017-4-11 15:17

你好，学良老师。谢谢你的作品，我在学习你的作品中删除数据时出现“类Rands的Delete方法无效”，经过调试发现是工作表保护的原因导致，是否需要加上解除保护？

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  '双击窗口删除
If MsgBox("是否要删除?", vbYesNo, "删除") = vbNo Then Exit Sub
Dim H As Integer
H = ListBox1.ListIndex + 4    '返回在ListBox所选的行数
ActiveSheet.Unprotect  ‘解除保护
Sheet1.Rows(H).Delete
ActiveSheet.Protect ’保护工作表
jiaz
End Sub

286662107 · 发表于 2017-9-14 15:03

太厉害了，好好使用，好好学习

ai饭团8 · 发表于 2017-9-14 15:48

厉害啦，向学良学习

33528582 · 发表于 2017-9-14 15:57

老师你这表做得这么漂亮，都怎么做的啊太赞赞赞了

松永 · 发表于 2017-9-29 09:54

学良发表于 2014-9-1 10:41
应大家要求, 增加了,查询时显示照片功能;
多项模糊查询与修改, 分页模糊查询等功能.

学良老师，您好。我下载的这个新的能显示照片的电话簿怎么说宏有问题？多谢

suzie928 · 发表于 2017-9-29 10:40

感谢分享，受益良多

1249994139 · 发表于 2017-9-29 10:44

感谢老师的分享，谢谢！

		自动登录	找回密码
密码			免费注册

[分享] 新作的电话簿