工作

儲存格公式改以VBA執行 - 工作

Harry avatarHarry · 2014-07-22

Table of Contents

將下列的儲存格公式改以VBA執行感謝大大在此Sheets(“SA”)的前VBA程式(恐被違規刪題，未能指名)，同一工作表續增VBA程式。藍粗體為單格式，其餘為區域公式(紅色的區域起始點不同於其他)。1.J1=IF(L1="",COUNTA(AN2:AN100),COUNT(AK2:AK456))2.K1=IF(L1="","L1空白",IF(COUNTIF(C:C,L1)=1,L1,CHOOSE(MIN(2,COUNTIF(C:C,"*"&L1&"*"))+1,"非CP",VLOOKUP("*"&L1&"*",C:C,1,),"加字")))3.L2=IF($L1="","↑",IF(COUNTIF($C:$C,$L1)=1,VLOOKUP($L1,$C:$
工作

All Comments

Tracy avatarTracy2014-07-26
請問1.放在Worksheet_Change內?2.和[L3]值變同步?3.執行完後,以上相關儲存格仍為公式,或改為數值?2014-07-2215:47:00補充：建立一個按鈕CommandButton1貼上程式於該工作頁(本題為　Worksheets("SA"))http://www.funp.net/320099請測試2014-07-2223:15:59補充：1.按鈕建立:參考Word檔　http://www.funp.net/6327822.公式是在Worksheets("CP")還是Worksheets("SA")　在那個工作頁即在該工作頁建立　指令按鈕　並貼入程式ps：PrivateSubCommandButton1_Click()...EndSub　頭尾不要重複了ㄜ　如在　CP
Suhail Hany avatarSuhail Hany2014-07-24
�B�N大:早安.因H至P欄其他列都可能用到，為免輸入後又要"手動"計算。請將其不與[L3]值同步，SheetsCP的H至P欄相關儲存格就不用公式了，上述公式改由VBA獨立執行。也不要和執行[L3]值有關連，各自獨立執行計算。謝謝2014-07-2207:33:02補充：經VBA程式計算，各公式計算結果亦顯示在原公式預設的儲存格原位。和執行[L3]值的運算各自獨立。抱歉懂得很少，001第1和3項的涵意是用猜的。2014-07-2221:40:41補充：�B�N大:1.如何建立按鈕，找了好久沒找到。如