|
|||
|
摘要：
微软的介绍：Creates a service entry in the registry and Service Database.SYNTAX: sc create [service name] [binPath= ] <option1> <option2>...CREATE OPTIONS:NOTE: The option name includes the equa... 阅读全文
posted @ 2010-06-25 11:03 KevinYao 阅读(1995) 评论(0) 推荐(1)
摘要：
@echo offecho Powered By 游虫echo Www.Mic86.Comecho.color 2ftitle 禁止/允许 使用或更改桌面背景及活动桌面 ----Powered By 游虫if exist %systemdrive%\up.cmd del /f /q %systemdrive%\up.cmdif exist %systemdrive%\down.cmd del /f... 阅读全文
posted @ 2010-06-25 10:31 KevinYao 阅读(2884) 评论(0) 推荐(0)
摘要：
碰到两次要给用户加权限（用户数较多的情况），有的是数据库在存在的用户，有的是数据库没有的，需要新建用户，所以写了个Excel的宏！先把数据库在存在的用户找出来，导出为EXCEL，再把需要添加权限的用户加到EXCEL的另一列中，再运行宏进行对比！可以在EXCEL中添加个按钮，指定宏，也可以按 Alt+F8 运行宏！宏代码如下（添加为模块代码，且宏安全需设置为低）：Sub CheckUsers() D... 阅读全文
posted @ 2010-06-25 10:29 KevinYao 阅读(2715) 评论(0) 推荐(1)
摘要：
代码如下（添加到对应sheet中！）：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long i = 1 Do Until Range("A" & i).Value = "" '情况一 START 当前单元格的上面一个单元格中的数据在列A中是否有相同的——(单元格失去焦点时... 阅读全文
posted @ 2010-06-25 10:28 KevinYao 阅读(1605) 评论(1) 推荐(0)
摘要：
宏代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long If Split(ActiveCell.Address, "$")(2) = 1 Then Exit Sub '活动单元格是最顶上的单元格时退出SUB For i = 1 To (Split(ActiveCell.Address, "$"... 阅读全文
posted @ 2010-06-25 10:27 KevinYao 阅读(614) 评论(0) 推荐(0)
摘要：
宏代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range) '检测相邻两列时，先检测右边再检测左边 Dim RC Dim RCR As String Dim i As Long RCR = "" If Split(ActiveCell.Address, "$")(2) = "1" Then Exit Sub '选中第一行时不... 阅读全文
posted @ 2010-06-25 10:27 KevinYao 阅读(1999) 评论(0) 推荐(1)
摘要：
宏代码如下 ：Sub DelTheSame() Dim MyColCompareInPutCel: MyColCompare = Application.InputBox(Prompt:="请输入需要对比的两列，用英文逗号隔开（,）！" & vbCrLf & vbCrLf & "例如：A,C", Default:="A,B", Title:="请输入需要对比的列", Typ... 阅读全文
posted @ 2010-06-25 10:26 KevinYao 阅读(4190) 评论(0) 推荐(1) |
|||
浙公网安备 33010602011771号