-0.3”，就会在单元格中显示“负数：（$0.30）”，如果输入“0”，就会在单元格中显示“零”，如果输入文本“this is a book”，就会在单元格中显示“文本：this is a book”。 如果改变自定义格式的内容，“[红色]"正数:"($#,##0.00);[蓝色]"负数:"($ #,##0.00);[黄色]"零";"文本:"@”，那么正数、负数、零将显示为不同的颜色。如果输入“[Blue];[Red];[Yellow];[Green]”，那么正数、负数、零和文本将分别显示上面的颜色。 再举一个例子，假设正在进行帐目的结算，想要用蓝色显示结余超过$50，000的帐目，负数值用红色显示在括号中，其余的值用缺省颜色显示，可以创建如下的格式： “[蓝色][>50000] $#,##0.00_);[红色][<0]( $#,##0.00); $#,##0.00_)” 使用条件运算符也可以作为缩放数值的强有力的辅助方式，例如，如果所在单位生产几种产品，每个产品中只要几克某化合物，而一天生产几千个此产品，那么在编制使用预算时，需要从克转为千克、吨，这时可以定义下面的格式： “[>999999]#,##0,,_m"吨"";[>999]##,_k_m"千克";#_k"克"” 可以看到，使用条件格式，千分符和均匀间隔指示符的组合，不用增加公式的数目就可以改进工作表的可读xìng和效率。 另外，我们还可以运用自定义格式来达到隐藏输入数据的目的，比如格式＂；＃＃；0＂只显示负数和零，输入的正数则不显示；格式“；；；”则隐藏所有的输入值。 自定义格式只改变数据的显示外观，并不改变数据的值，也就是说不影响数据的计算。灵活运用好自定义格式功能，将会给实际工作带来很大的方便。 5、批量删除空行 有时我们需要删除Excel工作薄中的空行，一般做法是将空行一一找出，然后删除。如果工作表的行数很多，这样做就非常不方便。我们可以利用“自动筛选”功能，把空行全部找到，然后一次xìng删除。 做法：先在表中chā入新的一个空行，然后按下Ctrl+A键，选择整个工作表，用鼠标单击“数据”菜单，选择“筛选”项中的“自动筛选”命令。这时在每一列的顶部，都出现一个下拉列表框，在典型列的下拉列表框中选择“空白”，直到页面内已看不到数据为止。 在所有数据都被选中的情况下，单击“编辑”菜单，选择“删除行”命令，然后按“确定”按钮。这时所有的空行都已被删去，再单击“数据”菜单，选取“筛选”项中的“自动筛选”命令，工作表中的数据就全恢复了。chā入一个空行是为了避免删除第一行数据。 如果想只删除某一列中的空白单元格，而其它列的数据和空白单元格都不受影响，可以先复制 此列，把它粘贴到空白工作表上，按上面的方法将空行全部删掉，然后再将此列复制，粘贴到原工作表的相应位置上。 6、如何避免错误信息 在Excel中输入公式后，有时不能正确地计算出结果，并在单元格内显示一个错误信息，这些错误的产生，有的是因公式本身产生的，有的不是。下面就介绍一下几种常见的错误信息，并提出避免出错的办法。 １）错误值：＃＃＃＃ 含义：输入到单元格中的数据太长或单元格公式所产生的结果太大，使结果在单元格中显示不下。或是日期和时间格式的单元格做减法，出现了负值。 解决办法：增加列的宽度，使结果能够完全显示。如果是由日期或时间相减产生了负值引起的，可以改变单元格的格式，比如改为文本格式，结果为负的时间量。 ２）错误值：＃DIV/0! 含义：试图除以0。这个错误的产生通常有下面几种情况：除数为0、在公式中除数使用了空单元格或是包含零值单元格的单元格引用。 解决办法：修改单元格引用，或者在用作除数的单元格中输入不为零的值。

３）错误值：＃VALUE! 含义：输入引用文本项的数学公式。如果使用了不正确的参数或运算符，或者当执行自动更正公式功能时不能更正公式，都将产生错误信息＃VALUE!。 解决办法：这时应确认公式或函数所需的运算符或参数正确，并且公式引用的单元格中包含有效的数值。例如，单元格C4中有一个数字或逻辑值，而单元格D4包含文本，则在计算公式=C4＋D4时，系统不能将文本转换为正确的数据类型，因而返回错误值＃VALUE!。 ４）错误值：＃REF! 含义：删除了被公式引用的单元格范围。 解决办法：恢复被引用的单元格范围，或是重新设定引用范围。 ５）错误值：＃N/A 含义：无信息可用于所要执行的计算。在建立模型时，用户可以在单元格中输入#N/A，以表明正在等待数据。任何引用含有#N/A值的单元格都将返回#N/A。 解决办法：在等待数据的单元格内填充上数据。 ６）错误值：＃NAME? 含义：在公式中使用了Excel所不能识别的文本，比如可能是输错了名称，或是输入了一个已删除的名称，如果没有将文字串括在双引号中，也会产生此错误值 解决办法：如果是使用了不存在的名称而产生这类错误，应确认使用的名称确实存在；如果是名称，函数名拼写错误应就改正过来；将文字串括在双引号中；确认公式中使用的所有区域引用都使用了冒号（：）。例如：SUM（C1：C10）。 注意将公式中的文本括在双引号中。 ７）错误值：＃NUM! 含义：提供了无效的参数给工作表函数，或是公式的结果太大或太小而无法在工作表中表示。 解决办法：确认函数中使用的参数类型正确。如果是公式结果太大或太小，就要修改公式，使其结果在-1×10307和1×10307之间。 ８）错误值：＃NULL！ 含义：在公式中的两个范围之间chā入一个空格以表示jiāo叉点，但这两个范围没有公共单元格。比如输入：“=SUM(A1:A10 C1:C10)”，就会产生这种情况。

解决办法： 取消两个范围之间的空格。上式可改为“=SUM(A1:A10 ,C1:C10)”

Part 2: EXCEL自学资料第一集

返回首页

自学资料第一集 1、Application.CommandBars("Worksheet Menu Bar").Enabled = false 2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值 3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets If shtSheet.Ncom = "KK" Then Exit Sub Next shtSheet Set shtSheet = Sheets.Add(Before:=Sheets(1)) shtSheet.Ncom = "KK" End Sub 4、Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")'一次xìng增加项目 5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中 6、Sub pro_cell()'将此代码放入sheet1,com=sheet1,主要是认com Me.Unprotect Cells.Locked = False Range("D11:E11").Locked = True Me.Protect End Sub 7、Application.CommandBars("Ply").Enabled = False'工作表标签上快捷菜单失效 8、Sub aa()'把B1到B12单元格的数据填入c1到c12 For i = 1 To 12 Range("C" & i) = Range("B" & i) Next i End Sub 9、ActiveCell.AddCocomnt Selection.Font.Size = 12'在点选的单元格chā入批注，字体为12号 10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub 11、ScrollArea 属xìng 参阅应用于示例特xìng以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。 说明 可将本属xìng设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。 示例 本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea = "a1:f10"

12\if application.max([a1:e1])=10 then msgbox"" commandbutton1.enabled=false 'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮 12、本示例将更改的单元格的颜色设为蓝色。 Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5 End Sub 13、Sub test()'求和 Dim rng As Range, rng2 As Range For Each rng In ActiveSheet.UsedRange.Columns Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column)) rng2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2) Next rng End Sub 14、将工作薄中的全部n张工作表都在sheet1中建上链接 Sub test2() Dim Pt As Range Dim i As Integer With Sheet1 Set Pt = .Range("a1") For i = 2 To ThisWorkbook.Worksheets.Count .Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Ncom & "!A1" Set Pt = Pt.Offset(1, 0) Next i End With End Sub 15、保存所有打开的工作簿，然后退出 Microsoft Excel。 For Each w In Application.Workbooks w.Save Next w Application.Quit 16、让form标题栏上的关闭按钮失效 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = True End Sub 17、Sub countsh()'获得工作表的总数 MsgBox Sheets.Count End Sub 18、Sub IE()'打开个人网页 ActiveWorkbook.FollowHyperlink "about:blank" SendKeys "{F4}ykk1976.anyp.cn{ENTER}", True End Sub

19、Sub delback()'一次xìng删除工作簿中所有工作表的背景 For Each shtSheet In Sheets shtSheet.SetBackgroundPicture Filencom:="" Next shtSheet End Sub 20、[a1].formula="=b1+c1"'A1中设定公式为=B1+C1 21、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列 Dim i As Long r = 1 For Each i In Range("a1:c6") If i > =3 Then Cells(r, 5) = i: r = r + 1 Next End Sub 22、Private Sub Workbook_SheetChange(ByVal

松语文学免费小说阅读_www.16sy.com