香港新浪網 MySinaBlog
Emily | 22nd Jul 2008, 12:54 PM | 雜談 | (1468 Reads)

 chijanzen 的雜貨鋪

Chijanzen 的個人網站停了頗長的時間,偶然遇上,舊雨新知請訪問一下

停了2年,從新出發的網站

本人因為工作停了2年的網誌,終於偷偷的複站了
選上了 Wordpress 重新出發,喜歡我的網誌的請加連結
路過的也感謝你參觀

http://chijanzen.net/wp/


Emily | 19th Jul 2008, 11:50 AM | Excel 2007 | (955 Reads)

"InsertPic" Excel 2007問題

2003運行完全沒問題的 , 但2007就運行不能了

Question

 (閱讀全文)

Emily | 1st Jul 2008, 12:37 PM | Excel 2007 | (2874 Reads)

Use VBA SaveAs in Excel 2007

 Information

If you run the code in Excel 2007 it will look at the FileFormat of the parent workbook and save the new file in that format.
Only if the parent workbook is an xlsm file and if there is no code in the new workbook it will save the new file as xlsx,
If the parent workbook is not an xlsx, xlsm, or xls then it will be saved as xlsb.

This are the main formats in Excel 2007 :

51 = xlOpenXMLWorkbook (without macro's in 2007, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007 with or without macro’s, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007, xls)

More details and examples: http://www.rondebruin.nl/saveas.htm

 

 (閱讀全文)

Emily | 28th Jun 2008, 00:20 AM | Excel 2007 | (1353 Reads)

Application.filesearch Replacement For Office 2007

Please read this post:

http://www.ozgrid.com/forum/showthread.php?t=71409

 


Emily | 1st May 2008, 10:41 AM | Excellent Sites | (1939 Reads)

關於清空Office的剪切板

wangminbai 一位令我對 Excel 再產生興趣的小伙子

A remarkable topic to clear Office Clipboard written in Chinese Simplified.  

 (閱讀全文)

Emily | 1st Apr 2008, 16:45 PM | 雜談 | (757 Reads)

More than 100000 Visitors

 Thanks

10000 Visitors


Emily | 3rd Feb 2008, 12:17 PM | API / Add-in | (2000 Reads)

判斷 Excel 單格是否處於編輯狀態

以下代碼就是當處於編輯狀態時在Excel的狀態欄上顯示 正處於編輯狀態

The code will display "Excel in edit mode ......" in Status bar if Excel is in edit mode

 (閱讀全文)

Emily | 3rd Jan 2008, 13:34 PM | WB & WS | (845 Reads)

顯示自定檢視模式名稱 CurrentViews

Function CurrentView(Optional DummyArg As Variant) As String
Dim cbo As CommandBarComboBox
  
On Error Resume Next
Set cbo = Application.CommandBars.FindControl(ID:=950)

On Error GoTo 0
If cbo Is Nothing Then
    With Application.CommandBars.Add(Temporary:=True)
        Set cbo = .Controls.Add(ID:=950)
        .Enabled = False
    End With
End If

CurrentView = cbo.Text

End Function

Sub Test()
    'Application.DisplayStatusBar = True
    'Application.StatusBar = CurrentView
    MsgBox CurrentView
End Sub


Previous Next