Excel的vba实现已知a,b列对应c列的信息的数据库，求当得到含a列字符，b列字符的情况下对应c列的值。

如果config的数据是规律的，就是3位+-+一个或多个字符，例如，11a-c，则

G2单元格写公式：

=VLOOKUP(E2&LEFT(F2,3),IF({1,0},$A$2:$A$1000&$B$2:$B$1000,$C$2:$C$1000),2,FALSE)

上述公式中的1000你可以根据你的实际的数据量改为更大或更小的值，然后选定G2单元格后鼠标点击进去上面的公式栏，然后按Ctrl+Shift+Enter/回车三键（按住Ctrl+Shift两键，然后按Enter/回车），直至公式首尾出现{ }，然后向下拖动填充G2单元格公式到G3、G4等单元格。

如果config的数据不是规律的，则

G2单元格写公式：

=INDEX($C$2:$C$1000,MIN(IF(($A$2:$A$1000=E2)+(COUNTIF(F2,$B$2:$B$1000&"*")>0)=2,ROW($A$2:$A$1000)-1,4^8)))

上述公式中的1000你可以根据你的实际的数据量改为更大或更小的值，然后选定G2单元格后鼠标点击进去上面的公式栏，然后按Ctrl+Shift+Enter/回车三键（按住Ctrl+Shift两键，然后按Enter/回车），直至公式首尾出现{ }，然后向下拖动填充G2单元格公式到G3、G4等单元格。

给你个链接算起来2005的，测试通过

只说链接部分

Set cnn = CreateObject("adodb.connection")

strcn = "Provider=SQLOLEDB.1User ID=saPassword=sa1234Initial Catalog=paracheckDataSource=ZN" 'ZN为数据库名称

cnn.Open strcn '链接数据库，这里已经成功连接数据库了

st = "SELECT * INTO [" &s &"] FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0','Excel 12.0HDR=yesDATABASE=" &[Sheet7].Range("b" &i) &"','select * from [sheet1$]')" '导入excel到sql2005数据库并新建数据库表名为([Sheet7].Range("a" &i))去掉.xls才可以导入，sheet1为表的取名名称，不是表的编码名称

cnn.Execute st

cnn.Close

Set cnn = Nothing

修改控件的OnAction属性。

vba中修改控件的onaction，但不起作用可以修改控件的OnAction属性，确认代码中已经为该控件添加了事件处理程序，并且该控件的OnAction属性已经被设置为该事件处理程序的名称。

vba是VisualBasic的一种宏语言，是在其桌面应用程序中执行通用的自动化任务的编程语言。

---