面试,我薪水要低了……

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:http://blog.csdn.net/jobchanceleo/archive/2007/04/28/1588151.aspx<o:p&...

2007-04-28 08:32:00

阅读数:5

评论数:0

面试时,我说谎了……

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:http://blog.csdn.net/jobchanceleo/archive/<st1:chsdate isrocdate="Fal...

2007-04-26 08:43:00

阅读数:8

评论数:0

面试时,我被骗了……

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:http://blog.csdn.net/jobchanceleo/archive/2007/04/23/1575216.aspx<o:p&...

2007-04-23 07:52:00

阅读数:6

评论数:0

看穿面试这件事儿……

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:<o:p></o:p> http://blog.csdn.net/jobchanceleo...

2007-04-17 20:44:00

阅读数:4

评论数:0

公司到底是怎么看我们的……

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:http://blog.csdn.net/jobchanceleo/archive/2007/04/13/1563866.aspx<o:p&...

2007-04-13 17:14:00

阅读数:5

评论数:0

EXCEL 判断一个单元格中是否有图片

比如判断[D8]单元格里有无图片: Sub MACRO1()Dim SH As Shape, HASPIC As BooleanFor Each SH In ActiveSheet.ShapesIf Application.Intersect(Range(SH.TopLeftCell.Addres...

2007-04-10 11:24:00

阅读数:92

评论数:0

dir()递归 遍历子目录

dir()递归即可:Private Sub Command1_Click()Listfiles "d:\JAVA", List1End SubSub Listfiles(ByVal mydir As String, ByVal filelist As ListB...

2007-04-10 11:19:00

阅读数:12

评论数:0

EXCEL 中 判断某个自定义序列是否存在

Sub Macro1()Dim customlist As String, i As Longcustomlist = "全部自定义序列" & vbCrLf & String(30, "-&...

2007-04-10 11:17:00

阅读数:12

评论数:0

全硬盘高速查找指定文件

Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As...

2007-04-10 11:03:00

阅读数:5

评论数:0

离职那天,我们复员……

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:<o:p></o:p> http://blog.csdn.net/jobchanceleo...

2007-04-08 21:32:00

阅读数:5

评论数:0

VB中显示TIF(扫描文件)的方法

添加部件Library MODICtl C:\PROGRA~1\COMMON~1\MICROS~1\MODI\11.0\MDIVWCTL.oca Microsoft Office Document Imaging 11.0 Type Library Private Sub C...

2007-04-08 15:05:00

阅读数:32

评论数:0

WORD 文档中的艺术字

如何判断艺术字的样式,字体,字号? Sub macro1() Dim myShape As Shape, s(4) As String For Each myShape In ActiveDocument.Shapes If myShape.Type = msoTextE...

2007-04-08 15:01:00

阅读数:7

评论数:0

获取EXE文件安装后的路径

'WINRAR安装路径 Sub GetWINRARPath() Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") MsgBox "WINRAR安装路径:" &a...

2007-04-08 14:58:00

阅读数:46

评论数:0

最小公倍数

“辗转相除法”求解最小公倍数 Function LCM(ParamArray nums()) As Long Dim temp1 As Long, temp2 As Long, I As Long LCM = nums(0) For I = 1 To UBound(nums) temp1 = ...

2007-04-08 14:52:00

阅读数:5

评论数:0

按行获取文本文件的内容

不知是不是VB里最简单的方法? Sub getlines(byval filename as string,byref lines() as string) If Len(Dir(filename)) = 0 Then Exit Sub Open filename For Input As #1...

2007-04-08 14:47:00

阅读数:4

评论数:0

求职中的平常心

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。本文地址:<o:p></o:p> http://blog.csdn.net/jobchanceleo...

2007-04-03 22:04:00

阅读数:5

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