一张华美的图表--地球仪

meihouwanga · 发表于 2006-8-5 12:11

Modulo1中的代码只有这些：

Sub spin()
Dim out As Variant
Dim j As Integer, k As Integer
Dim s(3) As Integer
On Error Resume Next
Application.Calculation = xlCalculationManual
Application.StatusBar = ""
out = Array("L2", "L6", "L10")
s(0) = Worksheets("hidden").Range(out(0))
s(1) = Worksheets("hidden").Range(out(1))
s(2) = Worksheets("hidden").Range(out(2))
For j = 0 To 2
For k = 0 To 360
Worksheets("hidden").Range(out(j)) = (s(j) + k) Mod 360
Calculate
Next k
Next j
For k = 1 To 360
Worksheets("hidden").Range(out(0)) = (s(0) + k) Mod 360
Worksheets("hidden").Range(out(1)) = (s(1) + k) Mod 360
Worksheets("hidden").Range(out(2)) = (s(2) + k) Mod 360
Calculate
Next k
Application.DisplayStatusBar = oldStatusBar
Application.Calculation = xlCalculationAutomatic
End Sub

meihouwanga · 发表于 2006-8-5 12:19

隐藏工作表Foglio1中的数据：

A B C D E F G H

x       y     z        x'    y'   z'      x''    y''
0.0000 0.6614 -0.7500 -0.7972 0.5532 0.2414 -0.7972 -0.5532
0.1712 0.6389 -0.7500 -0.8344 0.4250 0.3509 -0.8344 -0.4250
0.3307 0.5728 -0.7500 -0.8283 0.3019 0.4719 -0.8283 -0.3019
0.4677 0.4677 -0.7500 -0.7794 0.1925 0.5962 -0.7794 -0.1925
0.5728 0.3307 -0.7500 -0.6909 0.1042 0.7153 -0.6909 -0.1042
0.6389 0.1712 -0.7500 -0.5691 0.0430 0.8211 -0.5691 -0.0430
0.6614 0.0000 -0.7500 -0.4220 0.0131 0.9065 -0.4220 -0.0131
0.6389 -0.1712 -0.7500 -0.2597 0.0164 0.9655 -0.2597 -0.0164
0.5728 -0.3307 -0.7500 -0.0934 0.0528 0.9942 -0.0934 -0.0528
0.4677 -0.4677 -0.7500 0.0656 0.1199 0.9906 0.0656 -0.1199
0.3307 -0.5728 -0.7500 0.2066 0.2129 0.9550 0.2066 -0.2129
0.1712 -0.6389 -0.7500 0.3199 0.3257 0.8897 0.3199 -0.3257
0.0000 -0.6614 -0.7500 0.3978 0.4504 0.7993 0.3978 -0.4504
-0.1712 -0.6389 -0.7500 0.4350 0.5787 0.6898 0.4350 -0.5787
-0.3307 -0.5728 -0.7500 0.4289 0.7017 0.5688 0.4289 -0.7017
-0.4677 -0.4677 -0.7500 0.3799 0.8111 0.4445 0.3799 -0.8111
-0.5728 -0.3307 -0.7500 0.2915 0.8994 0.3254 0.2915 -0.8994
-0.6389 -0.1712 -0.7500 0.1696 0.9607 0.2196 0.1696 -0.9607
-0.6614 0.0000 -0.7500 0.0225 0.9906 0.1342 0.0225 -0.9906
-0.6389 0.1712 -0.7500 -0.1397 0.9873 0.0752 -0.1397 -0.9873
-0.5728 0.3307 -0.7500 -0.3060 0.9508 0.0465 -0.3060 -0.9508
-0.4677 0.4677 -0.7500 -0.4651 0.8838 0.0501 -0.4651 -0.8838
-0.3307 0.5728 -0.7500 -0.6061 0.7907 0.0857 -0.6061 -0.7907
-0.1712 0.6389 -0.7500 -0.7194 0.6780 0.1510 -0.7194 -0.6780
0.0000 0.6614 -0.7500 -0.7972 0.5532 0.2414 -0.7972 -0.5532

