VBA怎样才能将文本形式的日期转化成数值！

lj1226189 · 发表于 2005-8-26 14:54

vWjntM6t.rar (32.04 KB, 下载次数: 54)

lj1226189 · 发表于 2005-8-26 15:16

多谢龙三老师！

[此贴子已经被作者于2005-8-26 15:20:10编辑过]

chat163 · 发表于 2005-8-26 15:34

楼主看看这个好像更加简单一些：

Sub aa() For i = 2 To 316 If Sheet1.Cells(i, 18) <> "" Then Cells(i, 18).Select ActiveCell.Offset(0, 3).FormulaR1C1 = "=VALUE(RC[-3])" Else Sheet1.Cells(i, 18) = 0 End If Next End Sub

ssn4CAyU.rar (34.56 KB, 下载次数: 26)

[此贴子已经被作者于2005-8-26 15:36:34编辑过]

lj1226189 · 发表于 2005-8-26 16:35

自已做出来了，用循环判断就可以了！

请龙三老师指正！

Sub hjs()

Dim arr

Dim rng As Range

i = Sheet1.[r65536].End(xlUp).Row

Set rng = Range("r1:r" & i)

arr = rng

rng.Clear

For i = 1 To i

If arr(i, 1) <> "" Then

arr(i, 1) = arr(i, 1)

Else

arr(i, 1) = 0

End If

End Sub

[此贴子已经被作者于2005-8-26 16:50:50编辑过]

Long_III · 发表于 2005-8-29 09:56

For i = 1 To i If arr(i, 1) ＝ "" Then arr(i, 1) = 0

Long_III · 发表于 2005-8-26 15:45

楼主，你也学数组这么久了，最基本的做个循环判断就可以了啊

Long_III · 发表于 2005-8-26 14:59

我记得你问过这个问题，我也回答过，方法还是上次的，你试试

Sub hjs() Dim arr Dim rng As Range Set rng = Range(Range("r1"), Range("r1").End(xlDown)) arr = rng rng.Clear rng = arr End Sub

Long_III · 发表于 2005-8-26 15:02

http://club.excelhome.net/viewthread.php?tid=108823

在里面你说我的方法不可以，为什么？我这里都是可以的啊，注意一下数组不能在筛选情况下使用

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

VBA怎样才能将文本形式的日期转化成数值！

是可以的但中间空的单元格如果是空的能否转化为0！

不好意思！