当前位置:主页 > Office办公

最新发布

excel利用VBA实现类似条件格式改变字体字号的效果
excel利用VBA实现类似条件格式改变字体字号的效果

Excel中的条件格式可以非常直观地显示某些特定的数据,功能十分强大。但条件格式也有一些限制,例如无法通过条件格式设置字体和字号。如果要根据条件来改变单元格中字体或字号,可以用VBA来实现。下面的VBA代码将指定区域(H2:H500)中大于5000而小于10000的数值设置为“黑体”、“16”,而将指定区域中其他单元格的字体和字号设置为“宋体”、“11”。Sub ConditionalFont() Dim rCell As Range Dim Rng As Range Set Rng = Range("H2:H500") Application.ScreenUpdating = False For Each rCell In Rng With rCell If .Value > 5000 And .Value < 10000 Then .Font.Name = "黑体" .Font.Size = 16 Else .Font.Name = "宋体" .Font.Size = 11 End If End With Next Application.ScreenUpdating = True End Sub使用方法是:按Alt +F11,打开VBA编辑器,在“工程”窗口中选择需要设置的工作表,在代码窗口中粘贴上述代码。然后返回到Excel工作表界面,按Alt+F8打开“宏”对话框,选择上述代码第一行的宏名称运行即可。当区域中的内容更改后,上述代码还不能实现自动设置字体字号的功能。要实现这种类似条件格式的效果,可以加上下面的VBA代码:Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rCell As Range Dim Rng As Range Dim dRng As Range Set Rng = Range("H2:H500") '设置dRng为Target的从属区域,仅对本工作表中的引用有效 Set dRng = Range(Target.Dependents.Address) '如果从属区域包含在指定区域中 If Not Intersect(dRng, Rng) Is Nothing Then For Each rCell In Intersect(dRng, Rng) SetFont rCell Next End If '如果直接在指定区域中更改 If Union(Target, Rng).Address = Rng.Address Then For Each rCell In Target SetFont rCell Next End If End SubFunction SetFont(rRange As Range) With rRange If .Value > 5000 And .Value < 10000 Then .Font.Name = "黑体" .Font.Size = 16 Else .Font.Name = "宋体" .Font.Size = 11 End If End With End Function这样当区域中的数值更改或区域中的公式重新计算后,会按照条件自动设置字体和字号。说明:1.代码中用到Range.Dependents属性,该属性不能追踪远程引用,因而仅当指定区域中的公式中包含本工作表的引用时有效。2.添加上述VBA代码后,当指定区域中的内容更改后VBA代码会自动运行,这将导致无法撤消或恢复。

439 次浏览
Excel中BINOMDIST函数的语法和用法
Excel中BINOMDIST函数的语法和用法

本文介绍Microsoft Excel中BINOMDIST函数的语法和用法。 BINOMDIST函数适用于:Excel2003、Excel2007、Excel2010、Excel2013、Excel2016。BINOMDIST函数主要用于返回一元二项式分布的概率值。函数 BINOMDIST 适用于固定次数的独立试验,当试验的结果只包含成功或失败二种情况,且当成功的概率在实验期间固定不变。例如,函数 BINOMDIST 可以计算三个婴儿中两个是男孩的概率。BINOMDIST(number_s,trials,probability_s,cumulative)BINOMDIST(number_s,trials,probability_s,cumulative)Number_s:为试验成功的次数。Trials:为独立试验的次数。Probability_s:为每次试验中成功的概率。Cumulative:为一逻辑值,用于确定函数的形式。如果 cumulative 为 TRUE,函数 BINOMDIST 返回累积分布函数,即至多 number_s 次成功的概率;如果为 FALSE,返回概率密度函数,即 number_s 次成功的概率。Number_s 和 trials 将被截尾取整。 

455 次浏览
如何永久显示Excel单元格中的批注内容
如何永久显示Excel单元格中的批注内容

通常我们在Excel单元格中插入批注后,单元格的右上角会有一个红色的三角形,提示该单元格包含批注。只有当光标悬停在包含批注的单元格中时,批注内容才会显示。如果要让某个单元格中的批注总是显示在工作表中,例如当打开工作表时就可以看到该批注,可以这样操作:    在Excel 2003中:    选择包含批注的单元格,鼠标右击,在弹出的快捷菜单中选择“显示/隐藏批注”。        在Excel 2007中:    选择包含批注的单元格,单击功能区选项卡“审阅”,在“批注”组中,单击“显示/隐藏批注”按钮。   

利用VBA在Excel中播放MP3音乐
利用VBA在Excel中播放MP3音乐

