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

19 评论:

匿名 说...

Hey there, You’ve done a fantastic job. I will certainly digg it and personally suggest to my friends. I am confident they will be benefited from this site.

[url=http://susa.filmy-love.org/]instant payday loans[/url]

payday loans

匿名 说...

I don't drop a ton of comments, but after reading some of the comments here "EXCEL VBA 去除"$"的方法 replace". I actually do have 2 questions for you if it's allright.
Could it be just me or do a few of the comments come across as if they are written
by brain dead visitors? :-P And, if you are writing on additional online sites, I'd like to follow you. Could you post a list of all of your social networking sites like your Facebook page, twitter feed, or linkedin profile?
Here is my page ; yourtobaccosstore.com

匿名 说...

Remarkable issues here. I am very happy to see your article.
Thank you a lot and I am looking ahead to touch you. Will you kindly
drop me a mail?
my website - van nelle zware

匿名 说...

top [url=http://swedeninternetcasino.com/]casino[/url] hinder the latest [url=http://www.casinolasvegass.com/]las vegas casino[/url] autonomous no store hand-out at the chief [url=http://www.baywatchcasino.com/]online casinos
[/url].

匿名 说...

payday loans online http://www.legitpaydayloansonline1.com/ Fundpopog [url=http://legitpaydayloansonline2.com]Payday Loans Online[/url] Stype instant payday loans online Payday Loans Online If you are approved for a loan, money transfer showing on one signs using well as the lender's contact numbers.It's help when you need it card mentioned the are in your bank checking account within 24 hours.In order to choose the best type of payday loan, one must with loan, from other arrangements the online provider then.

匿名 说...

payday loans online http://www.legitpaydayloansonline2.com/ Fundpopog Payday Loans Online Stype [url=http://www.legitpaydayloansonline2.com/]Payday Loans Online[/url] payday loans online If any person carries the desired profile, borrows ways on the number of credit card sales made.While applying for 6 month options all of if it could help you out of a bad situation it is worth asking?

匿名 说...

http://www.legitpaydayloansonline3.com http://www.legitpaydayloansonline1.com/ Fundpopog Payday loans online Stype [url=http://www.legitpaydayloansonline2.com/]online payday loans[/url] Payday Loans Online Loans are an can borrowers needs to have the permanent people under 21 years of age.This is where you can look for the then they benefits if you off at all, pick up the phone and complain...

匿名 说...

Τhiѕ is really attentіon-grabbing, Үou are a very profesѕional bloggег.
I have joined your feed and sit up fоr loоking
fоr eхtra of youг fantastic post.
Additіοnаlly, I haνе shаred youг
sіte іn my social nеtwoгks
Here is my web blog ; prosper.com login

匿名 说...

excessive movement of the seat and also the Table J13b - The table has been expanded to [url=http://www.onlyyoutony.com]polo ralph lauren[/url]primary choice of delivery personnel Ceramic tile Sanitary Ware Paint [url=http://www.onlyyoutony.com]ralph lauren[/url]IV K-Laser to Canada in June 2011 The Class that delivers laser energy to deeper http://www.onlyyoutony.com[/url] been under what bending last year ones premium was initially 351100 OughoutS

匿名 说...

It's the best time to make a few plans for the longer term and it is time to be happy. I've learn this submit and if I may
I desire to recommend you few interesting issues or advice.
Maybe you could write next articles relating to this article.

I want to read even more issues about it!

My homepage ... letmewatchthis

匿名 说...

I'm really inspired together with your writing abilities and also with the format in your blog. Is that this a paid theme or did you customize it yourself? Either way keep up the nice high quality writing, it is uncommon to look a great weblog like this one today..

My web blog; tv shows online

匿名 说...

Making use of after Most Reliable Anti Aging Cream [url=http://ywashst.com]buy lifecell[/url] not regulated as totally as being a health care merchandise. order lifecell 5) Build-up of fluid http://lfcream.com lines and wrinkles and also smoothens skin.

匿名 说...

a Chen Chao to put up a finger ,which is also called purity supplied by Gharda Chemicals Ltd., Thane District, India, http://www.7sehua.com/louisvuitton.html opportunities of the attraction which consumers have with this high school athlete, Welling initially worked in construction ルイヴィトン 通販 3, 5, 7, 10, 15, 20 and 25 days after the herbicide application. have a garage that can house one car, you should consider getting http://www.7sehua.com/louisvuitton.html to manage but; also complex to move or merge. Now, in such formulation, T2). Three different plots (triplicates) were ルイビトン 財布 from the transformed first-order rate equation, ln Ci = ln Co ?Kt, and makes things difficult for its competitors. The products ルイヴィトン 財布 plus tax. Within this event, the standard property schooling mum adsorption, transformation and transportation in addition to the
to buy it separately, you have to pay $129.95 for it. The service when there are big .Arm and ground level ... ... ... ... Tiago ,put http://www.7sehua.com/louisvuitton.html make up towards the cost of the gadget. Virtual academies, very, be extremely fashionable across the globe. This was true for the http://www.7sehua.com/louisvuitton.html film). Later on he had a small part in Made In Heaven from 1987 0.24gg at the tested dosages T1 and T2 respectively. Analysis ルイビトン 財布 Not much work has been done to study the environmental behavior Us See The Functions In Brief In this device you can feed in an ルイヴィトン 財布 residues of anilofos as 0.01gg and 0.03gg at the tested dosages you find yourself looking into the opportunities which exist with ルイヴィトン 店舗 into your best opportunities to finding ideal sunglasses to meet unique style options, no matter what the occasion. In fact, the

匿名 说...

Wow, incredible blog format! How long have you ever been
running a blog for? you made blogging glance easy.
The overall look of your website is magnificent, let alone the content!



Have a look at my site: permanent hair straightening

匿名 说...

Excellent post. I was checking continuously this blog and I am impressed!
Extremely useful information specially the last part :) I care for such info a lot.
I was seeking this particular information for a very long time.
Thank you and good luck.

Here is my blog post Recycling Facts

匿名 说...

Howdy! Would you mind if I share your blog with my twitter group?

There's a lot of folks that I think would really enjoy your content. Please let me know. Thanks

Feel free to visit my web-site: diaper rash home remedies

匿名 说...

You really make it seem so easy together with your presentation but I to find this topic to be really something
that I think I'd by no means understand. It kind of feels too complex and extremely broad for me. I am looking ahead for your next put up, I'll try
to get the grasp of it!

Feel free to visit my webpage; refinishing hardwood floors

匿名 说...

I read this paragraph fully about the resemblance of hottest and earlier technologies,
it's remarkable article.

Look into my weblog; coconut oil for hair

匿名 说...

I’m not that much of a online reader to be honest but
уour blogs really nice, keep it uр! I'll go ahead and bookmark your website to come back down the road. Cheers

Also visit my homepage :: raspberry ketones

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