Yahoo奇摩 網頁搜尋

  1. ...(start_date)  y2 = Year( end _date)  m1 = Month (start_date)  m2 = Month ( end _date)  d1 = Day(start_date)  d2 = Day( end _date)  If d1 = lastday...

  2. ...) = 2011 Then Select Case Month (SeOf) Case 4: CoIdx = 5...1 Case Else: Coldx = 100 End Select End If 如不計年, 則可...

  3. ...前面的為工作表的名稱,而在後面的 C4 即為儲存格的位置 Range( month & "!A1").NumberFormatLocal = dpformat: 在迴圈裡面產生...

  4. ... End (xlUp).Row rmargin = [F6]. End (xlToRight).Column r = 9 Do...(r, 3) <> "" Then month = Cells(r, 3) If Cells(r, 4...

  5. ...num + 1 [B1] = Year(num) - 1911 [B2] = Month (num) [B3] = Day(num) [B4] = "=...1911,B2,B3),""aaa""),1)" End Sub 試試看吧~^^

  6. ...quot;) ActiveWorkbook.Close ActiveWorkbook.Save End Sub 2011-01-27 16:33:30 補充: '試試看。 Sub Macro1...

  7. ...) = 2010 Then MsgBox "本表已過期", vbOKOnly End If 'If Year(Date) >= 2010 And Month (Date) >= 6 And Day(Date) >= 30 Then...

  8. ...流水號 = Year(Me!建立日期) & Format( Month (Me!建立日期), "00") & "-" & Format(c, "000") End If Me.Refresh End Sub...

  9. ...改成下列 測試沒問題 抓一堆時刻表 y = Year(Now()) - 1911 m = Month (Now()) d = Day(Now()) ymd = y & "/" & m &...

  10. ... =', f9.5, ', Standard Deviation =', f9.5)") month (im), ns, avg, sd end do !---(2&3-B) Calculate by year write (*, "(/'By year...