自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(25)
  • 收藏
  • 关注

转载 Excle数组用法

现在有如下需求:需要将行与列进行乘积,并将结果录入到对应单元格【需求展示】 面对上面这样的表格,你会怎么处理呢?一个个乘积后录入吗?还是使用公式一行行操作?【解决办法】这种问题,使用数组是最好解决的,具体操作如下:1.选中区域2.输入公式3.同时按下Ctrl+shift+Enter.【结果展示】实例下载地址:点击下载...

2016-12-28 15:45:00 58

转载 【VBA编程】15.WorkSheet对象常用属性

【Cells属性】Cells属性用于返回一个Range对象,表示工作表中所有的单元格,包括已经使用的单元格和未使用的单元格。【代码区域】Sub 使用Cells属性() '声明变量 Dim wk As Workbook Dim wt As Worksheet '赋值 Set wk = Application.Workbook...

2016-12-26 16:54:00 108

转载 【VBA编程】14.操作工作簿对象

【访问工作簿】对已经打开的工作簿,可以通过使用索引号来访问工作簿,也可以通过名称来访问工作簿【代码区域】Sub 访问工作簿() Dim counter As Integer counter = Workbooks.Count Debug.Print Debug.Print "当前打开工作簿的数目为:" & CStr(coun...

2016-12-23 18:22:00 94

转载 【VBA编程】13.Workbook对象的事件

Workbook事件用于响应对Workbook对象所进行的操作。【BeforeClose事件】BforeClose事件用于响应窗口关闭的操作在工程资源器中,双击“ThisWorkbook”对象,弹出"ThisWorkbook"窗口,并且选择Workbook,BeforeClose并在窗口中写下如下代码:【代码区域】Private Sub Workbook_Be...

2016-12-23 15:50:00 64

转载 【VBA编程】12.Workbook对象常用属性

【ActiveSheet属性】ActiveSheet属性用于返回一个对象,表示活动工作簿中或指定的窗口或工作簿中的活动工作表【Colors】Colors属性是一个Variant类型的可读写属性,用于返回或设置工作簿调色板中的颜色【EnableAutoRecover属性】EnableAutoRecover属性是一个可读写的Boolean型属性,根据规定的时间间隔保存全部...

2016-12-23 15:01:00 110

转载 【VBA编程】11.Application对象

Application对象常用属性【ActiveCell属性】ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格。如果窗口没显示工作表,则此属性无效。【代码区域】Sub 激活单元格() Worksheets("sheet1").Activate '激活当前单元格 With ActiveCell .Value = ...

2016-12-22 17:40:00 60

转载 【VBA编程】10.自定义集合

自定义集合类型,类似于变量声明,只是要将Dim关键字和New collection关键字搭配起来使用,其语法描述如下:其中集合名的命名方式同于标准变量的命名Dim 集合名 As New collection对于已经定义的集合对象,可以使用集合的Add方法向集合中添加元素,语法如下:集合名.add item[,key] [,before] [,after]item:...

2016-12-22 15:06:00 72

转载 【VBA编程】09.使用Excle集合对象

使用Workbooks工作簿集合、工作簿对象、工作表集合、工作表对象,并且观察使用Add方法前后工作簿与工作表数目的变化【代码区域】Sub 测试集合工作簿() Dim wbs As Workbooks '保存工作簿集合 Dim wb As Workbook '保存工作簿对象 Dim ws As Worksheet '保存工作表对象 ...

2016-12-22 10:55:00 42

转载 【VBA编程】08.数组

【数组简介】数组其实就是一组相同类型的数据的有序集合,其形象表示就像线性表。在存储数据的时候,首先在内存中分配一个连续的存储空间,将各个元素按顺序存放在连续的存储单元格中。【定义静态数组】Dim 数据组(数据元素的上下界,...) As 数据类型Dim a(10) As Integer '其数组名为a 其下标从0开始,下界为10 期中可访问的元素为a(0)到a(10)Dim b(1 To...

2016-12-21 18:12:00 43

转载 【VBA编程】07.循环结构语句

【FOR...NEXT语句】For counter = start To End [Step step][statements][Exit For][statements]Next [counter]【代码区域】计算1到1000的和Private Sub qiuhe() Dim i As Integer '用于存储列各项 Dim sum As ...

2016-12-21 11:59:00 50

转载 【VBA编程】06.控制语句

【IF...THEN...语句】If condition Then[statements1]else[statements2]end ifcondition 为一个逻辑表达式,表示做选择时需要判别的条件,其结果为布尔类型,当其值为真时,执行statements1语句,为假是则执行ELSE中statements2语句【代码区域】Private Sub 测...

2016-12-21 11:11:00 44

转载 【VB编程】05.MsgBox与InputBox函数

在VBA程序中,数据的输入输出是通过函数实现的,其实现的方式是通过对话框的形式表示出来的。例如MsgBox,Inputbox等,不要误认为是输入输出语句的关键字,其实仅仅是一个普通函数而已。【MsgBox函数】【Tips】MsgBox是一个函数,那么必定存再返回值,MsgBox的返回值是由用户所选择的按钮决定的,在设计程序时可依据MsgBox的返回值做不同的处理,此时需要保存...

2016-12-21 10:05:00 183

转载 【VBA编程】04.使用自定义数据类型

使用自定义数据类型存储输入数据,并通过弹出窗口展示【代码区域】Type lianxiren 'name As StringSex As StringEnd TypeSub aa() Dim record As lianxiren '声明一个lianxiren类型的变量 record.name = InputBox("请输入名称", "记录联系人信息")...

2016-12-20 18:13:00 74

转载 【VBA编程】03.判断输入年份是否是闰年

通过输入月份,判断是否是闰年【代码区域】Sub 判断闰年() Dim year As Integer '用于保存输入的年份 year = CInt(InputBox("请输入需要判断的年份:", "判断闰年")) '输入年份 If year Mod 4 = 0 And year Mod 100 <> 0 Then MsgBox "" & ...

2016-12-20 17:32:00 183

转载 【VBA编程】02.调试VBA程序

初次编写程序并不一定能成功的运行,可能其中还存在逻辑上或语法上的错误,此时就需要逐步调试,排查错误,一般情况下,编写程序的工作讲究的是三分编程,七分调试。【代码区域】Sub Second()Dim Context As Integer '声明一个String类型变量context,用于保存对话框将要显示的内容Dim title As String '声明一个Strin...

2016-12-20 16:33:00 64

转载 【VBA编程】01.第一个VBA程序Hello world

【程序1】所有程序语言的开始都源于Hello world,那么我们也使用Hello world进行第一个VBA编程新建Excle文件-----文件-------选项-----自定义功能区域----开发工具(打钩) 如下图:此时Excle界面就出现开发工具选项点击Visual Basic后出现如下界面:在该窗口中的“工程”子窗口中的Sheet1子节点上,单...

2016-12-20 14:45:00 132

转载 VBA验证工作表是否存在

使用VBA验证工作表是否存在=============================================================代码区域=============================================================Sub 判断工作表是否存在()Dim wk As WorkbookDim wt A...

2016-12-20 11:39:00 109

转载 VBA对指定单元格填充颜色并且赋值

使用VBA对指定的单元格赋值并填充颜色======================================================代码区域======================================================Sub row应用() For Each rw In Rows("1:13") If rw.Row ...

2016-12-20 09:19:00 242

转载 Excle中range的一些用法

以下是一些range的简单用法Sub aa()'-=============================================== '给B列设置填充颜色为黄色 Range("B:B").Select With Selection.Interior .Color = 65535 End With '给A1录入"我是孙悟空" Range(...

2016-12-19 17:49:00 98

转载 Debug.print的用法

使用Debug.print可以用来更好的调试VBA程序通过ALT+F11代开VBA编程窗口)插入模块,接着在窗口中输入以下代码,按F5执行Sub Excute() Debug.Print 50 * 20 + 1End Sub结果如下:实例二:Sub 执行() Debug.Print Range("a:a").Count '计...

