练习题

天地有雪

交练习了~好难！

笨的有点傻

不会SQL 不会VBA

qh8600

练习题.rar (17.43 KB, 下载次数: 5)

2015-4-21 16:28 上传

点击文件名下载附件
不会SQL，写了VBA的哈

sry660

SQL不会，憋了个笨办法~~~

轩辕轼轲

SQL语句支持支持最多48天的

byhdch

练习题.rar (17.38 KB, 下载次数: 9)

2015-4-22 13:21 上传

点击文件名下载附件

hsl215

先交了有时间再改吧！ 练习题-c10-hsl215.rar (218.74 KB, 下载次数: 10)

2015-4-22 17:15 上传

点击文件名下载附件

橘子红

1. =TEXT(INDEX(A:A,SMALL(IF(C$2:C$7>=COLUMN(A:Z),ROW($2:$7)),ROW(A1))),"e-m-d")

复制代码

不信这样还重名

1. Sub Lianxi2()
   
2.         Dim x As Long, y As Long, m As Long, k As Long
   
3.         Dim max_x As Long
   
4.         Dim arr, brr()
   
5.                 max_x = ActiveSheet.Range("a65536").End(xlUp).Row
   
6.                 arr = ActiveSheet.Range("a1").Resize(max_x, 3)
   
7.                 For x = 2 To max_x
   
8.                         If arr(x, 3) > 1 Then
   
9.                                 For y = 1 To arr(x, 3)
   
10.                                         k = k + 1
    
11.                                         ReDim Preserve brr(1 To 3, 1 To m + k)
    
12.                                                 brr(1, m + k) = arr(x, 1)
    
13.                                                 brr(2, m + k) = brr(1, m + k) + k - 1
    
14.                                                 brr(3, m + k) = arr(x, 2) / arr(x, 3)
    
15.                                 Next
    
16.                                 m = m + k
    
17.                                 k = 0
    
18.                         Else
    
19.                                 m = m + 1
    
20.                                 brr(1, m) = arr(x, 1)
    
21.                                 brr(2, m) = arr(x, 1)
    
22.                                 brr(3, m) = arr(x, 3)
    
23.                         End If
    
24.                 Next
    
25.                 With ActiveSheet.[j1]
    
26.                         .Offset(0, 0) = "预定日期"
    
27.                         .Offset(0, 1) = "使用日期"
    
28.                         .Offset(0, 2) = "金额"
    
29.                         .Offset(1).Resize(m, 3) = Application.Transpose(brr)
    
30.                 End With
    
31. End Sub

复制代码

fjhuang

学习