[已解决]表单控件怎么美化啊

Shelvee

如题。。。。。。。。。。。。。。。。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-23 23:01

1. Private Sub 写入表格(ByVal lastrow As Long)
   
2.     Dim i&
   
3.     Application.ScreenUpdating = False
   
4.     With Worksheets("通信录")
   
5.         .Cells(lastrow, 1) = 姓名.Text
   
6.         .Cells(lastrow, 2) = IIf(男.Value, "男", "女")
   
7.         .Cells(lastrow, 3) = 关系.Text
   
8.         .Cells(lastrow, 4) = 联系方式.Text
   
9.         .Cells(lastrow, 5) = 邮编.Text
   
10.         .Cells(lastrow, 6) = 家庭住址.Text
    
11.         i = .Cells(Rows.Count, 1).End(xlUp).Row
    
12.         If i < 2 Then Exit Sub
    
13.         With .Sort
    
14.             .SortFields.Clear
    
15.             .SortFields.Add Key:=Range("C2:C" & i), _
    
16.                             SortOn:=xlSortOnValues, Order:=xlAscending
    
17.             .SetRange Range("A1:F" & i)
    
18.             .Header = xlYes
    
19.             .Apply
    
20.         End With
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23. End Sub

复制代码

判断写错了。给你的是后来又改了就没测了，

跳转到最佳答案楼层

hwc2ycy

通讯录.rar (25.46 KB, 下载次数: 27)

2013-2-23 21:29 上传

点击文件名下载附件

Shelvee

hwc2ycy 发表于 2013-2-23 21:29

大神，解压失败打不开啊！！

hwc2ycy

通讯录.rar (42.59 KB, 下载次数: 30)

2013-2-23 21:33 上传

点击文件名下载附件

Shelvee

hwc2ycy 发表于 2013-2-23 21:33

T T 还是不行。。。

hwc2ycy

我这打开都没问题呀。

hwc2ycy

你直接接别存为到别一个盘里试试吧。这种现象我以前也有碰到过。

Shelvee

hwc2ycy 发表于 2013-2-23 21:37
你直接接别存为到别一个盘里试试吧。这种现象我以前也有碰到过。

T T每个盘都试过了。。。不行。。
大神可不可以发我邮箱啊？

hwc2ycy

发了。你下吧。

Shelvee

hwc2ycy 发表于 2013-2-23 21:44
发了。你下吧。

成功了！！真是太感谢了！~~