煙的作法

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

2.Composition(合成) / new Composition / 設定尺寸 10SEC/ OK
3.Layer/ NEW / SOLID / OK / EFFECT / NOISE & GRAIN(噪音糧食) / Fractal Noise (分行噪音 )
4.調整INVERT(反相) / 設定 FRACTAL TYPE : CLOUDY(雲) , 提高CONTRACT(對比), 提高BRIGHTNESS(亮度) , 設定COMPLEXITY(複雜度) / 設定SUB SETTING / SUB SCALE到160
5.請自行設定 KEY FRAME 改變 透明度或BRIGHTNESS或位置或SCALE

AFTER EFFECT

Time –remaping使用

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

2. Composition(合成) / new Composition / 設定尺寸 10SEC/ OK
3. File / Import / 你的影片[10秒] / 放到時間軸
4. Composition(合成) / Composition settions / 設定 :20SEC/ OK
5. Choose Layer/time / enable time remapping
6. 設定remapping 的KEYFRAME , 即可改變時間特性[4個KEY FRAME前後距離近]

Time –reverse-layer使用

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

2. Composition(合成) / new Composition / 設定尺寸 10SEC/ OK
3. File / Import / 你的影片[10秒] / 放到時間軸
4. Composition(合成) / Composition settions / 設定 :20SEC/ OK
5. 在放第二次你的影片[10秒] / 放到時間軸後10SEC
6. Choose Layer/time / time REVERSE LAYER
7. Choose Layer/ New/ Camera, or press Ctrl+Alt+Shift+C (Windows)
8. 請設定2VIEW , 左邊設定LEFT / 右邊設定 ACTIVE CAMERA

AFTEREFFECT

Roto Brush主要分出前景與背景

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

2.      Composition(合成) / new Composition / 設定尺寸 :20SEC/ OK

3.      File (功能表)  / import (匯入) / 選取 影片 / 確定

4.      選取Roto Brush工具 / 繪製前景區

5.      按ALT 再繪製背景區

CAMERA的文字設計

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

2.      Composition(合成) / new Composition / 設定尺寸 :20SEC/ OK
3.      Choose Layer/ New/ Camera, or press Ctrl+Alt+Shift+C (Windows)
4.      Choose Layer/ New/ NULL object
5.      Choose Layer/ New/text / 輸入文字 /      調整文字位置
6     Choose Layer/ New/ solid / ok
7.      Choose effect / generate/ ramp / ok 設定圓形漸層 /   請調整圖層順序
8.  設定NULLOBJECT , TEXT 層是3DLAYER , 設定CAMERA的父層是NULL
9.  設定 TEXT 層 / Choose effect /style/ grow / 設定光暈效果
10.  設定 TEXT層 / Choose Animate / 設定Range selector 1 / opacity值為0 
11.  展開Range selector 1設定 start :  opacity值為0 , 移動時間軸 / 設定 start 為100[不用多]
12.  Choose Layer/ New/ solid / ok /   Choose effect / generate/ ramp / ok 設定圓形漸層
13.  請調整圖層順序 /   複製文字圖層 / 位移與修改文字內容
14  設定VIEW的內容 / CUST VIEW1 /   設定VIEW的內容 / active camera / 其他自行設定

CAMERA的3D文字設計

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

2.      Composition(合成) / new Composition / 設定尺寸 :20SEC/ OK
3.      Choose Layer/ New/text / 輸入文字 /A [設計N個圖層]/   請自行設定位置 / 選取全部文字圖層
4.      Choose Layer/ New/ Camera, or press Ctrl+Alt+Shift+C (Windows)
5.      請設定2VIEW , 左邊設定LEFT / 右邊設定 ACTIVE CAMERA
6.      選取 CAMERA圖層 / 按 CTRL + ALT +O /   修正 auto-orientation方向 為 OFF
7.  修正POSTION與KEYFRAME
8.  Choose Layer/ New/ Camera, or press Ctrl+Alt+Shift+C (Windows)
9.  選取CAMERA1 / 選取 POSTION /   Choose Animation / Separate Dimensions(獨立維度)
10.  選取 CAMERA2圖層 / 按 CTRL + ALT +O /  auto-orientation方向 為 OFF
11.  選取 CAMERA2圖層下所有的POSTION 到 Z – ROTATION
12.  Choose Animation / ADD EXPRESSION CTRL + ALT + =
13.  選取camera2展開圖層 , 設定每一個位置的EXPRESSION / 參考到CAMERA1 / 輸入新值+15
  Measure : 評估 , Film : 影片 , Diagonally : 對角 , Aperture : 光圈

