《Excel实用技巧88招.docVIP

Excel实用技巧88招 1、如何更改excel默认的行列标签的颜色？ 桌面-属性-外观-项目-高级_已选定的项目，设置颜色。 2、系统提供的排序功能最多只能同时依据三个关键字来进行。如果需要依据三个以上的条件来排序，该如何实现？ 虽然系统一次最多只能同时对三个关键字来排序，但是我们可以利用设置排序关键字的优先级，通过多次排序来实现关键字大于3个以上的排序。具体操作如下：首先打开工作表。单击“数据”菜单中的“排序”项，依次在“主要关键字”、“次要关键字”、“第三关键字”中选择优先级最低的几个排序关键字，然后执行排序操作。接下来再依次选择优先级较高的几个关键字，进行2次排序。这样直到最高优先级的关键字排序完成为止，就可以实现了对三个以上关键字的排序操作了。 3、若A1-A6中有大于0和小于0的数，请问怎样将其中小于0的数所在的行自动删除。 for i=6 to 1 step -1 if cells(i,1)0 then rows(i).Delete next i 4、请问：INDEX（data，，1）中的data是什么意思是定义的名称，具体是什么要看文件。按ctrl+F3看看。 5、快速插入行(列)的快捷键，CTrl+键盘+ 6、【选择性粘贴】里的【跳过空单元】到底有什么用啊? 跳过空格是指: 跳过剪切板上的空格,只复制,并保持他们的位置,粘贴到其他地方. 而不是指被粘贴的单元格. 这个功能非常有用，可以防止空白单元格替换原来的数据 7、如何获取一个月的最大天数？ =DAY(DATE(2002,3,1)-1)或=DAY(B1-1),B1为2001-03-01 8、数据区包含某一字符的项的总和,该用什么公式? =sumif(a:a,*某一字符*,数据区) 9、能否在EXCEL中定时打印? Private Sub Workbook_Open() Application.OnTime 9:30:00, wlqPrint 将9:30:00改为要自动打印的时间 End Sub Sub wlqPrint() 打印 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub 10、比方说要求得g在图示区域中所在列号，如何表达？数组公式，按ctrl+shift+enter结束。 =MAX((A1:F4=g)*COLUMN(A1:F4)) ------------------------------------------------------------------------------- 11、勾怎么输入 按住ALT键输入41420后放开ALT键√ 12、将单元格中的数全部变成万元表示（？？？） 自定义单元格格式：0.0, 或：0!.0000 13、自定义名称中的引用范围中可以直接粘贴公式 从编辑栏里Ctrl+C复制，然后Ctrl+V粘贴 14、如果一个单元格中既有数字又有字母，怎么提取其中的数字呢？ Function getnumber(rng As String) As String 自定义函数作用：提取当前单元格中的数字 Dim mylen As Integer Dim mystr As String mylen = Len(rng) For I = 1 To mylen mystr = Mid(rng, I, 1) If Asc(mystr) = 48 And Asc(mystr) = 57 Then getnumber = getnumber mystr End If Next I End Function 15、用VB制作EXCEL作品封面 本人在论坛上发了一个EXCEL作品封装实例后，有很多人来信询问怎样用VB打开EXCEL，并且带有启动封面，现本人将过程 底细说出来，希望给大家起到一个抛砖引玉的作用。 一、新建一个文件夹，该文件夹主要是用来装EXCEL工作簿、VB编译的可执行文件、图标文件及帮助文件用的。 二、打开VB，新建一个标准EXE。 三、1、对form1的设置： 　　Borderstyle=0-none 去掉form1的标题栏 　　Icon　设定图标 　　StartupPositio=2 将启动封面始终悬挂在屏幕中部 　　2、添加一个Timer控件，将其Interval设为1000，双击Timer控件出现代码窗口，输入如下代码： 　　Private Sub Timer1_Timer() 　　Dim Exl As Object 　　Set Exl = CreateObject(Excel.Application) 　　Exl.Workbooks.Open (App.