在VBA中处理大数

2023-12-11

如何在VBA中处理10E22这样的非常大的数字?

dim a, b, c as double
a = 1234567890123456789012
c = a / bit
b = a - (c + 1) * bit

我得到 b = 0


按照建议,我改变dim a as double, b as double, c as double,但它仍然关闭:

dim a as double, b as double, c as double
a = 1234567890123456789012
c = a / bit
b = a - (c + 1) * bit

我得到 b = 57344


VBA 中唯一可以处理如此大数字的数据类型是Decimal,作为 Variant 的子类型,不能直接声明,但必须强制转换为,因此您的解决方案将是:

Dim a As Variant
Dim b As Variant
Dim c As Variant

a = CDec("1234567890123456789012")
c = a / bit
b = a - (c + 1) * bit

请注意,大数字还必须写为 String,否则它会自动转换为 Double,并且在将该值转换为 Decimal 之前会丢失精度。

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

在VBA中处理大数 的相关文章

  • VBA 将数据透视表的源数据更新到行尾

    我试图弄清楚当使用 VBA 数据更改时如何将数据透视表源数据更新到行尾 我当前的代码如下 Dim shBrandPivot As Worksheet Dim shCurrentWeek As Worksheet Dim shPriorWee
  • vba - 扫描文档中的宏并替换宏文本?

    我面临一个谜题 我工作的地方有大量的 Word 模板 它们都包含一个包含一些错误的自动新建事件句柄 这个错误存在于所有模板中 我想知道是否有一种方法可以扫描包含此宏的模板的目录并稍微更改宏代码 这可能吗 是的 你可以这么做 您可以使用以下方
  • 使用Excel宏执行命令并关闭cmd窗口

    这是我现在正在尝试的 Sub del BJSFM files Call Shell cmd exe S K cd d C UTAS SA del f s q BJSFM gt nul vbNormalFocus End Sub 问题是命令窗
  • 在Excel中过滤后打印可见区域的宏

    我有一个根据过滤表的宏column A价值观 现在我想打印only过滤器后的可见行 但遗憾的是它打印了所有行 包括过滤期间隐藏的顶部和底部行 在我的工作表中 有来自的数据Column A I 但打印区域只能是Columns C I 过滤后的
  • Python,质数检查器[重复]

    这个问题在这里已经有答案了 你好 我正在创建一个函数来检查一个数字是否是素数 但它告诉我 9 是一个素数 def eprimo num if num lt 2 return False if num 2 return True else f
  • 使用VBA删除Excel中的非重复数据

    我尝试删除非重复数据并保留重复数据 我已经完成了一些编码 但什么也没发生 哦 这是错误 哈哈 这是我的代码 Sub mukjizat2 Dim desc As String Dim sapnbr As Variant Dim shortDe
  • Excel 公式或 VBA:在具有 2 列条件的单独表中查找匹配的地址 - 无辅助列

    我需要公式结构方面的帮助 我有2张桌子 我想找到 a 列和 b 列相等的匹配项并获取表 2 中的地址 它们将是唯一的条目 例如 项目信息表 A B C 1 Name Company Project 2 Chris Evans Apple I
  • 在没有加载项的情况下加载 Excel

    All 我编写了一个电子表格应用程序 用户通过双击我提供的图标来加载它 问题是用户有很多插件 这会降低 Excel 的速度 如何使用命令行开关加载 Excel 来禁用所有加载项 该问题适用于 Excel 2003 和 Excel 2007
  • 如果单元格包含 1 个或多个关键字,则更改不同单元格的值

    我有一个列 其中包含一些字符串描述 例如 Bob davids mowing the lawn tipping cows 此外 我将在不同的工作表或列上列出关键字列表 例如工作关键字列表1 davids work 播放关键字列表 mowin
  • 使用 VBA 从数据透视表中提取数据

    我编写了以下 vba 代码 该代码应该从 old xlsx 的某些单元格导入任何现有数据 这些单元格是数据透视表的一部分 并且 OE gt location gt qual in 作为其行的子单元格 该列由手动输入的日期决定 strForm
  • 尝试使用变量作为自动过滤器中的条件,并带有“不等于”<>,但无法使其工作

    我正在使用 Excel VBA 使用 不等于 表达式来过滤列表 如果我使用Criteria1 lt gt Bob 代码运行完美 但如果我将 Bob 更改为变量 代码将无法运行 这有效 ActiveSheet ListObjects Rpt
  • VBA C# DLL 未注册

    我制作了一个 C NET dll 我想从 VBA 运行它而不注册它 我找到了解决方案there https stackoverflow com a 13333819并且它可以完美工作 但前提是程序集是使用 Framework NET 3 5
  • 是否有任何公式可用于将特定单元格复制指定次数?

    目前我正在处理一份数据 其中我有一个公司名称列表 例如 1 A 2 B 3 C 还有很多 需要的结果是 1 A 2 A 3 A 4 A 5 A 6 B 7 B 8 B 9 B 10 B 11 C 12 C 13 C 14 C 15 C 等等
  • 将浮点型转换为双精度型

    我正在尝试转换Single to Double同时保持原来的价值 我找到了以下方法 Single f 5 2F Double d1 f 5 19999980926514 Double d2 Double Parse f ToString 5
  • Outlook 中用于删除重复电子邮件的宏 -

    Public Sub RemDups Dim t As Items i As Integer arr As Collection f As Folder parent As Folder target As Folder miLast As
  • 您可以调整用户窗体的这些代码吗:使其小而高效

    当 userfrom 按以下顺序激活时 我想在运行时添加动态用户表单控件 例如 标签 文本框 我想要类似以下的东西 当用户表单激活时 它需要询问用户字段的数量 他 她想要插入 如果用户回答7 则需要按以下顺序添加字段 3 列顺序 标签1 文
  • 如何暂停特定时间? (Excel/VBA)

    我有一个 Excel 工作表 其中包含以下宏 我想每秒循环一次 但如果我能找到执行此操作的函数 那就很危险了 难道不可能吗 Sub Macro1 Macro1 Macro Do Calculate Here I want to wait f
  • 使用 VBA 使用另一个表中的值更新访问表

    我在数据库中有两个表 表 1 和表 2 我正在尝试根据表 2 中的数据使用 VBA 代码更新表 1 Example Table 1 PartNo Price Description A 100 B 200 Bad C 300 Table 2
  • VBA 中的求和函数

    我在 vba 中对单元格求和时遇到问题 我需要使用单元格 a b Range A1 function SUM Range Cells 2 1 Cells 3 2 但它不起作用 函数不是范围内的属性 方法 如果您想对值求和 请使用以下命令 R
  • 如何获取 Word 应用程序的 Hwnd/进程 ID,并将其设置为前台窗口

    我希望我的 Word 应用程序在自动化完成后进入前台 Excel 中的等效项很简单 Excel Application 对象有一个 Hwnd 属性 您可以将其与 Windows API 结合使用 SetForegroundWindow In