請大宣傳唷

請大家宣傳唷 我出了一VISIO本2010 這幾天會上市 可參考下列網址 http://www.books.com.tw/exep/prod/booksfile.php?item=0010516434

EXCEL VBA

Private Sub Worksheet_Activate()


MsgBox "歡迎進入保險系統"



總合

平均

筆數



End Sub

Sub 總合()


Dim x, y, z

x = 0

For y = 1 To Sheets.Count - 1



z = Sheets(y).Range("c1").Value

Sheets(y).Range("c1").FormulaR1C1 = "=SUM(C[-1])"



x = Sheets(y).Range("c1").Value + x

Sheets(y).Range("c1").Value = z

Next

Sheets(Sheets.Count).Range("c1").Value = x



End Sub

Sub 平均()

Dim x, y

x = 0

For y = 1 To Sheets.Count - 1



z = Sheets(y).Range("c1").Value



Sheets(y).Range("c1").FormulaR1C1 = "=average(C[-1])"



x = Sheets(y).Range("c1").Value + x



Sheets(y).Range("c1").Value = z

Next

Sheets(Sheets.Count).Range("c2").Value = x / y



End Sub



Sub 筆數()

Dim x, y

x = 0

For y = 1 To Sheets.Count - 1



z = Sheets(y).Range("c1").Value



Sheets(y).Range("c1").FormulaR1C1 = "=count(C[-1])"



x = Sheets(y).Range("c1").Value + x



Sheets(y).Range("c1").Value = z

Next

Sheets(Sheets.Count).Range("c3").Value = x



End Sub



Sub 最大值()

Dim x, y, z, x1

x1 = 0



For y = 1 To Sheets.Count - 1



z = Sheets(y).Range("c1").Value



Sheets(y).Range("c1").FormulaR1C1 = "=max(C[-1])"



x = Sheets(y).Range("c1").Value



If x > x1 Then

x1 = x

Else

x1 = x1



End If





Sheets(y).Range("c1").Value = z

Next

Sheets(Sheets.Count).Range("c4").Value = x



End Sub



Sub 最小值()

Dim x, y, z, x1



Sheets(1).Range("c1").FormulaR1C1 = "=min(C[-1])"

x1 = Sheets(1).Range("c1").Value

For y = 1 To Sheets.Count - 1



z = Sheets(y).Range("c1").Value



Sheets(y).Range("c1").FormulaR1C1 = "=min(C[-1])"



x = Sheets(y).Range("c1").Value



If x < x1 Then

x1 = x

Else

x1 = x1



End If





Sheets(y).Range("c1").Value = z

Next

Sheets(Sheets.Count).Range("c4").Value = x



End Sub

premiere 光的特效

光的設計
1 閃電 video effect / effect control / generate / lightning
2 閃光 video effect /  effect control  / generate / lens flare
3 偏光 video effect / adjust / lighting effects
4 平光 video effect / stylize / strobe light
5 回光 video effect / presets / convolution kernel light
6 亮光 video effect / color correct  / brightness

premirer 特效處理

單一圖像對打設計1 去背 video effect / effect control / color key
2 鏡射 video effect / effect control / distort / mirror
單一圖像彎曲設計
1 扭曲 video effect / effects / distort / bend
2 自轉角度 video effect / effects / distort / twirl
套用特效
1 COPY[右鍵] / 來源
2 paste attribute / 目標

word 巨集文產生器

