vs定位行号，查找eclipse 行号快捷键键，该怎么处理

来源：蜘蛛抓取(WebSpider) 时间：2016-01-19 06:45 标签： vs 行号快捷键
一周最热123456789101112在vs2010中,输出当前文件路径与源文件当前行号的解决方法
字体：[ ] 类型：转载 时间：
本篇文章是对在vs2010中,输出当前文件路径与源文件当前行号的解决方法进行了详细的分析介绍，需要的朋友参考下
看到一道题目：vs2010中，如何输出当前文件路径和源文件当前行号。不知道，于是立刻上网搜，于是找到了答案：总结一下，有用的时候就直接拿来用了，据说它们是系统预定义宏，但这种宏并不是在某个文件中定义的，而是由编译器定义的。 代码如下:&cout && __LINE__ &&& //输出语句所在的行号&cout && __FILE__& && //输出文件名（包括路径）&cout && __TIME__ &&& //输出当前时间&cout && __TIMESTAMP__ && //输出时间戳&cout && __DATE__& &&&& //输出日期上面的几种宏都能在vc6.0和vs2010中运行，输出如下： 代码如下:57d:\documents and settings\yx\my documents\visual studio 2010\projects\matrix\matrix\matrix.cpp16:51:33Mon Mar 12 16:51:32 2012还有一个输出输出函数名的宏__FUNCTION__，在vs2010中运行有效，但在vc6.0中没有定义，如在主函数中调用，输出vmain。
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具> vs定位行号、查找行号快捷键,该怎么处理
vs定位行号、查找行号快捷键,该怎么处理
gwy1986 & &
发布时间： & &
浏览：218 & &
回复：3 & &
悬赏：0.0希赛币
vs定位行号、查找行号快捷键RT~
gx0509 & &
& & （0）（0）Ctrl+g
gx_kd2009 & &
& & （0）（0）Ctrl + G菜单Edit -& go to.. (CTRL + G)gx026 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&查看: 1319|回复: 12
如何用VBA定位与某值最接近的数据首次出现的行号？
阅读权限95
在线时间 小时
& & & & & & & &
　　给定一个值n，在一列数据中进行查找、判断、定位并返回所在行号，依据是与该值n的差的绝对值最小，且是首次出现……
　　要求：1.不用vlookup函数等，用vba代码解决；
　　　　　2.尽量减少循环。
　　附件：
(3.44 KB, 下载次数: 13)
09:44 上传
点击文件名下载附件
　　当然，附件中的值是随机的。图如下：
1.jpg (27.91 KB, 下载次数: 8)
09:45 上传
阅读权限95
在线时间 小时
打字错误：“和等号”应该为“的行号”……不好意思……
阅读权限50
在线时间 小时
扫描一遍就可以了。Sub aa()
& & Dim arr, myrow&, mMin&, myval&, i&
& & arr = Range(&A2&).CurrentRegion
& & myval = Cells(1, 4)
& & mMin = Abs(arr(1, 1) - myval)
& & myrow = 1
& & For i = 2 To UBound(arr)
& && &&&If Abs(arr(i, 1) - myval) & mMin Then mMin = Abs(arr(i, 1) - myval): myrow = i
& & Next
& & MsgBox &第一次出现最接近的行:& & myrow
End Sub
复制代码
阅读权限95
在线时间 小时
& & & & & & & &
wzsy2_mrf 发表于
扫描一遍就可以了。
首先将目标值与第一个值做减法（mMin = Abs(arr(1, 1) - myval)），存储其差的绝对值，便于接下来的比较，很是巧妙！
阅读权限95
在线时间 小时
wzsy2_mrf 发表于
扫描一遍就可以了。
您的这个方法即将在我接下来的帖子中应用，届时烦请围观下……呵呵，对我启发太大了，真是感谢……我考虑到了死角，都感觉要用两三层循环了，您这个够厉害！
阅读权限95
在线时间 小时
wzsy2_mrf 发表于
扫描一遍就可以了。
您的代码也可以修改为首次与最大值比较，然后来一个完整循环：Sub aa1() '网友提供，精彩方法
& & Dim arr, myrow&, mMin&, myval&, i&
& & arr = Range(&A2&).CurrentRegion
& & myval = Cells(1, 4)
& & mMin = Abs(WorksheetFunction.Max(arr) - myval)
& & myrow = 1
& & For i = 1 To UBound(arr)
& && &&&If Abs(arr(i, 1) - myval) & mMin Then mMin = Abs(arr(i, 1) - myval): myrow = i
& & Next
& & MsgBox &第一次出现最接近的行:& & myrow
End Sub复制代码这样在特殊情况下是有好处的……
阅读权限95
在线时间 小时
本帖最后由 aoe1981 于
11:35 编辑
wzsy2_mrf 发表于
扫描一遍就可以了。
　　不好意思，前面的说法有点漏洞，应当与2倍的最大值比较，防止目标数据就是最大值本身！代码修改为（可以减少首次行号预赋值的代码）：Sub aa1() '网友提供，精彩方法
& & Dim arr, myrow&, mMin&, myval&, i&
& & arr = Range(&A2&).CurrentRegion
& & myval = Cells(1, 4)
& & mMin = Abs(WorksheetFunction.Max(arr) * 2 - myval)
& & For i = 1 To UBound(arr)
& && &&&If Abs(arr(i, 1) - myval) & mMin Then mMin = Abs(arr(i, 1) - myval): myrow = i
& & Next
& & MsgBox &第一次出现最接近的行:& & myrow
End Sub复制代码
阅读权限50
在线时间 小时
aoe1981 发表于
　　不好意思，前面的说法有点漏洞，应当与2倍的最大值比较，防止目标数据就是最大值本身！代码修改为（可 ...
说句不客气的话，你以上两个程序都是没有必要的。第一，调用工作表函数也是要花费时间的，而这个工作表函数作用的时候已经扫描过全部数据一遍，而这扫描一遍的时间的早已可把工作做完，而你才刚刚开始，这等于是在做无用功。第二，如果是求最小数的话，那么mMin有初始设定应该 &=数据集中的最小数，越接近越好；只有这样才能减少交换次数；而求最大数的时候刚好相反。但最小数、最大数是那一个你原先那里知道，既然如此，你就在数据集中随便选一个好了。
阅读权限95
在线时间 小时
wzsy2_mrf 发表于
说句不客气的话，你以上两个程序都是没有必要的。第一，调用工作表函数也是要花费时间的，而这个工作表函 ...
呵呵，您说的有道理……但是您不明白我应用的具体情况……假设我的A列数据源按某一属性分为两组，不妨设为男子组和女子组，当要比较的目标数据也有这一属性时，比如D1单元格为女子组的数据，匹配时只能从女子组里匹配时，我的思路有所便捷……当然，男子组与女子组的最大值是已知的……呵呵
具体还请关注不久要发布的我的新帖中的应用！
阅读权限90
在线时间 小时
楼主的一楼说明中写明了“不用vlookup函数等”，楼主的代码中已经用了“WorksheetFunction.Max”，犯规了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 vs 行号快捷键 的文章

 

随机推荐