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

bluesky_cjm · 发表于 2006-4-11 12:06

[em17][em24]

canevae · 发表于 2006-7-28 13:06

太强了，佩服

asat · 发表于 2006-7-29 05:52

我看不懂VBA代码.郁闷啊~

wistove · 发表于 2006-7-29 23:10

无言

lion_f · 发表于 2006-7-31 09:11

真的是超级高手阿

fuckjapan · 发表于 2006-7-31 16:39

佩服

xiamen2003 · 发表于 2006-8-2 10:24

佩服佩服，但怎么看呢？

mary0215 · 发表于 2006-8-3 11:07

牛，[em06]

sakie · 发表于 2006-8-3 14:22

厉害，不过那地球应该设计成转动中可以暂停的，

最好点哪个地址就能自动转到该位置，

^_^ 要是能给小学生当地球仪用就好了。

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

工作表sfarea中的代码只有这些：

Option Explicit

_________________________________________

Sub spin()
Dim inp As Range, out As Variant
Dim j As Integer, k As Integer
Dim s(3) As Integer
Application.Calculation = xlCalculationManual
out = Array("AF1", "AF7", "AF13")
Set inp = ActiveSheet.Range("F26")
s(0) = Range(out(0))
s(1) = Range(out(1))
s(2) = Range(out(2))
For j = 0 To 2
For k = 1 To 360
Range(out(j)) = (s(j) + k) Mod 360
Calculate
Next k
Next j
For k = 1 To 360
Range(out(0)) = (s(0) + k) Mod 360
Range(out(1)) = (s(1) + k) Mod 360
Range(out(2)) = (s(2) + k) Mod 360
Calculate
Next k
Application.Calculation = xlCalculationAutomatic
End Sub

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

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