我簡單用了字典百家姓 使用巨集產生5段亂碼產的文章
可方便課堂上使用喔
Sub 文章產生器()
Dim I, j, k, l As String
I = "梁上君子解釋：竊賊的代稱。用在「竊盜小偷」的表述上。例句：昨夜梁上君子光顧我們那棟大樓，翻遍了各家住戶。街頭巷尾解釋：從巷頭到巷尾，指街巷的各個地方。例句：里長發動街頭巷尾的鄰居清掃社區的街道。一丁不識解釋：不識一字，即文盲知意。例句：老奶奶沒上過學，所以一丁不識，連名字都不會寫。一丁不識解釋：不識一字，即文盲之意。例句：老奶奶沒上過學，所以一丁不識，連名字都不會寫。一了百了解釋：主要的事一了結，其餘相關的事也隨之了結。例句：明知功課寫不完，他索性把簿子撕掉一了百了。一刀兩斷解釋：比喻決心斷絕關係。也用來形容果斷。例句：我們的觀點既然如此不同，那麼從今以後你別再來見我，從此一刀兩斷好了。一口咬定解釋：不肯改變原先說的話。例句：被害人一口咬定，把嫌犯指認出來。一寸丹心解釋：指有一顆忠誠之心，是一種謙稱語。例句：但願我的一寸丹心，能為班上爭取更多的榮譽一寸秋波解釋：形容女子的眼睛明亮清澈例句：本以為她長得蠻醜的，但等她一轉身而看到她那一寸秋波，便覺得是個美人胚子。一己之私解釋：自己一人的私事,私利或私念.例句：此乃彼「一己之私」，他人管不著"
j = "趙錢孫李周吳鄭王馮陳褚衛蔣沈韓楊朱秦尤許何呂施張孔曹嚴華金魏陶薑戚謝鄒喻柏水竇章雲蘇潘葛奚範彭郎魯韋昌馬苗鳳花方俞任袁柳酆鮑史唐費廉岑薛雷賀倪湯滕殷羅畢郝鄔安常樂於時傅皮卞齊康伍餘元蔔顧孟平黃和穆蕭尹姚邵湛汪祁毛禹狄米貝明臧計伏成戴談宋茅龐熊紀舒屈項祝董梁杜阮藍閔席季麻強賈路婁危江童顏郭梅盛林刁鍾徐邱駱高夏蔡田樊胡淩霍虞萬支柯昝管盧莫柯房裘繆幹解應宗丁宣賁鄧鬱單杭洪包諸左石崔吉鈕龔程嵇邢滑裴陸榮翁荀羊于惠甄曲家封芮羿儲靳汲邴糜松井段富巫烏焦巴弓牧隗山穀車侯宓蓬全郗班仰秋仲伊宮甯仇欒暴甘鈄曆戎祖武符劉景詹束龍葉幸司韶郜黎薊溥印宿白懷蒲邰從鄂索鹹籍賴卓藺屠蒙池喬陽鬱胥能蒼雙聞莘党翟譚貢勞逄姬申扶堵冉宰酈雍卻璩桑桂濮牛壽通邊扈燕冀浦尚農溫別莊晏柴瞿閻充慕連茹習宦艾魚容向古易慎戈廖庾終暨居衡步都耿滿弘匡國文寇廣祿闕東歐殳沃利蔚越夔隆師鞏厙聶晁勾敖融冷訾辛闞那簡饒空曾毋沙乜養鞠須豐巢關蒯相查後荊紅遊竺權逮盍益桓公萬俟司馬上官歐陽夏侯諸葛聞人東方赫連皇甫尉遲公羊澹台公冶宗政濮陽淳于單於太叔申屠公孫仲孫軒轅令狐徐離宇文長孫慕容司徒司空長孫慕容司叔申"
k = "一五一十解釋：完完全全,全部的意思例句：請你把這件事情一五一十交代清楚。一介不取解釋：一分一毫也不苟取例句：由於黃先生對銀行的溢付款項一介不取，而贏得大家的讚譽。一元復始解釋：一元：一年。指一年又開始了。例句：一元復始，萬象更新。一切從簡解釋：一切都採用最簡單的形式。例句：為了提倡節儉的美德，這次的餐會就一切從簡吧！一孔之見解釋：比喻見識淺薄狹窄。例句：別以為我們是聰明的，其實跟世界比起來，我們的知識算是一孔知見而已。一心一意解釋：非常專心。例句：做事要一心一意才能做好。一心一德解釋：大家一條心.例句：全班只要一心一德，便可以把垃圾問題給解決掉。一手承運解釋：個人獨力處理例句：這一個海報、舞蹈、劇本全都是我一手承運的，讓我有一種吃虧的感覺。一手遮天解釋：比喻玩弄權術、瞞上欺下的行徑例句：由於黃先生對銀行的溢付款項一手遮天，而贏得大家的讚譽。一手遮天解釋：形容驕傲專橫的人，隱瞞全部的事實。例句：你別以為只要一手遮天就好了！總有一天，你會被警察抓過本以為她長得東方赫連皇甫尉遲公羊澹台公冶宗蠻醜的，但等她一轉身此乃彼「一己之而看到她那到一去的"
l = "一決雌雄解釋：形容以比賽來決定勝負。例句：弟弟拿出他的戰鬥陀螺說要跟我一決雌雄。一見如故解釋：第一次見面就相處和樂融洽，如同老朋友一樣。例句：他們兩人一見如故，談得很投機。一見如故解釋：第一次見面就相處和樂融洽，如同老朋友一般。例句：他們倆雖然是萍水相逢，卻是一見如故。一見鍾情解釋：主要用來形容男女之間初見一面，就萌發出很深的愛情。例句：那女子亭亭玉立，風姿綽約，怎能不叫青年男子一見鍾情哩！一言九鼎解釋：形容說話很有分量。例句：林公向來一言九鼎，素得大家敬重，只要有他一句話，你還怕不成功嗎？一言不發解釋：一句話也不說。例句：叔叔整天都一言不發。一言可采解釋：一句話可以值得採納。例句：他說了許多的廢話，就其中一言可采而已一言可辟解釋：只需說一句話，就可得到官職；形容言語的中肯和重要。例句：大明一向說話中肯，如今一言可辟的獲得賞識。一言為定解釋：強調自己或對方遵守信約，話一說定，就不再反悔變更。例句：這件事就這樣一言為定，說了算。一言喪邦解釋：一句話可以使國家淪亡。例句：所謂一言喪邦，政客不該於叩應節目中胡亂發言，興風的私事利或作浪司空。"
For x = 1 To 480

   Selection.TypeText Text:=Mid(I, Int(Rnd() * 480) + 1, 1)
