今日到龍潭上課

找找車站的車影 , 擦肩而過的美女 , 居然都在渴望園區
太幸運了 , 今天上課心情超好的 , 這個班充滿活力
不帥哥就是美女 , 而且讓我大開眼界
誰言帥哥美女比較笨 , 這一班突破了這個謠言
最後祝這一班的朋友 要幸福唷
加油

EXCEL VBA - 自動填值

Sub 自動填值設計()
i = 1

Range("A2").Select
Selection.End(xlDown).Select
x1 = ActiveCell.Row

Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False



Range("A2").Select
While (i <> x1)
If ActiveCell.Value <> Empty Then
r1 = ActiveCell.Value
r2 = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select


Else
ActiveCell.Value = r1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = r2
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(1, 0).Select
End If
i = i + 1

Wend

End Sub

台北縣民免費電腦證照課程-開始報名囉

台北縣民免費電腦證照課程-開始報名囉
趕快到　http://getlicense.tpc.gov.tw/

ACCESS - 函數

在access中使用的函數
Count() : 您可以使用 Count 來計算基礎查詢中的記錄數目。
Exp(number) : 會傳回指定 e (自然對數的基數) 次方的 Double。
Left(string, length) : 會傳回 Variant (String)，包含從字串左側起算的指定字元數。
Minute(time) : 傳回 Variant (Integer)，指定 0 到 59 (含) 之間的整數，代表小時的分鐘。
Month(date) : 傳回指定 1 到 12 之間 (包括 1 和 12) 的整數之 Variant (Integer)，代表一年之中的月份。
Second(time) : 傳回 Variant (Integer)，指定表示分鐘內秒數之 0 到 59 之間 (包含) 的整數。
Year(date) : 傳回 Variant (Integer)，包含代表年的整數。
DFirst(expr, domain [, criteria] ) 與
DLast(expr, domain [, criteria] ) : 只需要資料表或查詢中某個特定欄位的任意值，可以使用 DFirst 及 DLast 函數從該欄位傳回隨機記錄。
Avg () : 計算查詢中指定欄位所含值集的算術平均值。
Min(), Max() : 計算查詢中指定欄位所含值集的最小值或最大值。

StDev 與 StDevP : 傳回母體的標準差 (標準差：一種參數，用來表示被其自身的平均值所包圍的機率函式，而且此一參數等於要素的平方根，也就是來自於平均值的差異平方。)估計值，或者傳回母體樣本的標準差估計值，該樣本以包含於查詢中指定欄位內的一組值來表示。
Sum() : 計算查詢中指定欄位所含值集的總和值。
Var 與 VarP () : 會傳回母體或母體樣本之變異數 (變異數：標準差的平方，為數量的測量方式，以此方法計算，則群組中所有的値與平均值不同。)的估計值，其呈現為查詢中指定欄位內包含的一組值。
IRR(values() [, guess ] ) : 會傳回 Double ，指定各期現金流量的內部報酬率 (支出和收入)。
Mid(string, start [, length ] ) : 傳回 Variant (String)，包含字串的指定字元數。
MIRR(values(), finance_rate, reinvest_rate) : 會傳回double , 指定依不同利率對各期之現金流量融資的內部報酬率 (支出和收入) 。
StrReverse(expression) : 會傳回反轉指定字串中各字元順序的字串。
Abs(number) : 會以與傳遞之數字相同的類型傳回該數字的絕對值。
CurDir[(drive)] : 會傳回代表目前路徑的 Variant (String)。
FileDateTime(pathname) : 傳回 Variant (日期)，指示檔案建立或前次修改的日期與時間。
Hour(time) : 傳回 Variant (Integer)，指定 0 與 23 (含) 之間的整數，代表日期的小時。
Join(sourcearray [, delimiter ] ) : 傳回藉由聯結陣列 包含的子字串數所建立的字串。
LOF(filenumber) : 會傳回 Long 代表使用 Open 陳述式所開啟之檔案的大小 (位元組)。
LTrim(string) , RTrim(string) , Trim(string) :傳回 Variant (String)，包含指定的字串副本，而不含前置空格 (LTrim)、後端空格 (RTrim)，或前置空格和後端空格二者 (Trim)。
EOF(filenumber) : 抵達為 Random 或循序 Input 開啟之檔案的結尾時，會傳回包含布林值為 True 的 Integer 。
FileLen(pathname) : 傳回指定檔案長度 (位元組) 的 Long 資料類型
Loc(filenumber) : 會傳回 Long 指定開啟檔案內的目前讀取/寫入位置。
Seek(filenumber) : 會傳回 Long 指定使用 Open 陳述式開啟之檔案中目前讀取/寫入的位置。
Weekday(date [, firstdayofweek ] ) : 傳回 Variant (長整數)，包含代表星期名稱的整

如需完整的函數介紹 , 開啟ACCESS後 , 按F1 , 輸入函數 , 就可以找到您要的資訊了

EXCEL 找出非重覆的值2003與2007差異

以下使用2003
請依下列步驟執行
1 先複製一次工作表1
2 選取複製的工作表1
3 將回收學校資料複製到所有學校的下方
4 進行排序所有學校
5 選取欄號A / 插入欄
6 選取儲存格A2 輸入下列公式
=IF(OR(B2=B1,B2=B3),0,1)
7 選取A2儲存格右下方控點二下 , 您會看到連續二個00 表示重覆
8 進行選取欄A 篩選 , 設定1 , 這樣就可以找出非重覆的資料,
9 您再複製 / 到原工作表的C2 / 貼上值(就可以了)

以下是2007的方法
請依下列步驟執行
1 先複製一次工作表1
2 選取複製的工作表1
3 將回收學校資料複製到所有學校的下方
4 選取資料 / 移除重複料 (就完成了)
5 將結果複製到原先的工作表3的C2儲存格位置

EXCEL - VBA 找出最大值

Public Sub OK()
Range("C3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[17]C[-1])"
x = ActiveCell.Value


Range("b2").Select


While (ActiveCell.Value <> x)

ActiveCell.Offset(1, 0).Select

Wend
y = ActiveCell.Row
y = "c" & y
Range(y).Value = x

Range("C3").Value = Empty



End Sub

EXCEL-VBA 選取任意範圍

這是可以的 , 但是先決條件是不是要告知儲存格的起點
您可以設計下列程式可以做到您的要求
Public SUB 任意範圍()

x = InputBox("輸入起始位址[如:A3]")
y = InputBox("輸入欄與列範圍大小[如:3*5]")

Range(x).Select
y1 = Int(Left(y, 1))
y2 = Int(Right(y, 1))


ActiveCell.Offset(y2, y1).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select

END SUB

不過上式只執行一位數 , 如果您要二位數以上建議改成下列方式較方便
Public SUB 任意範圍()

x = InputBox("輸入起始位址[如:A3]")
cn = InputBox("輸入欄範圍大小[如:12]")
rn = InputBox("輸入列範圍大小[如:120]")

Range(x).Select
ActiveCell.Offset(rn, cn).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select

END SUB