福利彩票26选5:办公中常用到的Excel-VBA编程

来源:互联网
更新时间:2018/2/8 23:42:51
责任编辑:李佳
 Excel 
字体:

广东26选5好彩2 www.jqf9.cn

用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的!

使用Dim语句

Dim a as integer '声明a为整型变量

Dim a '声明a为变体变量

Dim a as string '声明a为字符串变量

Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量

声明变量可以是:Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(当前不支持)、 Date、String(只限变长字符串)、String * length(定长字符串)、Object、Variant、用户定义类型或对象类型。

强制声明变量

Option Explicit

说明:该语句必在任何过程之前出现在??橹?。

声明常数

用来代替文字值。

Const

' 常数的默认状态是 Private。

Const My = 456

' 声明 Public 常数。

Public Const MyString = "HELP"

' 声明 Private Integer 常数。

Private Const MyInt As Integer = 5

' 在同一行里声明多个常数。

Const MyStr = "Hello", MyDouble As Double = 3.4567

选择当前单元格所在区域

在EXCEL97中,有一个十分好的功能,他就是把鼠标放置在一个有效数据单元格中,执行该段代码,你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的??橹?。

Sub My_Select

Selection.CurrentRegion.Select

End sub

返回当前单元格中数据删除前后空格后的值

sub my_trim

msgbox Trim(ActiveCell.Value)

end sub

单元格位移

sub my_offset

ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格

ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格

ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格

ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格

end sub

如果上述程序产生错误那是因为单元格不能移动,为了解除上述错误,我们可以往

sub my_offset 之下加一段代码 on error resume next

注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加!

给当前单元格赋值

ActiveCell.Value = "你好?。?!"

给指定单元格赋值

例如:A1单元格内容设为"HELLO"

Range("a1").value="hello"

又如:你现在的工作簿在sheet1上,你要往sheet2的A1单元格中插入"HELLO"

1.

sheets("sheet2").select

range("a1").value="hello"

2.

Sheets("sheet1").Range("a1").Value = "hello"

说明:

1.sheet2被选中,然后在将“HELLO"赋到A1单元格中。

2.sheet2不必被选中,即可“HELLO"赋到sheet2 的A1单元格中。

隐藏工作表

'隐藏SHEET1这张工作表

sheets("sheet1").Visible=False

'显示SHEET1这张工作表

sheets("sheet1").Visible=True

打印预览

有时候我们想把所有的EXCEL中的SHEET都打印预览,请使用该段代码,它将在你现有的工作簿中循环,直到最后一个工作簿结束循环预览。

Dim my As Worksheet

For Each my In Worksheets

my.PrintPreview

Next my

得到当前单元格的地址

msgbox ActiveCell.Address

得到当前日期及时间

msgbox date & chr(13) & time

?;すぷ鞑?p>ActiveSheet.Protect

取消?;すぷ鞑?p>ActiveSheet.Unprotect

给活动工作表改名为 "liu"

ActiveSheet.Name = "liu"

打开一个应用程序

AppActivate (Shell("C:\WINDOWS\CALC.EXE"))

增加一个工作表

Worksheets.Add

删除活动工作表

activesheet.delete

打开一个工作簿文件

Workbooks.Open FileName:="C:\My Documents\Book2.xls"

关闭活动窗口

ActiveWindow.Close

单元格格式

选定单元格左对齐

Selection.HorizontalAlignment = xlLeft

选定单元格居中

Selection.HorizontalAlignment = xlCenter

选定单元格右对齐

Selection.HorizontalAlignment = xlRight

选定单元格为百分号风格

Selection.Style = "Percent"

选定单元格字体为粗体

Selection.Font.Bold = True

选定单元格字体为斜体

Selection.Font.Italic = True

选定单元格字体为宋体20号字

With Selection.Font

.Name = "宋体"

.Size = 20

End With

With 语句

With 对象

.描述

End With

清除单元格

ActiveCell.Clear '删除所有文字、批注、格式

返回选定区域的行数

