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

dolphinaries

请问：

怎么使用frame里面的optionbutton？

我想再一个frame里面放置12个optionbutton，然后通过选择不同的button，得到它们是第几个，赋值给一个变量

谢谢

爱歌学习

QUOTE:

以下是引用688627100在2007-2-13 16:08:42的发言：

这是走论坛上下的SQL查询方面的代码,不太懂,还请老师指教!!

Private Sub CommandButton1_Click()
Dim sql$
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1;';data source=" & ThisWorkbook.Path & "\数据区.xls"
sql = "select * from [sheet1$]"
[a2].CopyFromRecordset conn.Execute(sql)
conn.Close: Set conn = Nothing
End Sub

看看这个是否有帮助：http://club.excelhome.net/viewthread.php?tid=160847&replyID=647134&skin=1

zdyuan

好！

ioo_linew

我自己写的，但是不知道错在哪里？

老师帮忙看看！
Dim rarray() As Range
Dim narray() As Integer

Set ws = ThisWorkbook.Worksheets(1)
For m = 0 To 5
    rarray(m) = ws.Cells(m + 1, 2) '问题在这里，但是我不知道什么问题
    narray(m) = Len(rarray(m))
    Next

stx1980710

QUOTE:

以下是引用ioo_linew在2007-2-24 7:09:05的发言：

我自己写的，但是不知道错在哪里？

老师帮忙看看！
Dim rarray() As Range
Dim narray() As Integer

Set ws = ThisWorkbook.Worksheets(1)
For m = 0 To 5
    rarray(m) = ws.Cells(m + 1, 2) '问题在这里，但是我不知道什么问题
    narray(m) = Len(rarray(m))
    Next

有点奇怪的是：你声明了动态数组为什么，不在过程中指定数组的大小呢？

这可能是造成错误的主要原因！

如：

请注意红色部份

Dim rarray() As Integer
Dim narray() As Integer
Set ws = ThisWorkbook.Worksheets(1)
For m = 0 To 5
    ReDim Preserve rarray(0 To m)
    ReDim Preserve narray(0 To m)
    rarray(m) = ws.Cells(m + 1, 2) '问题在这里，但是我不知道什么问题
    narray(m) = Len(rarray(m))
Next m

dtglexcel

Sub 录入凭证()
'
' 录入凭证 Macro
' 卢毅刚 记录的宏 2003-11-29
'
Sheets("录入凭证").Visible = True
aa = Worksheets("录入凭证").Cells(4, 10)
     Sheets("录入凭证").Select
     ActiveSheet.Unprotect Password:=123
      Application.Goto Reference:="fwa"
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 0
     Application.Goto Reference:="R5C11:R300C11"
    Selection.ClearContents
    ActiveSheet.Protect Password:=123
  Range(Cells(aa, 2), Cells(aa, 2)).Select
  Worksheets("录入凭证").Cells(aa, 2) = Worksheets("录入凭证").Cells(4, 7) + 1
End Sub

上面作了加粗、倾斜、下划线的语句各是什么意思？向各位老师请教？

dxy27

都是调整格式的语句.有时候录制的宏写得很烦琐的.

dtglexcel

谢谢！

swwl21

支持，以后会多来关注的

[em08]

hangtian2006

Dim cat As New ADOX.Catalog
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a:\rcgl.mdb"

这段代码的含义是什么?