[已解决]如何根据绿色框内的名称提取参数表工作表黄色相应数据到红框内。谢谢

qinhuan66

求助如何根据绿色框内的名称提取参数表工作表黄色相应数据到红框内。谢谢
求助.zip (246.48 KB, 下载次数: 4)

2015-3-18 09:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-3-18 12:40

1. Private Sub ComboBox28_Change()
   
2.     On Error GoTo err
   
3.     Dim rg ' As Range
   
4.     'Set rg = Worksheets("参数表").Range("g2:i38")
   
5.     rg = Worksheets("参数表").Range("g2:i38").Value
   
6.     If Len(Me.ComboBox28.Text) > 0 Then
   
7.         TextBox16 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 2, False)
   
8.         TextBox17 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 3, False)
   
9.     End If
   
10.     Exit Sub
    
11. err:
    
12.     MsgBox "出差所在地无效"
    
13.     Me.ComboBox28.Text = ""
    
14.     Me.TextBox16.Text = ""
    
15.     Me.TextBox17.Text = ""
    
16. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

msgboxtimeout声明了。

qinhuan66

hwc2ycy 发表于 2015-3-18 10:14
msgboxtimeout声明了。

我这两个标准是为了下面出差补助提供数据的。谢谢版主

hwc2ycy

建议一个个问题来吧，

hwc2ycy

1. Private Sub ComboBox28_Change()
   
2.     On Error GoTo err
   
3.     Dim rg ' As Range
   
4.     'Set rg = Worksheets("参数表").Range("g2:i38")
   
5.     rg = Worksheets("参数表").Range("g2:i38").Value
   
6.     If Len(Me.ComboBox28.Text) > 0 Then
   
7.         TextBox16 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 2, False)
   
8.         TextBox17 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 3, False)
   
9.     End If
   
10.     Exit Sub
    
11. 
    
12. err:
    
13.     MsgBox "出差所在地无效"
    
14.     Me.ComboBox28.Clear
    
15. End Sub

复制代码

hwc2ycy

1. Private Sub ComboBox28_Change()
   
2.     On Error GoTo err
   
3.     Dim rg ' As Range
   
4.     'Set rg = Worksheets("参数表").Range("g2:i38")
   
5.     rg = Worksheets("参数表").Range("g2:i38").Value
   
6.     If Len(Me.ComboBox28.Text) > 0 Then
   
7.         TextBox16 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 2, False)
   
8.         TextBox17 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 3, False)
   
9.     End If
   
10.     Exit Sub
    
11. err:
    
12.     MsgBox "出差所在地无效"
    
13.     Me.ComboBox28.Text = ""
    
14.     Me.TextBox16.Text = ""
    
15.     Me.TextBox17.Text = ""
    
16. End Sub

复制代码

hwc2ycy

1. Private Sub ComboBox28_Change()
   
2.     On Error GoTo err
   
3.     Dim rg
   
4.     If Len(Me.ComboBox28.Text) > 0 Then
   
5.         rg = Worksheets("参数表").Range("g2:i38").Value
   
6.         TextBox16 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 2, False)
   
7.         TextBox17 = Application.WorksheetFunction.VLookup(Me.ComboBox28.Text, rg, 3, False)
   
8.     End If
   
9.     Exit Sub
   
10. err:
    
11.     MsgBox "出差所在地无效"
    
12.     ComboBox28.Text = ""
    
13.     TextBox16.Text = ""
    
14.     TextBox17.Text = ""
    
15. End Sub
    

复制代码