MsgBox Selection.Rows.Count

返回选定区域的列数

MsgBox Selection.Columns.Count

返回选定区域的地址

Selection.Address

忽略所有的错误

ON ERROR RESUME NEXT

遇错跳转

on error goto err_handle

'中间的其他代码

err_handle: ' 标签

'跳转后的代码

删除一个文件

kill "c:\1.txt"

定制自己的状态栏

Application.StatusBar = "现在时刻: " & Time

恢复自己的状态栏

Application.StatusBar = false

用代码执行一个宏

Application.Run macro:="text"

滚动窗口到a1的位置

ActiveWindow.ScrollRow = 1

ActiveWindow.ScrollColumn = 1

定制系统日期

Dim MyDate, MyDay

MyDate = #12/12/69#

MyDay = Day(MyDate)

返回当天的时间

Dim MyDate, MyYear

MyDate = Date

MyYear = Year(MyDate)

MsgBox MyYear

inputbox<输入框>

XX=InputBox ("Enter number of months to add")

得到一个文件名

Dim kk As String

kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示:请打开一个EXCEL文件:")

msgbox kk

打开zoom对话框

Application.Dialogs(xlDialogZoom).Show

激活字体对话框

Application.Dialogs(xlDialogActiveCellFont).Show

打开另存对话框

Dim kk As String

kk = Application.GetSaveAsFilename("excel (*.xls), *.xls")

Workbooks.Open kk

根据您访问的内容,您可能还对以下内容感兴趣,希望对您有帮助:

求《Excel 2007与VBA编程从入门到精通》《Excel VB...

答:直接发送给你的话,文件比较大,已经给你(迅雷)链接地址,你自己下吧! 如果还需要相关教程的,可以再M我。 Q 27487521

如何在excel里用vba编程制作一个简单的数据库

答:Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info = False;extended properties='Excel 8.0;HDR=YES;IMEX=0';Data Source=“各科成绩表.xls" If conn.State = ...

Excel VBA编程中有哪些常用的英文词汇

答:VBA对英文肯定是有需求的,因为代码输入时都有联想功能,你只需要去选择就行,不一定要求会读会写,但肯定要认得,不认得会困难很多,认得它就需要去记了,所以学它还是有点英语基础好点。

Excel 在vba编程中,有没有无条件进位的函数

答:可以直接调用Excel函数roundup啊 application.worksheetfunction.roundup(A1,0)

Excel 常用函数的VBA代码怎么查看

答:Alt+F11 打开 VBE 编辑器,然后 F2 打开对象浏览器, 常见的 Excel 函数在 WorksheetFunction 这个类??橄拢?如果要查看更具体的帮助,可以选中某个函数,然后 F1 打开帮助文档。

excel vba做什么

答:VBA是VB的一个子集。 尽管存在一些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非???相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO ...

在当前excel中用VBA编程取出另一个xls文件中的内容

