程序员经验分享-hwhale

将 VBA 字符串转换为双精度

2024-06-04

我正在使用非常基本的 VBA for word 编码来创建一个模板，该模板可以从 Windows 中的其他屏幕中提取数据。当它提取数字时，它们被格式化为字符串。我现在需要将字符串转换为双精度，以便对它们进行加/减。我一直在尝试一切，但似乎无法弄清楚。

Me.salesprice = Trim(scrn.GetString(11, 65, 10))
'This would be formatted as 25,000.00
Me.salestax = Trim(scrn.GetString(12, 66, 10))
Me.pastdue = Trim(scrn.GetString(14, 65, 10))
Me.assessedppt = Trim(scrn.GetString(18, 66, 10))
Me.secdep = Trim(scrn.GetString(17, 65, 10))

assessedppt = Convert.ToDouble(Me.assessedppt)
uappt = Convert.ToDouble(Me.uappt)
salesprice = Convert.ToDouble(Me.salesprice)
salestax = Convert.ToDouble(Me.salestax)
pastdue = Convert.ToDouble(Me.pastdue)
lc = Convert.ToDouble(frmDetails.lc)

totalfinance = salesprice + salestax + pastdue - secdep + assessedppt + uappt + lc
totalsalesprice = salesprice + pastdue
ppt = assessedppt + uappt

当我这样做时，我收到以下错误：

编译错误：变量未定义，并且突出显示第一个 转换功能。


您使用了错误的函数进行转换。您需要使用CDbl，在VBA中我们有以下转换函数：

numberDouble = CDbl("10") 'For convert to double
numberInteger = CInt("12") 'For convert to Integer
varString = CStr("11") 'For convert to String
bool = CBool("true") 'For convert to Boolean

因此，如果您更改 Convert.toDouble，您的代码将如下所示：

Me.salesprice = Trim(scrn.GetString(11, 65, 10))
'This would be formatted as 25,000.00
Me.salestax = Trim(scrn.GetString(12, 66, 10))
Me.pastdue = Trim(scrn.GetString(14, 65, 10))
Me.assessedppt = Trim(scrn.GetString(18, 66, 10))
Me.secdep = Trim(scrn.GetString(17, 65, 10))

assessedppt = CDbl(Me.assessedppt.value)
uappt = CDbl(Me.uappt.value)
salesprice = CDbl(Me.salesprice.value)
salestax = CDbl(Me.salestax.value)
pastdue = CDbl(Me.pastdue.value)
lc = CDbl(frmDetails.lc.value)

totalfinance = salesprice + salestax + pastdue - secdep + assessedppt + uappt + lc
totalsalesprice = salesprice + pastdue
ppt = assessedppt + uappt
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

string

vba

typeconversion

double

