TextBox1分段显示非空单元格数据

2398879966 · 发表于 2022-11-19 14:46

TextBox1分段显示非空单元格数据。
求大师们帮帮忙！

02761752696 · 发表于 2022-11-19 15:22

供参考......

2398879966 · 发表于 2022-11-21 10:45

02761752696 发表于 2022-11-19 15:22
供参考......

不好意思，怎么显示空白，能不能传个附件

02761752696 · 发表于 2022-11-21 11:07

2398879966 发表于 2022-11-21 10:45
不好意思，怎么显示空白，能不能传个附件

将下面代码放进窗体才行

你一楼的附件不可能无效

2398879966 · 发表于 2022-11-21 23:21

本帖最后由 2398879966 于 2022-11-22 11:04 编辑

不好意思，请老师再看看。

2398879966 · 发表于 2022-11-21 23:25

请老师再看看，指点指点，菜鸟一个。

2398879966 · 发表于 2022-11-22 23:04

我偷懒，将老师发的代码图片用文字识别，“TextBox1”中的数字“1”，识别成英文小写字母“l”,所以出错。正确代码如下：
Private Sub UserForm_Initialize()
Dim arr, i%, s As String
TextBox1.MultiLine = True
arr = Range("A2").CurrentRegion
For i = 1 To UBound(arr)
      If arr(i, 1) = 1 Then
         s = s & Chr(10) & arr(i, 2) & arr(i, 3)
      End If
Next
TextBox1.Text = Mid(s, 2)
End Sub

		自动登录	找回密码
密码			免费注册

[求助] TextBox1分段显示非空单元格数据

评分

评分