>即時新聞-熱門

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正常了

真是怪

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