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年9月20日星期四
EXCEL VBA 去除"$"的方法 replace
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分鐘前受理)
博文
13130