香港新浪網 MySinaBlog
Emily | 29th Jan 2006, 11:19 AM | General | (2137 Reads)

Sudoku solver 16 x 16

Italian Site: http://www.terzaghi.it/excel/sudoku.htm

It seems the link above no longer exist (13 Mar 2006) , File Download

參看: Sudoku ; Sudoku solver

Some of the techniques that can be used to solve Sudoku puzzles

 (閱讀全文)

Emily | 25th Jan 2006, 21:55 PM | General | (1646 Reads)

Office 2003 Editions: VBA Language Reference

Date Published: 1/20/2006 9/27/2004 (Microsoft amended date back ?)

Language: English

http://www.microsoft.com/downloads/details.aspx?familyid=2204a62e-4877-4563-8e83-4848dda796e4&displaylang=en

See also "What Others Are Downloading" at the bottom of the above link


Emily | 25th Jan 2006, 11:32 AM | WB & WS | (4060 Reads)

利用 樣式 (Style) + VBA 使儲存格文字閃爍

Excel 的参考:

建立新樣式
選取一個具有想要包括在新樣式 (樣式:式設定特性的組合,例如以集合命名及儲存的字型、字型大小及縮排。當您套用樣式時,會同時套用該樣式中的所有格式設定指示。)中的格式組合的儲存格。(當您對樣式命名時,您可以指定格式。)
請在 [格式] 功能表上按一下 [樣式]。
在 [樣式名稱] 方塊內鍵入新樣式的名稱。
若要定義樣式,並將樣式套用到選定的儲存格上,請按一下 [確定]。
若要定義樣式,可是不要套用它,請按一下 [新增],然後再按一下 [關閉]。

指定樣式的格式
請在 [格式] 功能表上按一下 [樣式]。
在 [樣式名稱] 方塊中鍵入新樣式 (樣式:式設定特性的組合,例如以集合命名及儲存的字型、字型大小及縮排。。當您套用樣式時,會同時套用該樣式中的所有格式設定指示。)的名稱。
若要改變現有樣式的格式,請按一下想要改變的樣式。
按一下 [修改]。
在對話方塊的任何索引標籤中選取您要的格式,然後再按一下 [確定]。
清除任何不想加入樣式中的格式類型之核取方塊。
若要定義樣式,並將樣式套用到選定的儲存格上,請按一下 [確定]。
若要定義樣式,可是不要套用它,請按一下 [新增],然後再按一下 [關閉]。

 (閱讀全文)

Emily | 22nd Jan 2006, 15:14 PM | Office Application | (1356 Reads)

Excel 每次打開時高寬自動設為螢幕大小的 80%

Private Sub Workbook_Open()
     SetXLResolution
End Sub

 (閱讀全文)

Emily | 18th Jan 2006, 18:08 PM | General | (700 Reads)

測試是否自定函數

附件的內置函數是需要自己加上!

檔案下載

 


Emily | 16th Jan 2006, 22:25 PM | General | (710 Reads)

元索在數組內的位置

Option Explicit

Function Positions(ByVal Ar As Variant, ByVal Match As Variant) As String
Dim Pos As Long, Ans As String

' EXCEL > = 2000
Ar = "," & Join(Ar, ",")

Pos = 1
Do
     Pos = InStr(Pos, Ar, Match)
     If Pos = 0 Then Exit Do
     Ans = Ans & "," & Len(Left$(Ar, Pos)) - Len(Replace(Left$(Ar, Pos), ",", ""))
     Pos = Pos + Len(Match)
Loop

If Len(Ans) > 0 Then
     Ans = Mid$(Ans, 2)
     Positions = Ans
Else
     Positions = "No matches !"
End If
End Function

Sub TestPos()
     MsgBox Positions(Array(2, 4, 6, 8, 4, 8, 6), 8)
End Sub

第 4 及 第 6 位

Last update: 16 Jan 2006


Emily | 14th Jan 2006, 00:01 AM | General | (857 Reads)
用 VBA 屏蔽鍵盤

' Macro to turn off keyboard entry.
Sub KeyboardOff()
' Sets CTRL+D to activate KeyboardOn.
     Application.OnKey "^d", "KeyboardOn"
     Application.DataEntryMode = True
End Sub

' Macro to restore keyboard entry.
Sub KeyboardOn()
     Application.DataEntryMode = False
End Sub



請參看 How to Programmatically Disable Keyboard Functionality


Last update: 18 Jan 2006

Emily | 11th Jan 2006, 21:39 PM | API / Add-in | (1486 Reads)
利用 API 當Excel 閑置時登出電腦

' Module
Option Explicit

Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&)
Global Const EWX_LOGOFF = 0
Dim IdleTime As Date
Dim Action&

 (閱讀全文)

Next