EXCEL _ VBA資料拆解

Sub 資料比對()


Dim my_rng, my_end

Sheets.Add

Workbooks.Open Filename:="T2 Digit Code.xls"

my_end = ActiveCell.SpecialCells(xlLastCell).Row

my_rng = "C4:C" & my_end

Range(my_rng).Select

Selection.Copy

Windows("FW11 2nd CUST FCST - 021210.xls").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Windows("T2 Digit Code.xls").Close

刪除空白

End Sub



Sub 刪除空白()

Dim my_start, my_end

my_end = ActiveCell.SpecialCells(xlLastCell).Row



For i = 1 To my_end



If ActiveCell.Value <> Empty Then

ActiveCell.Offset(1, 0).Select

Else





Selection.Delete Shift:=xlUp



End If

Next



Range("A1").Select



End Sub



Sub 合併篩選()

Dim my_rng, i, y

Sheets(1).Select

y = ActiveCell.SpecialCells(xlLastCell).Row

For i = 1 To y

my_rng = "A" & i

' 資料移轉

Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter

Selection.AutoFilter Field:=2, Criteria1:=Sheets(1).Range(my_rng).Value

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Selection.Copy

'新活頁簿

Workbooks.Add

ActiveSheet.Paste

Application.CutCopyMode = False

If Range("A2").Value <> Empty Then



'儲存活頁簿

x = Range("c2").Value

ActiveWorkbook.SaveAs Filename:= _

x & ".xls", FileFormat:= _

xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

, CreateBackup:=False

'關閉活頁簿

ActiveWindow.Close

Else

Application.DisplayAlerts = False

ActiveWorkbook.Close

End If





' 結束篩選

Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter



Next



End Sub

after effect 形狀 express 位置 , 大小 旋轉

表達式設計(形狀設計位置 大小 旋轉)


1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 320x 240 , 00:00:8:00)

4 layer (功能表) / new (新增) / Shape (形狀)

5 選取時間軸 / ADD (polystar )/ ADD(FILL,RGB) / 選取postion

6點選 ANIMATION(動畫) / ADD EXPRESSION(表示式) , 快速鍵 : SHIFT + ALT + =

輸入position表示式的內容

my_hold = .01; //最小停留時間


min_value = [0.01*thisComp.width, 0.01*thisComp.height];

max_value = [thisComp.width, thisComp.height];



seedRandom(index,true);

my_dur = random(my_hold, 1);

my_seed = Math.floor(time/my_dur);

my_start = my_seed*my_dur;

seedRandom(my_seed,true);

start_value = random(min_value,max_value);

seedRandom(my_seed,true);

end_value = random(min_value,max_value);

ease(time,my_start,my_start + my_dur, start_value, end_value);



5 選取Shape (形狀圖形) / CTRL + D / 改圖形色彩(可以複製N個)

也可以改為

輸入Scale表示式的內容

my_hold = .01; //最小停留時間


min_value = [0.01*thisComp.width, 0.01*thisComp.height];

max_value = [0.2*thisComp.width, 0.2*thisComp.height];



seedRandom(index,true);

my_dur = random(my_hold, 1);

my_seed = Math.floor(time/my_dur);

my_start = my_seed*my_dur;

seedRandom(my_seed,true);

start_value = random(min_value,max_value);

seedRandom(my_seed,true);

end_value = random(min_value,max_value);

ease(time,my_start,my_start + my_dur, start_value, end_value);

 
輸入roation的表示式內容

my_count = 0; //次數計算宣告


my_value = 0; //旋轉值宣告

seedRandom(index,true)

while (my_count < time){

my_value = my_value+ random(30);

my_count = my_count + thisComp.frameDuration;

}

rotation + my_value

after effect 定位 express

表達式設計(定位)


1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 320x 240 , 00:00:8:00)

4 File (功能表) / import (匯入) / file (影片檔案)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I(檔案尺寸320*240)

6 將影片拖曳至時間軸 / 按 P 鍵(設定POSITION位置)

7 點選 ANIMATION(動畫) / ADD EXPRESSION(表示式) , 快速鍵 : SHIFT + ALT + =

8 輸入表示式的內容 : [(thisComp.width/2),(thisComp.height/2)]+[Math.sin(time)*80,Math.cos(time)*30]

Width : 寬度 height : 高度 math : 函數 sin:正弦 cos : 餘弦

也可以這樣寫

x = random(thisComp.width);

y = random(thisComp.height);

[x,y]

或是這樣寫

x = random()*thisComp.width;

y = random()*thisComp.height;

[x,y]

說明 : 大小寫有規定

表達式設計一(亂數定位)

1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 320x 240 , 00:00:8:00)

4 File (功能表) / import (匯入) / file (影片檔案)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I(檔案尺寸320*240)

6 將影片拖曳至時間軸 / 按 P 鍵(設定POSITION位置)

7 點選 ANIMATION(動畫) / ADD EXPRESSION(表示式) , 快速鍵 : SHIFT + ALT + =

8 輸入表示式的內容 :

holdTime = 1; // 停留位置時間

seed = Math.floor(time/holdTime);

seedRandom(seed,true);

random([thisComp.width, thisComp.height])

seedRandom（） : 隨機函數 random(0,720)系統亂數 Math.floor 數學整數

說明 : 大小寫有規定

aftereffect 文字動畫

