香港新浪網 MySinaBlog
Emily | 29th Oct 2005, 12:44 PM | General | (1172 Reads)

將一組數字加總到某指定數值

介紹一個從 18 數據 找出加總到接近指定值的例子

 

 (閱讀全文)

Emily | 27th Oct 2005, 10:44 AM | General | (2121 Reads)

有沒有7進制的函數

原問題

以下編碼可以從某一進制轉成另一進制,大致上沒有問題,如有不善的地方,請留言。

'

Sub Decimal2Binary()

MsgBox Base2Base(1024, 10, 2)

End Sub


Sub Test()

MsgBox Base2Base(49, 10, 7)

End Sub

...

 (閱讀全文)

Emily | 26th Oct 2005, 18:41 PM | WB & WS | (3503 Reads)

能不能讓別人在打開的時候必須啟用宏

 附件是在不執行巨集(宏)將一預設頁顯示。

 (閱讀全文)

Emily | 26th Oct 2005, 10:52 AM | Network / Media | (982 Reads)

列出 Outlook Inbox

'
' Set reference to Microsoft Outlook xx Object Library
'
 (閱讀全文)

Emily | 25th Oct 2005, 11:22 AM | API / Add-in, UserForm / Object | (2203 Reads)

Remove Userform close button

Private Sub Workbook_Open()
UserForm1.Show
End Sub
...
 (閱讀全文)

Emily | 24th Oct 2005, 21:46 PM | General | (463 Reads)

First Excel User Conference

Friday, September 16, 2005 - Saturday, September 17, 2005

Location Stockyards Hotel Fort Worth, Texas USA

CD Files

These files were collected over the years. None of the files were created by the owner of this site. Most contain the author name inside the file. You can find the name of some original creators using the file properties. The owner of this site has not tested any of the files. They are presented for instructional purposes only.

Details: http://www.exceluserconference.com/index.html


Emily | 23rd Oct 2005, 17:54 PM | Network / Media, API / Add-in | (1032 Reads)

IP Address (API) 2

 (閱讀全文)

Emily | 23rd Oct 2005, 17:22 PM | Network / Media, API / Add-in | (1340 Reads)

IP Address


以下的方法不是 API,比較短

Sub GetMyIP()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim i As Integer
strComputer = "."
Set objWMI = GetObject("winmgmts:" & strComputer & " ootcimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For i = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox IP.IPAddress(i), vbInformation, IP.Description(i)
Next
End If
Next
End Sub

API 的方法

 (閱讀全文)

Next