为什么读出来是空字符串？

richardlichade · 发表于 2014-5-14 11:21

本帖最后由 richardlichade 于 2014-5-19 16:45 编辑

我有一个数组变量
variant

从数值型单元格里读出，多数是空值
个别时候却是空字符串，所编的VBA程序就莫法了
例如 team(5,2)=cells(3,4)
这个单元格是空的
按理应该读出空值啊

我心飞翔410 · 发表于 2014-5-14 11:36

压缩附件上传

youfang · 发表于 2014-5-14 11:39

无附件无真相

qh8600 · 发表于 2014-5-14 11:50

没有代码，真相也没有

richardlichade · 发表于 2014-5-14 12:54

Dim c1_team(1000, 5), taihao(30, 2), c2_team(60, 12) As Variant
Dim i, j, k, m, n, r, count, index1, index2, opp, opp1, opp2 As Integer
Dim playsum, playcount, teamsum, round, teamsumend, teamesc As Integer
Dim a, b As Double
Dim team1, team2 As String

Sheets("加3").Activate
round = 10
teamsum = Sheets("初始信息").Cells(2, 5)
playsum = Sheets("初始信息").Cells(3, 5)
playcount = Sheets("初始信息").Cells(4, 5)
teamesc = Sheets("初始信息").Cells(5, 5)

'统计

  For i = 1 To Int((teamsum - teamesc) / 2) + 1
index1 = Sheets("加2").Cells(i + 3, 8)
index2 = Sheets("加2").Cells(i + 3, 9)
c1_team(index1, 1) = index2  '对手号
c1_team(index2, 1) = index1  '对手号
c1_team(index1, 2) = Sheets("加2").Cells(i + 3, 4)  'IMP
c1_team(index2, 2) = Sheets("加2").Cells(i + 3, 5)  'IMP
  Next i

就这么一段
有的单元格是有数据的，就直接取值
多数空格的读后是空值
个别成了空字符串，难过

pengyx · 发表于 2014-5-14 19:20

这个应该不会改变单元格,因为没看见哪句代码是将数据写入单元格的

richardlichade · 发表于 2014-5-15 15:19

c1_team(index1, 2) = Sheets("加2").Cells(i + 3, 4) 'IMP
c1_team(index2, 2) = Sheets("加2").Cells(i + 3, 5) 'IMP

如果单元格上没有数值
数组应该是空值
但却取成空串了

su45 · 发表于 2014-5-15 23:58

首先检查下你的单元格是不是设置成文本格式。

另：Round是VBA内置函数，怎么能作为变量呢？Round=10 这句是不可以的！

richardlichade · 发表于 2014-5-16 09:48

我把round改为tround了
再次检查设置的是数值，小数位为0
仍然不行

su45 · 发表于 2014-5-16 10:50

没附件，没人搞的清楚！

		自动登录	找回密码
密码			注册

为什么读出来是空字符串？

相关帖子