[已解决]ｖｂａ字段选择生成器－请老师们修改下

yjwdjfqb

修改1：如上图

修改2：把左边引用的数据，固定为数据源工作表中的E7：P7区域。
也就是修改下以下代码。
Sub PXL()
    ARR = 左选项框.Column
    左选项框.Clear
    For A = 5 To Sheets("数据源").Range("E7").End(2).Column    '5表示引用数据从第五列,从E7开始按行引用数据
        For I = 0 To UBound(ARR, 2)
            If ARR(0, I) = Sheets("数据源").Cells(7, A) Then    '7表示引用数据在第7行开始
                左选项框.AddItem ARR(0, I)
                Exit For
            End If
        Next
    Next A
End Sub


请老师们帮帮忙，谢谢大家了！！！


ｖｂａ字段选择生成器－请老师们修改下.rar (20.47 KB, 下载次数: 14)

2013-4-21 17:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-21 20:01

1. Private Sub UserForm_Initialize()
   
2.     Me.左选项框.List = WorksheetFunction.Transpose(Worksheets("数据源").Range("E7:P7"))
   
3. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

传附件。

yjwdjfqb

hwc2ycy 发表于 2013-4-21 17:23
传附件。

老师，不好意思，刚才忘记上传附件了，现在传了，谢谢老师你了！！！

hwc2ycy

1. Private Sub 确定输入_Click()
   
2.     Sheets("结果表").Rows("11:11").ClearContents    '11表示生成的结果在11行
   
3.     Dim B As Integer
   
4.     If 右选项框.ListCount = 0 Then
   
5.         MsgBox "没有选择选项", vbCritical
   
6.         Exit Sub
   
7.     End If
   
8.     For B = 1 To 右选项框.ListCount
   
9.         Sheets("结果表").Cells(11, 2 + B) = 右选项框.List
   
10.         右选项框.RemoveItem 0
    
11.     Next
    
12.     Unload Me
    
13. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2013-4-21 17:36

老师，第一个问题解决了，很感谢老师，
帮我弄下第二个问题好吧，谢谢老师了！！！

hwc2ycy

1. Private Sub UserForm_Initialize()
   
2.     Me.左选项框.List = WorksheetFunction.Transpose(Worksheets("数据源").Range("E7:P7"))
   
3. End Sub

复制代码

hwc2ycy

你的PXL过程压根就没有调用过啊。

yjwdjfqb

hwc2ycy 发表于 2013-4-21 20:08
你的PXL过程压根就没有调用过啊。

谢谢老师，可以了！！！