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日星期三

我的電子書

請大家幫忙唷
http://books.gotop.com.tw/bookdetails.aspx?Types=v&bn=ICI018600

2012年1月20日星期五

哇 我的BLOG正常了

真是怪

2011年8月27日星期六

煙的作法

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 SCALE160
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 , 即可改變時間特性[4KEY 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 / 其他自行設定

CAMERA3D文字設計

 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.  修正POSTIONKEYFRAME
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日星期五

請大宣傳唷

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

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 / 目標

2011年7月17日星期日

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

2011年7月9日星期六

indesign 可直接儲存

flash 翻譯 用indesign設計真是方便

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