[已解决][求助]再请教按位排列的问题

东方智彩

如题，看附件！继续请教！谢谢！

 

jFvxsFIp.rar (11.3 KB, 下载次数: 1)

2009-9-14 14:02 上传

点击文件名下载附件
[求助]再请教按位排列的问题

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-14 15:11

Private Sub CommandButton1_Click()
Dim Rng As Range
Sheet1.Range("D204:Q204").ClearContents
For Each Rng In Sheet1.Range("EN204:FA204")
If Val(Rng.Value) > 0 Then
Sheet1.Cells(204, 3).Offset(0, Rng.Value) = "'" & Format(Rng.Value,"00")
End If
Next
End Sub

[此贴子已经被作者于2009-9-14 15:11:18编辑过]

跳转到最佳答案楼层

amulee

Private Sub CommandButton1_Click()
    Dim Rng As Range
    Sheet1.Range("D204:Q204").ClearContents
    For Each Rng In Sheet1.Range("EN204:FA204")
        If Val(Rng.Value) > 0 Then
            Sheet1.Cells(204, 3).Offset(0, Rng.Value) = Rng.Value
        End If
    Next
End Sub

[此贴子已经被作者于2009-9-14 14:35:03编辑过]

函数小菜鸟

Private Sub CommandButton1_Click()
    I = 204
    MsgBox Format(2, "00")
    arr1 = Sheets("SHEET1").Range("EN" & I & ":FA" & I)
    For j = 1 To UBound(arr1, 2)
        If arr1(1, j) <> "-" And arr1(1, j) <> "" Then
            Cells(I, arr1(1, j) + 3) = Format(arr1(1, j), "00")
        End If
    Next

       
End Sub

东方智彩

先谢谢老师及版主了，我验证后代码非常棒，只是能不能让数值双位显示，如01&nbsp; 02&nbsp;&nbsp; 03&nbsp;&nbsp; 05等等

amulee

Private Sub CommandButton1_Click()
Dim Rng As Range
Sheet1.Range("D204:Q204").ClearContents
For Each Rng In Sheet1.Range("EN204:FA204")
If Val(Rng.Value) > 0 Then
Sheet1.Cells(204, 3).Offset(0, Rng.Value) = "'" & Format(Rng.Value,"00")
End If
Next
End Sub

[此贴子已经被作者于2009-9-14 15:11:18编辑过]