文字預設動畫設計


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / files (二個圖檔案)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取LAYER (圖層) /NEW / TEXT / 輸入文字內容 / OK

7 選取右側 effect & preset / 選取animation presets / 選取 TEXT / 選取FILL& STROKE / 套用 pluse blue / 拖曳到時間軸

8 選取右側 effect & preset / 選取animation presets / 選取 TEXT / 選取miscellaneous(雜項)/ 套用 squeeze (擠) / 拖曳到時間軸
3D文字動畫設計


1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

4 選取上圖層 / effect / generate / ramp(漸層色) / effect / generate / GRID(網格) / 設定size from = slider , mode = overlay(覆蓋)

5 按一下3D鈕 / 設定3D參數



6 layer / NEW / TEXT / 輸入文字內容 / OK

7 選取3D 鈕 / 再設參數

aftereffect

文字遮罩設計


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / files (二個圖檔案)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取LAYER (圖層) /NEW / solid / OK

7 選取右側 effect & preset / 選取animation presets / 選取 backgrounds / 選取indigestion背景動畫範本

8 拖曳到時間軸 / 點選時間軸上的brainstom[腦力激盪]鈕 – 可產生亂數 .

9 請自行加字如 : ALEX

10 選取layer / auto-trace / 設定參數 mask -> invert

11 關閉文字圖層顯示

after effect 幾何形狀

幾何遮罩設計(mask)


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / files (二個圖檔案)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取時間軸上層的圖片 / 選取 ELLIPSE TOOL 工具 (圓形遮照工具) / 繪製一個圓

7 設定 MASK( 參數 為ADD 與勾選 INVERTED項目

請於不同的時間點增加KEY FRAME(關鍵影格) / 並改變圓的大小或位置 / 即可預覽結果喔

形狀設計(STAR)

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / files (二個圖檔案)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(合成) / new Composition(新增合成)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:05:00) / 拖曳素材至timeline(時間軸)

6 選取LAYER (圖層) / SHAPE LAYER / 選取 ADD / POLYSTAR(星型)

7 選取 ADD / FILL(填色) / 改變色彩 / 調整 polystar prth1 參數可有不同的圖案

8 選取 ADD / pucker bloat(皺褶膨脹) /調整參數

9 選取 ADD / repeater(重覆) /調整重覆參數

請設定SCALE POSITION REPEATER ROATE等時間點增加KEY FRAME(關鍵影格) 即可預覽結果喔

after effect 光源效果

立體光源效果


1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:06:00)

4 File (功能表) / import (匯入) / file (圖片檔)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I

6點選LAYER(圖層) / 3d layer [ 打光才有用]

7點選LAYER(圖層) / (NEW)新增 / LIGHT(光)

8 設定光線內容 / 點選圖像圖層的燈箱 (小的立體方塊) / 執行播放(TRACK CONTROLS)



Spot 聚光 point點光 ambient自然光 cone angle 角光

雷射光效果


1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:06:00)

4 File (功能表) / import (匯入) / file (圖片檔)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I

6點選EFFECT(效果) / generate(一般) / CC light RAYS(雷射光)

8 設定光線內容

INTENSITY : 強度

註 : SWEEP 掃描光 BURST (爆炸光)

光暈效果


1 File (功能表)/ new(新增) / project(專案)

2 Composition(合成) / new Composition(新增合成)

3設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:06:00)

4 File (功能表) / import (匯入) / file (圖片檔)

5 取您需求的檔案格式 / open (開啟) / 快速鍵CTRL + I

6點選EFFECT(效果) /STYLIZE(樣式) / GROW(光暈)

8 設定光線內容

INTENSITY : 強度

AFTER EFFECT 效果文字

增加字幕背景


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / SHAPE LAYER (形狀圖層)

8 點選content(內容) / ADD (新增) / RECTANGLE(矩形)

9 點選content(內容) / ADD (新增) / FILL(填滿)

10 設定圖層為NORMAL

11 點選LAYER(圖層) / (NEW)新增 / TEXT (文字)

12 可設定位置起點與終點

註 : ELLIPSE(橢圓) , polystar(星形)

文字變色動畫

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 點選時間軸的animate(動態) / fill color (填色) / RGB(色系)

9 設定range selector的start(起點) / 0%在0秒 , 在100 秒 設定 100%

文字變色動畫

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 點選時間軸的animate(動態) / fill color (填色) / RGB(色系)

9點選時間軸的animator1 / ADD(新增) / selector / wiggly(扭曲作法)



10 再設定MODE 會有不同的效益喔

