随心所欲定制Excel的输入格式

jsy165

随心所欲定制Excel的输入格式

    　　从事IT行业的人大凡对EXCEL这个办公软件很熟悉，但是在使用它的时候你也会遇到很多的烦恼。其实Excel的问世就是为了让办公自动化，让数据分析简单明了快捷。要享受EXCEL给您带来的这些快感，您就必须熟悉它，掌握它。现在有很多的人在深入地研究EXCEL的高级技术及使用方法，他们的目标就是要更大程度的发挥EXCEL的功用，更淋漓地使EXCEL成为一件办公利器！

　　以下是我在工作中发现和揣摩得到的一些心得与技巧，希望能带给大家一些启发。在使用EXCEL时你首先接触的便是单元格，在单元格里输入字符和数字然后可以调节他们的格式。例如颜色，字体，居中。但是这种设置需要你手动去完成。在工作量较大的时候常常让人觉得无法忍受，尤其是编辑不相邻的多个单元格时更显不便。其实EXCEL中通过编程的方法可以做到定制文本格式甚至可以办到让您随时随地的控制格式。

　　打开工具栏中的visual basic 编辑器，在vbaproject工程中插入类模块（系统默认名称为类1），在此类模块中写入如下代码：

　　Public WithEvents aaa As Worksheet

　　Public Sub aaa_selectionchange(ByVal target As Range)

　　target.Cells.Font.ColorIndex = 3

　　End Sub

接着在vbaproject工程中插入一个模块，在此模块中写入如下代码：

　　Dim tt As 类1

　　Sub changecolor()

　　Set tt = New 类1

　　Set tt.aaa = ActiveSheet

　　End Sub

　　Sub endchangecolor()

　　Set tt = Nothing

　　End Sub

　　之后你会在工具栏里找到两个分别为changecolor和endchangecolor的宏。

　　这样就完成了。当你想让格式成为你所想的那样的时候， 你可以运行名为changecolor的宏。这样之后你在任意单元格里输入的字符总是红色的。

　　而如果你要结束这种设定时你可以运行名为endchangecolor的宏来回复到正常状态。

　　怎么样？很神奇吧？我这里给出的只是一个简单的雏形，稍加变通后可以实现很复杂的格式设定。希望能给你的工作带来便利！





作者：不详