在VBA中通过调用API函数mcisendstring,可以播放MP3格式的音乐。下面是VBA代码,我们可以将它放入模块中,方法是在VBA编辑器中单击菜单“插入→模块”,在代码窗口中输入下列代码。Option Explicit Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private Function ConvShortFilename(ByVal strLongPath$) As String Dim strShortPath$ If InStr(1, strLongPath, " ") Then strShortPath = String(LenB(strLongPath), Chr(0)) GetShortPathName strLongPath, strShortPath, Len(strShortPath) ConvShortFilename = Left(strShortPath, InStr(1, strShortPath, Chr(0)) - 1) Else ConvShortFilename = strLongPath End If End Function Public Sub MMPlay(ByRef FileName As String) FileName = ConvShortFilename(FileName) mciSendString "close " & FileName, vbNullString, 0, 0 mciSendString "open " & FileName, vbNullString, 0, 0 mciSendString "play " & FileName, vbNullString, 0, 0 End Sub Public Sub MMStop(ByRef FileName As String) FileName = ConvShortFilename(FileName) mciSendString "stop " & FileName, vbNullString, 0, 0 mciSendString "close " & FileName, vbNullString, 0, 0 End Sub然后,可以在VBA中调用上述代码。播放MP3:MMPlay (Mp3File)停止播放:MMStop (Mp3File) 其中Mp3File为包含路径的MP3文件名。下面是一个简单的示例,在工作表“Sheet1”中有两个按钮,一个是“打开并播放MP3文件”,另一个是“停止播放”。单击“打开并播放MP3文件”按钮可以在“打开”对话框中选择一个MP3音乐文件并播放。

Excel 单元格格式基础教程
Excel 单元格格式基础教程

为了使数据具有更好的可读性,Excel 提供了格式化单元格的功能。常用的单元格格式有:通过对齐方式可以调整单元格里内容的水平和垂直对齐方式、文本显示方式、文字方向等。在单元格格式字体选项,可以调整内容的字体、字形、字号、颜色等属性。在单元格格式边框选项中,可以调整单元格边框显示方式、边框线条、边框颜色等属性。在单元格格式填充选项中,可以调整单元格背景色。在单元格格式保护选项中,可以设置单元格锁定和隐藏属性。

280 次浏览
Excel中SKEW函数的语法和用法
Excel中SKEW函数的语法和用法

本文介绍Microsoft Excel中SKEW函数的语法和用法。SKEW函数的主要作用是返回分布的偏斜度。偏斜度反映以平均值为中心的分布的不对称程度。正偏斜度表示不对称部分的分布更趋向正值。负偏斜度表示不对称部分的分布更趋向负值。SKEW(number1,number2,...)SKEW(计算区域)Number1, number2 ...为需要计算偏斜度的 1 到 30 个参数。也可以不用这种用逗号分隔参数的形式,而用单个数组或对数组的引用。参数可以是数字,或者是包含数字的名称、数组或引用。如果数组或引用参数包含文本、逻辑值或空白单元格,则这些值将被忽略;但包含零值的单元格将计算在内。如果数据点个数少于 3 个,或样本标准偏差为零,函数 SKEW 返回错误值 #DIV/0!。偏斜度的计算公式定义如下:

510 次浏览
Excel中DATE函数的语法和用法
Excel中DATE函数的语法和用法

DATE函数的主要作用是返回代表特定日期的序列号。如果在输入函数前,单元格格式为“常规”,则结果将设为日期格式。DATE(year,month,day)DATE(一到四位数字,每年中月份的数字,该月份中第几天的数字)Year:参数 year 可以为一到四位数字。Microsoft Excel 将根据所使用的日期系统来解释 year 参数。默认情况下,Microsoft Excel for Windows 将使用 1900 日期系统,而 Microsoft Excel for Macintosh 将使用 1904 日期系统。如果 year 位于 0(零)到 1899(包含)之间,则 Excel 会将该值加上 1900,再计算年份。例如:DATE(108,1,2) 将返回 2008 年 1 月 2 日 (1900+108)。如果 year 位于 1900 到 9999(包含)之间,则 Excel 将使用该数值作为年份。例如:DATE(2008,1,2) 将返回 2008 年 1 月 2 日。如果 year 小于 0 或大于等于 10000,则 Excel 将返回错误值 #NUM!。Month:代表每年中月份的数字。如果所输入的月份大于 12,将从指定年份的一月份开始往上加算。例如:DATE(2008,14,2) 返回代表 2009 年 2 月 2 日的序列号。Day:代表在该月份中第几天的数字。如果 day 大于该月份的最大天数,则将从指定月份的第一天开始往上累加。例如,DATE(2008,1,35) 返回代表 2008 年 2 月 4 日的序列号。Microsoft Excel 可将日期存储为可用于计算的序列号。默认情况下,1900 年 1 月 1 日的序列号是 1 而 2008 年 1 月 1 日的序列号是 39448,这是因为它距 1900 年 1 月 1 日有 39448 天。Microsoft Excel for the Macintosh 使用另外一个默认日期系统。

