ainideren52088-CSDN博客

原创怎么才能让电脑无法玩英雄联盟LOL?

先利用TXT写以下代码另存为VBS格式，代码如下：do set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name=*QQ.exe*") for each i in pipe i.terminate() next w

2017-04-27 01:05:37 3909 2

原创 VBA如何清除excel单元格的内容和格式？

一、用VBA代码清除单元格里的内容Range("a1:d10").ClearContents '清除A1:D10区域的公式/值Range("a1:d10").Clear'全清(值,格式,批注)代码如下：Sub clear()range("a1:d10").clearcontentsend Sub二、用VBA代码清除单元格的格式代码如下：Sub m()cell

2017-09-28 10:33:54 74963

原创 SQL语言中执行语句 DESC与DESCRIBE有什么区别？

DESCRIBE TABLE 用于列出指定表或视图中的所有列。 DESCRIBE INDEX FOR TABLE 用于列出指定表的所有索引，所以 DESCRIBE是用来显示数据结构信息的；而desc是descend ，是用于查询出结果时候对结果进行排序,是降序排序。DESCRIBE 是 SHOW COLUMNS FROM 的缩写。DESCRIBE 提供有关一个表的列信息。col_name 可以

2017-09-26 13:31:27 16545

原创 VBA中如何清空工作表内容

如：要求清空sheet2表，保留表头（表头为A1至H1，表头为连续的）从第二行开始往下的非空单元格的全部内容，因为不知道非空区域大小，要求用VBA代码写1、清空单元格内容:sheets("sheet2").Range("2:65536").ClearContents2、删除单元格的内容:sheets("sheet2").Range("2:65536").Delete

2017-06-28 17:12:58 34825

原创 VBA里有一个sub a()和一个sub b()，怎样同时运行它们？

同时不可能,依次可以,你可以新建一个sub c()call acall bend sub 运行宏c就会依次调用a和b

2017-06-16 15:39:43 13311

转载 VBA入门的基础语句

VBA入门的基础语句　　选择当前活动的工作簿:　　ThisWorkbook.Activate　　如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：　　Windows("Totol.xls").Activate　　选择一个工作表：　　Sheets("Balance").Activate.　　选择

2017-06-02 18:12:53 23822

原创用VBA在EXCEL中实现九九乘法表制作，并加上边框

Sub 九九乘法表制作()Dim a!, b!For a = 1 To 9 For b = 1 To 9 If b > a Then Sheet10.Cells(a, b) = "" Else Sheet10.Cells(a, b) = b & "*" & a & "=" & a * b

2017-05-31 11:12:36 2054

原创 VBA常用指令总结

（1）vba 字符串换行的几种方法VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符 'chr(10) 可以生成换行符 'chr(13) 可以生成回车符 'vbcrlf 换行符和回车符 'vbCr 等同于chr(10) 'vblf 等同于chr(13)

2017-05-13 15:07:31 3939

原创 sublime text3 3103 激活码

sublime text3 3103 激活码 —– BEGIN LICENSE —–Michael BarnesSingle User LicenseEA7E-8213858A353C41 872A0D5C DF9B2950 AFF6F667C458EA6D 8EA3C286 98D1D650 131A97A

2017-05-05 17:26:04 331

Sub 作业题方法一()'' 作业题方法一 Macro''Dim iCol As Integer, iColor As Integer '定义变量Columns(2).Interior.ColorIndex = 2 '将第2列的颜色设置为白色iColor = 1 '设置颜色索引值的初始值For iCol = 2 To 57 If Cells(iCol, 1) >= 0 Then '如果当前单元格的值>=0 Cells(iCol, 2).Interio

2017-05-02 09:42:59 1906

胡迪的博客