vba改变listbox尺寸的怪问题（20110509已解决）

VVay

希望实现的效果，就是点击一个单元格，弹出一个窗体，窗体中有一个listbox，根据显示内容多少，自动改变显示的窗体及窗体内listbox的尺寸
主要代码如下：
               Unload UserForm1
                With UserForm1.ListBox1
                    .Width = ListWid
                    .Height = ListHgt
                End With

                With UserForm1
                    .Width = FormWid
                    .Height =FormHgt
                End With               
                UserForm1.Show vbModeless

现在出现的问题是，大部分时候显示效果正常，但是不知什么时候，ListBox显示的尺寸与计算的不符，比计算的小
怎么查也查不出来原因
试了好多次，后来发现如果在两个with中间随便加个Msgbox “ ”，就是在设置userform1前，加个Msgbox，listbox显示的尺寸就不会出现上述问题，但这也不是最终解决办法啊
望高手赐教

详见附件

蓝桥玄霜

建议上传表格附件来说明问题。

VVay

原来的程序比较大，不方便上传
我又做了个简单的也出现类似的问题，详见附件

VVay

自己顶一下，看哪位好心人能给解决下这个问题，先谢了

VVay

看来这个问题比较复杂，不好解决？
还是这个问题太简单了？

物言QB

VVay 发表于 2012-3-15 10:58
看来这个问题比较复杂，不好解决？
还是这个问题太简单了？

菜鸟学习中。师兄，能加我QQ252282780么，您帮我写了段代码，可是有些地方不懂，想请教下，可以么？谢谢~

无毒无偶

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Sh1 As Worksheet
   
3.     Set Sh1 = Worksheets("Sheet1")
   
4.     If TypeName(ActiveSheet) = "Worksheet" And TypeName(ActiveCell) = "Range" And VarType(ActiveCell) <= 5 Then
   
5.         MActRow# = ActiveCell.Row
   
6.         If ActiveCell.Column = 1 And MActRow > 0 And MActRow <= 9 And ActiveCell > 0 And ActiveCell <= 30 Then
   
7.             NSelected% = ActiveCell
   
8.             ListWid! = 0
   
9.             ListCW$ = ""
   
10.             For i = 1 To 3
    
11.                 ListWid = ListWid + Sh1.Columns(12 + i).Width
    
12.                 ListCW = IIf(ListCW = "", Sh1.Columns(12 + i).Width & ";", ListCW & Sh1.Columns(12 + i).Width & ";")
    
13.             Next i
    
14.             
    
15.             ListHgt% = IIf(NSelected + 1 < 22, (NSelected + 1) * 9 + 3, 21 * 9 + 3)
    
16.             
    
17.             Unload UserForm1
    
18.             With UserForm1
    
19.                 .Width = ListWid + 6
    
20.                 .Height = ListHgt + 22
    
21.             End With
    
22.             UserForm1.Show vbModeless
    
23.             With UserForm1.ListBox1
    
24.                 .ColumnCount = 3
    
25.                 .ColumnWidths = ListCW
    
26.                 .RowSource = Sh1.Range("M1:O" & (NSelected + 1)).Address
    
27.                 .Width = ListWid + 3
    
28.                 .Height = ListHgt
    
29.             End With
    
30.             MsgBox " "      '如果注释掉此行，显示的ListBox将显示不正常；另外注释掉此行后，如果第N列列宽较小时又显示正常
    
31.         End If
    
32.     End If
    
33. End Sub
    

复制代码

把窗体显示放前面就正常了，具体为什么，不得而知。

VVay

无毒无偶 发表于 2012-4-10 16:20
把窗体显示放前面就正常了，具体为什么，不得而知。

谢谢无毒无偶兄指点
也许是因为在种菜前，先要把地平整；而不能先把菜布置好，再去平整地的缘故吧，呵
以前也没想这些，以为在显示窗体之前，无所谓先后顺序的

其实这个程序还有个问题没有解决
当你点击的数字超过20时，也就是窗体listbox出现双向滚动条时，最后一行数据无法显示出来
不知道怎么解决

现在的临时解决办法是在后面加一个空数据行，当然是针对数组加一个空数据行

VVay

即使是 加大 ListHgt ，也无法正常显示，滚动条无法拉到最下面去

yaozong

VVay 发表于 2012-4-28 10:35
即使是 加大 ListHgt ，也无法正常显示，滚动条无法拉到最下面去

这确实是难题，提供个凑算附件，有望高手助阵解决。