vba菜鸟教程 vba初学教程

excel VBA 如何在数组中每个数值都乘以20？

UrlDecode = js.Eval("decodeURIComponent('" & strText & "');") '包含://

两个例子，为了说的清楚，分别说明下，方法肯定不只这两种，请参考

vba菜鸟教程 vba初学教程

vba菜鸟教程 vba初学教程

vba菜鸟教程 vba初学教程

MsgBox Application.CountIf(Range("b:b"), ">4")

Sub ()

ActiveSheet.UnprotectPassword:=641112’撤消工作表保护并取消密码

'数组（arr1）里面 每个值都乘以20.然后再减去100

Dim arr, x

arr = Range("a1:a10")

For x = 1 To UBound(arr)

Dim arr1(1 To 10, 1 To 1)

k = k + 1

arr1(k, 1) = arr(x, 1) 20 - 100

Stop

End Sub Sub afd() '查数组的值大于4的个数

Dim arr, x, k

arr = Split("12345", "")

For x = 1 To UBound(arr)

Cells(x, 2) = arr(x)

vba 定义多个range

总之，随着终用户变得更加成熟以及对自动化软件的更加了解，他们将通过编写程序的方式来针对其过程及系统进行更多的定制，以便能够满足其需求。自动化软件将不断为用户提供这样的安全可靠的技术手段。

看来你对中括号的使用不熟悉，你的rg1、rg2赋值是有问题的。

ExceUserForm1.Image1.Picture = LoadPicture(frame)lVBA用途：

一、rg2要和rg1一样，使用SET，因为是对象；

二、rg1、rg2都存在[]使用不安全的问题，如果执行程序的时候当前工作表是【今日订单】，那么rg1可以正确赋值，同样的道理，如果当前表是【今日售价】则rg2可以正确赋值，否则两个赋值都会出错。因为[b65536]表示当前工作表的B65536单元格，然后.End...获得的是当前工作表的B列一个非空单元格位置，除非所有表的行数相同，否则这里会出问题。

建议少使用中括号，尽量使用Range和Cells对象，你的代码用Cells这样写：

Set rg1 = Worksheets("今日订单").Range("a2:b" & Worksheets("今日订单").Cells(65536,2).End(xlUp).Row)

Set rg2 = Worksheets("今日售价").Range("a2:b" & Worksheets("今日售价").Cells(b65536,2).End(xlUp).Row)

如何通过编写VBA，使Excel文件内容无法被！急！

For Each Pic In Shapes

楼主不如保护4、自定义EXCEL，使其成为开发平台工作表，直接连选定都不行。

工具——》保护——》保护工作表，然后设置好密码，权限干脆什么都不给，一个都不勾。

只要文件可以打开，没Sub 显示（）有不可的

不一定这样要这样作的，你在保护里有你要的选项的。

如何在VBA中导入excel中的图表

先做一个窗体userform1，在窗体上放一个image控件，大小自己调整

在图表所在表格键入

Private Sub Worksheet_ChanNext xge(ByVal Target As Range)

Application.ScreenUpdating = False

Calculate

Dim pic As Chart, frame As String

Set pic = ThisWorkbook.Worksheets("sheet1").ChartObjects("Chart 1").Chart

frame = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"

pic.ExporReDim Brr(1 To UBound(Arr) - 1, 1 To 26)t Filename:=frame, filtername:="gif"

Application.ScreenUpdating = True

再在表格上做一个V1、使重复的任务自动化BA控件让UserForm1显示就可以了

图表二类似 自己改一下吧

excel中VBA有哪些作用？哪里有教程啊？

UserForm1.show

分类: 电脑/网络 >> 软件

解析:

阐述了当前自动化软件的技术特点和发展趋势，并介绍了在iFIX自动化软件中使用VBA访问历史和实时数据的机制。通过一段使用VBAIf cp <> "C" Then语言编写的程序，实现向Excel输出历史数据，生成历史报表的实例，说明了VBA语言在自动化软件中的应用。

1、自动化软件的发展趋势

自动化软件主要是指那些为用户提供人机作界面(HMI)的开发和运行环境的软件，有些软件还能够提供回路控制功能，用户可以实现基于PC的控制方案。自动化软件应当具备如下的主要功能及特征：工业过程的动态可视化；数据采集和管理；过程和报警；报表和作记录功能；系统安全等级化管理；为其他企业级程序提供实时和历史数据；简单的回路调节；批量控制等。

