l表格技巧.doc

用格式和函数实现Excel表格自动隔行着色 我们在Excel中浏览一个非常大的工作簿中的数据时，有时会出现看错行的现象发生。如果能隔行填充上不同的颜色，这种现象就应该不会发生了。我们利用条件格式和函数来实现这一需求。 步骤/方法11、启动Excel，打开相应的工作簿文档。22.选中数据区域(或用Ctrl+A组合键选中整个工作表)。33.执行“格式条件格式”命令，打开“条件格式”对话框(如图1)。图1 条件格式对话框1. 44.单击“条件1”下面左侧方框右边的下拉按钮，在随后出现的下拉列表中，选择“公式”选项，并在右侧的方框中输入公式：=MOD(ROW(),2)=0。55.单击其中的“格式”按钮，打开“单元格格式”对话框(如图2)。图2 单元格格式66.切换到“图案”标签下，选中一种颜色，确定返回到“条件格式”对话框，按下“确定”按钮退出。77.隔行填充不同颜色的效果得以实现(如图3)。图3 实现的效果Excel 中输入时弹出日期选择控件1. 插入日期控件 . 打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。. 点击控件工具栏中的其他控件，选择(Microsoft Date and Time Picker Control，version 6.0)控件。. 在工作表内需要填写日期的单元格中画出日期控件图标，调整大小与单元格一致。2. 编辑代码 点击控件工具栏中的查看代码，进入代码编辑页面，编辑如下代码（将原有的代码删除）：Option ExplicitPrivate Sub DTPicker1_Change() ActiveCell.Value = DTPicker1.Value DTPicker1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.DTPicker1 If Target.Column = 1 And Target.Count = 1 Then .Visible = True .Width = Target.Width + 15 .Left = Target.Left .Top = Target.Top .Height = Target.Height Else .Visible = False End If End WithEnd Sub【提示】：上列代码中，红色的1表示该控件作用于工作表中第一列，如需调整，直接修改为相应的列数即可；如果需要将该控件作用于某一行，则把代码中Target.Column改为Target.Row即可 或者如果想指定行或者列则可用Targer.Column And Target.Row 动态决定了。 关闭代码编辑页面返回工作表，点击控件工具栏中的属性，进入属性编辑页面，调整CheckBox属性为True。 关闭属性编辑页面返回工作表，点击控件工具栏中的退出设计模式，退出控件设计模式。 点击日期控件图标，弹出活动日历，选择需要编辑的日期。至此，工作表中该列所有单元格均能这样快速方便的输入日期了，你可以对该列调整单元格格式以满足自己的需要，调整单元格格式我就不在这里累赘了。当然，工作表第一行中你可能需要输入标题、表头等内容，你发现该列中除了日期，其他任何内容都无法输入是不是？那你注意到日期控件图标最左边的勾选框了吗？点击勾选框去掉小勾，图标变成灰色，这样该单元格就可以输入其他内容了。OK选择日期Excel日历控件将日期插入到指定单. 方法/步骤1请跟随如下操作；在EXCEL窗口中执行“视图”“工具栏”“控件工具箱”；弹出如下图对话框；按上图的操作，找到“日历控件11.0”，之后在EXCEL窗口中使用鼠标左键一拖，拖出如下图的控件；1. 3上图，我们要实现的结果是：在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期之后，日期自动插入到单元格；除C列之外，点击其他列的单元格，不会弹出日历选择控件；要想实现这样的效果，得使用VBA来实现；选择日历控件，鼠标左键双击，进入代码编辑模式；如下图！上图中，第一个过程代码就是日历控件所需要的代码，另外，还得需要另外一个代码，在图中按红线圈住部分选择，找到对应的过程，输入如下的VBA代码即可！完成之后，直接运行VBA代码，返回EXCEL操作窗口，即可实现效果了！如上图，C3单元格已插入了日期，当你选择C列其他单元格时，就弹出日历控件，以供选择，选择完成，即可插入日期了！为方便操作，提供源代码：Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub怎样把txt转换成excel用记事本打开该TXT文件，编辑，替换。查找内容填|（不包括引号），替换为填,（即为一个英文逗号）。全部替换，这样，就把所有的|替换为了英文逗号。文件，另存为，保存类型选“所有文件”，文件名取为xxxxx.csv。最好直接保存在桌面上。到桌面，找到刚才保存的xxxxx.csv文件，双击打开即可。说起来复杂，其实就是把分隔改成逗号，再把后缀改为csv，什么是csv文件，就是EXCEL逗号分隔文件。execl中的下拉列表怎么弄的选中某一列-数据-数据有效性-设置-允许里面选择“序列”，同时来源框里输入下拉框中的你想选的文字：是,否（逗号一定要要英文键盘下输入，中文不可以） 这样，你此列的每一个单元格都会有下拉框了。excel中实现日期选择输入（日历控件）推荐第一种方法：首先这个控件需要一个名为MSCOMCT2.OCX的控件文件,这个文件大家先在电脑里搜索一下,如果没有的话就求助baidu喽.下载下来后把它复制到c:windowssystem32里.最后就在开始-运行里注册MSCOMCT2.OCX控件.那么如何注册呢,方法很简单输入regsvr32 MSCOMCT2.OCX就ok拉这时打开excel控件工具箱点击其它控件找到Microsoft Date and Time Picker Control 6.0,这个东东就是我们要的日期控件拉第二种方法：MSCAL.OCXPrivate Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)此处的6和7为你要显示日历的列序号If Target.Column = 6 Or Target.Column = 7 Then Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.Top If Target.Value Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now() End If Me.Calendar1.Visible = True Else Me.Calendar1.Visible = FalseEnd IfEnd SubPrivate Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)此处的1为你要显示日历的列序号If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 And Target.Column = 1 Then Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.Top If Target.Value Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now() End If Me.Calendar1.Visible = True Else Me.Calendar1.Visible = FalseEnd IfEnd SubMscomct2.zipMSCAL.rar在EXCEL中实现点击日历输入日期技巧 2010-07-07 10:37:58 阅读435 评论0 字号：大中小订阅 1、在某一单元格中插入日历控件（1）选中要插入日历控件的单元格，设置单元格格式为日期型；（2）点击工具栏，“插入对象日历控件”，（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。Private Sub Calendar1_Click()ActiveCell = Calendar1Calendar1.Visible = Falsea2.SelectEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = $A$1 Then Calendar1.Visible = TrueEnd Sub2、某一列全部设置为插入日历控件。例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub完成后，运行VBA代码，返回Excel操作窗口，即可实现。另1:日历控件的使用方法 1、打开excel文件，以对sheet1的操作为例：点中要插入日期的单元格，工具栏插入对象选 日期空间11.0 确定。2、工具栏工具宏Visual Basic 编辑器在 通用加入如下代码:Private Sub Calendar1_Click() ActiveCell = Format(Calendar1.Value, yyyy-mm-dd) 设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成 Calendar1.Visible = False 单击日历控件后隐藏之End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 ThenD列为日期输入列 Calendar1.Left = Target.Left + Target.Width 设置日历控件弹出后的位置 Calendar1.Top = Target.Top + Target.Height 同上 Calendar1.Value = Date 设置默认日期为系统日期 Calendar1.Visible = True 使日历控件可见 ElseIf Target.Column = 5 Then E列为日期输入列 Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Value = Date Calendar1.Visible = True ElseIf Target.Column = 6 Then F列为日期输入列 Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Value = Date Calendar1.Visible = True Else Calendar1.Visible = False 单击其他列时隐藏日历控件 End IfEnd Sub保存。3、设计好后，还可以对日期列进行“设置单元格格式”4、不足之处a、要实用该宏，首先要在EXCEL工具宏安全性选中（在打开文件的时候允许宏）或低，才可以使用该日期控件；b、在使用宏控件的时候，excel中鼠标右键的粘贴功能将失效，需要借助 EXCEL编辑office剪贴板的功能才能完成单元格复制粘贴的功能；c、也可以在打开文件的时候禁用宏，这样就可以正常使用粘贴功能了。另2:在EXCEL窗口中执行“视图”“工具栏”“控件工具箱”；弹出如下图对话框；按上图的操作，找到“日历控件11.0”，之后在EXCEL窗口中使用鼠标左键一拖，拖出如下图的控件；上图，我们要实现的结果是：在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期之后，日期自动插入到单元格；除C列之外，点击其他列的单元格，不会弹出日历选择控件；要想实现这样的效果，得使用VBA来实现；选择日历控件，鼠标左键双击，进入代码编辑模式；如下图！上图中，第一个过程代码就是日历控件所需要的代码，另外，还得需要另外一个代码，在图中按红线圈住部分选择，找到对应的过程，输入如下的VBA代码即可！完成之后，直接运行VBA代码，返回EXCEL操作窗口，即可实现效果了！如上图，C3单元格已插入了日期，当你选择C列其他单元格时，就弹出日历控件，以供选择，选择完成，即可插入日期了！为方便操作，提供源代码：Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub知识扩展：执行上述代码时，可能会遇到创建宏的提示，随便输入宏名，再运行即可！可以将上述的代码及EXCEL文件一起保持，以备不时之需，以后你再需要到这种功能，直接打开EXCEL文件即可！打开EXCEL文件，运行原来的宏，有可能出现“宏”被禁止运行的提示，解决的方法如下：在EXCEL操作中执行“工具”“宏”“安全性”；弹出如下的对话框；上图中，选择“安全级”选项卡，将安全设置为“中”即可！之后关闭EXCEL，再打开，就能运行了！ 这个很简单啊，因为你这台电脑没有安装日历控件。下一个或者拷贝一个注册就行了1. 下载或者拷贝日历控件12.0，或者日历控件11.0等等下载地址： MSCAL.rar (50.41 KB) 从别的电脑拷贝：路径如下C:Program FilesMicrosoft OfficeOFFICE11MSCAL.OCX或者C:Program FilesMicrosoft OfficeOFFICE12MSCAL.OCX2. 拷贝该控件到没有安装的电脑C:WINDOWSsystem32目录下3.在开始菜单“运行”中输入 regsvr32 mscal.ocx 回车即可注册成功这在命令行界面下输入同样的语句效果是一样的。 下载地址：/thread-4310-1-1.htmlExcel2007使用日历控件 2013-04-10 16:03:58| 分类： 计算机应用 | 标签： |字号大中小 订阅 Excel 2007中，日历控件使用 今天做Excel表格的时候，在表格中需要嵌入日历丰富表格的内容。本文档指导在Excel 2007中启用日历控件，并在指定列中弹出日历选择框的步骤。1. 先需下载并注册安装Excel 2007的日期控件文件MSCAL.OCX。在Microsoft网站或internet上下载日历控件文件MSCAL.OCX（不同版本Office有不同的日历控件文件），保存到C:WindowsSystem32文件夹中，打开CMD窗口，输入命令“Regsvr32 msc