>即時新聞-熱門

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

17 评论:

匿名 说...

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?

匿名 说...

Τ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.

匿名 说...

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

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