近年来，随着计算机和网络技术的发展与应用，自动化软件的发展也呈现如下的发展趋势。

1.1 开放和标准化

1.2 网络化

随着Inter／Intra的普及，自动化软件又集成了基于TCP／IP协议的网络功能，使其成为协作生产制造过程中的核心系统，实现了企业网络环境下实时数据的管理、实时流程查看、实时趋势浏览、报警记录与查看、报表数据存储、历史趋势存储与查看、生产过程报表生成、生产统计报表生成等功能，从而实现过程控制系统与信息系统的网络集成。用户可以通过IE浏览器登录自动化软件的Web ，实现远程浏览生产过程。

1.3 管理控制一体化

生产管理信息系统是大型企业重点建设的项目，随着大型数据库技术的日益成熟，自动化软件成为全厂范围内信息收集和集成的工具。在未来企业的信息化进程中，自动化软件将成为硬件设备与生产管理信息系统的桥梁。因为自动化软件能为生产管理信息系统提供生产过程的实时和历史数据，而生产管理信息系统叉对生产过程有着指导作用。

2、VBA在自动化软件中的应用

下面，以iFIX软件为例，通过VBA编写的脚本程序，实现向Excel输出历史数据的实例来具体说明VBA在自动化软件中的应用。

2.1 iFIX软件

2.2 iFIX软件中VBA的应用实例

b) ADO Data控件使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。数据提供者可以是任何符合ODBC规范的数据源。

根据用户要求定义所要查询的时3、VBA应用的注意事项与展望间段和变量名称

Dim MyDate，StartTime，EndTime As String Dim Tagl，Tag2 As String

Tagl＝“TIC101．F_CV”

Tag2＝“TIC102．F_CV”

MyDate＝Format(Now()，“yyyy-mm—dd”)

StartTime＝MyDate&“ ”& “0:00:00”

EndTime＝MyDate&“ ”& “23:OO:OO”

使用ADO对象来访问ODBC数据库，用SQL语盲查询历史数据

strQuerySamp＝“Select Datetime，Value，Tag From Fix Where Mode＝‘Sample’and (TAG＝‘ “＆ Tagl & ”‘or TAG=’”& Tag2 ) and Interval＝‘ 01:00:00’and (Datetime) ＞＝{ts‘“& StartTime &”’ )and Datetime＜＝{ts‘“ EndTime & ”’})”

Dim rsADO As Recordset

Set ADO=New ADODB．Connection

ADO．ConnectionString＝“ DSN= FIX Dynamics Historical Data；UID＝sa；PWD= ；”

AD0．Open “FIX Dynamics Historical Data”，“sa”，“”

Set rsADO— New ADODB．Recordset

rsADO．Open strQuerySamp，ADO，adOpenForwardOnly，adLockBatchOptimistic

调用Excel，将历史数据写入打开的Excel报表文件

Dim 0utReport File，InReportFile As String

Set Intyexcel= New Excel.Application

InReportFile-”C：＼data＼HisReport“

Intyexce1．Workbooks．Open InReportFile &“．XLS”

Intyexce1．Sheets(“Sheet2”)．Select

While rsADO．EOF < > True

With Intyexce1．Worksheets(2)

For C＝0 To Items

If rsADO(c)= “ ”Then ．Cells(r，C + 1)．Value= rsADO(c)

Next C

rsADO．M oveNex

End With

关闭Excel，保存报表文件

OutReportFile=InRep0rtFile &“_”& MyDate

Intyexce1． ActiveW orkbook． SeAs OutReportFile

Intyexce1．Quit

Set Intyexcel=Nothing

Set ADO==Nothing

集成了VBA编程语言的自动化软件，变成了标准化的、开放的软件开发平台，这使得自动化软件本身具有了无限的开放性和可扩展性。但同时也带来一些问题。首先，开发人员要确保VBA脚本程序的可靠和精简。VBA程序要经过严格和全面的测试，并要编写出错处理程序，保证生产过程控制的万无一失。其次，目前VBA程序还不能编写多线程程序，开发人员要选择恰当的触发方式，避免发生冲突。

参考文献

[1] 刘恩涛，赵耀峰．Visual Basic6．0编程技术与实例分析，：水利水电出版杜，1999．455～456，472～478，479～482

[2] 刘炳文，张绅．Visual Basic程序设计——数据库篇．：邮电出版社。1999．196～198，224～232，248～251

excel VBA引用文件夹中的

Brr(i - 1, 1) = Arr(i, 1): Brr(i - 1, 2) = cp

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "E3" Then

