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

fuyang

你好！如果要实现在将来某一个时间内删除所有相关报表的程序代码该怎样做呢？

谶纬

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    Set mainwbk = ThisWorkbook
    Set newbk = Workbooks.Add
    mainwbk.Sheets(Array("日报表5", "日报表", "表二星期四")).Copy after:=newbk.Sheets(newbk.Sheets.Count)
    newbk.Sheets(Array("sheet1", "sheet2", "sheet3")).Delete
    newbk.SaveAs "C:\Documents and Settings\Administrator\My Documents\" & "市局报表" & Format(Now(), "yyyy年MM月DD日") & ".xls"
    newbk.Close
    Application.DisplayAlerts = True
End Sub

论坛中找的，我想问下，另存到如“市局报表2006年12月10日”后，原来的公式也复制过来了，我只想要数值和表格，不要公式，应该怎么办。谢谢！

ixus

同一段代码:      Sheets(1).Visible = True
      Sheets(1).Select
      Range("A1").Select
      ActiveCell.FormulaR1C1 = Sheets(2).Range("J1").Value
      Selection.AutoFill Destination:=Range("A1:T1"), Type:=xlFillDefault
      Range("A1:T1").Select
      Selection.AutoFill Destination:=Range("A1:T200")
      Sheets(1).Visible = False
 放在Private Sub Workbook_Open()
         End Sub

里面可以运行,为什么放到

Private Sub CommandButton1_Click()
 End Sub

里就提示range的select方法无效呢?请高手解答,或者实现相同的功能,如何简化以上代码,不胜感激!

dmzdmz130

有十个工作簿,每个工作簿里面有十个工作表(其中都有一个名为"资产负债表"的工作表),想在一张名为"汇总"的工作簿中的"sheet1"中汇总前九个工作簿中的"资产负债表"工作表中的数字和,写了如下代码:

Function ji(cell)
Dim MaxVal As Double
Dim Addr As String
Dim Wksht As Object
Application.Volatile
Addr = cell.Address
Dim aa As Integer
For aa = 1 To Workbooks.Count
If Workbooks(aa).Name <> "汇总" Then
MsgBox Workbooks(aa).Name

For Each Wksht In cell.Parent.Parent.Worksheets

If Wksht.Name = "资产负债表" Then

If IsNumeric(Wksht.Range(Addr)) Then

MaxVal = MaxVal + Wksht.Range(Addr).Value

End If

End If
Next Wksht
End If

Next
ji = MaxVal
End Function
可是却不能达到效果.为什么.?该如何写才能达到效果?

[此贴子已经被作者于2006-12-12 20:49:40编辑过]

陇头梅

大家好,有一个问题要请教大家,

我想达到以下目的,假如在第一个工作表1里A列是我的三个客户(从A1单元格往后依次...),公司1,公司2,公司3,公司3,公司1,公司2,公司3,公司3,B2单元格里是不同的日期对应不同的客户,我想在工作表2(属于公司1的)里的B列中自动调用工作表1里的日期,填在工作表2的B列中的日期栏里,

我试着用公式,可惜调用里,若哪一行若数据不是公司1的,表2里的整行就是空行,有什么办法能让表2里的数据依次填写,不出现空行呢,谢谢各位了,有什么好办法请帮忙发到信息箱里:)再次谢谢

ahkuai

请问, 在listbox里,如何用滑鼠滚动资料.我不知道如何才能读取滑鼠的滚动....帮帮忙..

ccn-9722

太好了谢谢楼主

完美主义者

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

    For i = 12 To 3 Step -1
        a = Cells(i, 1).Value
        Set c = .Columns(2).Find(Cells(i, 2))
        If Not c Is Nothing Then
            If c.MergeCells Then
          Application.Goto c
            d = Selection.Cells.Count
            Rows(i & ":" & i + d - 2).Insert
            .Rows(c.Row & ":" & c.Row + d - 1).Copy Rows(i)
            Cells(i, 1) = a
            Else
           .Rows(c.Row).Copy Rows(i)
           Cells(i, 1) = a

[此贴子已经被作者于2006-12-28 22:03:09编辑过]

leon51

这是拜托狼兄写的为我写的，请帮忙注释，谢谢

For i = 5 To [c65536].End(xlUp).Row Step 4
x.Add Chr(x.Count + 65), Cells(i - 1, 3) & "," & Cells(i, 3) & "," & Cells(i + 1, 3)
y.Add Chr(y.Count + 97), CStr(Cells(i, 3))
Cells(i, 2) = x(Cells(i - 1, 3) & "," & Cells(i, 3) & "," & Cells(i + 1, 3))
Cells(i, 4) = y(CStr(Cells(i, 3)))

If WorksheetFunction.CountIf([d1].Resize(i, 1), Cells(i, 4) & "*") = 1 Then
Cells(i, 4) = Cells(i, 4) & "(" & WorksheetFunction.CountIf([d:d], Cells(i, 4)) & "x):" & Cells(i - 1, 3) + Cells(i, 3) + Cells(i + 1, 3)

Application.ScreenUpdating = True

excel95

多谢兰老师了。请问有如下写法的吗？是何意思呢？我搜索帮助没找到相关主题。

ActiveCell.FormulaR1C1 = ""