Question

你好！在Excel中listbox在表格中有滚动条，滚动条拉不到底，最后一项内容显示不出来。求助指导，万分感激

使用的宏代码如下：Private Sub ListBox1_Change() If Reload Then Exit Sub '见下方说明 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then t = t & "," & ListBox1.List(i) Next ActiveCell = Mid(t, 2)End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) With ListBox1 If ActiveCell.Column = 4 And ActiveCell.Row > 4 Then t = ActiveCell.Value Reload = True '如果是根据单元格的值修改列表框，则暂时屏蔽listbox的change事件。 For i = 0 To ListBox1.ListCount - 1 '根据活动单元格内容修改列表框中被选中的内容 If InStr(t, ListBox1.List(i)) Then ListBox1.Selected(i) = True Else ListBox1.Selected(i) = False End If Next Reload = False ListBox1.Top = ActiveCell.Top + ActiveCell.Height '以下语句根据活动单元格位置显示列表框 ListBox1.Left = ActiveCell.Left ListBox1.Width = ActiveCell.Width ListBox1.Visible = True Else ListBox1.Visible = False End If End WithEnd Sub

Answer 1

在工具---保护中有人把工作表锁定了