Next
Selection.TypeParagraph
For x = 1 To 480

   Selection.TypeText Text:=Mid(j, Int(Rnd() * 480) + 1, 1)
Next
Selection.TypeParagraph
For x = 1 To 480

   Selection.TypeText Text:=Mid(k, Int(Rnd() * 480) + 1, 1)
Next
Selection.TypeParagraph
For x = 1 To 480

   Selection.TypeText Text:=Mid(l, Int(Rnd() * 480) + 1, 1)
Next
Selection.TypeParagraph
End Sub

indesign 可直接儲存

flash 翻譯 用indesign設計真是方便

EXCEL VBA 每隔5秒更新

Private Sub Worksheet_Activate()




Application.OnTime Now + TimeValue("00:00:05"), "loaddata"



End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Application.OnTime Now + TimeValue("00:00:05"), "loaddata"

End Sub

另外寫一個副程式

Sub loaddata()



ActiveCell.Offset(1, 0).Select

ActiveCell.Value = "網路資料"

End Sub

EXCEL VBA 公式導入

Sub 授信()


Dim x1, y1, y2, y3

Dim x2, y4



x1 = InputBox("請輸入AI330月份")



y1 = "=ROUND(VLOOKUP(A6,'[AI330-" & x1 & ".xls]Table1'!$A:$F,4,0)/1000,0)"

y2 = "=ROUND(VLOOKUP(A6,'[AI330-" & x1 & ".xls]Table1'!$A:$F,5,0)/1000,0)"

y3 = "=ROUND(VLOOKUP(A6,'[AI330-" & x1 & ".xls]Table1'!$A:$F,6,0)/1000,0)"



x2 = InputBox("請輸入放款結構月份")

y4 = "=ROUND(VLOOKUP('[" & x2 & "放款結構.xls]" & x2 & "結構'!R[26]C1,'[" & x2 & "放款結構.xls]" & x2 & "結構'!C1:C16,5,0)/1000,0)"





