我在Excel的VBA编辑器中定义了一个宏函数,名字为myacademy(),在单元格调用时就出现“#Name?” 如何在VBA中调用EXCEL定义名称

作者&投稿:检柯 (若有异议请与网页底部的电邮联系)
myacade = "外语学院"
这句改成
myacademy = "外语学院"
--------
另外:
1、函数第一句加上下面这个,标识为易失性函数:
Application.Volatile
2、函数内最好先用一个临时的变量存储结果, end sub前再赋值给 函数,这样改动也方便。
如下:
Public Function myacademy(ByVal strNum As String)
Application.Volatile
Dim s$, tmp$
s = Mid(strNum, 4, 3)
Select Case s
Case "110"
tmp = "数科院"
Case "111"
tmp = "信息学院"
Case "112"
tmp = "外语学院"
Case "113"
tmp = "政法学院"
Case Else
tmp = "无效的学院代码"
End Select
myacademy = tmp
End Function

Case "112"
myacade = "外语学院"
有问题

8字符长度限制?

在 2003 下面测试没有发现问题

EXCEL VBA编辑器中,用宏调用一个function函数,function函数的功能是:让它实现在sheet1的A1中入数字1~

Function getV() getV = Sheets("Sheet2").Cells(1, 1).ValueEnd Function在sheet1的A1单元个中输入 = getV()

有两种方法调用定义的名称:
直接使用range("名称")
使用方括号表示:[名称]
这两种方法都可以的,使用名称确实可以简化代码

怎么在EXCEL中用VBA条件判断自动隐藏列?
答:Sub 试试1()'此sub示例:直接隐藏 '将单元格或区域的整列属性的隐藏属性赋值为true Range("A10,C6:G6,L8").EntireColumn.Hidden = True End Sub Sub 试试2()'此sub示例:for each 循环,判断整列为空时则隐藏整列 Dim g As Range For Each g In Range("A8:B8")If g.EntireColumn.Find...

在excel表格中如何用vba给单元格批量输入序号?
答:2、在excel工作表中输入序列号很简单,在a1,a2单元格中输入数字1和2后,使用填充功能下拉即可完成序列号的输入。3、可是当我们遇到输入大量序列号的时候就会很麻烦,需要拖动的距离太长,那么我们可以使用vba来解决这个问题。我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入...

如何在excel中实现选中复选框计数自动更?
答:Range("B1").Value = Range("B1").Value + (CheckBox1.Value = True)End Sub 这段代码的意思是:当 CheckBox1 的值改变时(也就是用户选择或取消选择复选框时),将根据复选框是否被选中(CheckBox1.Value = True),来增加或减少 B1 单元格的值。最后,你需要在 Excel 的 VBA 编辑器中(...

excel代码怎么用excel代码在哪里输入
答:如果你指的是 Excel VBA 代码,可以按照以下步骤在 Excel 里使用:首先打开 Excel 文件,按下 Alt + F11 组合键,打开 VBA 编辑器。然后在 VBA 编辑器中,可以新建一个模块,在模块中输入你需要的 VBA 代码。再保存该模块并关闭 VBA 编辑器。然后在 Excel 文件中打开需要使用该 VBA 代码的工作表...

excel 的VBA编辑器中如何使用eomonth函数?
答:Worksheetfunction.Eomonth在VBA中引用工作表函数,只需在前面加Worksheetfunction.但像Abs,cos,sin等函数VBA中本身就自带的有,则不能加Worksheetfunction.其实只要你输入Worksheetfunction.后就会自动提示可用的函数列表了。VBA中自带的函数可以记下,也可以通过VBA帮助查找。

在excel表格中使用vba引用单元格区域
答:今天为大家介绍在excel中使用vba来引用单元格区域方法,不会的朋友可以参考本文,来看看吧!步骤 1、首先我们打开一个工作样表作为例子。2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Option Explicit Sub Random()Dim myRange As Range Dim rng As Range '设置...

如何利用VBA实现excel中的加减乘除运算
答:在右侧的代码窗口中,将上述代码复制粘贴到新模块中。修改代码中的运算符和列号,以适应您的实际情况。例如,如果运算符所在列为C列,第一个操作数所在列为D列,第二个操作数所在列为E列,则将operatorCol = 3, operand1Col = 4, operand2Col = 5。保存并关闭VBA编辑器。在Excel中,选择要进行...

EXCEL 用VBA实现,自动回车更换单元格,而不用手工去敲回车?
答:敲了回车才算是输入到单元格内了,才能判断单元格内的数据是否达到30个字符,如果还是编辑状态,单元格内实际是不存储内容的,所以也无法判断单元格内的字符是否达到30个。

...不要使用什么指定单元格的值,我需要的是在Excel
答:在workbook_open事件中用additem添加,如果你的组合框是再窗体中的就把sheet1换成userform1:Private Sub Workbook_Open()Sheet1.ComboBox1.AddItem ("1")Sheet1.ComboBox1.AddItem ("2")Sheet1.ComboBox1.AddItem ("3")Sheet1.ComboBox1.AddItem ("4")End Sub ...

如何在excel 用VBA插入多个工作表并命名。要用到宏。给分给分~_百度知...
答:具体操作步骤如下:1、第一步,打开Excel表格,在主界面按Alt+f11下快捷键,如图所示。2、第二步,进入到VBA编辑器,点击上面菜单栏中的插入,再选择【模块】,如图所示。3、第三步,在弹出的模块窗口中,输入下面的代码:Option Explicit Sub addwork()Sheets.Add after:=Sheets(Sheets.Count)End ...