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

笛声依旧

边看边学ing

wsnnn

在使用语句Application.OnTime Now + TimeValue("00:00:28"), "aaa"时，如在时间未到时想终止该语句的执行，该如何做？

poongsan

请问下面的代码是什么意思?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$P$42" Then
ActiveSheet.PageSetup.PrintArea = "$A$" & ([O42] * 47) - 46 & ":$I$" & [O42] * 47
 ActiveWindow.SelectedSheets.PrintPreview
End If
End Sub

谢谢!!!!!!!!!

Sunny01

版主:

     您好!我是一个新手,能否帮我把生产计划中的代码写入到生产管制中的"装一生产排程月计划"\"装二生产排程月计划"里.这个宏太复杂了我搞不懂.

CPBbmERE.rar (71.45 KB, 下载次数: 2)

2007-5-7 17:09 上传

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

在此先谢谢各位大侠了.
[em06]

[此贴子已经被作者于2007-5-8 7:57:29编辑过]

tobaccohy

两个函数的代码，请帮助解释一下意思和用法。如果我要在TreeView控件里面使用这两个函数，改如何修改里面的代码。

谢谢。在线等候了！！！

Public Function M_Number(Field As String) As String '自动创建多层目录
    Field_len = Len(Field)
    Start = 4
    Number = InStr(Start, Field, "\")
    Do While Number > 0 Or Start < Field_len
        If Number > 0 Then
            Text = Left(Field, Number - 1)
            Start = Number + 1
        Else
            Text = Field
            Start = Field_len
        End If
        Number = InStr(Start, Field, "\")
        If Dir(Text, 30) = "" Then
            MkDir Text
        Else
            If (GetAttr(Text) And vbDirectory) <> vbDirectory Then MkDir Text
        End If
    Loop
End Function

Public Function FileDir(ByVal Path$)    '列出指定目录下的所有文件
    Dim vDirName As String, LastDir As String, FullName As String
    If Right(Path$, 1) <> "\" Then Path$ = Path$ & "\"
    vDirName = Dir(Path$, 55)
    Do While Not vDirName = ""
        If vDirName <> "." And vDirName <> ".." Then
            FullName = Path$ & vDirName
            If (GetAttr(FullName) And vbDirectory) = vbDirectory Then
                LastDir = vDirName
                Call FileDir(FullName)
                vDirName = Dir(Path$, 55)
                Do Until vDirName = LastDir Or vDirName = ""
                    vDirName = Dir(, 55)
                Loop
                If vDirName = "" Then Exit Do
            Else
                For s = 1 To 20
                ActiveSheet.Cells(s, 1).Value = FullName
                If s = 20 Then Exit For
                Next
            End If
        End If
        vDirName = Dir(, 55)
    Loop
End Function

laosanjie

QUOTE:

以下是引用paper1222在2006-9-17 22:17:56的发言：

请问楼主：Application.ScreenUpdating = False 是什么意思？谢谢

Application.ScreenUpdating=False  '这句的意思是：关闭屏幕刷新

gooddoodcom

excel能不能解决线性规划的问题.[em05]

laosanjie

蓝版主的这个帖子太好了！真是我等菜鸟步入Excel这个神圣殿堂的“敲门砖”、“指路灯”……

这麽好的帖子一定要顶上去，让它永远成为想我等这样想学、用好Excel-VBA的新人们的指路明灯！！！

在此，再一次向在这个帖子里不辞辛劳地为大家释疑解惑的各位版主和高手们致以最崇高的敬意和最诚挚的感谢！！！！！！

fanvba

这个贴子还能提问学习吗？

grryv

我是莱鸟，这是一个从文件夹中提取图片的宏，试了一下只能提取9张图片，请各位高手解决能提取更多，并注明每句的含义？？？拜托！！

Sub pic()
On Error Resume Next
Dim MR As Range
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    ML = MR.Left
    MT = MR.Top
    MW = MR.Width
    MH = MR.Height
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    On Error Resume Next
    Selection.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\pic\" & MR.Value & ".jpg"
    On Error Resume Next
    Selection.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\pic\" & MR.Value & ".gif"
    On Error Resume Next
    Selection.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\pic\" & MR.Value & ".bmp"
   End If
Next
End Sub