求大神帮助！鼠标移动到A列的姓名，出现窗体显示对应学生信息

大凶犯 · 发表于 2023-12-3 09:21

鼠标移动到A列的姓名，出现窗体显示对应学生信息

yynrzwh · 发表于 2023-12-3 12:01

显示窗体.rar (19.15 KB, 下载次数: 31)

wxxydl · 发表于 2023-12-3 22:33

本帖最后由 wxxydl 于 2023-12-3 23:08 编辑

我给你我的做了一个是这意思吗

wxxydl · 发表于 2023-12-3 23:10

我给你做了一个

大凶犯 · 发表于 2023-12-4 07:38

wxxydl 发表于 2023-12-3 22:33
我给你我的做了一个是这意思吗

是这个意思，但是我学生信息里面有多条李一的信息，能都显示吗？

feilanga · 发表于 2023-12-4 10:17

.......................

大凶犯 · 发表于 2023-12-4 10:19

feilanga 发表于 2023-12-4 10:17
.......................

你刚才回复了我另外一个帖子您把结果发这里吧哪个再审核下载不了

大凶犯 · 发表于 2023-12-4 10:20

feilanga 发表于 2023-12-4 10:17
.......................

哦这个就是谢谢了

3190496160 · 发表于 2023-12-4 10:43

Private Sub UserForm_Initialize()
Dim lst As ListItem
Dim i As Long, j As Long, k As Long, m As Long
arr = Sheets("销售明细").[a1].CurrentRegion
With Me.ListView1
.ListItems.Clear
For j = 1 To UBound(arr, 2)
      .ColumnHeaders.Add , , arr(1, j), Sheets("销售明细").Columns(j).Width + 12
Next
'设置标题行
.View = lvwReport '报表视图
.Gridlines = True '显示网格线
   .Font.Size = 12 '设置字号为12号
   .FullRowSelect = True '整行选择
   '.BackColor = 155
'设置视图
zd = ActiveCell.Value
For k = 2 To UBound(arr)
      If arr(k, 1) = zd Then
         Set lst = .ListItems.Add()
         lst.Text = arr(k, 1)
         For m = 2 To UBound(arr, 2)
            lst.SubItems(m - 1) = arr(k, m)
         Next
      End If
Next
'添加记录
Set .SelectedItem = .ListItems(1)
'选择第一条记录
End With
Set lst = Nothing

End Sub

3190496160 · 发表于 2023-12-4 10:44

窗体显示.rar (19.68 KB, 下载次数: 24)

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

[求助] 求大神帮助！鼠标移动到A列的姓名，出现窗体显示对应学生信息

评分