[已解决]请帮忙窗体Vba问题谢谢

kenliu75

请看附件： 窗体的TextBox为空.rar (32.85 KB, 下载次数: 23)

2011-9-5 08:30 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2011-9-5 08:53

1. Private Sub RangToText(ByVal RW As Integer)
   
2.     With Sheets("Sheet1")
   
3.         For i = 1 To 141
   
4.             If .Cells(RW, i) = 0 Then
   
5.                 Me.Controls("TextBox" & i).Value = ""
   
6.             Else
   
7.                 Me.Controls("TextBox" & i).Value = .Cells(RW, i)
   
8.             End If
   
9.         Next i
   
10.     End With
    
11.     ShowStat
    
12. End Sub

复制代码

是这儿吗

跳转到最佳答案楼层

爱疯

1. Private Sub RangToText(ByVal RW As Integer)
   
2.     With Sheets("Sheet1")
   
3.         For i = 1 To 141
   
4.             If .Cells(RW, i) = 0 Then
   
5.                 Me.Controls("TextBox" & i).Value = ""
   
6.             Else
   
7.                 Me.Controls("TextBox" & i).Value = .Cells(RW, i)
   
8.             End If
   
9.         Next i
   
10.     End With
    
11.     ShowStat
    
12. End Sub

复制代码

是这儿吗