香港新浪網 MySinaBlog
Emily | 30th Nov 2005, 22:00 PM | API / Add-in | (1498 Reads)

Query Editor Add-in 推介

Query Editor is an Excel Add-In for maintaining ODBC or OLE DB Query Tables.

強勁!

 (閱讀全文)

Emily | 30th Nov 2005, 13:58 PM | WB & WS | (2332 Reads)

篩選後第一個儲存格 

' 假設有標題行
'
Sub FindFirstCellofAutoFilter()
    Dim Rng As Range
    Dim Msg As String
    Set Rng = Worksheets("Sheet1").Range("A1").CurrentRegion
    Rng.AutoFilter Field:=3, Criteria1:="KSR1"       ' Change your setting
    Set Rng = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
    On Error Resume Next
    Set Rng = Rng.Columns(1).SpecialCells(xlCellTypeVisible)
    If Err = 0 Then
        Msg = "總共有 " & Rng.Count & " 篩選行" & vbCrLf
        Msg = Msg & "第一個儲存格是 " & Rng.Cells(1, 1).Address(0, 0)
    Else
        Err.Clear
        Msg = "沒有篩選行 " & vbCrLf
    End If
    On Error GoTo 0
    MsgBox Msg
End Sub

Emily | 30th Nov 2005, 10:05 AM | WB & WS | (4263 Reads)

如何在 VBA 内執行 Add-in 函數

首先看看這個 ExcelHome 的問題

使用自己寫的函數老說我“公式中使用的某個值時錯誤的數據類型” 

Function AN_value(spotday As Date, maturityday As Date, interest As Double, _
    frequency As Integer, basis As Integer)
paytimes = Application.WorksheetFunction.COUPNUM(spotday, maturityday, frequency, basis)
AN_value = 0
For Index = 1 To paytimes
    AN_value = AN_value + 1 / (1 + interest / frequency) ^ (paytimes - 1)
Next Index
End Function
'
使用公式:=AN_value(A1,A2,A3,A4,A5),結果:
A1  2005-5-5
A2  2006-6-6
A3  0.05
A4  2
A5  3
 
你找到錯誤的地方嗎?
COUPNUM

傳回結算日與到期日之間給付利息的次數。傳回值若非整數,則取為大於該值的最小整數。

如果找不到這項函數,並傳回 #NAME? 錯誤,請執行程式以安裝 [分析工具箱] 增益集

 (閱讀全文)

Emily | 27th Nov 2005, 22:52 PM | Network / Media | (2995 Reads)

代碼登陸網站 2

有些網站不僅要 UserName 及 Password ,還有特別要求。以下代碼嘗試登陸 OFFICE精英俱部。代碼是 crdotlin 編寫,我修改小小。(有驗證不適用, eg ExcelHome )

 (閱讀全文)

Emily | 27th Nov 2005, 21:58 PM | Network / Media | (2462 Reads)

代碼登陸網站

以下介紹一段登陸網站的代碼,此代碼嘗試找出 登陸 HTML Form 內的 UserName 及 Password 位置然後自動填入。

 (閱讀全文)

Emily | 25th Nov 2005, 19:25 PM | Office Application, API / Add-in | (2830 Reads)

將 Excel,Word 及 OutLook 並排

今天看到一段代碼 (written by ken Puls),介紹給各位

.

 (閱讀全文)

Emily | 25th Nov 2005, 18:21 PM | General | (1955 Reads)

Data Type Integer and Long

我們一直用 Integer 處理 -32,768 至 32,767 的 Variable,可以省記憶體。不知何時 MicroSoft ,Integer 需先轉換成 Long 才做其他運算。所以 Long 運行現時比 Integer 快。如 Integer 是 0 - 255 可用 Byte

 (閱讀全文)

Emily | 25th Nov 2005, 09:09 AM | UserForm / Object | (1229 Reads)

UserForm Splitter

Andy Pope 在 13 Nov 2005 發表了一個可任意調動的 UserForm Splitter 例子。

 

 (閱讀全文)

Next