当前位置:主页 > Office办公 > Excel专区 > Excel函数

最新发布

用VBA将焦点定位于名称框
用VBA将焦点定位于名称框

Excel中提供了许多快捷键,但遗憾的是没有提供一个快捷键可以将焦点定位与名称框,下面的宏代码就可以实现这个功能。Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ByVal lpsz1 As String, ByVal lpsz2 As String) As LongSub SetFocusNameBox()Dim Res As LongRes = SetFocus( _FindWindowEx( _FindWindowEx( _FindWindow("XLMAIN", Application.Caption) _, 0, "EXCEL;", vbNullString) _, 0, "combobox", vbNullString))End Sub我们可以给这个宏代码指定一个快捷键,如Ctrl+Shift+N,方法如下:单击菜单“工具→宏→宏”,打开“宏”对话框,选择“SetFocusNameBox”,单击“选项”按钮,在其中的文本框中输入大写的“N”,单击确定。 以后,只要按快捷键Ctrl+Shift+N,就可以将焦点定位到名称框

182 次浏览
excel中利用VBA生成一列随机字符串 代码
excel中利用VBA生成一列随机字符串 代码

用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串,从中挑选几个作为密码用还是不错的。在Excel中按Alt+F11打开VBA编辑器,双击“工程”窗口中的某个工作表名称,在右侧的代码窗口中输入下列代码:Sub MakeRandomString()Dim J As IntegerDim K As IntegerDim iTemp As IntegerDim sNumber As StringDim RandomStr(1 To 100, 1 To 1) As StringDim bOK As BooleanRandomizeFor J = 1 To 100sNumber = ""For K = 1 To 12DoiTemp = Int((122 – 48 + 1) * Rnd + 48)Select Case iTempCase 48 To 57, 65 To 90, 97 To 122bOK = TrueCase ElsebOK = FalseEnd SelectLoop Until bOKbOK = FalsesNumber = sNumber & Chr(iTemp)Next KRandomStr(J, 1) = sNumberNext JRange("A1:A100").Value = RandomStrEnd Sub最后运行代码。如果要生成其他长度的随机字符串,将其中的For K = 1 To 12中的“12”改为其他数字即可,如:For K = 1 To 10即可生成10位长度的随机字符串。

309 次浏览
excel利用VBA制作包含超链接的工作表目录
excel利用VBA制作包含超链接的工作表目录

如果Excel工作簿中包含许多工作表,可以在一个工作表中列出所有工作表目录和相关说明,以方便在各工作表之间跳转。下面的VBA代码就可以实现这个功能,可以在某个工作表的第一列中产生其他工作表的目录列表及其超链接,单击工作表名称就可以跳转到相应的工作表中,并且可以在其他工作表的A1单元格中设置一个返回目录的超链接,单击可以返回到包含目录的工作表中。按Alt+F11,打开VBA编辑器,在“工程”窗口中双击要设置目录列表的工作表名称,在右侧代码窗口中输入下面的代码后运行:Sub CreateSheetsIndex()Dim wSheet As WorksheetDim i As Longi = 1With Me.Columns(i).ClearContents.Cells(1, 1) = "工作表目录".Cells(1, 1).Name = "目录"End WithFor Each wSheet In WorksheetsIf wSheet.Name <> Me.Name Theni = i + 1With wSheet.Range("A1").Name = "工作表" & wSheet.Index.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="目录", ScreenTip:= _"跳转到“" & Me.Name & "”工作表", TextToDisplay:="返回目录"End WithMe.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="工作表" & wSheet.Index, _ScreenTip:="跳转到“" & wSheet.Name & "”工作表", TextToDisplay:=wSheet.NameEnd IfNext wSheetEnd Sub说明:1.由于上述代码会在所有工作表的A1单元格输入链接内容,所以运行代码前务必确保A1单元格为空。2.如果工作表有密码保护,请先解除保护。3.运行代码创建工作表目录列表后,如果又新建工作表或修改工作表名称,请再次运行代码。

144 次浏览
excel利用VBA删除单元格、行和列
excel利用VBA删除单元格、行和列

如果要用VBA代码在Excel工作表中删除指定的单元格、行和列,可以使用下面的代码:Sub DeleteCellRowColumn()‘删除活动单元格,下方单元格上移ActiveCell.Delete Shift:=xlUp‘删除选定的区域,右方单元格左移Selection.Delete Shift:=xlToLeft‘ 删除行或列Range("B2").SelectSelection.EntireRow.DeleteRange("F2").SelectSelection.EntireColumn.DeleteEnd Sub

