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

qh8600

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

2015-5-20 15:33 上传

点击文件名下载附件

   要求：附件形式提交

   希望童鞋们踊跃参与，有加分的哈{:112:}


   非本班同学，请不要上交练习，除上交练习外，其他灌水一律扣分

Excel学徒123

我来学学~~~

小小菜鸟学EXCEL

第一...

珺珺妈

VBA不会函数凑吧。

喜夏1314

1. Sub ts()
   
2. Dim i As Byte
   
3. Dim arr, arr1(1 To 5, 1 To 5) As Variant
   
4. arr = Range("a3:e7")
   
5. For i = 1 To 5
   
6. arr1(i, i) = arr(i, i)
   
7. arr1(i, 6 - i) = arr(i, 6 - i)
   
8. Next
   
9. Range("s3").Resize(5, 5) = arr1
   
10. End Sub

复制代码

采姑娘的小蘑菇

附加题不会！{:021:}
2015V初课前练习一 ——采姑娘的小蘑菇.rar (21.21 KB, 下载次数: 27)

2015-5-20 23:25 上传

点击文件名下载附件

xcnclzy

1. Sub aa1()
   
2. Dim i%, j%, x%
   
3. x = [a3].CurrentRegion.Columns.Count
   
4. For i = 1 To x
   
5. For j = x To 1 Step -1
   
6. If i = j Or i + j = x + 1 Then
   
7. Cells(i + 2, j + 18) = Cells(i + 2, j)
   
8. End If
   
9. Next j
   
10. Next i
    
11. End Sub

复制代码

xcnclzy-2015V初课前练习一

小小菜鸟学EXCEL

函数换了个字符更少的。VBA也在大神的指导下完成。

一村之长

{:081:}86大师，那个课前练习我VBA的也做出来了，完全是自己写的，这回没百度，可以给10分不？{:021:}

小小菜鸟学EXCEL

字符最少的