451 次浏览
excel 中如何查找标识重复数据的方法
excel 中如何查找标识重复数据的方法

我们分两个版本来介绍Excel中查找标识重复数据的方法。  第一,查找标识重复数据  打开需要查找标识重复数据的工作表,选中可能存在重复数据的区域。  单击“开始”选项卡中的“条件格式”打开菜单,在“突出显示单元格规则”子菜单下选择“重复值”。  在弹出的“重复值”对话框中,左边的下拉列表中选择“重复”,在“设置为”下拉列表中选择需要设置的格式(比如“红填充色浅粉色文本”),就可以在选中区域看到标识重复值的效果,单击“确定”按钮正式应用这种效果。  第二,查找标识重复数据  利用数据有效性来限制重复值的录入,是一种事前控制行为,它只对将要录入的数据起作用。如果单元格在设置数据有效性以前就录入了数据,则不会受到数据有效性的检查。此时,为了检查已录入数据中是否含有重复值,可以使用条件格式功能。  下面我们分别介绍重复录入数据的处理。  第一种情况:录入数据之前设定重复数据   假设要在A列输入数据,选中A列后,此次单击菜单栏:数据,有效性,允许下面选择“自定义”,公式下面输入:=countif(a:a,a1)=1,确定,就能保证输入数据的唯一性。当我们在A列如果输入重复数据就会提示无法输入,从而严格限制重复值的录入,也就是任何数值都是唯一的。   特别提醒:这里的数据有效性只对在本列录入的数据有效,对于复制粘贴单元格内容的也有效,但对于复制粘贴单元格的则无效。一定要区分,切忌。  第二种情况,录入数据之后查找标识重复数据   比如在A列为员工姓名,在前面已经录入很多数据的情况下,如何避免后面重复录入相同的员工姓名?   单击A1单元格,单击菜单:格式-条件格式-在条件下选择“公式”,在右边框中输入公式:=COUNTIF($A:$A,A1)>1,然后单击下面的“格式”按钮,为重复数据设置样式,比如另外添加一种颜色或者加粗等格式。确定,完成设置,重复数据就会按设定的格式显示出来了。

293 次浏览
如何设置默认保存excel工作簿的路径
如何设置默认保存excel工作簿的路径

excel中保存工作簿时,默认的保存位置是【我的文档】文件夹,而在实际工作中,往往是把表格存放在其他位置。可以将经常保存的路径设置成默认路径,这样每次保存工作簿时就不必再重新设置路径了。设置默认保存excel工作簿的路径操作方法如下:  1、在计算机中找到文件将要保存的路径,选中地址栏中的路径“E:\工作文件”后右击,在弹出的快捷菜单中执行【复制】命令。图1  2、打开 Excel2007 工作簿,单击按钮,单击【Excel选项】按钮。  3、弹出 【Excel选项】 对话框,单击【保存】选项,在【默认保存位置】文本框中右击,在弹出的快捷菜单中执行【粘贴】命令。图2  4、单击【确定】按钮完成。  5、在 Excel 2007 工作界面中单击按钮,执行【另存为】命令,在弹出的【另存为】对话框中显示文件默认的保存位置。

335 次浏览
实现把Excel的单元格快速变成图片的技巧
实现把Excel的单元格快速变成图片的技巧

有时候我们从事这行政这方面的工作需要经常把Excel的表格数据作为图片保存下来的,这个时候我们都习惯性地使用QQ截图。今天小编教你使用WPS表格无需截图工具就能把你想保存的表格作为图片保存下来!首先,在表格中选择要转换为图片的单元格区域。 选中要转换为图片的表格区域对选中区域单击鼠标右键,选择“复制”,或直接按键盘上的Ctrl-C将该区域复制到剪贴板。然后在表格中的空白单元格处单击鼠标右键,移动鼠标指向“粘贴为图片”。 最后将表格粘贴为图片想把图片单独提取出来,只要在图片上点击鼠标右键,然后选择“图片另存为”就可以了。

312 次浏览
共计75272条记录 上一页 1.. 7061 7062 7063 7064 7065 7066 7067 ..7528 下一页