皮皮网

1.vba?缩缩进???Դ???л????
2.哪位大神能帮忙翻译下这串VBA代码，小白急，进源学校主页html源码非常感谢！码感传奇源码研究
3.word中的缩进VBA代码

vba?谢网趴php源码???Դ???л????

       Private Sub Worksheet_Change(ByVal Target As Range)

           H = Target.Row: L = Target.Column

           Hs = 3: He = Cells(, 3).End(xlUp).Row + 1

           Lb =

           Columns("D:D").NumberFormatLocal = "yyyy/m/d h:mm;@"

           Columns("B:B").NumberFormatLocal = "@"

           If Hs <= H And H <= He And L = Lb Then

               If H = Hs Then

                   If Range("A" & H) = "" Then Range("A" & H) = 1

                   If Range("B" & H) = "" Then Range("B" & H) = ""

                   If Range("C" & H) = "" Then Range("C" & H) = InputBox("请输入客户名称:")

                   If Range("D" & H) = "" Then Range("D" & H) = Now

               Else

                   If Range("A" & H) = "" Then Range("A" & H) = Range("A" & H - 1) + 1

                   If Range("C" & H) = "" Then Range("C" & H) = Range("C" & H - 1)

                   If Range("B" & H) = "" Then

                       If Range("C" & H) = Range("C" & H - 1) Then

                           Range("B" & H) = Range("B" & H - 1)

                       Else

                           编号 = Val(Range("B" & H - 1))

                           For I = 1 To 5 - Len(LTrim(Str$(编号)))

                               订单编号 = 订单编号 + "0"

                           Next

                           订单编号 = 订单编号 + LTrim(Str$(编号 + 1))

                           Range("B" & H) = 订单编号

                       End If

                   End If

                   If Range("D" & H) = "" Then

                      If Range("C" & H) = Range("C" & H - 1) Then

                          Range("D" & H) = Range("D" & H - 1)

                      Else

                          Range("D" & H) = Now

                      End If

                   End If

               End If

           End If

       End Sub

哪位大神能帮忙翻译下这串VBA代码，小白急，代码按钮源码大全非常感谢！缩缩进zuul 源码下载

       Sub 打印()

       Sheet1.Cells(4,进源 2).ClearContents

       For i = 2 To Sheet2.[b].End(3).Row

       Sheet1.Cells(4, 2) = Sheet2.Cells(i, 2).Value

       Sheet1.PageSetup.PrintArea = "$A$1:$ac$"

       Sheet1.PrintOut

       Next

       End Sub

word中的缩进VBA代码

       With Selection.ParagraphFormat

       .LeftIndent = CentimetersToPoints(0) '左缩进为0

       .FirstLineIndent = CentimetersToPoints(0) '首行缩进为0

       End With