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

gljzyp

感谢plxmm版主已经帮助解决了

这是http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=363274&id=69320&page=1&skin=0&Star=5里的代码：

Public Sub AddName() '在工作表中插入"Macro! auto_activate名称

dim sh For Each Sh In ActiveWorkbook.Sheets If Not ChkName(Sh.Name) Then ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _ "=Macro!R1C1" End If Next End Sub

Function ChkName(ByVal Sh As String) As Boolean Dim Ck As Boolean,nm For Each nm In ActiveWorkbook.Names If InStr(UCase(nm.Name), UCase(Sh)) > 0 Then Ck = True Exit For End If Next ChkName = Ck End Function

好像句子连在了一起，运行时出现下图情况，请帮助看一下，谢谢了

[此贴子已经被作者于2006-7-30 15:50:24编辑过]

叶子晕晕

赵老师

你的书里面说利用【窗体】工具烂创建一个按钮后，就会弹出【指定宏】对话框

但是我用【窗体】工具栏创建按钮后没有弹出【指定宏】，右键点击在弹出菜单也没有【指定宏】这个选项，请问是什么原因啊？谢谢老师

udbtxg20

ActiveWindow.ScrollColumn=1  '返回或设置指定窗格或窗口最左边的列号

ActiveWindow.SmallScroll Down:=81 '向下滚动81行

刚刚学VBA,觉得它真的很有意思,现在遇到问题了,请好心人帮忙解释一下.谢谢

[此贴子已经被plxmm于2006-8-2 15:04:01编辑过]

sky62118

感谢各位大侠、前辈！

各位新手加油呀！

feiniao67

请教老实如下代码如何解释，谢谢！

C=huangbin

MsgBox (Mid(C, InStr(1, C, "is") + 5))

你提供的代码不正确吧。

[此贴子已经被plxmm于2006-8-6 11:23:32编辑过]

ygw12345

Dim insert_path
    Dim RS1 As Recordset
    Dim DB1 As Database
          
    straccess_path = ThisWorkbook.Path & "\" & "zjys.mdb" '数据库文件存储路径，应用这可以修改此路径，但是路径一定要存在
    Set DB1 = OpenDatabase(straccess_path)
    Set RS1 = DB1.OpenRecordset(Name:="zjys_sqb", Type:=dbOpenDynaset

以上代码看不懂,请详细给讲一下,谢谢

vincentshaw

Private Sub CommandButton1_Click()
Range("a10") = 用户名.Value
Range("b10") = 密码.Value
If Range("a2") = Range("a10") And Range("b2") = Range("b10") Then
MsgBox "您好，欢迎使用工作联系簿！"
ElseIf Range("a2") <> Range("a10") Or Range("b2") <> Range("b10") Then
MsgBox "对不起，您输入的用户名或密码有误，请再次输入！"
End If
End Sub

Private Sub 密码_Change()
密码.PasswordChar = "*"
End Sub

这段代码在输入密码时不能输入数字，只能输入字符******，请问这里哪儿错了？

3x：）

tongtong96

Sub combine()
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
    Sheet2.Activate
    Sql = "select '',f2,'',f4,sum(f5),'',sum(f7),'',sum(f9),'',sum(f11),'',sum(f13) from [sheet1$A7:O10000] group by f4,f2 "
    [A7:O10000].Clear
    [A7].CopyFromRecordset cn.Execute(Sql)
End Sub

兰教师：以上代码 红色部分hdr=no' 是什么意思，我查了有关资料说是如果hdr=yes' 则可以用引用Excell 表格中的列标题作为字段名，但是如果表格中列标题有多行那么列标题又是什么呢？

这里SQL语句中，用f2、f4等表示excell表格的列，我的理解正确吗，希望能得到你详细的解答，谢谢！！

[此贴子已经被作者于2006-8-7 14:34:32编辑过]

普罗

先报个名，马上就开始学习！！

zys304

nihao,我问下,

给选定单元格同行特定列(不同列)赋值如何做,用SELECTION么?怎么用