Question

如何用VBA设置Excel中的单元格数据类型？？？

我想对Excel中的A、B、C列设置数据类型如下：

A列，长整形，字段长度4；
B列，字符串，字段长度10；
C列，双精度，字段长度10，小数位数2；

如何用VBA进行上述设置？？？？？？
上面说的不清楚，具体情况是这样的

我的Excel中有2个表，如下

这2个表在VBA中如下

现在我想如下设置：
表1中

A列，长整形，字段长度4；B列，字符串，字段长度10；C列，双精度，字段长度10，小数位数2；

表2中

A列，双精度，字段长度8，小数位数4；
B列，字符串，字段长度5；

怎么用VBA设置？请给出语句

另外，在进行上述设置时，下面这个部分怎么设置？？

全部设置完后每列的数据类型就自动设置好了吗？还是需要运行，本人初学者，请多多包涵





Answer 1

字符串可以用下面的办法定义指定长度。
Dim bCol As String * 10
Long和Double可以使用范围限定。

追问

Long和Double的定义方法请给出语句

追答

数据是否存在负值？

追问

不存在

追答

设置方法基于数据有效性，表1的设置代码如下，表2类推。

字数限制已发私信，代码缩进已被度娘吃了

Sub DataValidation()
    With Sheets("DataValidation").Range("A:A").Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="-9999", Formula2:="9999"
        .ErrorTitle = "提示"
        .ErrorMessage = "请输入0～9999范围内数值"
        .ShowError = True
    End With
    With Sheets("DataValidation").Range("B:B").Validation
        .Delete
        .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="0", Formula2:="10"
        .ErrorTitle = "提示"
        .ErrorMessage = "请输入10个字符以内文字"
        .ShowError = True
    End With
End Sub