2015V初班课前练习一已开帖

E雪无痕

2015V初课前练习一.rar (18.68 KB, 下载次数: 11)

2015-5-21 08:45 上传

点击文件名下载附件

incrediblesky

M3=IFERROR(INDEX($A$3:$E$7,IF(ROW(A1)=COLUMN(A1),ROW(A1)),IF(ROW(A1)=COLUMN(A1),COLUMN(A1))),"")&IFERROR(IF(ROW(A1)=3,"",INDEX($A$3:$E$7,IF(ROW(A1)+COLUMN(A1)=6,ROW(A1)),IF(ROW(A1)+COLUMN(A1)=6,COLUMN(A1)))),"")
右拉再下拉
VBA就不会了
2015V初课前练习一.rar (17.87 KB, 下载次数: 3)

2015-5-21 11:19 上传

点击文件名下载附件

rlzcjrrmy

学习,学习

ZL在水一方

86大师，练习题好难啊
函数法是胡诌出来的
VBA法是利用录制宏把函数过程录下来的
等待开贴后，学习其他学员的高见

zjyxp

第一个练习就 不会，参与学习
zjyxp_练习一.rar (21.45 KB, 下载次数: 8)

2015-5-23 12:13 上传

点击文件名下载附件

郭郭嗯

Sub test()
   
    Dim Rng As Range
    Dim ChangeRng As Range
    Dim Rnum As Integer
    Dim Cnum As Integer
    Dim I As Integer
    Dim J As Integer
   
    Set Rng = Sheet1.Range("d8:h12")
    Rnum = Rng.Rows.Count
    Cnum = Rng.Columns.Count
    Set ChangeRng = Sheet1.Range("j8").Resize(Rnum, Cnum)
    Do
        With ChangeRng
            .Cells(1, 1) = Rng.Cells(1, 1)
            .Cells(1, Cnum) = Rng.Cells(1, Cnum)
            .Cells(Rnum, 1) = Rng.Cells(Rnum, 1)
            .Cells(Rnum, Cnum) = Rng.Cells(Rnum, Cnum)
            If Rnum = 1 Then
                .Cells(Rnum, Cnum) = Rng.Cells(Rnum, Cnum)
                Exit Sub
            End If
            Rnum = Rnum - 2
            Cnum = Cnum - 2
            Set Rng = Rng.Offset(1, 1).Resize(Rnum, Cnum)
            Set ChangeRng = ChangeRng.Offset(1, 1).Resize(Rnum, Cnum)
        End With
    Loop
     
   
End Sub

砂海

来装个样子

郭郭嗯

Option Explicit
Sub aa()
    Dim arr, i, j
    With Sheets("sheet1")
        Range("s3:w7").ClearContents
        arr = .Range("a3:e7")
        For i = 1 To 5
            For j = 1 To 5
                If i <> j And i + j <> 6 Then
                    arr(i, j) = ""
                End If
                .Cells(i + 2, j + 18) = arr(i, j)
            Next j
        Next i
    End With
End Sub

Sub bb()
    Dim arr, i, j
    With Sheets("sheet1")
        arr = Range("s3:w7")
        For i = 1 To 5
            For j = 1 To 5
                If arr(i, j) > 0 Then
                    arr(i, j) = "*"
                Else
                    arr(i, j) = "  "
                End If
               
            Next j
            Debug.Print arr(i, j - 5) & arr(i, j - 4) & arr(i, j - 3) & arr(i, j - 2) & arr(i, j - 1)
        Next i
    End With

End Sub

维C

2015V初课前练习1-维C.rar (20.57 KB, 下载次数: 8)

2015-5-31 20:41 上传

点击文件名下载附件

武林长风

录制了一个。