100分相送，一個小問題

[bloodghost]

程序的主要功能是由用戶輸入行列值後，自動產生excel報表，下面是列值的判斷代碼，c代表列值
For b = 1 To c
If b > 9 Then
f = Val(Left$(Str$(b), 1))

ObjExcelSheet.Cells(6, 3 + b).Value = Chr$(48 + f) + Chr$(48 + b - f * 10)這一句是在某單元格中產生10,11,12,.......數值判斷條件有誤，怎麼修改

Else
ObjExcelSheet.Cells(6, 3 + b).Value = Chr$(48 + b)
這一句是在單元格中填入1,2,3,.....9數值
End If

Next b

[wynbfqny]

up 下，明天再来看看

[windcandle]

ObjExcelSheet.Cells(6, 3 + b).Value
改为
ObjExcelSheet.Cells(6, 3 + b).text

[windcandle]

ObjExcelSheet.Cells(6, 3 + b).Value
改为
ObjExcelSheet.Cells(6, 3 + b)