查看: 1346|回复: 6
用宏实现找单元中的关键字匹配名字
阅读权限20
在线时间 小时
& & & & & & & &
如附件,B列是所有关键字，C列是所有对关键字对应的负责人。需要达到的效果：A列中输入一个很长的地名，自动在B列中查找包含关键字，找到后把对应的负责人填到D列。用函数已经实现，因为数据量宠大，运行很慢，所以最好可以用宏来实现，请大侠看看用VB怎么写，谢谢。
(20.56 KB, 下载次数: 60)
19:14 上传
19:15 上传
点击文件名下载附件
7.71 KB, 下载次数: 56
阅读权限95
在线时间 小时
Private Sub CommandButton1_Click()
& & Dim arrInfo As Variant, arrCompare As Variant, arrRt As Variant
& & Dim i As Long, j As Long
& &
& & Range(Cells(2, &D&), Cells(Rows.Count, &D&)).ClearContents
& & arrInfo = Range(Cells(2, &A&), Cells(Rows.Count, &A&).End(3))
& & arrCompare = Range(Cells(2, &B&), Cells(Rows.Count, &C&).End(3))
& & ReDim arrRt(1 To UBound(arrInfo, 1), 1 To UBound(arrInfo, 2))
& & For i = 1 To UBound(arrInfo, 1)
& && &&&For j = 1 To UBound(arrCompare, 1)
& && && && &If arrInfo(i, 1) Like &*& & arrCompare(j, 1) & &*& Then
& && && && && & arrRt(i, 1) = arrCompare(j, 2)
& && && && &End If
& && &&&Next
& & Next
& & Cells(2, &D&).Resize(UBound(arrRt, 1), 1) = arrRt
End Sub
复制代码
阅读权限95
在线时间 小时
& & & & & & & &
参考附件：
19:39 上传
点击文件名下载附件
20.59 KB, 下载次数: 99
阅读权限20
在线时间 小时
参考附件：
是这个效果，非常感谢。再请教一个问题，如果打开一个工作簿3，详细地名在D列，需要在G列填写负责人名，能否直接应用过去？
阅读权限95
在线时间 小时
是这个效果，非常感谢。再请教一个问题，如果打开一个工作簿3，详细地名在D列，需要在G列填写负责人名， ...
把代码中相应的单元格区域改一下就行。
阅读权限70
在线时间 小时
Sub test()
& & arr = [a1].CurrentRegion
& & For i = 2 To UBound(arr)
& && &&&For j = 2 To UBound(arr)
& && && && &If InStr(arr(i, 1), arr(j, 2)) Then arr(i, 4) = arr(j, 3): Exit For
& && &&&Next
& & Next
& & [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub复制代码
阅读权限20
在线时间 小时
谢谢各位的热心回答，问题已解决。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师您好，分享的企鹅
中国经济的2016年的关键词是什么呢？
深圳商报宋华
[摘要]曹远征日前在2016中国经济机遇和挑战峰会暨《央视财经评论》改版开播启动仪式上给出的关键词是“国际化”。【深圳商报北京12月22日讯】（驻京记者 宋华）如何研判2016中国经济形势？中国银行前首席经济学家、国家金融与发展实验室理事曹远征日前在2016中国经济机遇和挑战峰会暨《央视财经评论》改版开播启动仪式上给出的关键词是“国际化”。他指出，2016年中国将面临前所未有的新机遇和新挑战，“面临着的挑战不允许我们犯错误，至少不能犯颠覆性错误。”国务院参事室特约研究员姚景源、新供给经济研究院院长贾康、中国人民大学与证券研究所所长吴晓求、交通银行首席经济学家连平等权威专家与会并表达了自己的观点。姚景源：减税姚景源认为，中央经济工作会议提出了明年的几个任务：去产能、去库存、去杠杆、降成本、补短板。一方面明年要适度扩大有效需求，另一方面要加大改革力度。他特别提到，“明年对于企业来说是一个很大的机遇，我们明确提出对企业降成本，大家知道企业难在哪里？往外看是产能过剩；往内看，PPI连续45个月下降，各项成本急剧上升，大家明年一定会看到大幅度给企业减税，这样让企业能够有效的应对各种成本上升。”此外，姚景源预计，明年工业电价会下降。“中央提出讲宏观经济政策要稳定，微观政策要活，还讲了改革政策要实。改革政策这个实明年会给企业带来诸多的利好。”他补充说。贾康：税改贾康在发言中说：“按照财税改革的时间表，当前改革推进的速度已经滞后。”他表示，现在遇到的是前所未有的困难，需要冲破利益藩篱，跨域各部门的眼界，从全球角度来考虑全局利益，真正实现公共利益的最大化。此前，贾康曾经表示，财税改革作为全面改革的重头戏和开场锣鼓现在已经表露出了与中央要求的时间表不相匹配的迹象。首先，原来时间表非常明确要求增值税营改增改革在今年要完成，做到所有行业全覆盖，但是现在距离2016年仅剩1个月，实现起来已经不太可能。其次，虽然2014年已经对资源税做了比较好的铺垫，但是比较遗憾的是2015年以来资源税覆盖到煤炭以后基本就没有了后续推进。消费税改革推进不力。此外，环境税、房地产税、个人所得税的进展都非常有限。贾康特别提到，房地产二三四线城市库存过大，一线房价攀升，应关注跟踪考虑采用有效化的调整方略，各种手段组合之外，还应考虑从短期到中长期有一个长期制度建设长效机制。原来已经列入人大立法的房地产税预计会重启。对于房地产政策，贾康认为，“一定要适应市场分化和现在所谓结构化更高水平的要求。”曹远征：国际化
正文已结束，您可以按alt+4进行评论
相关阅读：
相关搜索：
看过本文的人还看了
热门搜索：
Copyright & 1998 - 2016 Tencent. All Rights Reserved最近也在学 还有一个自己写的C++聊天程序 有点大 下面是C写的
sockets（套接字）编程有三种，流式套接字（SOCK_STREAM），数据报套接字 （SOCK_DGRAM），原始套接字（SOCK_RAW）；基于TCP的socket编程是采用的流式套接字(SOCK_STREAM)。基于UDP采 用的数据报套接字(SOCK_DGRAM).
1.TCP流式套接字的编程步骤
在使用之前须链接库函数：工程-&设置-&Link-&输入ws2_32.lib，OK！
服务器端程序：
1、加载套接字库
2、创建套接字（socket）。&
3、将套接字绑定到一个本地地址和端口上（bind）。
4、将套接字设为监听模式，准备接收客户请求（listen）。
5、等待客户请求到来；当请求到来后，接受连接请求，返回一个新的对应于此次连接的套接字（accept）。
6、用返回的套接字和客户端进行通信（send/recv）。
7、返回，等待另一客户请求。
8、关闭套接字。
客户端程序：
1、加载套接字库
2、创建套接字（socket）。&
3、向服务器发出连接请求（connect）。
4、和服务器端进行通信（send/recv）。
5、关闭套接字
服务器端代码如下：
#include &Winsock2.h&//加裁头文件
#include &stdio.h&//加载标准输入输出头文件
void main()
WORD wVersionR//版本号
WSADATA wsaD
wVersionRequested = MAKEWORD( 1, 1 );//1.1版本的套接字
err = WSAStartup( wVersionRequested, &wsaData );
if ( err != 0 ) {
}//加载套接字库，加裁失败则返回
if ( LOBYTE( wsaData.wVersion ) != 1 ||
HIBYTE( wsaData.wVersion ) != 1 ) {
WSACleanup( );
}//如果不是1.1的则退出
SOCKET sockSrv=socket(AF_INET,SOCK_STREAM,0);//创建套接字（socket）。
SOCKADDR_IN addrS
addrSrv.sin_addr.S_un.S_addr=htonl(INADDR_ANY);//转换Unsigned short为网络字节序的格式
addrSrv.sin_family=AF_INET;
addrSrv.sin_port=htons(6000);
bind(sockSrv,(SOCKADDR*)&addrSrv,sizeof(SOCKADDR));
//将套接字绑定到一个本地地址和端口上（bind）
listen(sockSrv,5);//将套接字设为监听模式，准备接收客户请求（listen）。
SOCKADDR_IN addrC//定义地址族
int len=sizeof(SOCKADDR);//初始化这个参数，这个参数必须被初始化
SOCKET sockConn=accept(sockSrv,(SOCKADDR*)&addrClient,&len);//accept的第三个参数一定要有初始值。
//等待客户请求到来；当请求到来后，接受连接请求，返回一个新的对应于此次连接的套接字（accept）。
//此时程序在此发生阻塞
char sendBuf[100];
sprintf(sendBuf,&Welcome %s to&&,
inet_ntoa(addrClient.sin_addr));
//用返回的套接字和客户端进行通信（send/recv）。
send(sockConn,sendBuf,strlen(sendBuf)+1,0);
char recvBuf[100];
recv(sockConn,recvBuf,100,0);
printf(&%s\n&,recvBuf);
closesocket(sockConn);//关闭套接字。等待另一个用户请求
客户端代码如下：
#include &Winsock2.h&
#include &stdio.h&
void main()
WORD wVersionR
WSADATA wsaD
wVersionRequested = MAKEWORD( 1, 1 );
err = WSAStartup( wVersionRequested, &wsaData );加载套接字库
if ( err != 0 ) {
if ( LOBYTE( wsaData.wVersion ) != 1 ||
HIBYTE( wsaData.wVersion ) != 1 ) {
WSACleanup( );
SOCKET sockClient=socket(AF_INET,SOCK_STREAM,0);创建套接字（socket）。
SOCKADDR_IN addrS
addrSrv.sin_addr.S_un.S_addr=inet_addr(&127.0.0.1&);
addrSrv.sin_family=AF_INET;
addrSrv.sin_port=htons(6000);
connect(sockClient,(SOCKADDR*)&addrSrv,sizeof(SOCKADDR));向服务器发出连接请求（connect）。
char recvBuf[100];和服务器端进行通信（send/recv）。
recv(sockClient,recvBuf,100,0);
printf(&%s\n&,recvBuf);
send(sockClient,&This is lisi&,strlen(&This is lisi&)+1,0);
closesocket(sockClient);关闭套接字。
WSACleanup();//必须调用这个函数清除参数
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：409次
排名：千里之外关键词分词工具(宏命令)改进版下载
扫一扫:下载到手机
关键词分词工具(宏命令)改进版 软件介绍
关键词分词工具(宏命令)改进版 过万关键词轻松分词比较适合，百度竞价推广、Google Adwords、淘宝直通车之类竞价投放的关键词分组网络营销SEM研究百度竞价直通车}