香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 2nd Jan 2006, 17:33 PM | 雜談 | (685 Reads)
Public Function lcm(ParamArray Values()) As Long
Dim High As Long, e As Integer, InitHigh As Long
Application.Volatile
InitHigh = Application.WorksheetFunction.Max(Values)
High = InitHigh
Do
For e = LBound(Values) To UBound(Values)
If High Mod Values(e) 0 Then Exit For
Next
If e > UBound(Values) Then
lcm = High
Exit Function
End If
High = High + InitHigh
Loop
End Function


[9]

留言 WinMe 可以看見格式了 

 8 Jan 2006


[引用] | 作者 Emily | 8th Jan 2006 01:36 AM | [舉報垃圾留言]

[8] Re: Re: Re: Re:
Emily : poonwinghang : Emily : poonwinghang : 你篇文有好多 div 版面都移曬位啦 我知道啊!我又用 WinMe 你不如試下download 個firefox 試下... 可能會好d.. 氣死我 !   FireFox , 試試, Thanks
FireFox + WinMe = 氣死我 ! 


[引用] | 作者 Emily | 3rd Jan 2006 14:32 PM | [舉報垃圾留言]

[7] Re: Re: Re:
poonwinghang : Emily : poonwinghang : 你篇文有好多 div 版面都移曬位啦 我知道啊!我又用 WinMe 你不如試下download 個firefox 試下... 可能會好d..


氣死我 !   衰死了~~

FireFox , 試試, Thanks


[引用] | 作者 Emily | 3rd Jan 2006 12:55 PM | [舉報垃圾留言]

[6] Re: Re:
Emily : poonwinghang : 你篇文有好多 div 版面都移曬位啦 我知道啊!我又用 WinMe
你不如試下download 個firefox 試下... 可能會好d..


[引用] | 作者 poonwinghang | 3rd Jan 2006 12:43 PM | [舉報垃圾留言]

[5] Re:
poonwinghang : 你篇文有好多 div 版面都移曬位啦

我知道啊!

我又用 WinMe

吐舌頭


[引用] | 作者 Emily | 3rd Jan 2006 11:14 AM | [舉報垃圾留言]

[4]

你篇文有好多 div
版面都移曬位啦


[引用] | 作者 poonwinghang | 3rd Jan 2006 11:08 AM | [舉報垃圾留言]

[3] Re:
ming : 試一試轉另一個模版

試了,但沒有用


[引用] | 作者 Emily | 2nd Jan 2006 20:51 PM | [舉報垃圾留言]

[2]

Thanks

It seems the color is OK

I am using a note book with WinXp + IE6 + Office 2003


[引用] | 作者 Emily | 2nd Jan 2006 18:10 PM | [舉報垃圾留言]

[1]

試一試轉另一個模版


[引用] | 作者 ming | 2nd Jan 2006 17:59 PM | [舉報垃圾留言]