B*******e
发帖数: 3882 | 1 偶是现学现卖, 应该是酱紫.
数据从第一行开始
第一列是gdp, 第二列是需要算的值, 结果存到第三列
假设每一worrksheet 是一年的.
其他格式相应改一下就可以了
把nCountry 改成实际的国家值
Sub gdp1()
'
' gdp1 Macro
' Macro recorded 3/19/2003 by Backyard
'
' Keyboard Shortcut: Ctrl+e
'
Dim nCountry As Integer
nCountry = 8
Dim gdpSum As Double
gdpSum = 0
Dim i As Integer, j As Integer
i = 1
j = 1
Do While (i <= nCountry)
gdpSum = gdpSum + Cells(i, 1)
i = i + 1
Loop
Cells(nCountry + 2, 1) = gdpSum
Dim wSum As Double
wSum = 0
i = 1 |
|
|
j****s
发帖数: 5092 | 3 你是用windows 么？那个是比较方便的了，换个机器试试？ |
|
|
E*********e
发帖数: 10297 | 5 我想要那个笔画顺序的，平常的田字格我自己有
8&rls=org.mozilla:en-US:official&client=firefox-a&um=1&ie=UTF-
8&source=univ&ei=o6cbTJzWNcL88AbYtIyiCQ&sa=X&oi=image_result_group&ct=titl
e&resnum=4&ved=0CDkQsAQwAw |
|
s***e
发帖数: 832 | 6 哦，那个在暨南大学的中文书附录上有。不过我不记得暨南大学的书的下载link了 |
|
j****s
发帖数: 5092 | 7 跟那个网站的owner 联系过了，现在网站已经好了，再试试。
据说前两天是因为budget issue, 欢迎大家捐款。
要是有不差钱的类似网站推荐就更好了哈。 |
|
|
t********r
发帖数: 4908 | 9 ☆─────────────────────────────────────☆
EnjoyMyLife (实心团子实心人) 于 (Fri Jun 18 12:22:11 2010, 美东) 提到:
大家推荐的那个对我不work了
☆─────────────────────────────────────☆
jeeves (coala) 于 (Fri Jun 18 12:58:34 2010, 美东) 提到:
你是用windows 么？那个是比较方便的了，换个机器试试？
☆─────────────────────────────────────☆
singe (shi nan) 于 (Fri Jun 18 13:10:40 2010, 美东) 提到:
从下面选个你想要的。
http://www.google.com/images?q=%E7%94%B0%E5%AD%97%E6%A0%BC&oe=u
☆─────────────────────────────────────☆
EnjoyMyLife (实心团子实心人) 于 (Fri Jun 1... 阅读全帖 |
|