Range("J6").Value = y1

Range("J6:J18").Select

Selection.FillDown

Range("J19").Value = "=SUM(J6:J18)"





Range("k6").Value = y2

Range("k6:k18").Select

Selection.FillDown

Range("k19").Value = "=SUM(k6:k18)"



Range("l6").Value = y3

Range("l6:l18").Select

Selection.FillDown

Range("l19").Value = "=SUM(l6:l18)"



Range("J6:L18").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("J6").Select



合計





Range("H9").Select

ActiveCell.FormulaR1C1 = y4

Range("H9").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False



Range("J6").Select



End Sub



Sub 合計()





Range("F6").Value = "=SUM(C6:E6)"

Range("F6").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.FillDown





Range("I6").Value = "=SUM(F6:H6)"

Range("I6").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.FillDown



End Sub

EXCEL VBA合併刪除

Sub 合併()


Dim mymax

Range("B1").Select

mymax = Selection.End(xlDown).Row ' CTRL + 向下的方向鍵

Range("A1").Select





For i = 1 To mymax



If ActiveCell.Value <> Empty Then



ActiveCell.Offset(1, 0).Select



Else



ActiveCell.Offset(-1, 1).Value = ActiveCell.Offset(-1, 1).Value & ActiveCell.Offset(0, 1).Value

Selection.EntireRow.Delete

End If







Next





End Sub



資料結構

編號 品名 數量1 數量2 數量3 日期

1 玩具 5 55 9 1月1日

衣服

股份

書

鞋子

玩具

衣服

2 股份 12 -169 632 1月8日

書

鞋子

玩具

3 鞋子 16 -297 988 1月12日

玩具

鞋子

玩具

鞋子

EXCEL VBA

Sub 資料分割()


流水號

排序

資料搬移

End Sub

Sub 流水號()



Dim mystop



Range("A1").Select

mystop = Selection.End(xlDown).Row



Columns("A:A").Select

Selection.Insert Shift:=xlToRight

Range("A1").Value = "編號"

Range("A2").Value = 1

Range("A2").Select

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _

Step:=1, Stop:=mystop - 1, Trend:=False

End Sub

Sub 排序()

Dim mystop, newrng, newname



Range("A1").Select

mystop = Selection.End(xlDown).Row



Range("B1").Select

newrng = "A1:G" & mystop

Range(newrng).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _

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

SortMethod:=xlStroke, DataOption1:=xlSortNormal



Range("B2").Select





For i = 1 To mystop - 1



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



newname = ActiveCell.Value

ActiveCell.Offset(1, 0).Select





Else







Sheets.Add

Sheets(Sheets.Count - 1).Name = newname



Sheets(Sheets.Count).Select

ActiveCell.Offset(1, 0).Select





End If

Next



End Sub

Sub 資料搬移()

'

For i = 1 To Sheets.Count - 1



Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter

Selection.AutoFilter Field:=2, Criteria1:=Sheets(i).Name

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

Selection.Copy

Sheets(i).Select

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Sheets(Sheets.Count).Select

Range("A1").Select

Selection.AutoFilter



Next

End Sub

合併與刪除

資料內容如下

十一   消防工程


a          滅火器

1         ABC乾粉滅火器，10型滅火效能A-3.B-

2         ABC乾粉滅火器，20型滅火效能A-5.B-

          30.C

3         ABC乾粉滅火器，50型滅火效能A-8.B-

          30.C

b         室內消防栓箱及採水系統

1         消防泵，額定馬力50HP以下,水量

           1680LPM以上,揚程70M以上

           採水泵，額定馬力50HP以下,水量

           2200LPM以上,揚程56M以上


程式如下


Sub 合併與刪除()


Dim i, j

Dim myrng As Range

Set myrng = Sheets(1).UsedRange

j = myrng.Rows.Count



Range("A1").Select



MsgBox j

For i = 1 To j



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

ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(1, 1).Value

ActiveCell.Offset(1, 0).Select

Selection.EntireRow.Delete



Else

ActiveCell.Offset(1, 0).Select





End If





Next



Range("A1").Select



End Sub