2011年2月24日星期四

EXCEL VBA 自動流水號

Sub 流水號()
Dim mystart, myend, myrow, myrow1

myrow = ActiveCell.Row

ActiveCell.Offset(0, 1).Select

myrow1 = Selection.End(xlDown).Row

myend = myrow1 - myrow + 1

ActiveCell.Offset(0, -1).Select

mystart = ActiveCell.Value



If mystart <> Empty Then

ActiveCell.Value = mystart

myend = myend - 1


Else

ActiveCell.Value = 1

mystart = 0


End If


Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _

Step:=1, Stop:=myend + mystart, Trend:=False

End Sub

9 评论:

匿名 说...

That is really interesting, You are an overly skilled blogger.
I've joined your rss feed and stay up for searching for extra of your magnificent post. Also, I have shared your site in my social networks
Feel free to visit my web blog ; captain black

匿名 说...

My brother suggested I might like this website.
He was totally right. This post actually made my day.
You cann't imagine just how much time I had spent for this info! Thanks!
my site > golden virginia tobacco

匿名 说...

What's Happening i'm new to this, I stumbled upon this I've found It positively helpful and it has aided me out loads. I hope to give a contribution & assist different users like its helped me. Great job.
Also see my web site - university of alabama school of medicine

匿名 说...

Shanghai B & Q used to price killer faces denote quantity of debts issued and as well [url=http://www.onlyyoutony.com]polo ralph lauren[/url]Even lower educated person can understand prices making them even more desirable In [url=http://www.onlyyoutony.com]ralph lauren[/url]is most likely a Black Bear Yes Black Bears The result is stunning -- there is absolute http://www.onlyyoutony.com[/url] a floor following your thought cities Tag J54 - Note 2 has been amended to cover

匿名 说...

Greetings from Colorado! I'm bored to death at work so I decided to check out your blog on my iphone during lunch break. I enjoy the info you present here and can't wait to
take a look when I get home. I'm surprised at how quick your blog loaded on my mobile .. I'm not even using WIFI,
just 3G .. Anyways, amazing blog!

my web blog - vakantiehuisjes frankrijk huren

匿名 说...

I've been surfing online more than 3 hours today, yet I never found any interesting article like yours. It's pretty worth enough for me.
In my view, if all web owners and bloggers made good content as you
did, the web will be much more useful than ever before.


Also visit my page vacature arnhem

匿名 说...

I like what you guys tend to be up too. This kind of clever work and exposure!
Keep up the awesome works guys I've incorporated you guys to our blogroll.

Here is my page vakantieparken frankrijk

匿名 说...

You are so interesting! I don't suppose I've read
through anything like that before. So great to find
somebody with some original thoughts on this subject. Seriously.
. thanks for starting this up. This web site is something that's needed on the internet, someone with a little originality!

Feel free to surf to my web-site - vakantiehuisje frankrijk

匿名 说...

Good day! I could have sworn I've been to this website before but after reading through some of the post I realized it's new to me.

Nonetheless, I'm definitely happy I found it and I'll be
bookmarking and checking back often!

My web blog ... luxe vakantiehuizen

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