iCAx开思网

标题: TO RAY! [打印本页]

作者: ytsunwj 时间: 2004-10-24 12:32
标题: TO RAY!
这是你要的VB源代码，文件中包含自动宏，请将宏安全性设为“中”

Private Sub CommandButton1_Click()
'TextToColumns将包含文本的一列单元格分解为若干列。Comma Variant 类型，可选。如果该值为 True，则 DataType 为 xlDelimited 且以逗号为分隔符。
Range("a1").Select
Selection.TextToColumns DataType:=xlDelimited, _
    ConsecutiveDelimiter:=True, Comma:=True
    Range("D1").Activate
    TextBox1.Text = ActiveCell
End Sub

作者: ytsunwj 时间: 2004-10-24 12:33
原理就是用逗号为分隔符将单元格分割，然后再定位到对应的单元格。

作者: ytsunwj 时间: 2004-10-24 12:41
单元格中包含数字和英文这种情况如果不拆分单元格的话所有的公式就会返回#VALUE! 就是无法计算

作者: ytsunwj 时间: 2004-10-24 16:01
明白了吧？呵呵

欢迎光临 iCAx开思网 (https://www.icax.org/)