Range(Rows(3), Rows(5)).Insert shift:=xlDown1）在当前单元格处插入一行 ； 可以增加循环语句来实现插入多行Range("A10").SelectSelection.EntireRow.Insert , CopyOrigin:=xlFormatFromLe....
分类：
编程语言 时间：
2014-11-26 14:11:20
阅读次数：
512
将以下代码保存到.xlam或.xla(Excel97-2003)文件。
在ThisWorkBook对象中，添加Workbook_Open事件，调用启动菜单过程。
Private Sub Workbook_Open()
Call MenuSetup(True)
End Sub
'-----------------------------------------------
'在Excel...
分类：
编程语言 时间：
2014-11-18 10:22:03
阅读次数：
143
Sub 沪深股市关注度()
On Error Resume Next
Cells.Clear
Columns("A:A").NumberFormatLocal = "@"
Cells(1, 1) = "代码"
Cells(1, 2) = "名称"
Cells(1, 3) = "关注该股人数（人）"
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://d...
分类：
其他好文 时间：
2014-10-07 13:34:53
阅读次数：
116
Excel VBA工程的工作表类及对象一、新建工作簿时的工作表类与对象：1.类与对象的创建：2.类与对象的名称：二、修改CodeName:1.CodeName在运行期间是只读的，即运行期间不能用代码改变工作表的这个属性，只能读取这个属性，否则会弹出错误对话框如下。2.同步修改：[1]CodeName...
分类：
其他好文 时间：
2014-09-26 18:38:20
阅读次数：
241
一. 在ThisWorkbook中1 Private Sub Workbook_Open()2 '%对应alt键 宏不能加()3 Application.OnKey "%q", "Test"4 End Sub利用open事件触发二. 在Sub中Sub auto_open() ...
分类：
其他好文 时间：
2014-08-27 09:21:57
阅读次数：
208
作者：iamlasong
单位对新上岗的员工进行培训，培训结束后，需要进行考试，需要一个简单的考试系统，让新员工既可以自己练习，也可以进行测试，为此，我们做了一个题库，员工可以自己生成一套考题，测试自己的掌握程度，也可以集中起来进行考试，测试培训效果。
系统数据库很简单，有两个表，一个是题库，一个是成绩。
create table EMSAPP_TEST_QUESTION
(
typ...
分类：
其他好文 时间：
2014-08-12 10:21:46
阅读次数：
433
最近需要帮忙用EXCEL记一些账目，为了提高效率，稍微学习下了VBA进行编程，笔记之。在EXCEL中按alt+F11就能跳到VB的开发界面变量定义:Dim变量as类型‘定义为局部变量，如DimxyzasintegerPrivate变量as类型‘定义为私有变量，如PrivatexyzasbytePublic变量as类型‘定义为公有变量，..
分类：
其他好文 时间：
2014-07-08 08:07:07
阅读次数：
313
1.Excel VBA点击单元格时执行事件！Private Sub
Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 And
Target.Count = 1 ThenMsgBox "你选中了:" & Targe...
分类：
其他好文 时间：
2014-06-04 17:57:29
阅读次数：
248
今天第一次尝试使用Excel宏。
要实现的功能是：1个xls文件中，有2个工作表。判断工作表是否筛选，如果筛选清除筛选。然后将一个工作表中的数据，粘贴到另一个工作表下方。
尝试了录制宏，然后个修改其中的代码。整个过程中，遇到了一些问题，在网上找，并试验，解决了部分问题。1）判断工作表是否处于筛选模....
分类：
其他好文 时间：
2014-05-15 07:54:07
阅读次数：
273