112 次浏览
如何在Excel2007中显示“开发工具”选项卡
如何在Excel2007中显示“开发工具”选项卡

Excel 2007的“开发工具”选项卡中有许多与程序开发和XML功能相关的命令,包括“代码”、“控件”、“XML”和“修改”组。利用该选项卡,可以进行录制宏、打开VBA编辑器、运行宏命令、插入控件等操作。在默认情况下,“开发工具”选项卡并未显示在Excel 2007功能区中,可以通过下面的方法让其总是显示在功能区中:单击“Office按钮→Excel 选项→常用”,在“使用Excel时采用的首选项”区域中,勾选“在功能区显示‘开发工具’选项卡”,单击“确定”。

122 次浏览
excel如何颠倒单元格内字符的排列顺序
excel如何颠倒单元格内字符的排列顺序

如果要颠倒某个单元格中字符串的排列顺序,例如将A1单元格中的“ABCDEFG”颠倒顺序排列为“GFEDCBA”,可以用自定义函数来实现,方法如下。1.按Alt+F11,打开VBA编辑器。2.单击菜单“插入→模块”,然后在代码窗口中输入下列代码:Function Reverse(Str As String)Reverse = StrReverse(Str)End Function3.关闭VBA编辑器,返回Excel界面。4.在某个单元格中输入公式:=Reverse(A1)即可得到A1单元格中颠倒顺序后的字符串。

154 次浏览
excel表格怎么使用dget函数
excel表格怎么使用dget函数

DGET函数,从列表或数据库的列中提取符合指定条件的单个值。 意思就是可以利用DEGT函数查找相关数据,但是对于很少接触函数的朋友就难了,下面给大家分享在excel中dget函数的使用步骤。  在excel中dget函数的使用步骤  点击菜单栏中f(x),弹出对话框如图,选择类别:点击“数据库”;选择函数:点击“DGET”;  点击确认,弹出对话框,进行函数参数选定:  Datebase(所选数据的单元格区域):B2:B10  Field(列标签/列位置):2  Criteria(条件单元格):C12:C13  点击确认,得出结果猜你感兴趣:1.怎么在excel中使用dget函数

233 次浏览
Excel表格怎样用IMPOWER函数计算整数幂
Excel表格怎样用IMPOWER函数计算整数幂

IMPOWER函数使计算复数的整数幂的函数,那如何在EXCEL表格中使用该函数呢?不懂的朋友会请多多学习哦,下面就跟小编一起来学习excel使用IMPOWER函数计算整数幂的方法。  excel使用IMPOWER函数计算整数幂的方法  打开EXCEL表格,点击公式按钮,如图  点击插入函数,如图  在弹出窗口中选择工程函数,如图  选择IMPOWER函数,如图  在弹出对话框中输入复数以及幂次,点确定按钮,如图  得出计算结果,如图猜你感兴趣:1.excel怎么使用IMPOWER函数

177 次浏览
excel在VBA中使用非连续区域
excel在VBA中使用非连续区域

如果要在VBA中使用非连续区域,可以用类似Range("A1, B2, C3:D10")的语句,如下例:Sub NonContiguousRange()Dim oRng As RangeSet oRng = Range("A1, B2, C3:D10")oRng.Value = 100oRng.Interior.ColorIndex = 2End Sub上述代码设置非连续区域A1、B2、C3:D10的值为100,同时设置非连续区域的背景颜色为粉红。

116 次浏览
excel利用自定义函数提取单元格中的批注
excel利用自定义函数提取单元格中的批注

用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中,方法如下:1.按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在“工程”窗口中会看到Excel插入了一个名称为“模块1”的模块。2.在右侧“模块1”的代码窗口中输入下列代码:Function GetComment(rCell As Range)Application.Volatile ‘将自定义函数标记为易失性函数Dim Cmt As StringOn Error Resume NextCmt = rCell.Comment.TextGetComment = Right(Cmt, Len(Cmt) – InStr(1, Cmt, ":", vbTextCompare))On Error GoTo 0End Function3.关闭VBA编辑器,返回到Excel界面。假如要提取A10单元格中的批注,则在其他单元格中输入公式:=GetComment(A10)回车后即可得到A10单元格中的批注内容,注意本自定义函数仅提取批注内容,而不包含批注作者。由于将自定义函数标记为易失性函数,如果A10单元格中的批注被修改,按F9键或当任意单元格进行计算时即可得到修改后的批注内容。

120 次浏览
共计5788条记录 上一页 1.. 63 64 65 66 67 68 69 ..579 下一页