带你入门VBA系列之：不懂的代码快点贴过来

yuhongpu

gettickcount()是什么意思 *********************注********************* gettickcount()是用于获取自windows启动以来经历的时间长度（毫秒）的API函数

[此贴子已经被兰色幻想于2006-6-12 10:07:21编辑过]

andysky

又看到一个好代码，可不知如何使用。（判断鼠标是否进入工作表） Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _ pRect As RECT) As Long Public Declare Function PtInRect Lib "user32" ( _ lpRect As RECT, _ ByVal ptx As Long, _ ByVal pty As Long) As Long Public Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Declare Function SetWindowPos Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal Y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long Public Type POINTAPI x As Long Y As Long End Type Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type '以上是API声明和类型声明,没什么好说的 Private Sub Timer1_Timer() On Error Resume Next Dim MyPoint As POINTAPI Dim MyRect As RECT Call GetCursorPos(MyPoint)' 获取当前鼠标指针的位置保存在MyPoint变量中 Call GetWindowRect(Me.hwnd, MyRect)' 获得窗口在屏幕中的矩形范围,保存在MyRect变量中 If PtInRect(MyRect, MyPoint.x, MyPoint.Y) = 0 Then' 如果点MyPoint不在矩形MyRect范围内 Me.Top = 0 - Me.Height + 10' ShowWindow Me.hwnd, 0' 隐藏窗口 Else ' 否则;(即MyPoint在矩形MyRect范围内) ShowWindow Me.hwnd, 5' 显示窗口 If Me.Top <> 0 Then TxtRecive.SelStart = Len(TxtRecive.Text) Me.Top = 0 Me.Left = 0 End If End Sub 请指点。 基本上是一些API函数的功能介绍,下载一个API帮助一查就知道了,至于如何使用这就要看你想怎么用了 我想通过窗体上的标签对鼠标是否进入表单做提示，就像以前的动态显示鼠标XY位置一样。 能否给我一个实例（将以上代码稍做修改）。---andysky 请帮我改一改附件（以上代码之运用)。 BQYZn2wo.rar (8.38 KB, 下载次数: 20)

2006-6-13 10:05 上传

点击文件名下载附件

本贴不是解决问题的贴子,请另发主题。

[此贴子已经被清风_ll于2006-6-13 10:18:05编辑过]

chen7806

再请问:

我用cells.clear清除工作表的内容,内容是清了,但清不去用绘图画的箭头,括号等.用什么函数.

与主题不符! 谢谢版主,我知道了,可是你已经给我答案了.

[此贴子已经被作者于2006-6-14 7:52:48编辑过]

yuhongpu

以下是引用[I]chen7806[/I]在2006-6-12 13:43:39的发言：[BR]

再请问:

我用cells.clear清除工作表的内容,内容是清了,但清不去用绘图画的箭头,括号等.用什么函数.

批量删除图片. Sub 宏1() On Error Resume Next For i = 1 To 20 ActiveSheet.Shapes("Picture " & i).Select Selection.Delete Next End Sub

chen7806

以下是引用[I]yuhongpu[/I]在2006-6-12 15:33:38的发言：[BR]

以下是引用[I]chen7806[/I]在2006-6-12 13:43:39的发言：[BR]

再请问:

我用cells.clear清除工作表的内容,内容是清了,但清不去用绘图画的箭头,括号等.用什么函数.

批量删除图片. Sub 宏1() On Error Resume Next For i = 1 To 20 ActiveSheet.Shapes("Picture " & i).Select Selection.Delete Next End Sub

谢谢你,这么热心. 我试过了,不行.找不到命名,是不是我的办法错了.

digitboy

请问各位老师，WORKSHEET（"SHEET1")与sheets("sheet1")到底有什么区别？在代码中运用时有时两者是相等的，有的时候又不行，不知怎么回事？

与主题不符!

[此贴子已经被清风_ll于2006-6-13 14:13:16编辑过]

aqua2008

请问如何插入分页符+左端为标题行？！

与主题不符!

[此贴子已经被清风_ll于2006-6-13 14:13:38编辑过]

兰色幻想

mmsz_luwei提供需要解释的代码：

Public Sub harold_han()
Dim i As Integer, m As Integer, s As Integer, p As Integer ‘声明变量
Sheet2.Select ’选取Sheet2工作表
m = [a65536].End(xlUp).Row ‘M为A列最的一个非空单元格的行数
Sheet1.Select ’选取Sheet1工作表
s = [a65536].End(xlUp).Row ‘S为（Sheet1工作表）A列最后一非空单元格的行数
For i = 1 To m ’设置i从1到M的循环
r = 2 ‘设置r的值为2
For p = 1 To s ‘设置P从1到s之间进行循环。
If Cells(p, 4) = Sheet2.Cells(i, 1) Then ‘如果单元格Cells(p, 4)和Sheet2.Cells(i, 1)的值相等，则
Sheet2.Cells(i, r) = Cells(p, 5) ’单元格Sheet2.Cells(i, r)值等于单元格Cells(p, 5)的值
r = r + 1 累计r的值（在原来值的基础上加1）
End If
Next p
Next i

End Sub

mmsz_luwei

谢谢赵老师....

chen7806

请问老师:

我用公式查找函数:match(),index(),vlookup()用得比较称心,但用VBA我就摸不到头脑了,请老师指点VBA处理以上问题,使用什么样对象或函数.

在VBA中同样可以调用这些函数。同时也可以用FIND方法直接查找该单元格

[此贴子已经被兰色幻想于2006-6-13 11:34:05编辑过]