作者:邓聪聪 windowns下excel快速生成月报表,省去了手工复制繁琐的过程 Sub AutoCopySheets() Dim i, j As Integer i = 1 j = 11 For i = 1 To 1 j = j + 1 Sheets("2016.11").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "2016" & "." & j…
-- value带有两个参数,第一个指下限,第二个指上限,将会生成下限到上限之间的数字,但不包含上限.select ceil(dbms_random.value(1000,9999)) from dual; select substr(cast(dbms_random.value as varchar2(38)),2,4) from dual; select floor(dbms_random.value(0,100)) from dual; select round(dbms_random.v…