Tag: 函数

确保你的VBA代码是64位兼容的: 我的Mircosoft Office 2010是x86，但是当我尝试运行oe VBA时，出现一个与x64不兼容的错误。我有这个代码： Private Declare Function SHFileOperation Lib "shell32.dll" Alias _ "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _ Alias "PathIsNetworkPathA" ( _ ByVal pszPath As String) As Long Private Declare Function GetSystemDirectory Lib "kernel32" _ Alias "GetSystemDirectoryA" ( _ ByVal lpBuffer As String, _ ByVal nSize As […]

在PHP函数结束时，“返回”是什么意思？: 我正在使用一个PHP库来生成由多个函数组成的Excel文件。这是其中的一个function： // Excel begin of file header function xlsBOF() { pack("ssssss", 0x809, 0x8, 0x0, 0x10, 0x0, 0x0); return; } 我不确定'返回'返回什么？请有人澄清这一点。

嵌套的IF语句具有精确的OR值: 我是新的Excel IF语句，并且遇到了我认为称为嵌套的IF函数的问题。我在这里看过其他的IF问题，对于我的新手大脑来说太复杂了。我有一个有数字的列。有大约十几个不同的数字。数字代表一个特定的团队。例如，100是红队，101是黄队，102是绿队等。我需要创build一个IF声明，告诉我每个队伍是基于数字的。我有几百行来过滤，我不想手动做，如果函数存在自动化在Excel中。我试图写我自己嵌套的IF语句，它不工作。我究竟做错了什么？ =IF(B2="100",red,IF(B2="101",blue,IF(B2="103",green,IF(B2="104",yellow,"")))) 帮帮我？

.Value = .Value与VBA中的Evaluate（）函数类似吗？: 考虑下面的片段。它将相同的公式写入两个单元格A1和A2 Sub Main() With Range("A1") .Formula = "=1+1" End With With Range("A2") .Formula = "=1+1" .Value = .Value End With End Sub 第二个块使用.Value = .Value来计算/执行公式，因此公式从公式栏中消失。请参阅公式栏中的隐藏公式以获得支持性参考。现在，添加另一个块 With Range("A3") .Formula = "=1+1" End With Range("A4") = Evaluate(Range("A3").Formula) 您将公式添加到单元格A3然后新单元格的公式正在Evaluated()到另一个单元格A4 。结果如图所示我认为上面那种显示.Value = .Value和Evaluate()做同样的事情。但是，下面的代码使用上述两种方法从封闭的工作簿中提取值。我为这个例子创build了一个工作簿book9.xlsm ，把hello放在单元格A1中。 book9.xlsm是我将从A1拉取价值的一个。考虑代码 Sub PullValue() With Range("A1") .Formula = […]

Excel NORMDIST函数的C ++实现中的魔术数字: 在寻找Excel的NORMDIST （累计）函数的C ++实现时，我在一个网站上find了这个： static double normdist(double x, double mean, double standard_dev) { double res; double x=(x – mean) / standard_dev; if (x == 0) { res=0.5; } else { double oor2pi = 1/(sqrt(double(2) * 3.14159265358979323846)); double t = 1 / (double(1) + 0.2316419 * fabs(x)); t *= oor2pi * exp(-0.5 * x * x) […]

Excel中三个IF语句: 我需要编写一个IF函数来执行以下操作。我有两个参数： A: x B: x If "A1" is "x" and "B1" is "" -> "1" If "B1" is "x" and "A1" is "" -> "2" If "A1" and "B1" is "x" -> "3" If in "A1" and "B1 is nothing -> "4" 我想出了这个function，但它不能正常工作： =IF(A1="x";"1";IF(B1="x";"2";IF(A1="x";"3";"4")))

Excel内置或VBAfunction来格式化文本的一部分（如颜色）: 我需要格式化第一行多行文本单元格的颜色（或粗体文本…）。所以我得到了 = myfunction（firstLine，secondLine），然后产生（在一个单元格内） firstLine (vbLf) secondLine 但我需要它来生产 **firstLine** (vbLf) secondLine （第一行是粗体）所以只是一个string的一部分，但在VBA函数中。我可以在Sub里面做类似的事情 lngPos = InStr(myCell.Value, vbLf) With myCell.Characters(Start:=1, Length:=lngPos – 1).Font .FontStyle = "Bold" End With 但我不能find一个方法如何做到这一点，如果它甚至是可能的。

根据一天的时间使用单元格值: 我需要创build一个电子表格，根据一天的时间从单元格中提取数据。在“A”栏中，我有一天中的所有时间，从0到23; 在“F”列中，我有一系列与正在跟踪的使用行为有关的任意数字。我想创build一个公式，例如，在下午4点，向我展示与数字“16”相关的“F”列的值。例如：在午夜，获得与A1相关的“F”列值（因为是午夜），那么F1 = X（其中X是第一行的任意数字）。有任何想法吗？

自定义函数不能在Excel VBA中使用: 由于某些原因，自定义函数似乎不在Excel中运行。我在下面创build了这个简单的函数，但它总是返回零作为一个值，无论它是作为工作表函数使用还是从过程调用。任何人都知道我做错了什么，或者如果有什么地方我失踪的设置？ Public Function Testthisout(number As Double) As Double result = number * number End Function Public Sub TESTFUNCTION() Dim number As Double Dim result As Double Application.Volatile (True) number = 4 result = Testthisout(number) MsgBox result End Sub

函数检查string的az: 我要：沿着特定的列H （从H4开始）循环，并且对于沿着该列的每个单元格，调用一个函数来判断它是否为真（然后执行某些操作），或者是否出现错误（执行其他操作）。我得到运行时错误***invalid use of property***对Call Isletter ***invalid use of property*** 。 Sub IfBlank() Dim Rng As Range Dim MyCell As Range Dim Isletter As Range Set Rng = Range("H4:H" & Cells(Rows.Count, "H").End(xlUp).Row) For Each MyCell In Rng Call Isletter If Isletter(MyCell.Value) = True Then 'do nothing End If If Isletter(MyCell.Value) = […]