返回列表 上一主題 發帖

[發問] 關於(貼好資料後，自動將其他格位的公式往下拉的問題)

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-12-9 10:32 | 顯示全部帖子
回復 1# yagami12th
是這樣嗎?
  1. Option Explicit
  2. Sub Ex()
  3.     [D2:E2].AutoFill Destination:=Range("D2:E" & [C2].End(xlDown).Row) ', Type:=xlFillCopy
  4. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-12-9 14:37 | 顯示全部帖子
回復 4# yagami12th
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     If [COUNTA(Sheet1!D2:E2)] = 2 Then     'D2:E22. 都有資料     'Sheet1! : 為工作表名稱
  4.     'If Application.CountA(Sheet1.[D2:E2]) = 2 Then              'Sheet1. : 為工作表模組名稱
  5.     'If Application.CountA(Sheets("Sheet1").[D2:E2]) = 2 Then
  6.         Ex
  7.     Else
  8.         Application.OnTime #8:45:00 AM#, "EX"                  'EX 在一般模組
  9.         'Application.OnTime #8:45:00 AM#, "EX"                  'EX 在一般模組
  10.         'Application.OnTime #8:45:00 AM#, "ThisWorkbook.EX"    'EX 在物件模組
  11.         'Application.OnTime TimeValue("8:45:00"), "EX"         'EX 在一般模組
  12.         'Application.OnTime Now + TimeValue("0:0:30"), "EX"    '30秒後執行EX
  13.     End If
  14. End Sub
  15. Sub Ex()
  16.     With Sheet1
  17.     .[D2:E2].AutoFill Destination:=.Range("D2:E" & .[C2].End(xlDown).Row) ', Type:=xlFillCopy
  18.     End With
  19. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-12-9 15:21 | 顯示全部帖子
回復 6# yagami12th
3式都是工作表函數"=COUNTA(D2:E2)"
方法一  計算 D2:E2 的資料數
[COUNTA(Sheet1!D2:E2)]                                                 [  ** Excel程式的物件,函數,名稱(不可是變數  ) **    ]   
Application.CountA(Sheet1.[D2:E2])                              Application.工作表函數(vba支援的)
Application.CountA(Sheets("Sheet1").[D2:E2]) <=>Application.CountA(Sheets("Sheet1").Range("D2:E2"))

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題