设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 表单控件怎么美化啊

数据透视表40+个常用小技巧，让你一次学会！

123 / 3 页下一页

发新帖

楼主: Shelvee

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

楼主| 发表于 2013-2-23 22:00 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

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

大神，你不要嫌我烦！如果我想把同一类关系自动归类要怎么办呢？

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2013-2-23 22:04 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

同一类的放到一起？那用排序。

回复

使用道具举报

楼主| 发表于 2013-2-23 22:09 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

hwc2ycy 发表于 2013-2-23 22:04
同一类的放到一起？那用排序。

排序需要每次输入号码之后手动操作，有没有什么办法可以新建联系人加到通信录之后，自动就归类啊？

回复

使用道具举报

发表于 2013-2-23 22:22 | 显示全部楼层

本帖最后由 hwc2ycy 于 2013-2-23 22:25 编辑

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

复制代码

回复

使用道具举报

楼主| 发表于 2013-2-23 22:39 | 显示全部楼层

hwc2ycy 发表于 2013-2-23 22:22

好像不行诶。。。

回复

使用道具举报

发表于 2013-2-23 22:46 | 显示全部楼层

我这已经排序了呀。

回复

使用道具举报

楼主| 发表于 2013-2-23 22:49 | 显示全部楼层

hwc2ycy 发表于 2013-2-23 22:46
我这已经排序了呀。

诶？我把这段代码加在aaa里了，难道是加在用户窗体里的么？

回复

使用道具举报

发表于 2013-2-23 22:51 | 显示全部楼层

当然要放窗体里，原来的同名过程删除。

回复

使用道具举报

楼主| 发表于 2013-2-23 22:55 | 显示全部楼层

hwc2ycy 发表于 2013-2-23 22:51
当然要放窗体里，原来的同名过程删除。

{:021:}我还是不行- -

回复

使用道具举报

发表于 2013-2-23 23:01 | 显示全部楼层本楼为最佳答案

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

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

复制代码

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

回复

使用道具举报

123 / 3 页下一页

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-7 07:46 , Processed in 0.345686 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表