Dim Rng As Range, Pic As Shape

On Error r； r+ 1GOTO AA

Set Rng = Range("J4") '照片单元格

Path = ThisWorkbook.PApplication.WindowState=xlMaximizedath & "照片" '路径

ActiveSheet.Shapes.AddPicture(Path & Range("E3") & ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = Range("E3") & "照片"

EXIT SUB

AA:

ActiveSheet.Shapes.AddPicture(Path & Range("E3") & ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = Range("E3") & "照片"'改成你指定的照片

End If

菜鸟提问关于vba的single和double的用法

If Pic.Name Like "照片" Then Pic.Delete

“难道大于3.402823E38或4.94065645841247E-324的数值就不能用了吗？”是的对于单iFIX软件是GE自动化软件产品家族中的一个基于Windows的HMI／SCADA组件。iFIX是基于开放的和组件技术的产品，专为在工厂级和商业系统之间提供易于集成和协同工作的设计环境。iFIX中还加入了OPC，VBA，ActiveX，DDE，ODBC等工业标准化技术，可以提供一个强大的开发环境，实现用户的特殊需求。精度数据不能大于3.402823E38，对于双精度数据不能小于4.94065645841247E-324，大于1.79760313486232打开方式：E308，对于一般运算这些范围应该是没有任何问题的。

基本工资、交通补贴采用单精度数据就可以，当然采用货型(Currency)数据也没有问题，可以存储近1亿亿元。

你可能有点误解，存储和小存储是一个范围，对于单精度可以存储任何小数形式的数字数据，例如 0.5 也是单精度数据，1254.12345678 也是单精度数据，当然在单精度数据中存储整数也没有问题，双精度也是一个道理，货数据也一样，但货数据的小数后只容许4位。

菜鸟在word 的VBA编辑中，显示表格中的文本文件为何会自动多出空格和换行。

Sheet2.Activate

中间加个trim 去除首尾空格看看

WNext x end

selcetion.text = "D:用户目录我的“ & trim(activedocument.tables(1).cell(1,1).range.text) & ".jpg"

win10系统下excelvba文件有什么作用|Win10系统excelvba文件如何打开

近年来，许多自动化软件厂商把通用的标准化编程语言，如微软的VBA(Visual Basic for Applications)集成在自己软件的开发环境中。VBA与VB(Visual Basic)极为相似，只是不能编译成可执行文件，这就为众多熟悉VB的用户提供了一个编程环境。用户在VBA环境中编写程序，可以使用DDE，ActiveX控件，ODBC，COM／DCOM 等技术使得自动化软件演变成开放的软件平台，在软件功能不能满足用户特殊需要时，用户可以根据自己的需要进行二次开发。

在使用windows10系统电脑过程中，遇到了一个陌生的excelvba文件。那么，excelvba文件有什么作用？我们又该如何使用？接下来，小编就为大家详细介绍excelvba实例教程包括ExcelVBA的打开方法及其用途介绍！

Ifw.NameThisWorkbook.NameThen

：

注：编辑栏在侧会有提示，一定要启用，否则无法编辑和使用VBA！

模拟人工作，完成一些挺繁琐的事情，如：从网上到Word的文章，格式很乱，你就可以自己写一个宏，来自动完成整理工作，而不是人工一点一点地改，那样就太麻烦了。这个时候我们就可以使用ExcelVBA进行优化。

2、自定义EXCEL工具栏，菜单和界面

3、简化模板的使用

5、创建报表

6、对数据进行复杂的作和分析

案例教程：

1、本示例为设置密码窗口(1)

IfApplication.InputBox(“请输入密码:”)=1234Then

[A1]=1密码正确时执行

Else:MsgBox“密码错误，即将退出！”此行与第2行共同设置密码

EndIf

2、本示例为设置密码窗口(1)

X=MsgBox(“是否真的要结帐?”,vbYesNo)

IfX=MsgBox "OK"vbYesThen

Close

3、本示例为设置工作表密码

ActiveSheet.ProtectPassword:=641112‘保护工作表并设置密码

4、本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。

ForEachwInWorkbooks

w.CloseSeChanges:=True

EndIf

Nextw

每次打开工作簿时，本示例都化MicrosoftExcel窗口。

5、本示例显示活动工作表的名称。

6、本示例保存当前活动工作簿的副本。

ActiveWorkbook.SeCopyAsC:/TEMP/XXXX.XLS

看了上述小编的介绍，相信大家对excelvba文件已经有了一定的了解。