在vba中，用Cells.Value取出来的值不等于看到的值

cloudburst 2006-11-07 04:53:20

别人给我个excel，要做个简单的vba宏，
其中文本框的内容是"**.**%"类型的数字，但我用Cells.Value方法取出来的值却很大，根本不等于看到的数字。

我找了半天，发现excel中的文字字体是“Arial Unicode MS,Andale WT,Taho”类型的
不知道是不是因为unicode的原因。如果是这个原因，我应该怎么转换呢

...全文

351 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

Sheets(2).Cells(j, 20).Value = Sheets(2).Cells(j, 20).Value + Sheets(1).Cells(i, 14).Value ' NGName = Split(Sheets(1).Cells(i, 19).Value, ",") ' NGQty = Split(Sheets(1).Cells(i, 18).Value, ",") ...

If Sheet1.Cells(1, 1).Value = Sheet1.Cells(1, 2).Value Then MsgBox (Sheet1.Cells(1, 1).Value > 1) End If Sheet1.Cells(1, 1).Value = "" If Sheet1.Cells(1, 1).Value = Sheet1.Cells(1, 2).Value Then ...

本课程主要结合Excel VBA介绍VBA语言的基本语法，为后面学习Office和WPS Office办公自动化打下基础。相关套餐：所属系列课程：Python+VBA办公自动化系列课程-CSDN程序员研修院。20+课程，不断增加和更新。 ...

在vb.net中可定时执行windows程序。下面介绍定时执行vba程序过程: 1.Application.OnTime参数 Application.OnTime(EarliestTime,Procedure as String,[LatestTime],[Schedule]) EarliestTime调用程序的时间 ...

Dim i As Integer ... ' Application.Cells(Application.ActiveCell.Row, Application.ActiveCell.Column + 1).value = GetPy Application.Cells(cel.Row, cel.Column + 1).Value = GetPy Next Next End Sub

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章