将 VBA 字符串转换为双精度 的相关文章

  • 如何重载Lua字符串下标运算符？

    This debug getmetatable index function s i return s sub i i end 和这个 debug getmetatable index proc lua read 不起作用 Try debu

  • 给定 2 个句子字符串计算余弦相似度

    From Python tf idf cosine 查找文档相似度 https stackoverflow com questions 12118720 python tf idf cosine to find document simil

  • 如何从整数生成 unicode 字符？

    我想创建一个 Unicode 字符数组 但我不知道如何将整数转换为 Unicode 表示形式 这是我到目前为止的代码 NSMutableArray uniArray NSMutableArray alloc initWithCapacity

  • grep 以特定字符串开头的行

    我想找到文件中以特定字符串开头的所有行 问题是 我事先不知道字符串里有什么 该值存储在变量中 天真的解决方案如下 grep my string file txt 因为如果 Bash 变量my string包含任何正则表达式特殊字符 grep

  • 如何替换 JavaScript 中出现的所有字符串？

    给定一个字符串 s Test abc test test abc test test test abc test test abc 这似乎只删除了第一次出现的abc在上面的字符串中 s s replace abc 我该如何更换all它的出现

  • C++ MFC 双精度到 CString

    对不起我的英语不好 我需要将 double 值转换为 CString 因为我需要执行 AfxMessageBox double value 我发现这个 std ostringstream ost ost lt lt double value

  • 如何在 Excel VBA 中仅迭代自动筛选工作表中的行？

    需要仅迭代自动筛选范围中的行 目的是获取行索引 我尝试过这个块 For Each ele In rng RowInd ele Rows Address RowNum Split RowInd 2 Next ele 这会在 rng 中的所有

  • 如何在 Swift 中按换行符分割字符串

    我有一个从文本文件中获得的字符串 文本文件 Line 1 Line 2 Line 3 我想将其转换为数组 每行一个数组元素 Line 1 Line 2 Line 3 根据文件的保存方式 字符串可能采用以下形式之一 string Line 1

  • Java BigDecimal 区别

    我想看看是否有人可以解释为什么以下代码适用于 valueOf 而不适用于其他代码 import java math BigDecimal public class Change public static void main String

  • Tesseract 无法读取这个极其简单的数字串

    我目前正在用 python 编写一个脚本 需要使用 tesseract 来读取如下数字 仅使用数字和 psm 6 或 7 它输出 5 551 我在其他数字上取得了一些成功 5 700 有效 但这个特定的数字给我带来了很多问题 不幸的是 我的

  • 简单 C 字符串函数上的 Valgrind 错误

    让我们考虑这个简单的测试程序 include

  • 如何使用 VBA 在 Excel 2010 工作表中添加选项按钮以进行分组？

    I want to add many option button to an excel worksheet not to a VBA form and want to group them by row The result should

  • 在vba中为图例设置颜色代码

    我在每个工作表中都有数据透视表 我必须对它们进行比较 但每个工作表中图例的颜色都不同 如何设置颜色 例如 如果我的图例条目是 ISO 我希望它始终为 蓝色 如果它是 LAT 我希望它在每张纸中都为 红色 这可以通过操纵来完成Series中的

  • 双除以零：为什么结果不一致？

    为什么结果是 double a 0 0 0 0 double b 0 0 0 NaN 但结果例如 double e 0 1 0 0 double e 12 0 0 0 double f 1 0 0 0 Infinity 我明白那个doubl

  • 创建具有子级别的类属性

    我一直在读这个topic https excelmacromastery com vba class modules A Quick Guide to the VBA Class Module关于如何使用类模块 我的目标是提高代码性能和可读

  • 评估 R 中字符串指向的函数

    假设我有以下内容 x lt 1 10 squared lt function x x 2 y lt squared 我希望能够使用 y 定义的字符串来评估该函数 像 eval y 这样的东西 我知道这是错误的 但会返回 1 1 4 9 16

  • 如何使用正则表达式选择字符串中每个单词的第一个字母

    我试图使用正则表达式选择字符串中每个单词的第一个字母 但遇到了问题 我能够使用选择第一个单词的第一个字母 w igm 我如何修改它以选择字符串中每个单词的第一个字母 举个例子 我有字符串 我喜欢狗 我想要代码选择 I L 和 D Use a

  • VBA：如何从 MS Access 运行另一个应用程序

    我一直在试图解决这个问题 但似乎我在任何地方都找不到解决该问题的方法 这是第一部分 VBA Shell 命令始终返回 找不到文件 https stackoverflow com questions 10439024 vba shell co

  • Java中的文字赋值[重复]

    这个问题在这里已经有答案了 定义上有什么区别 double example 23 1d or double example 23 1 为什么long float double可以以l f d结尾 之间没有区别double example 2

  • Python 按照层次结构按多个分隔符分割字符串

    我只想根据多个分隔符 例如 and 和 按顺序分割字符串一次 例子 121 34 adsfd gt 121 34 adsfd dsfsd and adfd gt dsfsd adfd dsfsd adfd gt dsfsd adfd dsf

