白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
楼主: 迦叶拈花

[综合技巧] 手把手教你用EXCEL制作作文纸

  [复制链接]
发表于 2011-12-9 09:59:57 | 显示全部楼层
什么都能做到啊 无所不能
回复 支持 反对

使用道具 举报

发表于 2011-12-9 10:17:58 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2011-12-9 15:52:24 | 显示全部楼层
比较常用EXCEL  觉得比WORD好用 楼主的方法很新颖 学习了 谢谢
回复 支持 反对

使用道具 举报

发表于 2011-12-10 21:56:02 | 显示全部楼层
不错不错,简单实用  
回复 支持 反对

使用道具 举报

发表于 2011-12-11 19:09:03 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2011-12-12 18:01:45 | 显示全部楼层
这么个用法很纠结,怎么不用WORD,简单很多
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-12-12 19:34:09 | 显示全部楼层
office资源网 发表于 2011-12-12 18:01
这么个用法很纠结,怎么不用WORD,简单很多

word有一定的局限性,如果想增加行数、列数,整体上不太好调整,我比较习惯用EXCEL,个人习惯吧,只要能得到想要的,我想任何一种方法都可以接受。
回复 支持 反对

使用道具 举报

发表于 2011-12-12 21:42:17 | 显示全部楼层
非常好用,给女儿做表格不错    谢楼主了
回复 支持 反对

使用道具 举报

发表于 2011-12-13 09:33:04 | 显示全部楼层
在这里学会了,ctrl+G
也回复个代码。
Microsoft Office Excel 2003
本文改编自 MrExcel.com。有关更多窍门和信息,请访问 MrExcel.com 网站(英文)。
有没有一种方法可以在当前行与列中显示临时的色带,以帮助直观地定位活动单元格指针?

下面是针对此问题的一种很好的解决方案。

要点   这种解决方案使用条件格式和 Visual Basic for Applications (VBA),并且会覆盖该工作表中所有已有的条件格式。因此,如果工作表中已经存在条件格式,请不要使用这种方法。

作用:

该代码将以浅黄色突出显示单元格指针指向的当前行与列。
随着您移动到新的单元格,突出显示效果也将随单元格指针一起移动。
如果单元格指针移到已经是黄色的单元格,突出显示效果将改变颜色。

这一效果是使用 Worksheet_SelectionChange 事件处理程序实现的。为此,必须将以下代码粘贴到工作表代码模块中。每次将单元格指针移到新位置,该代码都将删除工作表上的所有条件格式,并随即为当前行与列中的单元格指定一个新的条件格式。

这种方法有两个缺点。首先,正如前面所言,如果已经有条件格式,则该方法不适用。其次,该代码要清除剪贴板,因此当该代码运行时,实际上并不能执行复制和粘贴操作。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer

'// 注意:如果有要保留的条件格式,请不要使用此方法
'// 用户选择多个单元格时使用 On error resume
On Error Resume Next
iColor = Target.Interior.ColorIndex

'// 对于行偏移量错误,保留 On Error ON
If iColor < 0 Then
    iColor = 36
Else
    iColor = iColor + 1
End If

'// 如果字体颜色相同,需要进行此测试
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete

'// 水平方向色带设置
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

'// 垂直方向色带设置
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & _
     Target.Offset(-1, 0).Address)  'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub
此文章对您是否有帮助?
回复 支持 反对

使用道具 举报

发表于 2011-12-13 09:47:50 | 显示全部楼层
真厉害 还有这个功能啊
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

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