[分享]一些自定义函数

andysky · 发表于 2006-12-29 07:54

Function 工作表(n) 'andysky注：取得工作表名，输入参数N则取第N个表
If n > Sheets.Count Then
MsgBox "你输入的数字已大于工作表数", vbDefaultButton1 + 64, "andysky提示"
工作表 = "超出范围"
Else
工作表 = Sheets(n).Name
End If

Application.Volatile
End Function

[此贴子已经被作者于2007-1-10 7:54:36编辑过]

andysky · 发表于 2006-12-29 07:55

两个函数,一个重启一个关机
Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" _
(ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long
Private Const SystemChangeRestart = 4
Public Sub 重启电脑()
SHRestartSystemMB 0, vbNullString, SystemChangeRestart
End Sub

Public Function 重启()
重启电脑
End Function
****************************************
Function 关机()'''10秒钟后关机,可以将时间设短一点
Shell "shutdown -s -t 10"
End Function

andysky · 发表于 2006-12-29 08:05

Function 锁屏() '適用於WIN NT和2000，XP，2003，需輸入登錄密碼才能進入屏幕
AppActivate (Shell("c:\windows\system32\rundll32.exe user32.dll,LockWorkStation"))
End Function
请在工作表中输入 =锁屏() 测试效果

andysky · 发表于 2006-12-29 08:16

Function 合并(sky As Range, N As String)
Dim j As Integer
j = Application.WorksheetFunction.CountA(sky)
For Each andy In sky
If andy <> "" Then
k = k + 1
If k > j Then Exit Function
If k = j Then
合并 = 合并 & andy
Else
合并 = 合并 & andy & N
End If
End If
Next
End Function

sam_2007 · 发表于 2006-12-29 08:27

神人

zz5151353 · 发表于 2006-12-29 10:42

多謝 andysky 兄無私提供寶貴的法寶
對小弟非常有用

萬二分感謝 !!!

[em23][em23][em24][em24][em26][em26][em27][em27]

andysky · 发表于 2006-12-29 12:48

Function 退出()
Application.Quit
End Function

andysky · 发表于 2006-12-29 13:06

3FFSqKrO.rar (13.19 KB, 下载次数: 68)

andysky · 发表于 2006-12-30 15:12

ecXjIm1X.rar (5.76 KB, 下载次数: 31)

启动幕保的自定义函数
Const SPI_GETSCREENSAVETIMEOUT = 14
Const SPI_SETSCREENSAVETIMEOUT = 15
Const SPI_GETSCREENSAVEACTIVE = 16
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPIF_SENDWININICHANGE = &H2
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal _
        fuWinIni As Long) As Long

Function 屏保(时间 As Long)
SystemParametersInfo SPI_SETSCREENSAVETIMEOUT, 时间, 0&, SPIF_SENDWININICHANGE
End Function
使用方法:

只要任何单元格输入 =屏保(1)即可启动屏保,其中1表示时间

luo159 · 发表于 2007-1-10 08:03

妙啊

		自动登录	找回密码
密码			免费注册