随机推荐

  • 现实世界中的 JavaCard 3？

    我目前正在从事我的文凭工作 部分工作包括开发JavaCard常规小程序SIM牌 第一个选项是使用JavaCard2 X API并使用APDU与小程序通信的命令 这可能非常棘手 因为我需要为 android 开发客户端应用程序 它将与这个小程

  • 如何解决 MVC 中的“访问令牌已过期，但我们无法刷新它”

    我目前正在研究谷歌API其目的是获取登录者的圈子 我已经有了访问令牌但问题是每当我尝试运行我的代码时它都会返回此异常 访问令牌已过期 但我们无法刷新它 我该如何解决这个问题 var claimsforUser await UserManag

  • 使用 google 查询邮政编码距离

    我有两个邮政编码列表 R 语言 其中一个是孩子的地址及其学业成绩 另一个是学校的地址 我希望能够为每个孩子找到最近的学校 所以大概需要通过转换为长和纬度值来计算邮政编码之间的距离 然后我希望能够在谷歌地图上绘制每所学校的所有孩子 并看看住在

  • 如何给Servant中的所有端点添加前缀？

    我在 Haskell 仆人中有一个 hello world 应用程序 这是其中的一部分 type API my items gt Get JSON MyItem lt gt my items gt Capture id Int gt Get

  • jQuery 可排序连接多个列表

    我有两个列表 每个列表中有 8 个列表元素 我想将任一元素拖动到任一列表中 并将两个列表的总顺序放在一起 目前 该顺序被归类为两个单独的可排序列表 0 1 2 3 4 5 6 7 0 1 2 3 4 5 6 7 不过我希望它是 显然按照元素

  • std::string 到 LPCTSTR

    新版本典型问题如何转换而来std string to LPCTSTR 从不同的帖子中我了解到我应该这样做 CreateDirectory path c str NULL 编译器仍然给出错误 因为cannot convert from con

  • ListView 和 CursorAdapter 对于大量数据的性能问题

    我在 sqlite 表中有大约 4k 行 表有 7 列 我用自己的 CursorAdapter 创建了工作 ListView 查询是这样的SELECT FROM table ORDER BY column DESC 表有第一列 id INT

  • 如何将react-alert与定义为ES6类的React组件一起使用

    我正在尝试使用https www npmjs com package react alert https www npmjs com package react alert在我的项目中 但是为声明为函数的 React 组件提供了示例 但我的

  • 如何通过运行构建队列重新启动 Jenkins？

    我们的 Jenkins 执行大量集成测试 詹金斯运行的时间越长 测试所需的时间就越长 因此 我们每天晚上通过 cronjob 重新启动 Jenkins 服务器 同时 构建队列太长而无法完成 当前正在运行的作业被取消并失败 那太丑了 我找到了

  • 使用 C# 和 Open XML 从 Excel 到 DataTable

    我正在使用 Visual Studio 2008 我需要创建一个DataTable使用 Open XML SDK 2 0 从 Excel 工作表中获取 我需要使用工作表第一行的 DataTable 列创建它 并使用其余值完成它 有谁有示例代

  • 使用 dtexec 运行 SSIS 包

    我正在使用 dtexec 运行 SSIS 包 该软件包在我的系统上的 BIDS 中运行良好 当我创建 SQL Server 代理作业以按计划运行包时 包运行步骤被安排为 T SQL 任务 而不是 SSIS 包 该作业没有报告错误 但它甚至没

  • 编程语言之间的关系

    我想知道以下问题 这是什么意思 有些语言是 另一个的子集 超集 http www c2 com cgi wiki ForeignFunctionInterface 能 是用数学来定义的吗 是吗 与子集 超集相关 初等集合论中的概念 几乎所有

  • jqGrid cellattr 标题忽略空格后的文本

    我在 jqgrid 中有 colmodel 它有 名称 和 描述 列 我需要将鼠标悬停在 名称 列上时将描述显示为工具提示 假设我有这个模型 例如 colModel name name cellattr function rowId val

  • 无法让 ASCII 艺术回显到控制台

    我是 Bash 脚本新手 这让我感到困惑 我正在将 ASCII 艺术添加到项目中 但似乎无法弄清楚如何转义某些字符 有人可以帮我让下面的代码正常工作吗 每当我尝试添加斜杠作为转义字符来修复错误时 斜杠也会在执行时打印到控制台 这破坏了形象

  • 在 React 中过滤数据的最佳方法是什么？

    我正在建立该国餐馆的目录 该 API 返回一组对象 每个对象都包含诸如restaurantName restaurantLocation restaurantPriceRange 等字段 我想创建一个过滤组件 它将餐厅数组减少到仅包含那些符

  • Django：ModelForm 管理员的当前用户 ID

    我想用当前用户过滤 ModelChoiceField 我找到了一个非常接近我想做的解决方案 但我不明白Django 如何在管理表单中获取当前用户 https stackoverflow com questions 2864955 djang

  • 如何从特定单元格获取值 C# Html-Agility-Pack

    如何从文档中第二个表中的特定位置获取值 我需要下面的 html 文档中第二个单元格下方和第三列上方的值 我该怎么做呢 table border 1 tr th Room th th Location th tr tr td Paint td

  • 错误：命名空间“std”中没有名为“enable_if_t”的模板；您的意思是“enable_if”吗？

    我正在 macOS 10 13 6 上使用 Qt 5 11 3 进行编译 Qt使用的clang版本是 Applications Xcode app Contents Developer Toolchains XcodeDefault xct

  • Primefaces 对话框打开后更新

    我想在打开 primefaces 对话框后更新内容 是否可以 我的示例代码如下

  • 将 VBA 字符串转换为双精度

    我正在使用非常基本的 VBA for word 编码来创建一个模板 该模板可以从 Windows 中的其他屏幕中提取数据 当它提取数字时 它们被格式化为字符串 我现在需要将字符串转换为双精度 以便对它们进行加 减 我一直在尝试一切 但似乎无

热门标签