[已解决]请高手给看下代码怎么修改

东方智彩

请高手给看下表1的代码好用,这表2的多一个数不能用,应怎么修改下?谢谢!

OfmLlgTS.rar (21.94 KB, 下载次数: 0)

2010-3-26 15:16 上传

点击文件名下载附件
请高手给看下代码怎么修改

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-26 15:25

Private Sub CommandButton1_Click()
For i = 10 To 13
    If Cells(204, i) <> "-" Then
        Ar = Split(Cells(204, i), "-")
        Sheet2.Cells(204, Val(Ar(0)) + 3) = Cells(2, Val(Ar(0)) + 3)
        Sheet2.Cells(204, Val(Ar(1)) + 3) = Cells(2, Val(Ar(1)) + 3)
        Sheet2.Cells(204, Val(Ar(2)) + 3) = Cells(2, Val(Ar(2)) + 3)
    End If
Next i
End Sub

跳转到最佳答案楼层

amulee

Private Sub CommandButton1_Click()
For i = 10 To 13
    If Cells(204, i) <> "-" Then
        Ar = Split(Cells(204, i), "-")
        Sheet2.Cells(204, Val(Ar(0)) + 3) = Cells(2, Val(Ar(0)) + 3)
        Sheet2.Cells(204, Val(Ar(1)) + 3) = Cells(2, Val(Ar(1)) + 3)
        Sheet2.Cells(204, Val(Ar(2)) + 3) = Cells(2, Val(Ar(2)) + 3)
    End If
Next i
End Sub

东方智彩

哈哈amulee老师在线,谢谢啦!