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

yfdxwxming

格式按钮无法运行，哪出问题了 xt3r7Toe.rar (76.52 KB, 下载次数: 3)

2006-8-16 00:53 上传

点击文件名下载附件
带你入门VBA系列之：不懂的代码快点贴过来

那个按钮想用来批量粘贴格式。还有一个问题，把A列中结果为41、42、43的行删除怎么用代码。请帮忙一并解解，感激不尽老师！

[此贴子已经被作者于2006-8-16 0:57:57编辑过]

xiaocai979

联系方式，邮箱：xiaocai979@163.com   QQ:191963954 w1cLyTMK.txt (24.87 KB, 下载次数: 1)

2006-8-19 14:45 上传

点击文件名下载附件
请帮忙解释以下代码

[此贴子已经被作者于2006-8-19 14:45:24编辑过]

koyowjian

请教老师们
Private Sub CommandButton1_Click()
Dim xlPath$, sql$
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
xlPath = ThisWorkbook.FullName

With conn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=" & xlPath & ";" & _
"Extended Properties=Excel 8.0;"
  .Open
End With
sql = "Select 资材编码,'','','','','',资材名称,规格 from [0607kc$] where (资材编码 like '4%' or 资材编码 like '5%') " & _
      "and not 资材编码 = any (select 资材编码 from [2F治具$])"

Range("A65536").End(xlUp).Offset(1, 0).CopyFromRecordset conn.Execute(sql)

End Sub

koyowjian

请教老师们帮忙解释以下代码:
Private Sub CommandButton1_Click()
Dim xlPath$, sql$
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
xlPath = ThisWorkbook.FullName

With conn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=" & xlPath & ";" & _
"Extended Properties=Excel 8.0;"
  .Open
End With
sql = "Select 资材编码,'','','','','',资材名称,规格 from [0607kc$] where (资材编码 like '4%' or 资材编码 like '5%') " & _
      "and not 资材编码 = any (select 资材编码 from [2F治具$])"

Range("A65536").End(xlUp).Offset(1, 0).CopyFromRecordset conn.Execute(sql)

End Sub

拜托了

nnng

兰老师：

　　您好!

    能否实现用"用户名,密码"调出excel表格,用户名既是excel表格中的制表人.并且此表在不操作时不断的关闭,打开而不用再输用户名,密码?

     请指教,谢谢!

amymo

Sub Macro2()

UserName = InputBox(输入文件名)

Sheets(UserName).Activate

End Sub
请老师指教错在那？

cxchang

支持.

我很想学VBA,但没有持续的学习,所以感觉很难.

mdzcpa

谢谢兰老师!!

春天里的雨

谢谢兰老师

[此贴子已经被作者于2006-8-29 18:44:56编辑过]

benbinbin

Sub lsy()
If ActiveSheet.[a1] = "" Then [a1] = "序号": [b1] = "姓名"
With Sheets("sheet1")
For i = 2 To .Range("A65536").End(xlUp).Row
If Sheets("sheet2").Columns(2).Find(.Cells(i, 2)) Is Nothing Then
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0) = .Cells(i, 1)
ActiveSheet.Range("A65536").End(xlUp).Offset(0, 1) = .Cells(i, 2)
End If
Next
End With
End Sub