打造EH社区最实用的开源通讯簿(附件已上传)

walker64 · 发表于 2009-4-16 16:34

谢谢给一份，wk64@163.com

附件运行有误，“找不到工程或库”， For i = 1 To UBound(strTitle).....

sbwxfai · 发表于 2009-4-19 23:20

楼主，我这里测试有错啊，能否发一份无错版给我，谢谢ward@igolfyou.cn

kk8558 · 发表于 2009-4-29 10:41

就是，运行有误，“找不到工程或库”，
怎么回事呢？？？？？

ATXDKN · 发表于 2009-5-1 22:23

真不错，正是我想要的，谢谢了。劳驾给我发一份ATXDKN·126.com。谢谢了

7086 · 发表于 2009-6-18 23:24

请发一份给我lyongxing@21cn.com
我正想把自己的电话本整理一下，能不能专门设置单位各部门的电话记录本？

stupidyank · 发表于 2009-6-19 00:32

楼主我要~~~ bo 一个 yjg.lqy@163.com

rophy0952 · 发表于 2009-6-19 17:27

真是不错,谢谢楼主!

rophy0952 · 发表于 2009-6-20 16:43

当我在选择查看某项信息时,出现"运行时错误'13'，类型不匹配"

但看代码，可能是这里的问题，可否帮忙看一下？ Call DisplayInfo(UserForm1.ListView1.ListItems(Item.Index))

375268527 · 发表于 2009-6-20 23:03

j

原帖由 walker64 于 2009-4-16 16:34 发表
谢谢给一份，wk64@163.com

附件运行有误，“找不到工程或库”， For i = 1 To UBound(strTitle).....

可以传一个修改过的给我吗/? 我的邮箱： jy_52088@126.com

niejunsong · 发表于 2009-6-21 01:12

我打开时出错了麻烦指教：
Sub main()
  Dim icol As Integer
  Call LoadData

  icol = ThisWorkbook.Sheets("联系人").[Z2].End(xlToLeft).Column
  ReDim strTitle(1 To icol)
  ReDim dMaxLenth(1 To 2, 1 To icol) '分别储存工作表自动列宽和工作表每列的最大字符宽度
  With ThisWorkbook.Sheets("联系人")
  For i = 1 To UBound(strTitle)
strTitle(i) = .Cells(2, i)
With Sheets("联系人").Columns(i)
   .AutoFit
   dMaxLenth(1, i) = .Width
End With
  Next i
  End With

  UserForm1.Show 0

End Sub

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

[分享] 打造EH社区最实用的开源通讯簿(附件已上传)