我的代码到底是哪里错了?

[china25qd]

rivate Sub CommandButton1_Click()
Dim dateCounter As Range
Dim Number As Range
Dim t1 As Range
Dim t2 As Range

t1 = TextBox1.Text
t2 = TextBox2.Text

Set Number = Worksheets("数据元").Range("A2:A12")
For dateCounter = t1 To t2
Worksheets("Sheet4").Columns(2).Value = Number

Dim day As Range
Dim i As Integer
For i = 1 To 11
day = dateCounter
Worksheets("sheet4").Colmuns(1).Value = day
Next i
Next dateCounter
End Sub


我需要生成一个第一列是日期,第二列是号码(来自"数据元"表)的表格,由于有11个号码,所以每个日期必须循环11次,格式如下:

日期1 号码1
日期1 号码2
...
日期1 号码11
日期2 号码1
日期2 号码2
...
日期2 号码11
...

t1和t2用来导入起始日期和终止日期.

[ChinaOBS]

Dim t1 As Range
Dim t2 As Range

t1 = TextBox1.Text
t2 = TextBox2.Text
=====================================================================
t1和t2都是Range，怎能这样赋值？
应该是诸如此类：
set t1=Worksheets( "数据元 ").range(text1.text)
set t2=Worksheets( "数据元 ").range(text2.text)
... ...

[china25qd]

还是不行
运行的时候显示"dateCounter类型不匹配"

[ChinaOBS]

For dateCounter = t1 To t2
遍历区域中的每一个单元格，一般这样用
For Each Rng in YourRange
...
Next
t1和t2是什么关系？应该整合成一个区域

[china25qd]

t1是初始时间,t2是结尾时间
都是用YYYYMMDD的格式来输入的

[china25qd]

还有啊,VB里有没有像CFormat这样的强制类型转换方法?

[UltraBejing]

我也想了解，谢谢LZ.