Excel VBA班 – Q&A

參考書籍

• Excel VBA與資料庫整合實務講座 古川順平著 / 博碩文化 編譯(Excel 2000-Excel 2003)
• Excel 範例集 企業現場 永井善王著 / 古又羽譯 旗標(Excel 2000-Excel2007)
  http://www.tenlong.com.tw/items/9574427773?item_id=52598

如何同時載入多個試算表的資料

資料範圍選取與位置切換

如何建立Server端的VBA程式

Excel達人班同學請填寫問卷

Excel達人班同學請填寫問卷
http://goo.gl/INztE

CaseStudy_Samples

http://www.box.com/s/f5987a9989180b063710

CaseStudy01 解答
http://www.box.com/s/5adee3f763abacbac3fc

CaseStudy01-04 解答
http://www.box.com/s/b430dc0a733fa31d673a

CaseStudy02
IF函數運用


30小時以內(含)：C18
=IF(F11>=30,30*B18,F11*B12)

30-40小時：C19 先比大
=IF(F11>40,10*B19,IF(F11>=30,(F11-30)*B19,0))


30-40小時, 先比小
=IF(F11>30,IF(F11>40,10*400,(F11-30)*400))


40小時以上(含)：C20
=IF(F11>40,(F11-40)*B20,0)



輸入系統日期 Ctrl+;
輸入系統時間 Ctrl+Shift+;

系統日期 =TODAY()
系統日期時間 =NOW()

B1 =TODAY()
B2 196810/4

年
B4=YEAR(B1-B2)-1900
月
B5=MONTH(B1-B2)-1
日
B6=DAY(B1-B2)


CaseStudy03
水平查表：

表範圍 A1:D2,第一列數值要遞增
1 10 20 30
4  3  2  1

=HLOOKUP(A2,查表!$A$1:$D$2,2,TRUE)

姓名挖洞
=IF(LEN(B2)=3,LEFT(B2,1)&"○"&RIGHT(B2,1),LEFT(B2,1)&"○○"&RIGHT(B2,1))

Excel達人班

http://www.box.com/s/75aulonkeumd0s3442ty

1.查表函數 VLOOKUP
由學生基本資料，學生姓名查E-mail
=VLOOKUP(B2,學生基本資料!B2:C13,2,FALSE)

2.排名次 RANK
=RANK(R2,$R$2:$R$13)

3.台科大甄選(T1) IF
=IF(R2>=85,"台科大","")

4.師大甄選, 巢狀IF
=IF(S2>10,"真可惜!",IF(COUNTIF(G2:P2,"<60")<=1,"師大","備取"))


5.各科平均(G15)
=AVERAGE(G14)

6.各科平均(G16),取整數
=INT(G14)

7.各科平均(G17),小數點第二位取四捨五入
=ROUND(G14,2)

8.各科平均(G18),小數點第二位取無條件進位
=ROUNDUP(G14,2)

9.各科平均(G19),小數點第二位取無條件捨去
=ROUNDDOWN(G14,2)


10.找出@的位置：I2
=FIND("@",C2)

11保留帳號，組合成Gmail：J2
=LEFT(C2,FIND("@",C2))&"gmail.com"


12.姓氏 C2
=IF(LEN(B2)=4,LEFT(B2,2),LEFT(B2,1))

14.路段 F2
=MID(E2,4,LEN(E2)-3)