随机推荐

  • 如何找到两种颜色之间的所有颜色?

    我需要选择两种颜色 然后在它们之间找到 X 种颜色 或色调 每种颜色之间的 距离 相同 我还是不明白颜色是如何形成的 我应该尝试使用 HSV RGB 还是十六进制 除非你真的知道什么kind您需要多少种颜色 获得所有颜色几乎是不可能的bet
  • R 添加具有预定义模式的新列

    我正在尝试学习如何提供可重现的 R 示例以防我将来需要一个 我用SimSurv 函数 我想向其中添加六个新列 二进制变量 这些列的值不应平行或相交 var1元素 1 到 100 的值必须为 1 其余为 0 var2将从 101 开始到 20
  • Swift - 如何在 UITableViewCell 中使用 CollectionViewCell 打开另一个视图控制器

    我对 iOS Swift 非常陌生 而且我正在进行一个小项目 在这个项目中 我在 ViewController 中有一个 UITableView 我在 UITableViewCell 旁边有另一个文件自定义 CollectionViewCe
  • Python 2.7 str(055) 返回“45”而不是 055 [重复]

    这个问题在这里已经有答案了 为什么我在 python 2 7 中得到以下结果 而不是 055 gt gt gt str 055 45 055是一个八进制数 其十进制等效值是45 use oct以获得正确的输出 gt gt gt oct 05
  • 如何在 iOS 4 中更改 iPhone 应用程序的首选语言

    已讨论更改 iPhone 应用程序的语言many times 但我坚持这一点 提供的解决方案需要重新启动应用程序才能使更改生效 但如何在 iPhone 4 上实现这一目标呢 按 home 会将应用程序发送到后台 单击应用程序图标只会将其返回
  • Bash - 当新行出现时只转到下一个索引,而不是空格?

    我正在使用名为 jq 的工具解析 JSON 响应 jq 的输出将在命令行中提供全名列表 我有变量getNames其中包含 JSON 例如 count 49 user username jamesbrown name James Brown
  • 根据 pandas 列中的列表值从 DataFrame 中选择行

    我是 pandas 的新手 我有一个简单的数据框 想要根据列提取某些行 然而 此列中的类型是列表 Example df pd DataFrame text1 1 2 3 text2 2 3 4 columns text list value
  • rake asset:precompile 和 RAILS_ENV=生产 rake asset:precompile 之间有什么区别?

    这两个任务有什么区别 为什么我需要在 cap 部署时添加 RAILS ENV production thanks 您需要指定RAILS ENV production环境变量 以便您的config environments productio
  • N2965 - std::bases 和 std::direct_bases 的状态是什么?

    我正在编写一个模板 它确实需要了解其参数类型的所有基类 这std bases提出的特质N2965非常适合此目的 但是我找不到有关其状态的任何可靠信息 这个提案还有效吗 如果是这样 我们什么时候可能会看到它标准化 如果没有 是否还有其他提案可
  • spect.currentframe() 在某些实现下可能不起作用?

    根据docs inspect currentframe 返回调用者堆栈的框架对象 框架 CPython实现细节 该函数依赖于Python堆栈 解释器中的框架支持 不保证存在于 Python 的所有实现 如果在没有的实现中运行 Python
  • 未为内部服务器错误响应 ASP.NET Core 3.1 设置 CORS 标头

    这是我的 CORS 配置 services AddCors options gt options AddPolicy name AllowedOrigins policyBuilder gt var urls Configuration G
  • 选择大于某个值的列

    我的问题看起来很简单 但我查了很多答案 但没有找到合适的答案 所以我有一个小数据 如下所示 我希望 count 36 只查找包含大于 36 的列 我的代码如下 count 36 lt df which df 1 19 gt 36 数据如下所
  • Tkinter 树视图选择

    from Tkinter import from ttk import import tkMessageBox class Application Frame def selected self curItem self tree focu
  • 修改 bash 脚本中的 $READLINE_LINE 和 $READLINE_POINT 值

    接听时这个问题我用了一个非常凌乱的bind函数根据 my 的结果修改当前行automplete sh script 当我最终将此脚本用于个人用途时 我尝试简化bind并尝试直接在脚本内进行所有读取和修改 到目前为止 我可以访问 READLI
  • WP7 - 列表框绑定

    我有一个 ObservableCollection 我想将其绑定到我的列表框 lbRosterList ItemsSource App ViewModel rosterItemsCollection 但是 在该集合中我还有另一个集合 Dat
  • [[: 找不到命令

    我正在没有 sudo 权限的系统上安装 RVM 理论上它应该工作得很好 但是当我添加时 s HOME rvm scripts rvm source HOME rvm scripts rvm 到 bash profile 它没有做它应该做的事
  • 检查项目后会触发哪个 CheckedListBox 事件?

    我有一个 CheckedListBox 我想要一个事件after检查一个项目 以便我可以将 CheckedItems 与新状态一起使用 由于 ItemChecked 在 CheckedItems 更新之前被触发 因此它无法开箱即用 当 Ch
  • 替换功能不替换[重复]

    这个问题在这里已经有答案了 我按照一些文档使用 JavaScript 替换函数 但它没有改变任何内容 不会抛出任何错误 知道我做错了什么吗 该变量是从 XML 中检索的 也许需要将其转换为字符串或其他内容 for var i 0 iln p
  • 通过 jQuery 在 YouTube 嵌入电影中启用自动播放

    我使用以下代码嵌入 YouTube 电影 正如您在 src 属性中看到的 有一个变量 autoplay 0 我在 jQuery 中编写了两行脚本 应将 autoplay 变量设置为 1 var title iframe ytplayer a
  • 在VBA中处理大数

    如何在VBA中处理10E22这样的非常大的数字 dim a b c as double a 1234567890123456789012 c a bit b a c 1 bit 我得到 b 0 按照建议 我改变dim a as double