2016-12-19 17:11:00 998

转载 EXCLE图形插入实例

根据所给名称找到相应图片,并进行导入。代码如下:Sub Import_picture()For Each shap In Sheet1.Shapes '在sheet1中的图片对象进行循环 If shap.Type <> 8 Then shap.Delete '在插入图片之前删除以前插入的图片,但不删除命令按钮Next shapFor Eac...

2016-12-19 10:54:00 69

转载 DB2建立不记录日志的表

CREATE TABLE TB_6(ID INT, NAME VARCHAR(100));INSERT INTO TB_6 VALUES(1,'JACK');INSERT INTO TB_6 VALUES(1,'Timo');-----建立无日日志表--方法一:(表存在)CREATE TABLE TB_7 LIKE TB_6 NOT LOGGED INITIALL...

2016-12-15 17:26:00 161

转载 Excle快速输入√与×

如何在EXCLE中快速输入√与×呢很简单的一个小技巧,只需要在EXCLE单元格中输入P(O)然后将其字体设置为Wingdings 2,接着就出现符号了不信你可以试试的哦。转载于:https://www.cnblogs.com/OliverQin/p/6179348.html...

2016-12-14 15:06:00 51

转载 DB2测试存储过程的原子性

存储过程在运行过程中需要对其做异常处理、原子性等测试下面是一个原子性测试案例=====================================代码区域=====================================建表SQL:DROP TABLE DB2ADMIN.TB_1;CREATE TABLE DB2ADMIN.TB_1 ...

2016-12-08 11:08:00 19

转载 Linux中printf格式化输出

printf使用文本或者由空格分隔的参数,我们可以在printf中使用格式化字符串。printf不会写像echo那样自动添加换行符,必须手动添加=========================================代码区域=========================================#!/bin/bash#文件名:printf...

2016-12-06 10:07:00 84

空空如也

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人 TA的粉丝

提示
确定要删除当前文章?
取消 删除