求助:vba range作用于_global对象失败 [问题点数:50分]

Bbs1
本版专家分:0
结帖率 0%
Bbs7
本版专家分:14438
版主
Blank
微软MVP 2014年1月 荣获微软MVP称号
Blank
黄花 2014年9月 其他开发语言大版内专家分月排行榜第二
2012年3月 其他开发语言大版内专家分月排行榜第二
2010年5月 其他开发语言大版内专家分月排行榜第二
Blank
蓝花 2013年5月 其他开发语言大版内专家分月排行榜第三
Bbs1
本版专家分:0
wps的range对象
环境:xp sp3,vs2008,wps2012,word2010 如果直接设置Range对象的Start或End属性可能会报异常,所以使用SetRange方法或者让Start小于等于Range的End值 word2010直接设置Start的值超过End不会跑出异常,但是会将End=Start void Ctest09242Dlg::OnBnClickedOk() { // TOD
VBA中使用Range时遇到的1004错误
最近在用VBA编写个小程序,遇到一个奇怪的问题。 如果使用 Sheets("原始数据页").Range("A3:L3") 就正确如果使用 Sheets("原始数据页").Range(Cells(3,1),Cells(3,12)) 就会出现 1004错误 按理说Range的两种表达方式是一个意思,为什么会出现不同的结果呢? 在网上找了很久,发现不少人遇到这个问题,但回答都
VBA Range与数组互相赋值
Sub test() 'Range赋值给数组(利用Application.WorksheetFunction.Transpose) ' Dim myData '    myData = Application.WorksheetFunction.Transpose(Range("a1:e5")) '    MsgBox "共有" & UBound(myData) & "个数据!"
处理Selection对象和Range对象——Word VBA中重要的两个对象
Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定(或突出显示)的区域,如果文档中没有选定任何内容,则代表插入点。每个文档窗格只能有一个 Selection 对象,并且在整个应用程序中只能有一个活动的 Selection 对象。 说明 可以使用 Selection 属性返回 Selection 对象。如果 Selection 属性未使用对象限定符,则 Microsof
VBA运行时提示“类range的select方法无效”问题
Sub online()     Windows("bondCahed.xls").Activate     If ActiveSheet.FilterMode = True Then         ActiveSheet.Range("A:AH").AutoFilter Field:=21, Criteria1:=Array( _         "结清", "结清代偿", "正常")
【LuKS】Vba开发从入门到精通 =.=
目录 第一章VBA语言基础简介 第一节 标识符. 2 第二节 运算符. 2 第三节 数据类型. 2 第四节 变量与常量. 3 第五节 数组. 3 第六节 注释和赋值语句. 3 第七节 书写规范. 3 第八节 判断语句. 4 第九节 循环语句. 4 第十节 其他类语句和错误语句处理. 6 第十一节 过程和函数. 6 第十二节内部函数. 7 第二章 扩展运用. 9 第一节
4 VBA range对象和range属性的常见使用方法整理
1 与<em>range</em>对象位置有关的属性 (1)<em>range</em>.row : 该Range左上角单元格的行号 (2)<em>range</em>.column:该<em>range</em>左上角单元格的列号 (3)<em>range</em>.address : 该<em>range</em>各个对角顶点的绝对引用地址$ 注意:当<em>range</em>包含多个矩形区域的时候,row和column只返回其中某一个矩形的左上角位置,并不一定是整个<em>range</em>的左上角! 比如:rang...
【VBA】复制Range
Sub CopyRange() ThisWorkbook.Sheets("Sheet1").Range("A1:C7").Copy Destination:=ThisWorkbook.Sheets("Sheet2").Range("B1") ThisWorkbook.Sheets("Sheet2").Select End Sub
[vba学习]跨工作簿选择以及Range和Cells混用
[<em>vba</em>学习]跨工作簿选择以及Range和Cells混用 Sub objtest1() 'Worksheets(&amp;quot;sheet3&amp;quot;).Activate 'Worksheets(&amp;quot;Sheet3&amp;quot;).Range(Cells(1, 1), Cells(6, 8)).Select Dim mySheet As Object Set mySheet = Worksheets(&amp;quot;sheet3&amp;quot;) ..
方法“Range”作用于对象“_Worksheet”时失败
[color=#0000FF]哪位老师帮忙看一下这段VBA代码如何修改?谢谢!!![/color]rn[color=#00FF00]补充说明:这是一段设置权限管理的代码。[/color]rnrnPublic 行号 As IntegerrnrnPrivate Sub Frame1_Click()rnrnEnd SubrnrnPrivate Sub UserForm_initialize()rnDim intRowsCount As Integer, i As IntegerrnrnApplication.EnableEvents = FalsernintRowsCount = 用户管理.Range("A" & Rows.Count).End(xlUp).RowrnFor i = 2 To intRowsCountrn 用户列表.AddItem 用户管理.Range("A" & i)rnNextrn用户列表.ListIndex = 0rnApplication.EnableEvents = TruernEnd SubrnrnPrivate Sub 关闭_Click()rnUnload MernEnd SubrnrnPrivate Sub 确定_Click()rnWith 用户管理rn .Range("C" & 行号) = 供货商资料建立.Value[color=#FF0000]----此处报错:方法“Range”<em>作用于</em>对象“_Worksheet”时<em>失败</em>[/color]rn .Range("D" & 行号) = 供货商资料查询.Valuern .Range("E" & 行号) = 商品资料建立.Valuern .Range("F" & 行号) = 商品资料查询.Valuern .Range("G" & 行号) = 入库.Valuern .Range("H" & 行号) = 入库查询.Valuern .Range("I" & 行号) = 出库.Valuern .Range("J" & 行号) = 出库查询.Valuern .Range("K" & 行号) = 出库分析.Valuern .Range("L" & 行号) = 库存.Valuern .Range("M" & 行号) = 库存查询.Valuern .Range("N" & 行号) = 管理用户.ValuernEnd WithrnUnload MernEnd SubrnrnPrivate Sub 用户列表_change()rnDim intRowsCount As Integer, i As IntegerrnrnintRowsCount = 用户管理.Range("A" & Rows.Count).End(xlUp).RowrnFor i = 2 To intRowsCountrn If 用户管理.Range("A" & i) = 用户列表.Text Thenrn With 用户管理rn 供货商资料建立.Value = CBool(.Range("C" & i))rn 供货商资料查询.Value = CBool(.Range("D" & i))rn 商品资料建立.Value = CBool(.Range("E" & i))rn 商品资料查询.Value = CBool(.Range("F" & i))rn 入库.Value = CBool(.Range("G" & i))rn 入库查询.Value = CBool(.Range("H" & i))rn 出库.Value = CBool(.Range("I" & i))rn 出库查询.Value = CBool(.Range("J" & i))rn 出库分析.Value = CBool(.Range("K" & i))rn 库存.Value = CBool(.Range("L" & i))rn 库存查询.Value = CBool(.Range("M" & i))rn 管理用户.Value = CBool(.Range("N" & i))rn End Withrn Exit Subrn End Ifrn 供货商资料建立.Value = Falsern 供货商资料查询.Value = Falsern 商品资料建立.Value = Falsern 商品资料查询.Value = Falsern 入库.Value = Falsern 入库查询.Value = Falsern 出库.Value = Falsern 出库查询.Value = Falsern 出库分析.Value = Falsern 库存.Value = Falsern 库存查询.Value = Falsern 管理用户.Value = FalsernNextrnEnd Subrn
方法'Range'作用于对象'_WorkSheet'时失败???
[code=VB] If xlSheet.Range(Lines1 & Rows1).vlaue = "●" And xlSheet.Range(Lines2 & Rows1).vlaue = "●" And xlSheet.Range(Lines3 & Rows1).vlaue = "●" And xlSheet.Range(Lines4 & Rows1).vlaue = "●" And xlSheet.Range(Lines5 & Rows1).vlaue = "●" Thenrn xlSheet.Cells(Lines1, Rows1).Interior.ColorIndex = 6rn End If[/code]rnrn哪位大哥帮忙改一下啊?运行报错“方法'Range'<em>作用于</em>对象'_WorkSheet'时<em>失败</em> ”
方法Range作用于对象_ Worksheet失败
菜鸟<em>求助</em>各位,比如下面需要把窗体中文本框的数据导出到excel,第14行报错如题所示,该怎么改啊谢谢[img=http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/003/onion/3.gif][/img]rnrn[code=vb]Option Compare DatabasernrnPrivate Sub Command12_Click()rnDim xlapp As Excel.ApplicationrnDim xlwbk As Excel.workbookrnDim xlwsh As Excel.worksheetrnDim xlwbkname As StringrnSet xlapp = CreateObject("Excel.Application")rnxlapp.Visible = Truernxlwbkname = Me!Text0rnSet xlwbk = xlapp.workbooks.Open(CurrentProject.Path & "\" & xlwbkname & ".xlsx")rnSet xlwsh = xlwbk.Worksheets(1)rnxlwsh.Activaternxlwsh.<em>range</em>(A2).Value = Me!Text1rnxlwsh.<em>range</em>(B2).Value = Me!Text2rnxlwsh.<em>range</em>(C3).Value = Me!Text3rnxlwsh.<em>range</em>(D4).Value = Me!Text4rnxlwbk.SavernSet xlwsh = NothingrnSet xlwbk = NothingrnSet wlapp = NothingrnEnd Sub[/code]rn
在word中使用vba遍历Range对象的Characters
环境:win7 64位,vs2010,word2010 c#源码: try {     MSWord.Range rFind = <em>range</em>Find.Parent as MSWord.Range;     for (int i = 1; i <= rFind.Characters.Count; i++)     {         string str = rFind.Char
他山之石——VBA中选取Excel单元格的方法(Range selection in Excel VBA)
又学了一招,Union方法,嘿嘿。Option Explicit '1 表示一个单元格(a1) Sub s() Range(&quot;a1&quot;).Select Cells(1, 1).Select Range(&quot;A&quot; &amp;amp; 1).Select Cells(1, &quot;A&quot;).Select Cells(1).Select [a1].Select End Sub ...
VBA中Range的使用方法-Excel VBA学习
选定区域拷贝以下代码报错: ActiveChart.SetSourceData Source:=Sheet4.Range(Cells(1, 1), Cells(max, sampleNo + 1))     我当时百思不得其解,
Excel中range和cells的详解
1. 单元格Bi 可以使用以下3中表示方法Range(&quot;B&quot; &amp;amp; i )Cells( i , 2 ) Cells( i , &quot;B&quot;) (当列号较大、不易计算时,如“H&quot;、”AD&quot;,我们可以直接用双引号加列标作为第二参数)使用Range、Cells是比较常用的写法,方便,易记,规律性较好!对单元格访问,速度最快的的是 Cells(1,1) ,其次是 Range(&quot;A1&quot;), 最慢是 [A1]...
range的select方法无效
问题:导出excel时,提示“类<em>range</em>的select方法无效”。 解决方法:在Range.Select();方法前添加this.worksheet.Activate();
range函数创建数组
数组遍历语言--快速创建数组 --<em>range</em>(1,5)这个<em>range</em>函数是什么含义?谁是键?谁是值?<em>range</em>是快速创建数组的函数。php提供的快速创建数组的函数包括<em>range</em>() 、explode()、array_combine()、array_fill() 和array_pad()。其余的函数莫要理会。重点看<em>range</em>()函数。语法格式,arrge <em>range</em>(mixed start,mixe...
VBA尺寸选择 Resize
Range(“b4”).Resize(1, 5).select 与 Range(“b4”).Range(“a1:e1”).select一样,选择的都是Range(“b1:f4”),Range(“a1:e1”)也是一个1行5列的区域。Range(“b4”).EntireRow.Range(“a1:e1”).select 以第4行活动单元格开始,选择一个1行5列的区域
VBA编程,工作薄打开,两个工作薄之间表格复制,Range的copy方法
在VBA中 ,ThisWorkbook和ActiveWorkbook区别,ThisWorkbook值得是代码所在的工作簙,而ActiveWorkbook是目前程序代码运行到的激活的工作簙。例如我在用VBA编写两个Workbook操作时,出现的错误: 一、一开始进行操作时,声明了Application,当然第二个Workbook是在新建的Application中打开的,前面的操作都可以,如表格的选
一段自己录制的Excel宏代码(画柏拉图)
 Sub Macro2() Macro2 Macro 宏由 grace 录制,时间: 2007-7-4    Charts.Add    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="线-柱图"    ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range
excel 多次筛选后的range数据处理
当excel 经多次筛选后,<em>range</em>数据区域可能含不连续的多个<em>range</em>,要想处理所有数据(包含隐藏的数据),可以按每行每列分 别处理。   Dim ws As Worksheet  Dim rg As Range  Set ws = ThisWorkbook.ActiveSheet  Dim nEndRow As Integer  '求sheet的行数和列数  Dim nEnd
Excel VBA Range对象等基本操作应用示例
Excel VBA Range对象等基本操作应用示例,有助于初学者深入了解和使用<em>range</em>对象,加深对象的了解。
VBA宏 AdvancedFilter 方法(转帖+亲自实践)
基于给定的条件区域从数据清单中筛选或复制数据。 expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique) expression      必需。该表达式筛选或复制的数据对象 Action     XlFilterAction 类型,必需。内容可以是以下2种:          xlFilterCopy
javascript中Global 对象的函数方法
全局对象是预定义的对象,作为 JavaScript的全局函数和全局属性的占位符。通过使用全局对象,可以访问所有其他所有预定义的对象、函数和属性。全局对象不是任何对象的属性,所以它没有名称。
OpenSchema 方法详解
OpenSchema 方法从提供者获取数据库模式信息。语法Set recordset = connection.OpenSchema (QueryType, Criteria, SchemaID)返回值返回包含模式信息的 Recordset 对象。Recordset 将以只读、静态游标打开。参数QueryType   所要运行的模式查询类型,可以为下列任意常量。Criteria   可选。每个 Q
vba 中 “类 Range 的 Select 方法无效 ”
            '激活"模板"sheet            ThisWorkbook.Worksheets(strSheetTempalteName).Activate。。。。。。。。。。。。。。。。。。。。                 ThisWorkbook.Worksheets(strSheetTempalteName).Range("A" & intJobBeginLineNum & ":S" & intJobBeginLi
excel vba自定义函数集合操作
[code=&quot;js&quot;] 方式功能:某个范围的数然后排除excel连续区域 Function isin<em>range</em>(quyu As Range, xiao As Integer, da As Integer) As String Dim flag As Boolean flag = False For i = xiao To da For Each ...
关于excel vba 使用CopyFromRecordset出现格式问题的解决方法
 关于excel <em>vba</em> 使用CopyFromRecordset出现格式问题的解决方法 出现问题的写法: With ActiveSheet             .Name = k(i)             For num = 1 To UBound(myArray)                 .Cells(1, num) = myArray(num, 1)            ...
利用VBA处理Excel 2007中的表
在Excel对象模型中,表(Table)由ListObjects对象代表。下面列举一些在Excel 2007中使用VBA处理表的示例代码。 http://www.blue1000.com/bkhtml/c118/2008-11/59082.htm - - - - - - - - - - - - - - - - - - - - 创建表 下面的代码将某区域转换为表。 Sub
javascript全局对象Global对象
1、Global对象  (全局)这个对象不存在,无形的对象    --其内定义了一些方法和属性:encodeURI,encodeURIComponent,decodeURI,decodeURIComponent,eval,parseInt    parseFloat,isNaN,escape,unescape等等  2、encodeURI,decodeURI编解码 不会将://等进行编码
VBA_把Excel某一区域的内容读入到数组中/把数组的内容写入到Excel中
1 把Excel某一区域的内容读入到数组中: Dim strArray() As Variant Dim wk_data As Variant Set wk_data = Sheets("Sheet1") strArray = wk_data.Range("A1:CV100").Value   2 把数组的内容写入到Excel中 wk_data.Range("A1").Resize(
Global对象
Gloabal对象 一、相关概念 Global(全局)对象可以说是ECMAScript中最特别的一个对象,因为不管从什么角度看,这个对象都是不存在的 不属于任何其他对象的属性和方法,最终都是它的属性和方法 事实上,没有全局变量或全局函数;所有在全局作用域中定义的属性和方法,都是Global对象的属性 isNaN()、ifFinite()、parseInt()以及parseFloat(),实际...
各种Excel VBA的命令
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误,即将退出!" 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then Close 本示例
VBA 复制
Option Explicit Sub Copy_Paste_1() '' '通过对话框打开文件: ' '方法一: '' Dim a As Boolean '' a = Application.FindFile '' If a = True Then '' MsgBox &quot;Excel文件打开成功!&quot;, vbOKOnly '' Else ...
VBA 第9课 合并单元格
'单元格合并 Sub b1() Range("a1:g2").Merge End Sub '合并H列相同单元格 Sub b2() Dim x As Integer Dim rg As <em>range</em> Set rg = <em>range</em>("h1") Application.DisplayAlerts = False For x = 1 To 13     If <em>range</em>("h" & x +
Javascript:Global对象(全局)
decodeURI()解码某个编码的URIdecodeURIComponent()解码一个编码的URI组件。encodeURI()     把字符串编码为 URI。encodeURIComponent()     把字符串编码为 URI 组件。escape()     对字符串进行编码,把中文变乱码显示乱码,把中文变成乱码:var str=&quot;哈哈哈&quot;;alert(str);document.wri...
区域(Range)和变换
参考:https://blog.csdn.net/harvic880925/article/details/38875149 自定义控件之绘图篇(三):区域(Range) 一、构造Region 1、基本构造函数(第三个和第四个是常用的) public Region() //创建一个空的区域 public Regio...
VBA基本语法整理
转自:http://www.zjmainstay.cn/<em>vba</em>-usage 1. VBA 局部变量和全局变量 1. 局部变量 在Sub或者Function结构中定义的变量 通常使用Dim关键词来声明,但是可以不声明使用(不报错) 2. 全局变量 在Sub或者Function外部(尽量在整个代码顶部),使用Public关键词定义 Public name '普通...
他山之石——使用VBA在单元格中输入公式(Input formula into Range with VBA)
在VBA编程中,时常要利用Excel自带的多种功能强大的函数。那么,如何在VBA中向单元格中输入公式呢?看到别人的培训资料里已有所总结,这里借花献佛一下。代码:Option Explicit '一、在单元格中输入公式 '1、用VBA在单元格中输入普通公式 Sub t1() Range(&quot;d2&quot;) = &quot;=b2*c2&quot; End Sub S...
VBA语句解释
(1) Set objExcel = CreateObject("Excel.Application")objExcel.Workbooks.Add ‘创建Excel工作簿(2) Application.ActivateMicrosoftApp xlMicrosoftWord 开启Word应用程序(3) Application.TemplatesPath ‘获取工作簿模板的位置(4) App
VBA 批量复制数据
自动复制数据 Sub CopyData() hh = MsgBox("Confirm to refresh?", vbOKCancel, "Confirm") If hh = 1 Then Application.ScreenUpdating = False Dim s_wb As Workbook, t_wb As Workbook, w
Excel中使用VBA中遇到的坑
今天因为工作需要,不得不使用VBA在Excel中对数据进行处理,虽然本人有一些编程的经验和逻辑思维能力,但是因为VBA用得少,所以还是费了很多功夫搜索相关的文档。百度上搜索出来的内容参差不齐,感觉都是只言片语,很少有系统化的把VBA讲明白的。尤其是例子感觉有些人说得头头是道,但是都是拷贝粘贴,没有把实践与思考,所以也缺少有说服力的例子。这篇文章也没有办法系统的讲解,但是仅仅是我自己碰到的一些坑,拿...
global对象
<em>global对象</em> ES5 的顶层对象,本身也是一个问题,因为它在各种实现里面是不统一的。 浏览器里面,顶层对象是window,但 Node 和 Web Worker 没有window。 浏览器和 Web Worker 里面,self也指向顶层对象,但是 Node 没有self。 Node 里面,顶层对象是global,但其他环境都不支持。 同一段代码为了能够在各种环境,都
Range——插入对象insertNode
请先选择文字,再点击按钮 “嘻嘻”,雪儿忍不住笑了,自言自语道,“百草闲居,百草·······哇——”雪儿叫道,这个“哇”连拐了三个弯儿,“昨天晚上,我梦见了,梦见了和现在的一样的情景,我还像一只会发光的水母呢,我看见了会开桂花的梧桐树,我和哥哥的小时候, function onc(){ var b=document.getElemen
vba给数组赋值
'向VBA数组中写入数据       '1、按编号(标)写入和读取         Sub t1() '写入一维数组      Dim x As Integer      Dim arr(1 To 10)    arr(2) = 190    arr(10) = 5      End Sub       Sub t2() '向二维数组写入数据和读取      Dim x As Integer, y
VBA常用功能函数集
(1)&nbspOption&nbspExplicit '强制对模块内所有变量进行声明    Option&nbspPrivate&nbspModule '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示    &nbspOption&nbspCompare&nbspText '字符串不区分大小写    &nbspOption&nbspBase&nbsp1 '指定数组的第一个下
他山之石——使用VBA合并单元格(Merge cells in VBA)
继续学习!'单元格合并 Sub h1() Range(&quot;g1:h3&quot;).Merge ' End Sub '合并区域的返回信息 Sub h2() Range(&quot;e1&quot;) = Range(&quot;b3&quot;).MergeArea.Address '返回单元格所在的合并单元格区域 End Sub '判断是否含合并单元格 ...
关于Excel 中UserRange发现的问题
workSheet.UserRange此属性是获取当前sheet中可用区域,如果使用workSheet.UserRange.get_Range等一些属性获取单元格,会出现一些问题,比如我sheet1中第一行到第10行没有填写任何内容,在第11行开始才会有内容,如果我要获取1-10行Range就不能使用sheet.UserRange.get_Range来获取1-10行的Range,否则sheet.UserRange.get_Range(A1,B10)获取的地址是从11行开始获取的,意思即是A11才
【VBA研究】排序编程代码
作者:iamlaosong 1、在对Excel处理时经常会对工作表中的数据排序,排序代码怎么写?通过录制宏可以很容易得到(我学习VBA的方法基本就是查资料、录制宏),例如2003版可以得到如下排序语句: Rows("1:1500").Select Selection.Sort key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
方法'~'作用于对象'~'失败
方法'~'<em>作用于</em>对象'~'<em>失败</em>
EXCEL VBA Range对象等基本操作应用实例
EXCEL VBA Range对象等基本操作应用实例
JS/JavaScript中的概念区分:global对象、window对象、document对象
JS/JavaScript中概念的区分:<em>global对象</em>、window对象、document对象 1、Global Object (全局对象, <em>global对象</em>) ①JavaScript 中有一个特殊的对象,称为全局对象(Global Object),它及其所有属性都可以在程序的任何地方访问,即全局变量。 ② 全局对象是预定义的对象,作为 JavaScript
运用Range 对象处理 Word 文档内容
转自http://www.officexy.com/articles/word/word_<em>vba</em>20061027194952795.htm 在所有 Office 应用程序中,Microsoft Word 可能是应用最广泛的应用程序,它还经常在自定义 Office 解决方案中扮演重要的角色。开发人员用各种不同的方式使用 Word,有一些方式很简单,而另一些极其复杂。无论涉及何种自定义解决方案,用 Vi
VBA Demo案例
VBA帮助文档、VB操作Excel、VBA代码示例,帮助快速上手。
VBA学习笔记2-文件打开、保存、备份、关闭等;工作表选取、删除、移动等;单元格定位、格式、合并等
文件打开、保存、备份、关闭等;工作表选取、删除、移动等;单元格定位、格式、合并等
不能设置类range的columnwidth属性 解决方法
生成excel的时候提示:不能设类Range的Columnwidth属性。 可能是因为设置Columnwidth的值过大或过小,本人在做程序时遇到因Query字段值设置过大,在比较DBGRID宽度与字段宽度取最大值时,发现值比较值大,就会出现这种错误。 直销系统时发生。DELPHI 5
VBA只显示用户窗体,不显示EXCEL
工程资源管理器那里点开“ThisWorkBook”;如果你的VBA没有显示这个管理器,可以用CTRL+R将它调出;接着在弹出的代码编辑器里面输入: Private Sub Workbook_Open()    Application.Visible = False    UserForm1.ShowEnd Sub     excel打开没反应的处理 按住SHIFT再打开EXCEL文件,找
求助:Excel VBA 代码中Range的用法
我这里有一段代码:其中红色标记的部分不明白是什么意思,请高手指教rnPrivate Sub CommandButton1_Click()rn Dim arr1, arr2, i&, x&rn [color=#FF0000]arr1 = Sheets("教育信息").Range("d2:e" & Sheets("教育信息").[d65536].End(xlUp).Row)rn arr2 = Sheets("教育类型").Range("a2:b" & Sheets("教育类型").[b65536].End(xlUp).Row)[/color]rn For i = 1 To UBound(arr1)rn For x = 1 To UBound(arr2)rn If arr1(i, 1) = arr2(x, 2) Thenrn arr1(i, 2) = arr2(x, 1): Exit Forrn End Ifrn Next xrn Next irn [color=#FF0000]Sheets("教育信息").[d2].Resize(UBound(arr1), 2) = arr1[/color]rnEnd Subrnrn请解释一下:Range("d2:e" & Sheets("教育信息").[d65536].End(xlUp).Row)中的"d2:e" '&' 'Sheets("教育信息").[d65536].End(xlUp).Row)' 是什么意思.万分感谢!
CorelDRAW VBA - 创建文本框(段落文本)
目的 本文介绍CorelDRAW VBA代码使用 CreateParagraphText 函数创建文本框(段落文本)的相关操作代码。 代码演示 在CorelDRAW中创建文本框,即创建段落文本。准确的叫法是段落文本,使用 CreateParagraphText 函数即可创建段落文本,请看下面的代码演示: Sub main() ' 创建一个新的文档 Dim d...
求助一个vbarange的问题
<em>求助</em>。rnrn小弟写好了的程序。运行都没有问题。但今天买了个新电脑。却无法运行程序。rnrn<em>range</em>("Sheet1!A1").Select 发生1004 错误。rnrn如果把Sheet1改名就可以通过。比如<em>range</em>("Test!A1").Selectrnrn这是为什么啊? office也从新装过了。问题还是一样啊。
VBA7种遍历方法
Sub 简单遍历测试() For Each F In Dir遍历 'Office2003遍历,FSO遍历,双字典遍历,CMD遍历,栈遍历,管道遍历,Dir遍历 '此处加入文件处理代码即可。 Selection.InsertAfter F & Chr(13) i = i + 1 Next Selection.InsertAfter i
快速写入Excel(将数据转换为二维数组,再使用Range方法)
http://topic.csdn.net/u/20080623/14/d0953232-d549-4ebd-806c-45b5ec23437c.html Excel.Application excel=new Microsoft.Office.Interop.Excel.Application();            Excel.Workbook excelBook = excel.
[VBA]关于查找方法(Find方法)的应用(三)
5.4 示例四:本示例所列程序将在工作簿的所有工作表中查找数值,提供了采用两种方法编写的程序,一种是Find方法,另一种是SpecialCells 方法。相对来说,使用Find方法比使用SpecialCells方法要快,当然,本示例可能不明显,但对于带大量工作表和数据的工作簿来说,这种速度差异就可以看出来了。(by fanjy from <em>vba</em>express.com)。示例代码如下,代码中有简要的
使用VBA在EXCEL中插入图片自定义函数(网络URL/本地URL)
Sub InsertPic(ByVal 图片链接 As String, ByVal 插入图片表名 As String, ByVal 插入图片单元格地址 As String) On Error Resume Next Dim rng As Range Set rng = Sheets(插入图片表名).Range(插入图片单元格地址) With Sheets(插入图片表
VBA案例5:自动生成地图
做一个地图显示分析数据的图表:如下,筛选不同的指标,地图自动变动。作图步骤:1、找中国地图的矢量图,放在excel上,矢量图是可以对每个省份进行单独编辑的。2、对各个省份的图形进行重新命名,比如:新疆,在命名框中重新命名xinjiang,重新命名的图片名称需要保存下来,以便填充颜色时自动能找到。3、列出作图数据源,含省份、省份对应的图片名称、图表数据。比如本案例中的B5:D38列。4、设置颜色图例
他山之石——VBA数组的使用-Part3(VBA Array)
学习任何东西,往往坚持到最后,才能学到“干货”。试想,如果新手两三下就能学会的东西就能在现实中排上大用场,那老手还有存在的必要吗?Option Explicit ' '1、数组的最值 Sub s() Dim arr1() arr1 = Array(1, 12, 4, 5, 19) MsgBox &quot;1, 12, 4, 5, 19最大值&quot; &amp;amp...
VBA序列化指定区域的数据
研究了一下VBA序列化JSON,网上没现成的,自己参考人家写的改了一下。 实现功能是,传递一个Range区域的数据,自动生成JSON字符串,行首为列名。 函数如下: Function GetJSON(my<em>range</em>) Dim returnStr As String Dim count As Integer Dim colunms As Integer
调试经验——将VBA子程序转换为自定义函数(Transforming sub procedure to custom function in Excel)
今天发现,可以很容易的将VBA子程序转换为自定义函数,从而可以在worksheet中方便的使用相应的功能。比如,现有一个实现字符串逆序的子程序。Sub reverseString() Dim oStr As String Dim oArr() As String Dim rStr As String Dim rArr() As String oStr = &quot;乡 ma 故 I 思头低 erofe...
vba基础打卡5
1、 Range 属性  Range("A5").Select  Range("A6:A10").Select Range("A1, B6, C8").Select  Range("A11:D11, C12, D3").Select 2、 Cells 属性 当你要选择一个确定的单元格时,Cells属性要求两个自变量,第一个是行号,第二个是列号或者列字母。 Cells(5, 1).Select或
VBA选中离散的单元格
Union(Cells(1, 1), Cells(2, 2), Cells(3, 3), Cells(4, 4), Cells(5, 5)).Select
VBA中常用对象的访问(二) 引用方法介绍
1.Select方法:一般使用Select方法选定单元格或者单元区域,语法如下:expression.Select(Replace)参数expression是必需的,表示一个有效的对象,参数Replace是可选的,要替换的对象。注:使用Select方法选定单元格时,单元格所在的工作表必需为活动工作表,所以要先使用Activate方法使作用对象成为活动工作表,否则Select方法有可能出错。例子:Sub RngSelect()    Sheet2.Activate    Sheet2.Range("A6:C4
[讨论] Excel Range写入大量数据的效率问题
[讨论] Excel Range写入大量数据的效率问题  [复制链接]     守柔 TA的精华主题 TA的得分主题 电梯直达 1楼  发表于 2012-9-3 20:35 | 只看该作者  ★报表神器 快表软件!帮你解决各种表格问
Excel从另一个Excel文件中用户自定义区域(UsedRange)拷贝数据和行高、列宽
实现环境:Visual Studio 2010, Office 2010, VSTO 4.0, .NET Framework 4.0 using System; using System.Collections.Generic; using System.Linq; using System.Text; using Microsoft.Office.Tools.Ribbon; using E
如何用VBA寻找指定区域中的第一个非空单元格
Function firstnoblank(my<em>range</em> As <em>range</em>)  Dim sheet As <em>range</em> For Each sheet In my<em>range</em> '遍历区域里的每一个单元格 If Not IsNull(sheet) And sheet &amp;lt;&amp;gt; &quot;&quot; Then firstnoblank = sheet.Value Exit Function End I...
【转】Delphi EXCEL Range用法集
Delphi EXCEL Range用法集
对 GetOpenFileName 的潜在错误用法
      在调用win32打开文件选择对话框时,可能你会用到GetOpenFileName接口,不知道你遇到过这个问题没有?那就是当你选择了某个文件后,再在程序中进行相关的文件操作(用相对路径),你会发现会操作<em>失败</em>。原因就是改接口会改变进程的当前路径,那么在用到相对路径的地方自然就不正确了。解决办法就是在Flags中加上OFN_NOCHANGEDIR标记就行了,用GetCurrentDirect...
用VBA实现1到56索引值对应颜色表示出来
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
CorelDRAW VBA - 遍历文档、页面、图层和形状对象
目的 本文介绍CorelDRAW VBA代码遍历文档、页面或图层中所有对象的相关操作代码,有时候程序可能需要查找页面上的对象,用遍历的方式可实现批量查找、检索对象。 准备文档 创建1个新文档,添加两个页面,在第一个页面中添加1个文本,并导入一张图像;在第二个页面中添加一个文本。如下图所示: 代码演示 下面的代码采用3重循环演示了遍历当前文档中所有页面、所有图层、所...
如何用VB.NET控制Excel單元格裡的內容
Public  Sub  SetSheetStyles(ByVal  xlSheet  As  Excel.Worksheet,  _                                                                               ByVal  rowCount  As  Int32,  _                       
VBA常见对象的操作
拷贝到指定地方 Sheets(1).Range.copy destination:=Sheets(2).<em>range</em> 拷贝指定<em>range</em>的几种写法  Range(&quot;A1:C5&quot;).Copy '直接复制源数据 (去掉select以提高效率) Range(&quot;G7&quot;).PasteSpecial Paste:=xlPasteValues '显示参数名方式(标准、易懂) Range(&quot;G7&quot;).Pa...
VBA练习——合并单元格
本代码是针对书《别怕,Excel_VBA其实很简单》示例文件_ExcelHome\第4章\4.7.9 快速合并多表数据.xls 的练习,不完全同于书本中代码Sub test()Dim sht As Worksheet Dim optype As String Dim rng As Range Dim rownum As Longoptype = "clearData" 'fillData,clear
专业版V9.1SP1提示"运行时错误,-2147417848(80010108)
问题原因:1、想通过数据交换平台把基础资料导入到新的账套中,但是点"数据交换平台"后,会提示"运行时错误,-2147417848(80010108)方法 <em>作用于</em>对象 <em>失败</em>",系统是WIN2003新做的,而且也进行过修复,并重新装过软件,这是什么原因啊?怎么能解决?  解决方法:数据执行保护的原因,“我的电脑”-“属性”-“高级”-性能“设置”-“数据执行保护”-为除下列选定程序之外的所有程序和服
Excel RANGE&CELLS用法详解
Excel VBA RANGE、CELLS对象用法详解及应用示例
VBA 删除或插入行列
Option Explicit Sub Row_Column_1() Dim r As Long, c As Long, i As Integer, num As Integer, str As String Dim myRange As Range Dim myFon As Font Set myRange = ActiveSheet.UsedRang...
Node中的全局对象
全局对象和全局变量 在nodejs中,全局对象是global,所有全局变量(除了 global 本身以外)都是 global 对象的属性。 1、__filename 新建global.js,内容如下: console.log( __filename ); 运行如下: [root@localhost node_test]# node global.js __filename=/...
VBA教程初级(四):声明数组
<em>vba</em>,数组
作用于对象"~"失败">运行时出错:"~"作用于对象"~"失败
在vb中用DataReport制作报表,在本机上运行正常,但用vb自代工具打包后在另一台机子上安装,在运行打印浏览时出现运行时出错:"~"<em>作用于</em>对象"~"<em>失败</em>.请各位大虾帮帮忙,在下急切盼望得到解决办法.在线等待中....
生成工程失败!方法‘~’作用于对象‘~’失败
请问高手 生成工程<em>失败</em>!方法‘~’<em>作用于</em>对象‘~’<em>失败</em> 这个问题如何解决
Excel_VBA 获取指定列号单元格的列标字母
Public Sub 4_085() Dim ColumnName As String Dim myCol As Integer Dim myRange As Range myCol = 55 '指定列标号 Set myRange = Cells(1, myCol) '指定该列标号的任意单元格 ColumnName =...
VBA,excel中选择特定内容复制粘贴
重点是这个:End(xlDown)、End(xlUp)、End(xltoLeft)、End(xltoRight),就是从某个单元格开始,向下/上/左/右 找到第一个有数据的单元格。 sheet1 1 | A | B 2 | id | 公式列 3 | 001 | 20 4 | 002 | 11 5 | 003 | 0
Excel VBA基础语法——变量(三)
        任何语言(汉语、英语)都得遵守一定的规则,机器语言也不例外,Excel VBA编程语言也要遵守相关的语法规则,否则的话你编写的代码计算机是无法识别和执行的。本节开始学习Excel VBA编程语言的语法规则,虽然很枯燥无味但又是必须要克服的难题,过不了这一关就无法入门。         VBA的数据类型(数据存储器数据存放类型)         Excel 使用过程中,往往会出现...
【VBA研究】如何用split函数设置表头
iamlaosong文 在用Excel的VBA连接数据库查询数据时往往会针对不同的数据采用不同的表头,笨办法是一个一个的给单元格赋值,这种办法在列数增加到几十个时就是恶梦了。聪明的办法是是将表头名称用空格(或其他符号)隔离后串在一起,然后赋给一个变量,再用split函数分离成一个数组,最后再用这个数组给单元格赋值,代码如下:
方法‘~’作用于对象‘~’失败???(VB+SQL)
以前是好的。
【VBA研究】VBA中如何用求和函数SUM求和
作者:iamlaosong SUM是Excel的函数,在VBA中调用需要加上Application.WorksheetFunction.Sum(),但是,Excel写法却不能用。 比如,excel单元格中可以写成=sum(d2:d100),VBA中是不能这么写的,即使加上引号写成Application.WorksheetFunction.Sum(“d2:d100”),语法上倒是没什么问题,却得...
Navigate2 方法作用于对象失败
如果是一个exe。然后把浏览器控件放在上面rn然后调用 WebBrowser1.Navigate2 "http://localhost:39696/WebForm1.aspx", , , , vHeadersrnrn这样是没有问题,但如果是BHO插件,,rnrn就出现: [color=#FF0000]方法"~"<em>作用于</em>对象"~"<em>失败</em>错误[/color]rnrn不知道是什么原因。rnrnvHeaders的值为 vHeaders = "Referer: http://www.baidu.com"rnrn
聊聊开发富文本编辑器:range对象
这次搞了两篇关于开发富文本编辑器的文章: 聊聊开发富文本编辑器:<em>range</em>对象 聊聊开发富文本编辑器:execCommand方法
文章热词 机器学习 机器学习课程 机器学习教程 深度学习视频教程 深度学习学习
相关热词 c++11 for range c# range显示图片 c# range选择一列 c# r range python教程+chm python教程百家号
我们是很有底线的