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

兰色幻想

TO zbs112：

为什么不用ADO的筛选（SELECT）不重复记录呢？

zbs112

谢谢兰版主指点，明白了！

buddyk

Sub lll()

Dim ii As Integer, j As Integer, COUNTER As Integer

Dim yc1 As String

COUNTER = Application.WorksheetFunction.Min(Worksheets("temp").Range("E1:E2"))
For ii = 6 To 7
Set x = CreateObject("ADODB.Connection")
x.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\" & Cells(ii, 1) & ".xls"
For j = 1 To COUNTER

yc1 = Worksheets("temp").Cells(ii - 5, j + 8).Value

Sql = "select sum(" & yc1 & ") from [" & Worksheets("fplevel").Cells(2, 2) & "$] where Fampar='" & Worksheets("fplevel").Cells(17, 1) & "'"

Set yy = x.Execute(Sql)
Sheets("fplevel").Cells(17, j + 2).CopyFromRecordset yy
Set yy = Nothing
Next
Set x = Nothing
Next

End Sub

请教高亮这句语法有问题吗？ 我单步运行，在这句就出问题了。。。。[em06][em06][em06][em06]

谢谢！

[此贴子已经被作者于2006-6-11 12:05:57编辑过]

shewoyu

Sheets("B").PrintOut Copies:=1, Collate:=True

这个是一个默认打印机代码。

但我想把它改为一个“可选择性打印机”代码。请问如何改。

“可选择性打印机”就是我们工具中有两个打印机按钮，其中有一个点击后可选择打印机的那个按钮。

332211

请上传一个附件看看。或把要达到的目的说一下。

麻烦兰版主为下列程序加注释。　　　　　谢谢。

Private Sub cmdAdd_Click()
If txtXM.Text <> "" Then
RngR = RngR + 1
Sheet1.Cells(RngR, 1).Value = txtXM.Text
cboXM.AddItem txtXM.Text
cboXM.Value = txtXM.Text
End If
End Sub

Private Sub UserForm_Initialize()
RngR = Sheet1.[A1].End(xlDown).Row
cboXM.List() = Sheet1.Range(Cells(1, 1), Cells(RngR, 1)).Value
cboXM.ListIndex = 0
End Sub

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

denny_dzw

此贴实在宝贵哈

andysky

据说以下代码可获取鼠标位置，请告知如何使用。 Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Type POINTAPI x As Long y As Long End Type Dim z As POINTAPI ****應用實例**** Sub Timer() GetCursorPos z Label1 = "x: " & z.x Label2 = "y: " & z.y End Sub

lotustower

以下是引用[I]andysky[/I]在2006-6-11 19:02:04的发言：[BR]据说以下代码可获取鼠标位置，请告知如何使用。 Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Type POINTAPI x As Long y As Long End Type Dim z As POINTAPI ****應用實例**** Sub Timer() GetCursorPos z Label1 = "x: " & z.x Label2 = "y: " & z.y End Sub

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Sub PointPosition() Dim pTargetPoint As POINTAPI Dim lReturnVal As Long lReturnVal = GetCursorPos(pTargetPoint) MsgBox "Mouse Position:" & vbLf & "x = " & pTargetPoint.x & " , y = " & pTargetPoint.y End Sub Private Sub CommandButton1_Click() Application.Wait (Now + TimeValue("0:00:2")) PointPosition End Sub

chen7806

兰老师,下面我不会写,帮帮我.

Sub fz()
Dim chen As Range
Dim chen As Object ‘声明变量 Set chen = GetObject("C:\Documents and Settings\Administrator\My Documents\book3.xls ") ‘将对象变量设为对要看的文件的引用 chen.Sheets("sheet1").Range("a1:c2").Copy Range("A1") ’拷贝单元格内容 chen.Close ’关闭文件 Set chen = Nothing ‘从内存中释放变量
End Sub

[此贴子已经被兰色幻想于2006-6-12 9:44:40编辑过]

yuhongpu

Sub start() Dim hWnd As Long, hMenu As Long Dim iRet As Long hWnd = FindWindow("XLMAIN", Application.Caption)
‘获取当前EXCEL窗口及子类别句柄 hMenu = GetSystemMenu(hWnd, 0) ’获取窗口菜单句柄 iRet = DeleteMenu(hMenu, SC_CLOSE, 0) ‘删除菜单中指定项目 iRet = DrawMenuBar(hWnd) ’根据修改后的菜单重设置菜单 End Sub 这段是什么意思？

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