试试VLOOKUP函数:
=VLOOKUP(B2,Sheet1!A1:B8,2,0)
参数根据实际情况更改
用VBA的话,可以用COMBOBOX控件来实现
那我建议,你多做一列用来参考,即用VLOOKUP函数返回数值到参考单元格中,然后让她们在目标栏中根据参考值来输入,参考值单元格保护,目标单元格可编辑。
在数据库界面打开宏对象,在宏设计窗口用下拉菜单选择满足要求的宏 *** 作。点击工具栏中的宏名或条件按钮可以设计宏组或者是条件 *** 作宏。宏是计算机事先内设的简短命令,不可以编辑,只能被调用运行。配合窗体和报表界面的相应命令按钮使用。
代码如下
'设定工作表名称vSheetName="Sheet1"
Sheets(vSheetName)Select
'获取K列已使用最大值
vMax = ApplicationCountA(Sheets(vSheetName)Range("K:K"))
'开始循环,从K列第一个单元格开始,如果不是,请调整循环开始的数字
for i=1 to vMax
'单号赋值
p = Sheets(vSheetName)Range("k" & i) '单号赋值给变量
'中间加上你自己的代码
next i
'另外补充一下,你的代码DO While Not到Loop的语句,可以改为下面这样
'Sheets(vSheetName)Range("A" & i)CopyFromRecordset rs
'一下子就过来了,不过要注意的是,我的语句是从A列开始的,
'你要求的位置不是A列,请自行修改
以上就是关于excel如何在同一单元格内即能读取数据库信息也能手动输入若需要宏,求宏代码。全部的内容,包括:excel如何在同一单元格内即能读取数据库信息也能手动输入若需要宏,求宏代码。、数据库的Access中的宏运算怎么做、宏 我有一段代码,帮我写个循环,等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)