答:没有你的工作表,试着闭门造车一下,看看能用不。你说的那个规律我不知道有什么用。 Sub GetContent() Dim Sh As Workbook, Wk2 As Workbook, R As Range, S As String, F As Boolean, L As Long Set Wk1 = Workbooks("新建Microsoft Excel工作...

excel中关于VBA编程用到listbox的问题

答:dim a as string a="listbox1" controls(a).additem a

求解:excel软件vba中,worksheets(1)与worksheets...

答:worksheets(1)表示表格中第一个位置的工作表 worksheets(“sheet1”)指定了工作表名称为"sheet1"

excel中VBA编程 中日对照表

答:你这个需求CAT工具可以做,一个典型的术语操作,既然VBA你也不是不会写的,那就不如了解一个软件简单点,中日对照表做成一个术语库,然后用trados预翻一下你的日文文章

Excel VBA编程

Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim i For i = Range("A65536").End(xlUp).Row To 8 Step -1 If WorksheetFunction.Count(R...

关于在Excel中使用VBA编程时遇到运行错误'13'的问题

用函数将Cells(x2, y).Value转换为数值型的值后再加1就行了. 如果将这个格子设为数值型的值的话可能也行的. 有机会到我的主页上看看,可能有你想要的.

办公软件,excel宏的学习,VBA需要学哪些书比较好!

必学: 一.进阶级,世界表格先生写的: 中文版Excel.2007高级VBA编程宝典 二.入门级 Excel.2007与VBA编程从入门到精通

EXCEL VBA2007的书能适合EXCEL2003操作吗?

办公根本接触不到,建议你先看"中文版Excel 2007高级VBA编程宝典"清华大学出版社,它... 还有就是如果不会从网上寻求解决方法的就一定搞点专讲实例的书看,实际编程中有很多...

我想学习excel+vba编程,但我就是不知道什么书好,大家能不能推...

不太新潮,但是它是一本相当好的入门书。 C语言本来就是比较简单的语言,书比C++少多了…… 比较有名的: 《The C Programming Language》(C语言程序设计,第2版新版...

EXCEL VBA 是什么意思

VBA就是俗称的"宏",它是一种程序语言,可以实现office软件的办公自动化。它的编程几乎和VB一样,方便易懂。

Excel打开提示:此工作簿已丢失其VBA项目,ActiveX控件以及其...

你好!你的电脑出现的这种情况是由于杀毒软件将办公软件Excel系统文件误杀造成的。... Data\ Microsoft\Excel\XSTART\这个EXCEL加载文件夹中多出一...

Excel 2003办公应用与Excel2003 VBA办公应用区别

excel讲的是通常的操作,适用于初学者。 excelVBA讲的是为excel编程方面的,适用于高级用户。 如果VBA没接触过的话,还是买36那本吧

excel 中的VBA怎样连接OUTLOOK

VBA,其中Excel和Access的VBA最为成熟。 在Excel中VBA程序即可以存放有.xls中,也... 毕竟经常用Excel的用户一般是办公人员,不可能是专业编程人员),然后结合宏记录器学习...

关于excel vba 采购管理系统的书籍或资料?

《完全手册:Excel VBA办公应用开发详解》(伍云辉)完美书签 高清晰版 《Excel VBA实战技巧精粹》 一定要EXCELHOME出版的. (分为2003,2007版)


广东26选5好彩2 www.jqf9.cn true //www.jqf9.cn/soft/18/188268.html report 19404 办公中常用到的Excel-VBA编程,用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的!使用Dim语句Dimaasinteger声明a为整型变量Dima声明a为变体变量Dimaasstring声明a为字符串变量Dimaascurrency,bascurre...
网友评论
最新添加资讯
    24小时热门资讯
    娱乐时尚
      科技资讯
      历史文化
        真视界
        旅游美食
        精彩图文
        我爱我车
        母婴健康
        关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
        Copyright © 2004-2018 www.jqf9.cn All Rights Reserved. 学网 版权所有
        京ICP备10044368号-1 京公网安备11010802011102号
        教育考试: 学历财经建筑 医药公考资格外语电脑作文招聘中小学留学 文档 移民 文库专栏23问答中心问答图书馆知识IT编程数码信息解决方案信息中心IT科技topzttophottopsctopnew问答新闻中心软件教室设计大全网络相关英语学习开发编程考试中心参考范文管理文库营销中心站长之家IT信息中心商学院数码大全硬件DIY企业服务网吧在线百科硬件知识手机平板汽车游戏家电精彩摄影现代家居IT女人经验健康养生猎奇创业攻略教育学习历史时尚潮流广东26选5好彩2涨知识
      • 印度亮出底牌武器威慑中国,解放军应对手段相当硬气:中国不怕 2018-09-10
      • 羌族“独腿女孩”尔玛阿依有望配假肢登舞台 2018-09-10
      • 价值-热门标签-华商生活 2018-08-17
      • 乐智起航 赢在未来 艾美卡特兰乐高主题活动圆满落幕 2018-08-17
      • 565| 282| 926| 927| 885| 363| 19| 969| 914| 954|