0.0000 0.8660 -0.5000 -0.9155 0.4018 -0.0183 -0.9155 -0.4018
0.2241 0.8365 -0.5000 -0.9641 0.2339 0.1250 -0.9641 -0.2339
0.4330 0.7500 -0.5000 -0.9562 0.0728 0.2834 -0.9562 -0.0728
0.6124 0.6124 -0.5000 -0.8922 -0.0704 0.4462 -0.8922 0.0704
0.7500 0.4330 -0.5000 -0.7763 -0.1861 0.6022 -0.7763 0.1861
0.8365 0.2241 -0.5000 -0.6167 -0.2662 0.7407 -0.6167 0.2662
0.8660 0.0000 -0.5000 -0.4241 -0.3054 0.8525 -0.4241 0.3054
0.8365 -0.2241 -0.5000 -0.2118 -0.3010 0.9298 -0.2118 0.3010
0.7500 -0.4330 -0.5000 0.0060 -0.2533 0.9673 0.0060 0.2533
0.6124 -0.6124 -0.5000 0.2143 -0.1656 0.9627 0.2143 0.1656
0.4330 -0.7500 -0.5000 0.3989 -0.0437 0.9160 0.3989 0.0437
0.2241 -0.8365 -0.5000 0.5472 0.1039 0.8305 0.5472 -0.1039
0.0000 -0.8660 -0.5000 0.6492 0.2673 0.7121 0.6492 -0.2673
-0.2241 -0.8365 -0.5000 0.6978 0.4352 0.5688 0.6978 -0.4352
-0.4330 -0.7500 -0.5000 0.6899 0.5963 0.4104 0.6899 -0.5963
-0.6124 -0.6124 -0.5000 0.6259 0.7395 0.2476 0.6259 -0.7395
-0.7500 -0.4330 -0.5000 0.5100 0.8552 0.0916 0.5100 -0.8552
-0.8365 -0.2241 -0.5000 0.3504 0.9353 -0.0469 0.3504 -0.9353
-0.8660 0.0000 -0.5000 0.1578 0.9745 -0.1587 0.1578 -0.9745
-0.8365 0.2241 -0.5000 -0.0545 0.9701 -0.2360 -0.0545 -0.9701
-0.7500 0.4330 -0.5000 -0.2723 0.9224 -0.2735 -0.2723 -0.9224
-0.6124 0.6124 -0.5000 -0.4806 0.8347 -0.2689 -0.4806 -0.8347
-0.4330 0.7500 -0.5000 -0.6652 0.7128 -0.2222 -0.6652 -0.7128
-0.2241 0.8365 -0.5000 -0.8135 0.5652 -0.1367 -0.8135 -0.5652
0.0000 0.8660 -0.5000 -0.9155 0.4018 -0.0183 -0.9155 -0.4018

0.0000 0.9682 -0.2500 -0.9412 0.2425 -0.2348 -0.9412 -0.2425
0.2506 0.9353 -0.2500 -0.9957 0.0548 -0.0747 -0.9957 -0.0548
0.4841 0.8385 -0.2500 -0.9867 -0.1253 0.1025 -0.9867 0.1253
0.6847 0.6847 -0.2500 -0.9152 -0.2855 0.2844 -0.9152 0.2855
0.8385 0.4841 -0.2500 -0.7856 -0.4148 0.4588 -0.7856 0.4148
0.9353 0.2506 -0.2500 -0.6072 -0.5044 0.6138 -0.6072 0.5044
0.9682 0.0000 -0.2500 -0.3919 -0.5482 0.7387 -0.3919 0.5482
0.9353 -0.2506 -0.2500 -0.1544 -0.5434 0.8252 -0.1544 0.5434
0.8385 -0.4841 -0.2500 0.0890 -0.4900 0.8671 0.0890 0.4900
0.6847 -0.6847 -0.2500 0.3219 -0.3919 0.8619 0.3219 0.3919
0.4841 -0.8385 -0.2500 0.5283 -0.2556 0.8097 0.5283 0.2556
0.2506 -0.9353 -0.2500 0.6942 -0.0906 0.7142 0.6942 0.0906
0.0000 -0.9682 -0.2500 0.8081 0.0920 0.5817 0.8081 -0.0920
-0.2506 -0.9353 -0.2500 0.8626 0.2798 0.4216 0.8626 -0.2798
-0.4841 -0.8385 -0.2500 0.8536 0.4599 0.2444 0.8536 -0.4599
-0.6847 -0.6847 -0.2500 0.7820 0.6201 0.0625 0.7820 -0.6201
-0.8385 -0.4841 -0.2500 0.6525 0.7493 -0.1119 0.6525 -0.7493
-0.9353 -0.2506 -0.2500 0.4741 0.8390 -0.2669 0.4741 -0.8390
-0.9682 0.0000 -0.2500 0.2587 0.8828 -0.3918 0.2587 -0.8828
-0.9353 0.2506 -0.2500 0.0213 0.8779 -0.4783 0.0213 -0.8779
-0.8385 0.4841 -0.2500 -0.2222 0.8245 -0.5202 -0.2222 -0.8245
-0.6847 0.6847 -0.2500 -0.4551 0.7265 -0.5150 -0.4551 -0.7265
-0.4841 0.8385 -0.2500 -0.6614 0.5902 -0.4628 -0.6614 -0.5902
-0.2506 0.9353 -0.2500 -0.8273 0.4251 -0.3673 -0.8273 -0.4251
0.0000 0.9682 -0.2500 -0.9412 0.2425 -0.2348 -0.9412 -0.2425
      ....................................

meihouwanga · 发表于 2006-8-5 12:29

我看不懂代码是什么意思，但好像是只是对那个自动转的按钮才起作用。

也就是除spin按钮以外，没有任何VBA代码需要编写，

那就是纯数学数值计算和表格的相关应用得很微妙。

但是那个图是以什么格式做的，

很难弄懂，以Excel自带任何格式点击后就回不到原来的模样了。

有谁知道这个图的格式是怎样生成的？

meihouwanga · 发表于 2006-8-5 12:34

经度值不是以360度来表示，

而是以24小时的时间数据代替。

ncdwd21415 · 发表于 2007-9-18 14:17

太强了！！！！！！！！！！！！！！

waitinghjf · 发表于 2007-9-19 16:19

good

leaf_yh · 发表于 2007-9-20 19:07

这个表对于跨国公司很有实际用途呢！

liusc1818 · 发表于 2007-9-25 23:21

真是强人啊

zllming · 发表于 2007-9-26 16:03

牛人可真是多啊，excel都可以弄成这个样子，佩服

jackpyl · 发表于 2007-9-26 20:22

liahai

		自动登录	找回密码
密码			免费注册

[转帖] 一张华美的图表--地球仪