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

rock1983823

Private Sub CommandButton1_Click()
   '从第五行开始查找,找到空白行,以定位从这里输入
       rownum = 1
       Do
       if (Cells(rownum, 1) = TextBox1.Text)
            {rownum=rownum+1;
             Cells(rownum, 1) = Cells(rownum - 1, 1)
             }
      
       rownum = rownum + 1
       Loop Until Cells(rownum, 1) = ""
End Sub

我这段代码在实现查询时　出现错误　请大家帮我看下

rheiva

大师们好象都开始潜水了，但看看后面的提问，如果我是大师，我也不太想回答。

奉劝大家一句，别指望在这帖子里学习基本知识，这里是学了基本知识后有需要解惑的才在这里发帖，大家应该积极地先去看看入门帖，再来找大师哦~ 

[em05]

ziran12

Private Sub CommandButton3_Click()
CommonDialog1.Action = 1
TextBox1.Text = CommonDialog1.filename
End Sub

在本来可以在我的电脑上运行，可是后来就不行了，总是提示缺少对象，可是在别人的机子上就可以运行，烦，重装了好几遍系统和office了，就是要打开一个文件，把路径放到对话框中

zerozwart

请教老师

=IF(ISNA(MATCH(E4,打印区域!$B$2:$H$2,)),"",HLOOKUP(E4,打印区域!$B$2:$H$4,3,))

具体什么含义

[em04]

realchong

 Workbooks.Open fn              '打开文件
            For Each c In ThisWorkbook.Sheets(1).Range("c15:q15")
                adres = c.Address(0, 0)
                c = Application.WorksheetFunction.Sum(c, ActiveWorkbook.Sheets(1).Range(adres))
            Next
            Workbooks(sName).Close False
很菜,几乎是什么都不懂

请教这个语句

[em06]

fanzheyu

Public Function gongzi(m As Double)
      Dim k As Integer
     If m = 0 Then
        gongzi = 0
        End If
     If 0 < m And m < 2.4 Then
        gongzi = 600
        End If
     If 2.4 <= m Then
        gongzi = 600
         k = 10 * (Application.WorksheetFunction.RoundDown((m - 2.3), 1))
            For i = 1 To k
              gongzi = gongzi + (10 * i + 20)
              Next
         If (m - 2.3) * 10 - k = 0 Then
              gongzi = gongzi
             Else
                gongzi = gongzi + CInt(Right(CStr((m - 2.3)), 1)) * (30 + 10 * k) / 10
              End If
              End If
    
End Function

帮我看看，为什么没m＝2.4时结果是634而不是630，如果要为630要怎么改，郁闷！

好像没有做If (m - 2.3) * 10 - k = 0 Then这个判断

[此贴子已经被作者于2006-10-30 16:26:08编辑过]

czji

HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
         Columns.ColumnWidth = 11 
    End With
        With Selection.Font
        .Name = "宋体"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic

bjnftcc2006

  老师：

 Sheets("Sheet2").PrintOut Copies:=1, Collate:=True这句话里的collate:=true是什么意思

303hd

从第五行开始看不懂,谁能解释一下

Sub Me_Micro()
    Dim t_Str$
    Dim i%
    Dim Bh() As String
    For n = 2 To [B65536].End(xlUp).Row
        Bh = Split(Cells(n, 2), "编号")
        If UBound(Bh) > 0 Then
            For i = 1 To UBound(Bh)
                t_Str = t_Str & i & Split(Cells(n, 2), "编号")(i)
            Next
            Cells(n, 2) = t_Str
        End If
    Next
End Sub

[此贴子已经被作者于2006-11-3 15:17:48编辑过]

haodayikeshu

CreateObject("Scripting.FileSystemObject",<Not defined>")

不好意思,我对VBA一窍不通,我从别人那里拷来了一个EXCEL表格,里面有这么个"宏",卡巴斯基说是有风险的"宏".请问兰老师,这个"宏"是什么意思?

谢谢

[em04]