香港新浪網 MySinaBlog
Emily | 28th Jun 2006, 13:28 PM | WB & WS | (860 Reads)

分頁預覽狀态下右鍵菜單是什麽?

普通模式下是Application.CommandBars("CELL").

分頁預覽狀态下呢?

 

Application.CommandBars(IndexNumber)

Index Number

             Normal & Page Break Preview 

xl97        21 & 24 
 
xl2000    23 & 26 
 
xl2002    28 & 31

xl2003    37 & 40

'

 

Sub PBP()
Dim PBPCellIndex As Long
Dim NormalCellIndex As Long
NormalCellIndex = Application.CommandBars("Cell").Index  
' = 36 , Traditional Chinese Office 2003
PBPCellIndex = NormalCellIndex + 3    ' = 39
End Sub

  

Details and example: Like '.CommandBars("Cell")' in Page Break Preview


Emily | 26th Jun 2006, 12:16 PM | WB & WS | (724 Reads)

List WorkBook GUID , Globally Unique IDentifyer

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  : 26/6/2006 12:07
' Author    : Emily
' Purpose   : List WorkBook GUID , Globally Unique IDentifyer
'---------------------------------------------------------------------------------------
Sub Grab_References()

Dim n As Integer
Dim x As Integer

On Error Resume Next

x = 1

For n = 1 To ActiveWorkbook.VBProject.References.Count

Cells(x, 1) = n
Cells(x, 2) = ActiveWorkbook.VBProject.References.Item(n).Name
Cells(x, 3) = ActiveWorkbook.VBProject.References.Item(n).Description
Cells(x, 4) = ActiveWorkbook.VBProject.References.Item(n).Major
Cells(x, 5) = ActiveWorkbook.VBProject.References.Item(n).Minor
Cells(x, 6) = ActiveWorkbook.VBProject.References.Item(n).fullpath

Cells(x, 7) = ActiveWorkbook.VBProject.References.Item(N).GUID

x = x + 1
Next n
Columns("A:G").EntireColumn.AutoFit

End Sub




Emily | 23rd Jun 2006, 12:34 PM | General | (1596 Reads)

Excel 計算一定範圍內質數的小程式

EH 問題

'---------------------------------------------------------------------------------------
' Module    :
' DateTime  : 23/6/2006 12:39
' Author    : Emily
' Purpose   : List Prime Number in a range
'---------------------------------------------------------------------------------------

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub Emily_230606()
    Dim m&, n&, k&, a&, b&, arr(), t1
    t1 = timeGetTime
    ReDim arr(1 To 65536)
    k = 2
    arr(1) = 2

    Range("E2:E" & Range("E65536").End(xlUp).Row + 1).Clear
    For a = 3 To [A2]     ' A2 is the required range
        If IsPrime(a) Then
            arr(k) = a
            k = k + 1
        End If
    Next
a
    ReDim Preserve arr(1 To k - 1)
    Range("E2:E" & k) = Application.Transpose(arr)
    Debug.Print timeGetTime - t1 & "ms"
End Sub

Function IsPrime(TestNumber As Long) As Boolean  ' 2 is prime, not tested

Dim Count As Long
Dim Half As Long
If (TestNumber Mod 2) = 0 Then
         Exit Function
End If

Half = Sqr(TestNumber)
For Count = 3 To Half Step 2
     If (TestNumber Mod Count) = 0 Then
         Exit Function
     End If
Next

IsPrime = True
End Function

'

參考 ExcelHelp 質數


Emily | 17th Jun 2006, 20:34 PM | 雜談 | (911 Reads)

如何辨認偽科學

能量水 很少數的讀者, 不過不介意介紹以下連結

如何辨認偽科學 (譯自Stephen Lower網頁)


Emily | 11th Jun 2006, 12:15 PM | 雜談, 置頂文章 | (7655 Reads)

 能量水

 節錄自 水的科學與偽科學 

隨便在Google上輸入幾個關鍵字,譬如 "能量水",你會發現成千個網頁,而且都是宣稱那些我們認為是錯誤資訊的網頁。為什麼網路世界上錯誤的資訊遠多於正確的呢?我想有兩個可能的原因:首先,有利可圖的一方比較有意願去建構網站;其次,科學家們比較願意花功夫在研究新的東西,而不是去"證明"某件他們認為是愚蠢的事是假的,對於那些熱情擁抱奇怪的想法的人,否證是件困難的事,譬如,要"證明"這世界沒有鬼就是件幾乎不可能的任務。

以下幾個常見的跟水有關的錯誤觀念,首先我們先將這些觀念和我們的意見並陳,詳細的說明則請見連結 (水的科學與偽科學)

電解水產生的鹼性水可以中和酸性體質,有益健康?   

我們的意見:電解水所產生的鹼性水其程度微不足道,果汁的酸和鎂奶的堿含量要大得多,但不會影響人體的酸鹼度,人的胃液就是俗稱的鹽酸,所有的鹼性水都不可能通過胃而仍然保持鹼性。人體內的酸鹼度是由緩衝物質(如二氧化碳)和酵素控制的,太酸或太堿都不好。

    人體如何控制酸鹼度?

不要喝純水,因為水中缺乏礦物質?  

我們的意見:純水的確不含礦物質,有些賣礦泉水的宣傳據此而勸人不要喝逆滲透水或蒸餾水,其實水在身體裏扮演的是溶劑的角色,喝越純的水越好,人體所需的礦物質來自飲食(如蔬菜水果)

小分子團水(能量水)比起自來水更能有效地進出細胞,可以讓細胞保持年輕?  

我們的意見:沒有任何證據支援以各種結構改變水,或所謂的 "水分子團" 來推銷 "細胞水合" 的說法,這些論調毫無根據,也和已知水通過細胞壁的 "一次一分子" 機制不相容,沒有證據顯示任何飲食添加物或療法可以延遲老化。2003年諾貝爾化學獎得主Peter Agre教授告訴我們水分子如何進出細胞。讀者也可以參考臺灣大學化學系蔡蘊明教授的中文版

磁化水(p)對人體有益?  

我們的意見: 水分子有電偶極(分子內局部正負電),但是沒有磁偶極,除非在極端狀況下,水不會受磁場的影響,沒有任何具有公信力的研究證實磁處理水有療效,"抑制腫瘤細胞的產生" 的說法更是完全沒有根據。

氧化水讓人活力充沛? 

我們的意見:水中只能溶解微乎其微的氧氣,而且喝進腸胃道的氧氣不會被人體吸收;吸一口新鮮空氣,身體得到的氧氣要多得多!

節錄自 水的科學與偽科學 


Emily | 4th Jun 2006, 19:28 PM | Office Application | (3399 Reads)

Excel 如何顯示桌面

這個是 EH 的問題 , 有什麼用?

不理有什麼用 ...

Sub Test()
   Set W = CreateObject("WScript.Shell")
   W.Run "C:WindowsSystem顯示桌面.scf"
End Sub

 

'

mySinaBlog 不支援斜線,斜線現用全形\取代 ,請改回。

 


Emily | 2nd Jun 2006, 07:24 AM | Network / Media | (1302 Reads)

Network Drive Mapping

 Sub NetworkMapDrive()

    Set WshNetwork = CreateObject("WScript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives
    DrivesStr = "Network drive Mappings:" & Chr(13)
    For i = 0 To oDrives.Count - 1 Step 2
       DrivesStr = DrivesStr & "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i + 1) & Chr(13)
    Next
    MsgBox DrivesStr
End Sub
 '
 (閱讀全文)