test
2017年5月22日星期一
2017年5月21日星期日
2012年9月20日星期四
EXCEL VBA 去除"$"的方法 replace
Sub 快速走勢圖()
Dim Sht As Worksheet
Set Sht = Worksheets(1)
Set Rng1 = Sht.UsedRange
Set Rng2 = Rng1.SpecialCells(xlCellTypeLastCell)
x = Rng2.Address
Set Rng = Selection
mystart = Rng.Address
mystart = Replace(mystart, "$", "", 1) ' 去除此之外符號成為相對公式
Range("P2").Select
Range("$P$2").SparklineGroups.Add Type:=xlSparkLine, SourceData:=mystart
走勢圖參數
ActiveCell.FormulaR1C1 = "q"
Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P109")
Range("P2:P109").Select
Selection.ClearContents
Range("P2").Select
Set Rng1 = Nothing
Set Rng2 = Nothing
Set Sht = Nothing
End Sub
Public Sub 走勢圖參數()
Selection.SparklineGroups.Item(1).SeriesColor.ThemeColor = 5
Selection.SparklineGroups.Item(1).SeriesColor.TintAndShade = -0.499984740745262
Selection.SparklineGroups.Item(1).Points.Negative.Color.ThemeColor = 6
Selection.SparklineGroups.Item(1).Points.Negative.Color.TintAndShade = 0
Selection.SparklineGroups.Item(1).Points.Markers.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Markers.Color.TintAndShade = - _
0.499984740745262
Selection.SparklineGroups.Item(1).Points.Highpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Highpoint.Color.TintAndShade = 0
Selection.SparklineGroups.Item(1).Points.Lowpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Lowpoint.Color.TintAndShade = 0
Selection.SparklineGroups.Item(1).Points.Firstpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Firstpoint.Color.TintAndShade = _
0.399975585192419
Selection.SparklineGroups.Item(1).Points.Lastpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Lastpoint.Color.TintAndShade = _
0.399975585192419
End Sub
2012年8月22日星期三
2012年4月18日星期三
2012年2月17日星期五
不錯的活動 請大家支持
2012年【甕藏春之梅】活動
即日起開始報名 !
每年3至4月生產的青梅最適合醃製成脆梅，與陶甕結合醃成的脆梅，滋味特別好吃
2012年特聘請專業陶藝名家李金生老師設計具有特色之2012年梅甕
備好新鮮現採的梅子
邀請大家來鶯歌陶瓷博物館參加【甕藏春之梅】活動
一同話「青梅」、賞「青梅」、醃「脆梅」
學習自己親手製作好吃的脆梅，將陶器運用在實際日常生活之中
大家「梅情話意」、「梅開眼笑」，享受醃梅之樂!
【活動日期】
3月23日起至4月29日
每星期三、四、五、六、日
【活動地點】
新北市立鶯歌陶瓷博物館
陶瓷藝術園區–風廣場
【活動對象】
家庭主婦、親子、學校團體、公司行號
【活動場次】
每日4場
第1場：09:40~10:50 第2場：11:20~12:30
第3場：14:00~15:10 第4場：15:40~16:50
每場次總長70分鐘，為醃製脆梅課程活動時間。每場次間隔30分鐘。
【活動內容】
A 醃脆梅活動體驗課程
B 套裝行程(20人以上團體)
—甕藏春之梅一日遊醃脆梅教學活動
包含
醃脆梅活動體驗課程
陶藝研習室體驗課程
常設展及特展參觀
國際演講廳影片觀賞
【教師研習時數】
為鼓勵教師參與本活動
將函請全國各縣（市）教育局（處）同意發給
2012年『甕藏春之梅一日遊醃脆梅教學活動』
教師研習時數
【公務人員學習時數】
為鼓勵公務人員參與本活動
將由本館發給
2012年『甕藏春之梅一日遊醃脆梅教學活動』
公務人員學習時數。
【報名方式】
接受電話及網路預約報名及一日遊安排服務
每場72名(含電話預約36名+網路預約36名)
依報名甕數提供座位
（1）電話預約報名（個人、團體）：自即日起至活動日2日前止預約報名
電話預約專線：02-86772727轉分機711、710
※ 逾時報到，將不予保留原預約場次名額
（2）網路預約報名（個人、團體）：自即日起至活動日2日前止預約報名
請本館網站─【課程與活動】─【2012年甕藏春之梅活動】─線上報名
※ 填表請於備註欄註明
1.參加者姓名
2.參加總甕數
3.參加日場次
4.e-mail、電話
*系統直接發信給您電腦報名序號20120xxxxx為...)並不代表報名成功。
(本館旅遊秘書中心會與您連繫確認報名是否成功)
若有餘額開放現場報名（個人、團體）
（臨時取消，請預先通知或改預約其它場次）
【活動報名費】
「醃脆梅活動體驗課程」報名費為新臺幣350元正
「陶藝研習室體驗課程」報名費新臺幣50元正
【繳費方式】
預約報名者請於活動開始前報到
於服務臺繳交報名費
領取繳費收據
(第1場於活動開始10分鐘前受理)
(第2.3.4場於活動開始30分鐘前受理)
2012年2月8日星期三
2012年1月20日星期五
2011年8月27日星期六
煙的作法
1.File (功能表)/ new(新增) / new project(專案)
2.Composition(合成) / new Composition / 設定尺寸 10SEC/ OK3.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/ OK3. 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/ OK3. 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/ OK3. 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文字設計
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 : 光圈
2011年8月19日星期五
2011年8月15日星期一
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
2011年8月5日星期五
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 / 目標
订阅：
博文 (Atom)
博文
13130