subtract : (文字彩度提高 , base on ( 設定字元或單字) second (以秒變化的速度)

11點選時間軸的animator1 / ADD(新增) / property / scale(比例)

設定為10%

position(位置) skew(斜度) tracking(追蹤)

文字模糊變清晰

1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 點選時間軸的animate(動態) / BLUR (模糊)

9點選時間軸的RANGE SELECTOR (範圍選取)

10 設定START 與BLUR(會有不錯的答案)
路徑文字


1 File (功能表)/ new(新增) / project(專案)

2 File (功能表) / import (匯入) / file (圖形檔)

3 取您需求的檔案格式 / open (開啟) / done (結束)

4 Composition(著作) / new Composition(新增著作)

5設定尺寸 , 影格 , 規格 / 確定 ( ntsc 640 x 480 , 00:00:11:00)

6 拖曳素材至timeline(時間軸)

7 點選LAYER(圖層) / (NEW)新增 / TEXT (形狀圖層)

8 繪製路徑 / 使用鋼筆 / 設定PATH 至 MASK

9點選時間軸的PATH (路徑) / 修改FIRST MARGIN值

再一次

Sub 流水號()




Columns("A:A").Select

Selection.Insert Shift:=xlToRight

Range("A1").Select

ActiveCell.FormulaR1C1 = "no"

Range("A2").Select

ActiveCell.FormulaR1C1 = "1"

Range("A2").Select

Selection.AutoFill Destination:=Range("A2:A246"), Type:=xlFillSeries

Range("A2:A246").Select

Range("N2").Select

End Sub

Sub 排序()



Range("A1:U246").Sort Key1:=Range("N2"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

SortMethod:=xlStroke, DataOption1:=xlSortNormal

End Sub

Sub 新工作表()

Dim x, sht_name

Sheets(Sheets.Count).Select

Range("N2").Select



While (ActiveCell.Value <> Empty)

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then



ActiveCell.Offset(1, 0).Select



Else



sht_name = ActiveCell.Value

ActiveCell.Offset(1, 0).Select



Sheets.Add

x = Sheets.Count - 1

Sheets(x).Name = sht_name

Sheets(Sheets.Count).Select



End If



Wend





End Sub



Sub 資料比對()

Dim x



Sheets(Sheets.Count).Select

Range("A1").Select



For i = 1 To Sheets.Count - 1



x = Sheets(i).Name

Selection.AutoFilter

Selection.AutoFilter Field:=14, Criteria1:=x

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Selection.Copy

新檔



ActiveSheet.Paste

Application.CutCopyMode = False



存檔

關檔





Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter



Next

End Sub



Sub 資料分類()

流水號

排序

新工作表

資料比對

刪除工作表

End Sub

Sub 新檔()



Workbooks.Add

End Sub

Sub 存檔()

Dim x



x = Range("N2").Value



ActiveWorkbook.SaveAs Filename:=x & ".xls", FileFormat:=xlNormal, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

End Sub

Sub 關檔()





ActiveWindow.Close

End Sub

Sub 刪除工作表()

Dim x, i

i = Sheets.Count



For x = 1 To i - 1



Sheets(x).Select

ActiveWindow.SelectedSheets.Delete



Next

End Sub

快速分類

Sub 流水號()




Columns("A:A").Select

Selection.Insert Shift:=xlToRight

Range("A1").Select

ActiveCell.FormulaR1C1 = "no"

Range("A2").Select

ActiveCell.FormulaR1C1 = "1"

Range("A2").Select

Selection.AutoFill Destination:=Range("A2:A246"), Type:=xlFillSeries

Range("A2:A246").Select

Range("N2").Select

End Sub

Sub 排序()



Range("A1:U246").Sort Key1:=Range("N2"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

SortMethod:=xlStroke, DataOption1:=xlSortNormal

End Sub

Sub 新工作表()

Dim x, sht_name

Sheets(Sheets.Count).Select

Range("N2").Select



While (ActiveCell.Value <> Empty)

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then



ActiveCell.Offset(1, 0).Select



Else



sht_name = ActiveCell.Value

ActiveCell.Offset(1, 0).Select



Sheets.Add

x = Sheets.Count - 1

Sheets(x).Name = sht_name

Sheets(Sheets.Count).Select



End If



Wend





End Sub



Sub 資料比對()

Dim x



Sheets(Sheets.Count).Select

Range("A1").Select



For i = 1 To Sheets.Count - 1



x = Sheets(i).Name

Selection.AutoFilter

Selection.AutoFilter Field:=14, Criteria1:=x

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Selection.Copy

Sheets(x).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter



Next

End Sub



Sub 資料分類()

流水號

排序

新工作表

資料比對

End Sub

大家

各位好,



教育部推動的產業碩士專班100年度春季班, 世新大學即將於11/30~12/6 報名.



麻煩各位協助轉寄給同事及朋友們, 並鼓勵他們前來報考.



相關基本資料說明



1. 報名日期: 2010/11/30~2010/12/6



2. 筆試及口試日期: 2010/12/25(資訊軟體班), 2010/12/26(數位內容班)



3. 放榜: 2011/01/07



4. 修業期間: 2011/02/01~2012/07/31 共1年6個月



5. 學雜費: 每學期5萬元整



p.s. 簡章連結網址: http://www.shu.edu.tw/bbs/AnnounceDetail1.aspx?sID=7197

VBA ADIDAS

Sub 開檔()




Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\2.xls"

Sheets("Comparison").Select

Range("A4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False

Selection.End(xlToRight).Select

ActiveCell.Offset(0, 2).Select



Windows("2.xls").Activate

ActiveWindow.Close

End Sub

Sub 調整()

'

' 調整 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

Cells.Select

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub

Sub 開檔二()



Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\1.xls"

Sheets("Comparison").Select

Range("C4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False



Windows("1.xls").Activate

ActiveWindow.Close

End Sub











Sub 整合()

開檔

開檔二



調整





End Sub



Sub 儲存()

'

' 儲存 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

ActiveWorkbook.SaveAs Filename:="C:\Users\alexmysir\Desktop\07.FW11\21.xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

好康的報您知

各位好,




教育部推動的產業碩士專班100年度春季班, 世新大學即將於11/30~12/6 報名.



麻煩各位協助轉寄給同事及朋友們, 並鼓勵他們前來報考.



相關基本資料說明



1. 報名日期: 1010/11/30~2010/12/6



2. 筆試及口試日期: 2010/12/25(資訊軟體班), 2010/12/26(數位內容班)



3. 放榜: 2011/01/07



4. 修業期間: 2011/02/01~2012/07/31 共1年6個月



5. 學雜費: 每學期5萬元整



p.s. 簡章連結網址: http://www.shu.edu.tw/bbs/AnnounceDetail1.aspx?sID=7197

太站了 , 好康到不行

大家可以多多宣傳喔

也要報名喔

今天真好玩

什麼都教 學生是長官 什麼都學

不錯的PHOTOSHOP筆刷

這個是由娜娜老師提供 , 韓老師轉貼在FACEBOOK
本人分享在此 http://fbrushes.com/

好心人士提供的 , 分享給大家

http://hospital.kingnet.com.tw/medicine/
查詢藥品專用

不錯新建網站

空間資訊
【網站網址】http://go.freegroup.org/hostinginfive
【範例網站】http://freegroup.hostinginfive.com/

【網站空間】500MB (0.5GB)
【每月流量】15,000MB (15GB)
【提供項目】PHP 5, MySQL(1個), FTP, XPanel控制台, 可設定自己的網域名稱, 網頁檔案管理。
【顯示廣告】有廣告，網站頂端。

1. 進入 HostingInFive 後，點選 Sign Up For Hosting 註冊一個帳號。第一步必須先輸入一個你想要的次網域名稱，而這個次網域也會成為你的登入帳號。第二個步驟則依序填入個人資料即可，都是常見的欄位，應該不會太困難。




Free Web Hosting | Free Unlimited Email | Instant Email | Free Web Proxy | Surf Anonymously | Free Text Messaging



If you can see this, your account alexmysir.hostinginfive.com has been successfully created.
You may now add content to this directory and replace this page.

Your address is: http://alexmysir.hostinginfive.com.
Alex Mysir you are solely responsible for the contents of your site.
Any inappropriate sites will be deleted with no warning.

Thank you for using our services.

網頁新字型

真是很站 大家可以參考喔
http://www.freegroup.org/2010/06/google-font-directory/

很高興認識大家

今天我在台北市政府學blog這是市府服務大家很站

有新工作大家參考喔

職缺編號擔任工作學歷及資格條件工作
地點需求
員額
990901【資安服務平台開發建置及軟硬體設備建置規劃】
1. 資安服務平台開發、建
　置、管理及維護
2. 資安軟硬體設備測試、
　建置、調教、管理及維
　護
3. 資安監控、分析與通報1.研究所畢業。
2.所需專長及相關工作經驗：
　(1) 具程式設計開發(PERL、PHP、
　　Java及Web Application等)及系統整
　　合一年以上經驗者。
　(2) 具SOC服務平台或資安硬體設備
　　建置及維運管理尤佳。
　(3) 具備資安防護技術與經驗者尤佳
　　。
　(4) 熟悉網際網路協定(TCP/IP、
　　SNMP、ICMP、FTP、HTTP)運作
　　模式。
　(5) 熟悉OWASP網頁安全技術議題
　　。台北
地區5名
990902【安全檢測】
1. 弱點掃描、滲透測試及
　安全性檢測
2. 惡意電子郵件社交工程
　演練
3. 駭客攻防新技術研究及
　開發1.研究所畢業。
2.所需專長及相關工作經驗：
　(1) 具備網頁程式開發能力(C/C++、
　　PHP、JSP ASP、ASP.NET等)一年
　　以上經驗者。
　(2) 具備安全檢測或滲透測試經驗者
　　尤佳。
　(3) 熟悉網際網路協定(TCP/IP、
　　SNMP、ICMP、FTP、HTTP)運作
　　模式。
　(4) 具備CEH、CHFI、CISSP證照者
　　尤佳。
　(5) 熟悉OWASP網頁安全技術議題
　　。台北
地區4名
　　合計9名
※備註：有關資格條件所稱工作經驗，係指具全職之相關工作經驗者。　

今天學到很多

學到MSN SKYPE BLOG FACEBOOK PLURK 但是順間全忘了

VBA季

Private Sub Worksheet_Change(ByVal Target As Range)
x = Left(Target.Address, 2)
If x = "$D" Then
Select Case Target.Value
Case 1 To 3
ActiveCell.Offset(-1, 1).Value = "第一季"

Case 4 To 6
ActiveCell.Offset(-1, 1).Value = "第二季"

Case 7 To 9
ActiveCell.Offset(-1, 1).Value = "第三季"

Case 10 To 12
ActiveCell.Offset(-1, 1).Value = "第四季"


End Select
End If


End Sub

VBA - 工作表

Private Sub Worksheet_Change(ByVal Target As Range)
x = Left(Target.Address, 2)
If x = "$a" Then
Select Case Target.Value
Case 1
ActiveCell.Offset(-1, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="板橋,中和,永和"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Case 2
ActiveCell.Offset(-1, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="aa,jj,kk,ll,mm,nn"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

End Select
End If


End Sub

刪除空白列

Sub 刪除空白()
Range("A65530").Select
Selection.End(xlUp).Select
x = ActiveCell.Row

Range("A1").Select

For y = 1 To x

If ActiveCell.Value = Empty Then

x1 = ActiveCell.Row
z = x1 & ":" & x1
Rows(z).Select
Selection.Delete Shift:=xlUp

Else

ActiveCell.Offset(1, 0).Select

End If


Next
Range("A1").Select


End Sub

篩選

Sub 篩選()

x = InputBox("請輸入需要的資料內容")

Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=x
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets(2).Select
Selection.AutoFilter
Range("A1").Select
End Sub

合併

Sub 合併工作表()
mydate = Now()
If Month(Now()) < 10 Then
mydate1 = "0" & Month(Now())
newname = Year(mydate) & mydate1 & Day(mydate)
Else
newname = Year(mydate) & Month(mydate) & Day(mydate)
End If


y = InputBox("請輸入合併工作表數量", "世新")

For x = 1 To y

Sheets(x + 1).Select
If x = 1 Then

Range("A1").Select
Else
Range("A2").Select

End If
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
Range("A1").Select
Sheets(1).Name = newname
End Sub

合併工作表

Sub 合併工作表()

For x = 1 To 3

Sheets(x + 1).Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select

Next

End Sub

新工作表

Sub 新工作表()
x = InputBox("請輸入工作表數量", "世新")

Sheets(1).Select

For i = 1 To x Step 1
Sheets.Add
Next
End Sub

自動流水號

Sub 流水號()
i = ActiveCell.Value
x = InputBox("請輸入終止值")

If i = Empty Then

ActiveCell.Value = 1

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=x, Trend:=False
Else
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=x + i, Trend:=False

End If


End Sub

很久沒來發表 - 加快搜尋

最近學生問我如何讓BLOG可以在搜尋時排名第一
我想了很久 , 不花錢 要排第一
大概要花時間經營
於是我寫了10 個方案供大家參考
可以告訴我其他方法喔
1 要常用[自己要發表]
2 發表要回應 [ 無人回應時 , 自己回應 ]
3 要到別人BLOG留言[ 順便留下BLOG網址 , 最好要去幫人回應 , 這樣才有朋友 ]
4 與他人連結 [ 放別人的連結 , 人也要放您的 , 多多運用RSS ]
5 有空上搜尋 , 找自己的關鍵字 [ 可以請同學幫忙 , 次數多就會累積 ]
6 E_MAIL 通知
7 與微網誌[plurk , facebook]等連結
8 發表一篇關鍵字[在自己的BLOG]
9 參加BLOG的推文 , 例如 : 黑米書籤
10 加入訂閱 - 例如可以讓人訂閱自己的BLOG , 或是與企業結盟

二個惡魔買一對鞋 , 郤沒我的

二個惡魔買一對鞋 , 郤沒我的 , 還要我出錢
不過鞋還是閃閃的那一種

我的作品 請大家宣傳喔 ONENOTE

有需要的朋友可以參考一下喔
作者：楊玉文
分類：電腦與網路／應用軟體 叢書系列：OFFICE類
出版社：碁峰 出版日期：2010/7/6
ISBN：9789861819822 書籍編號：kk0271011

EXCEL VBA 身份證檢查

1 工具 / 巨集 / VB編輯程式
2 對工作表SHEET1 按左鍵二下
3 於右側視窗輸入
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
Dim T0, A0, A1, A2, A3, A4, A5, A6, A7, A8, CK, SUM1 As Integer
x = Left(Target.Address, 2)
If x = "$A" Then
If (Len(Target.Value) <> 10) Then
Target.Value = "重新輸入"

Else



T0 = Asc(UCase(Left(Target.Value, 1)))
A1 = (((Val(Right(Target.Value, 9)) \ 100000000) Mod 10) * 8) Mod 10
A2 = (((Val(Right(Target.Value, 8)) \ 10000000) Mod 10) * 7) Mod 10
A3 = (((Val(Right(Target.Value, 7)) \ 1000000) Mod 10) * 6) Mod 10
A4 = (((Val(Right(Target.Value, 6)) \ 100000) Mod 10) * 5) Mod 10
A5 = (((Val(Right(Target.Value, 5)) \ 10000) Mod 10) * 4) Mod 10
A6 = (((Val(Right(Target.Value, 4)) \ 1000) Mod 10) * 3) Mod 10
A7 = (((Val(Right(Target.Value, 3)) \ 100) Mod 10) * 2) Mod 10
A8 = (((Val(Right(Target.Value, 2)) \ 10) Mod 10) * 1) Mod 10
CK = Val(Right(Target.Value, 1))
Select Case T0
Case 65, 77, 87
A0 = 0
Case 75, 76, 89
A0 = 1
Case 74, 86, 88
A0 = 2
Case 72, 85
A0 = 3
Case 84, 71
A0 = 4
Case 70, 83
A0 = 5
Case 69, 82
A0 = 6
Case 68, 81, 79
A0 = 7
Case 67, 80, 73
A0 = 8
Case 66, 78, 90
A0 = 9
Case Else
' ActiveCell.Formula = "重新輸入"
Target.Value = "重新輸入"
End Select
SUM1 = 9 - ((A0 + A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8) Mod 10)
If CK <> SUM1 Then

Target.Value = "重新輸入"
End If

End If


End If
End Sub

4 於A欄輸入身份字號 , 就知到答案了

今天到家已是12:10分

今天到家已是12:10 11:00還在新竹上課 網路碰到不能追的美女
[花一朵 ] 政大高材生喔 也是高身材喔 真是萬分高興 ,
但是沒碰到仙丹的朋友 [政大大美女 也是追不到的那一種] 真是萬分
...
回到家妹咕睡了 看了阿咪的照片第三天游泳 與您分享

妹咕第二天泳照

妹咕變高了

妹咕學游泳

今天妹咕學游泳 , 阿咪回報在岸上流汗全溼 , 妹咕在水中也是全濕真是太有趣了

大家快去參加喔

『老闆最”照”職場最A咖 拿iPhone』
活動方式: 邀請有拿過證照的學員來參賽(不限巨匠)，只要分享拿證照的心得，就OK。最高票的人氣王就可以拿iPhone。活動相當簡單
活動網址: http://www.pcschool.com.tw/activity/99/9906_a/index.aspx
活動時間~8/16

新相機 照妹咕

妹咕是相機中的第一個MODEL

妹咕金乖 , 幫忙掃地

妹咕掃地一邊掃一邊唱歌請大家猜她唱的是什麼歌

儲存格設計清單

Private Sub Worksheet_Change(ByVal Target As Range)

x = Left(Target.Address, 2)
If x = "$A" Then
Select Case Target.Value
Case 2
Target.Value = "台北"
Case 3
Target.Value = "桃園"
Case 4
Target.Value = "台中"
Case 5
Target.Value = "嘉義"
Case 6
Target.Value = "台東"
Case 7
Target.Value = "高雄"

End Select


End If

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

x = Left(Target.Address, 2)
If x = "$C" Then
Select Case Target.Value
Case 1
Target.Value = ActiveCell.Offset(0, -1).Value + ActiveCell.Offset(0, -2).Value

Case 2
Target.Value = (ActiveCell.Offset(0, -1).Value + ActiveCell.Offset(0, -2).Value) / 2
Case 3
Target.Value = ActiveCell.Offset(0, -1).Value - ActiveCell.Offset(0, -2).Value


End Select


End If


End Sub




Private Sub Worksheet_Activate()
Range("b6").FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
X = ActiveCell.Value2

ActiveCell.Value = X




End Sub

Private Sub OK_Click() ' 表單元件


ActiveCell.Offset(0, 0).Value = num1.Value
ActiveCell.Offset(0, 1).Value = num2.Value
ActiveCell.Offset(0, 2).Value = num3.Value
ActiveCell.Offset(0, 3).Value = num4.Value
ActiveCell.Offset(1, 0).Select
num1.Value = Empty
num2.Value = Empty
num3.Value = Empty
num4.Value = Empty
num1.SetFocus

End Sub

中華工程 - 新增工作表

Sub 方法一()
Dim mySht As Worksheet
Dim x, y
x = InputBox("請輸入增加工作表的數量", "增加工作表")
For y = 1 To x Step 1
Set mySht = Worksheets.Add(After:=Sheets(Sheets.Count))
With mySht
.Name = y '設定表名
End With
Next y
Set mySht = Nothing '物件的釋放
End Sub

Sub 方法二()
Dim x, y
x = InputBox("請輸入增加工作表的數量", "增加工作表")
With Worksheets
.Add Count:=x '指定張數來新增

End With
End Sub

匯入文件

Public i, j, x, y

Sub 新工作表()
'
' 新工作表 Macro
' gmadmin 在 2010/6/11 錄製的巨集
'

Sheets(1).Select
Sheets.Add
End Sub
Sub 複製()


j = y


For i = 2 To j + 1



Sheets(i).Select


If i = 2 Then
Range("A1").Select
Else
Range("A2").Select
End If

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Next




End Sub


Public Sub 整合()
新工作表
複製
Range("A1").Select
End Sub
Sub 匯入文字()

y = InputBox("請輸入檔案數量")

For x = 1 To y
新工作表


With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & x & ".txt", Destination:=Range( _
"A1"))
.Name = "1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Next
整合

End Sub

複製 - 中華工程

Sub 新工作表()
'
' 新工作表 Macro
' gmadmin 在 2010/6/11 錄製的巨集
'

Sheets(1).Select
Sheets.Add
End Sub
Sub 複製()

Dim i, j As Integer

j = InputBox("請輸入工作表張數")


For i = 2 To j + 1



Sheets(i).Select


If i = 2 Then
Range("A1").Select
Else
Range("A2").Select
End If

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Next




End Sub


Public Sub 整合()
新工作表
複製
Range("A1").Select
End Sub

VBA 中華工程

Sub 流水號()

X = ActiveCell.Value
y = InputBox("請輸入結束值")


If X = Empty Then
ActiveCell.Value = 1


Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=y, Trend:=False

Else
If X <= Int(y) Then

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=y + X, Trend:=False

Else


End If

End If


End Sub

Public Function 小計(折扣, 單價, 優惠, 數量)
If 數量 > 5 And 優惠 = "Y" And 單價 > 400 Then
小計 = 單價 * 數量 * (1 - 折扣)
Else

小計 = 單價 * 數量

End If


End Function


Public Function 評語(身高, 體重, 性別)

標準 = 身高 * 身高 * 22 / 10000

If 性別 = 1 Then
標準 = 標準 * 1.1
Else
標準 = 標準 * 0.9
End If

上限 = 標準 * 1.1
下限 = 標準 * (1 - 0.1)


If 體重 > 上限 Then

評語 = "太重"

Else

If 體重 < 下限 Then

評語 = "太輕"

Else

評語 = "太正常"
End If
End If



End Function

東吳出美女

都是大美女

謝謝大家

今天到東吳 不是三國

ACCESS 自動執行 -

這是學生問的
但是不可以關機喔
Dim X

Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 1000
X= DateAdd("n", 5, Now())
End Sub

Private Sub Form_Timer()
If Now() > X Then
DOCMD 你的指令
X = DateAdd("n", 5, Now())
End If
End Sub

ACCESS 匯出資料

1 設計表單

DoCmd.TransferSpreadsheet acExport, 8, "new25", "c:\mydata.xls", False, ""
2 設計 按鈕
這樣就OK了

ACCESS 自動匯入資料

1 設計表單
使用 OPEN()
x = Day(Now())

DoCmd.TransferSpreadsheet acImport, 8, "new" & x, "c:\" & x & ".xls", True, ""
2 這樣就可以了

很高興來到石碇

謝謝大家

OneNote 2010

今天天氣陰 可 以上網查

這是今天要對大家說的話

 
 

 
 

<<0514.wmv>>

 
 

 
 

 
 

office2010 太站了

最近整理office2010發現太站了

OFFICE 2010 jbmc vnd bq

EXCEL - 公式

這是學生的問題 如何將
1-0-0-0轉成數字1000 , 也是去除 " - " 號
哇 , 我使用下列公式
例如 : E6的為 1-0-0-0
E7的內容公式則為 " =VALUE(CLEAN(SUBSTITUTE(E6,CHAR(45),CHAR(7))))"

公式解說
VALUE : 文字轉數值
CLEAN : 清除多餘的符號[無法列印的符號 , 其中CHAR(7)字元就是]
SUBSTITUTE : 取代字元 , "-" 的字元代號是 CHAR(45))

這個活動站

鶯歌陶瓷博物館一年一度的『甕藏春之梅』活動即將到來,
歡迎踴躍報名參加!

請幫忙轉寄,請大家告訴大家!



想品嚐初春醃脆梅的美妙滋味嗎？心動不如行動！

親自將幸福感融入製作屬於自己的幸福脆梅。

還可將名家設計之梅罐帶回家喔！


2010年『甕藏春之梅』活動

1、 地點：鶯歌陶瓷博物館陶瓷藝術園區風廣場 (臺北縣鶯歌鎮文化路200號）

2、 時間：2010年3月23日至4月25日，週一若逢國定假日照常開放。

3、 場次：
第一場 09:40~10:50
第二場 11:20~12:30
第三場 14:00~15:10
第四場 15:40~16:50

【備註】

(1)、 非假日：
第一、二場：限團體預約報名，滿30人開場。
第三、四場：預約報名，若有餘額開放現場報名。

(2)、 假 日：第一、二、三、四場：預約報名，若有餘額開放現場報名。


4、 繳費方式： 活動現場繳交報名費，每人每罐300元。

5、 報名方式：自即日起開始報名。

(1)、 電話報名：(02)8677-2727分機711或710旅遊秘書中心

星期一 ～ 五：上午09：30～12：00 下午13：00～17：00
星期六 ～ 日：上午09：30～12：00 下午13：00～18：00

(2)、 網路報名：鶯歌陶瓷博物館 http://www.ceramics.tpc.gov.tw

【課程與活動】→【2010年甕藏春之梅醃脆梅活動】→線上報名。

※ 滿30人開場，將於活動日前4天以電話聯絡報名者確認是否開場。


『甕藏春之梅一日遊』醃脆梅教學活動

1、 教學活動內容：

A、醃脆梅活動體驗課程
B、陶藝研習室梅罐製作體驗課程
C、常設展及特展參觀
D、國際演講廳影片欣賞。

2、報名『甕藏春之梅一日遊』醃脆梅教學活動者，電話報名者請告知受理報名人員，
網路報名者，請於報名表備註欄註明，以安排教學活動。

阿咪與妹咕

阿咪與妹咕
原由 alexmysir 上載

高雄一日遊

妹姑的文章

大家好我是楊妹姑祝大家新年快樂

兔子的故事

有一天小兔子在路上遇見到烏龜.問說全世界沒有比我們還賣的生物.烏龜不忍心說那我們來比賽跑看誰到對面的樹再繞回來可是我得先回去吃早餐才能跟你比賽比賽前兔子很嬌傲自一為是會贏烏龜

two

Two book

找尋資料中

哇 論文 真是累人
目前的定位 影音回覆問題的可行性之研究
經由自己想了一下
可能走向科技模式 - 與原先大不同
但是實驗組與對照組
是我選項之一
專家訪談也是重點
發現定位難

Microsoft Office 2007

回憶 Office 2003

回憶2003、你累了嗎？

沒有預視

回憶2003、你累了嗎？

欄位不夠用

回憶2003、你累了嗎？

呈現太單調

回憶2003、你累了嗎？

步驟太多

回憶2003、你累了嗎？

效率較差

Microsoft Office 2007

別緻新鮮的「Office按鈕」

視窗左上角的 Office按鈕
，也稱為『檔案』鈕，可用來存取與檔案或系統有關的操作，包括檔案的儲存正開啟、離開應用程式以及OFFICE的使用環境設定。

活靈活現的「功能區」

• 功能區上有不同分類的索引標籤，可依據不同的需求來切換選用。
  
• 在標籤上快按二下，可將功能區內容摺疊；以便有更多的編號空間；再按二下則展開內容。
  

貼心直覺的「即時預覽」

更小的檔案格式

• 可以減少40%以上的空間
  
• 安裝增益集(可向下相容)
  
• 跨平台文件( XML )
  
• 也是ZIP 的檔案格式
  

沒有轉換的問題

• 另存新檔成97-2003
  
• 輸出成PDF
  

  
   

手到擒來 PDF - 完全免費

• Office Online 提供下載
  
• 即可儲存成為PDF的檔案格式〕
  

OFFICE專家
–
就是你

• Word 2007
  
• Excel 2007
  
• PowerPoint 2007
  
• Outlook 2007
  
• OneNote 2007
  

Microsoft Word 2007

效率超好 - 樣式集

• 2007提供更豐富的樣式集
  
• 快速完成美觀專業的文件
  
• 不用逐行或逐段設定格式
  

一分鐘搞定 - 排版

• 快速預覽格式
  
• 快速組件
  

再簡單不過 - 資料比對

• 快速比較文件
  
• 追蹤修訂
  

全新方案 - 文件設計

• 封面頁
  
• 方程式編輯器
  

Microsoft Excel 2007

欄列變多了 - 限制沒了

• 左鍵按住「全選鈕」時，輕鬆得知「1048576 R × 16384 C 」，表示資料量變大了。
  

過去沒有 - 表格原則

• Excel 2007 新增了一個很重要很好用的「表格原則」，目的是要讓相關資料的管理及分析更加容易。
  
  
• 我們應該將相關資料的儲存格範圍轉換成 Microsoft Office Excel 表格，而這樣的觀念在以往的版本也是有的，那就是 Excel 清單。
  
  
• 資料在符合表格原則的使用之下，才能讓資料的運用更充分發揮。
  

過去沒有 - 表格原則（續）

• 「常用」
  
• 「格式化為表格」
  

功能超強 - 函數

全新感受 - 視覺簡易分析

• 在 EXCEL 2007 版本中新增了許多視覺性的簡易分析功能。
  

  
   

• 這是 EXCEL 的新突破，藉由簡單的操作而達到清晰明暸的色彩圖示引導。
  

  
   

• 接著就讓我們來體驗這些新功能吧。
  

醒目提示 - 儲存格規則

「常用」

「設定格式化條件」

「醒目提示儲存格規則」

「大於」

 

超好用 - 排序與篩選

• 可依色彩排序
  
• 可依色彩篩選
  
• 64 個條件
  
• 可自定規則
  

強大的資訊分析

一下就找到 - 移除重覆

Microsoft PowerPoint 2007

美呆了 - 全新的圖形簡報

結構設計 - 簡報大綱

 

樣式多變 - 佈景主題

 

超炫 - 文字藝術師

專業 - Smart Art 圖案

輕鬆整理 - 電子相簿

動畫預視 - 動畫設計

輕鬆地共用簡報

改善共用簡報

資訊跨越平台

強化溝通作業

減少檔案大小

整合 Microsoft Windows® SharePoint® Services 中的簡報與 Microsoft Office Outlook® 2007 整合。

Microsoft Access 2007

簡單入門
–
資料管理

• 新的「快速入門」
  
• 全新的多重值欄位
  

  
   

輕易上手 - 方便設計

• 電子郵件收集新資訊
  
• 所見即所得
  

 

Microsoft Outlook 2007

自動更新 - 網路服務

• 立即搜尋
  
• 訂閱RSS
  

  
   

 

更方便
–
資料管理

• 郵件標幟多樣化
  
• 快照行事曆
  
• 找人更容易
  

全新防護
–
個人資料

• 檢測惡意網站
  
• 控制資訊分送
  
• 反網路釣魚
  

減少50%處理郵件時間

• 即時預覽
  
• 節省開啟關閉時
  
• 信箱搜尋功能，
  
• RSS
  
• SharePoint整合
  
• 反網路釣魚
  
• 加強郵件安全
  

  
   

  
   

Microsoft OneNote 2007

新增功能

• 增強的筆記本管理
  
• 改良的筆記記錄功能
  
• 共用筆記的新方式
  
• 與 Office 程式的更佳整合
  
• 改良的手寫
  
• Tablet PC 支援
  

增強的筆記本管理

• 多個筆記本
  
• 多台電腦支援
  

增強的筆記本管理

• 快速搜尋  
  
• 筆記本導覽更加容易
  

改良的筆記記錄功能

• 將網頁傳送至 OneNote
  
• 超連結筆記
  
• 建立「目錄」
  
• 檔案附件
  

改良的筆記記錄功能

• 快速輕鬆地新增表格
  
• 繪圖工具
  

改良的筆記記錄功能

• 計算機
  
• 辨識圖片中的文字
  

改良的手寫及 Tablet PC 支援

• 套索選擇項目
  
• Tablet PC 支援
  

Office 2007線上資源

• Office 新手入門網站
  
• 搜尋"Office 新手入門"
  

Work Space線上工作空間

• 線上分享、公用文件
  
• 協同作業的好幫手
  

謝謝指教

 

謝謝大家 , 我的網站會員來到32位長官

網路朋友 , 如果電腦有問題 , 可以到www.alexmysir.com 加入會員後詢問喔 , 您可以使用語音提問喔 , 請大家幫忙宣傳喔 , 在下可是希望大家可以成為在下的論文專家對象喔
因為論文要問卷 , 所以要有對象 謝謝大家

test

相簿

由 alex