To set every page fit to width of Multipage 2006-12-06

Private Sub UserForm_Activate() MultiPage1.TabFixedWidth = MultiPage1.Width \ MultiPage1.Pages.Count ' - 2 End Sub

(408)次阅读|(0)个评论

How to Register or Unregister an ActiveX DLL 2006-12-06

Private Sub Workbook_Open()     Shell "REGSVR32 /s " & ThisWorkbook.Path & "\xxxx.dll" End Sub   Private Sub Workbook_B ...

(534)次阅读|(0)个评论

To Show How Many records are left after Autofilter 2006-12-06

Sub Showrecordcount() .AutoFilter Field:=1, Criteria1:= ' autofilter column A with MsgBox "There are  " & .SpecialCells(xlCellTypeVisible ...

(432)次阅读|(0)个评论

判断一个字串中是否有汉字 2006-11-28

Function 有汉字(ByVal s As String) As Boolean With CreateObject("VBSCRIPT.REGEXP")     .Pattern = " "     有汉字 = .tes ...

(698)次阅读|(0)个评论

The Greatest 12 Software Ever Written 2006-11-07

The Greatest 12 Software Ever Written From informationWeek   12. The Morris worm 11. Google search rank 10. Apollo guidance syste ...

(440)次阅读|(0)个评论

To remove all characters between two brackets 2006-11-05

How to remove all characters  between two brackets?   Such as "12345 (rtetnj) dsfd (fddsgd) dsf "----> "12345  dsfd& ...

(742)次阅读|(0)个评论

查看更多