使用宏在 excel 中分配和检索 excel cellValues

Posted 2023-04-19

【中文标题】使用宏在 excel 中分配和检索 excel cellValues

【英文标题】：Assign and retrieve excel cellValues in excel by using macros

【发布时间】：2014-05-19 16:21:05

【问题描述】：

我是 VB 编程新手。无法弄清楚我在这里做错了什么：

Dim somevariable as Integer

somevariable = WorksheetFunction.QUOTIENT(Range(Sheet1!A1), Range(Sheet1!B1))

谢谢

【问题讨论】：

运行代码时遇到什么错误？

运行时错误 '424'" 需要对象

【参考方案1】：

根据给定的详细信息，全新的答案。您正在使用VBA，因此您可以调用 WorksheetFunctions 喜欢

Dim someVariable
someVariable = WorksheetFunction.Quotient(Worksheets("Sheet1").Cells(1, "A").Value, Worksheets("Sheet1").Cells(1, "B").Value)
Debug.Print someVariable

MSDN WorksheetFunction 上有一个很好的支持功能列表。请在链接页面上选择您当前的 Excel 版本。

此外，我发现另一个关于您的问题的非常重要的网站指出并非所有 WorksheetFunction 都支持作为应用程序。 （见support.microsoft.com）

所以我搜索了解决方法，并在*** 上找到了一个非常简单的解决方法。但另一方面 - 你真的可以使用 VBA 内置运算符 MOD

' created some variables, as I made some attempts on creating a good example
Dim value1
value1 = Worksheets("Sheet1").Cells(1, "A").Value

Dim value2
value2 = Worksheets("Sheet1").Cells(1, "B").Value

someVariable = value1 Mod value2
Debug.Print someVariable

' of course you may use a single line statement too
someVariable = Worksheets("Tabelle1").Cells(1, "A").Value Mod Worksheets("Tabelle1").Cells(1, "B").Value

我认为有一些很好的链接可以深入研究。

【讨论】：

好的，在我得到的一些建议和更多尝试之间，我得到了这个工作： somevariable = WorksheetFunction.Quotient(Worksheets("Sheet1").Cells(1, "A") .Value, Worksheets("Sheet1").Cells(1, "B").Value) 但是当我尝试使用 Excel 的 MOD 函数做同样的事情时，我收到一个新错误“运行时错误 438：对象不支持这个属性或方法”。这是完全相同的代码，除了在一种情况下我使用 Excel“QUOTIENT”函数，而在第二种情况下我使用 MOD 函数。有什么想法吗？

另外 - 很抱歉没有格式化 - 我阅读了说明。我在我的代码前面放了 4 个空格，但它没有显示为缩进的单行距代码。我用 2 个空格结束了几行以创建一个换行符。这似乎也不起作用

我会看看你的新问题。但首先请确认我们说的是VB.net，而不是VBA。此外，请添加更多信息，例如。您使用的是什么框架版本或什么办公版本。

不是开发人员（因此对两者之间的区别没有深入了解）我会说我在谈论 VBA。我只是想在 Excel 中的宏中做一些事情。我正在运行 MSOffice 2010 和 2013（取决于我是在工作中还是在家里）

所以你在宏中编码——它是 vba。 VB.Net 将在 VisualStudio 中并针对 .net 框架进行编码。我会重新检查我的答案并为您的问题添加一些新代码

【参考方案2】：

试试这个

somevariable = WorksheetFunction.QUOTIENT(Worksheets("Sheet1").Range(A1), Worksheets("Sheet1").Range(B1))

【讨论】：

谢谢大家 - Pilgerstorfer 给了我我想要的东西，但我从大家的回答中学到了很多。