Tag: 范围

范围类select多个表之间的语法错误

我一直在devise一个将文本文件导入Excel的macros。 该程序的devise初衷是将所有数据导入到工作表1中,但在得到反馈后,我被告知要将所有数据导入到工作表2中。 这个macros在代码行开头使用Activesheet等命令时没有任何问题,因为sheet1总是活动页面。 *请注意,所有表都有其默认名称。 我已经去了,试图改变我所有的范围fns,而不是通过键入Worksheets("Sheet2").Range("A1")… ,但这给了我 “select范围类的方法” 错误。 我的初始fn使用查询表导入文件后,会发生此错误。 Option Explicit Sub importtxt() Dim txtloc As Variant Dim build As String Dim bit As String Dim rng As Range 'Asks user for the build number that has been imported, then assigns that string to cell B1 build = InputBox("What build of SoundCheck is this?") 'Prompt […]

VBAselect两个variables的范围

我正在尝试select范围。 我没有问题select它与variables,让说,X和Y是variables。 我没有问题编写代码来select范围从例如A1:By 。 但是,我如何select一个范围从Ax:By ? 有简单的一个线路解决scheme吗? 预先感谢您的帮助 我的代码为A1:通过哪些作品 Sheets("Sim").Range("A1:B" & y).Select 我从Axe制作的代码:通过哪个不起作用 Sheets("Sim").Range("A" & x ":B" & y).Select

范围定义名称…不会接受名称

这很奇怪。 但我想我可能会错过一些基本的东西。 我正在试图命名一个结合了字母和数字的独特名字。 以下是发生的事情: 我select一个范围(点击并拖动一些单元格) 右键点击 – >定义名称… inputABC123并单击确定。 错误。 The name you entered is not valid. Reasons for this can include: -name does not begin with a letter or underscore -name contains a space or other invalid characters -name conflicts with an Excel built in name of name of the another object in workbook […]

VBA只select工作簿中的某些工作表,然后清除范围内的内容

我试图编写一些代码来select某些表(不是全部,而且表也不是全部相邻),清除每个单元格的相同范围,取消select它们,select另一组表单,清除相同的范围,等等。这是代码。 ActiveWorkbook.Sheets(Array("J2a", "J7", "J10", "J11", "J13", "J17", "J18", "J19")).Select Range("C12:E14, C22:E24, C32:E34, C42:E44, C52:E54, C62:E64, C72:E74,C82:E84, C92:E94, C102:E104, C112:E114, C122:E124, C132:E134, C142:E144, C152:E154").ClearContents ThisWorkbook.Worksheets("Control").Activate 问题是它只会从活动工作表(这是select列表中的第一个工作表)中清除内容。 所以我将代码更改为以下内容,因为我认为必须有一种方法来清除多个工作表上的内容而不select工作表: ActiveWorkbook.Sheets(Array("J2a", "J2b", "J7", "J10", "J11", "J13 DM", "J13 DS", "J17", "J18", "J19")).Range("C12:E14, C22:E24, C32:E34, C42:E44, C52:E54, C62:E64, C72:E74, C82:E84, C92:E94, C102:E104, C112:E114, C122:E124, C132:E134, C142:E144, C152:E154").ClearContents 但是现在我得到一个错误,说'对象不支持这个属性或方法。 我究竟做错了什么? 这两条线似乎是独立工作的……另外对于我自己的理解,错误中的对象是什么? […]

Excel使用范围名称添加

所以如果我有一个范围名称的范围。 MasterRange引用B2:B4 然后在B2的CRange中,那么参考C2的CRange是1的值然后在B3 DRange中,参考D2的DRange是值2然后在B4的Engeange中,那么参考E2的ERange是值3 有没有办法使用一个范围来引用其他范围为了广告? 如果我= SUM(INDIRECT(MasterRange))只说1,似乎并没有增加DRange&ERange

Excel使用范围名称作为excel函数的参数

假设我有几个命名范围,P2017.01,P2017.02等等。 这些范围包含2017年1月01日,02月等的值。 我想一个接一个地总结月份值。 我想构build范围的名称,并使用这些构造的名称作为函数参数。 例如:前缀“P2017”在B3中,月份的索引在C3中。 我连接B3&'。'&C3并将值存储到D3。 在E3中,我希望= SUM(INDEX(P2017.01; 0; 2)),但不是写名称P2017.01我想从单元格D3的值中获取名称。 我应该写什么E3来做到这一点?

Excel VBA – 不按顺序复制多列

我想从一张纸复制到另一张。 macros应通过名称识别工作表: Dim Wb1 As Workbook, wb2 As Workbook, wB As Workbook Dim rngToCopy As Range Dim NewEnd As Long Dim NewEnd2 As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets("CALC").Select Worksheets("CALC").Range("B5:J25000").ClearContents For Each wB In Application.Workbooks If Left(wB.Name, 4) = "15B2" Then Set Wb1 = wB Exit For End If Next If Not Wb1 […]

VBA范围问题 – 设置和dynamic

更新:只需要学习如何使fullrngdynamic 大图:我试图根据列中的数据自动创build命名范围。 我发布的子过程将数组的元素作为参数。 所有的这种逻辑工作正常..我可以创build数组的每个元素的命名范围。 我想出了如何在我的范围内获得我想要的值的逻辑。 对于rownum = 2将下一行敲定 包含这个逻辑。 问题是,我有问题的范围。 如果我不使用设置范围=范围(单元格),那么我得到一个对象的错误..这是有道理的,对象已被宣布,但没有设置任何东西。 我只是不知道如何获得这些范围初始化,然后将其更改为我想要的单元格组 fullrng还需要dynamic的将是2格高,然后3,然后4,等等。 Sub Createranges(ByVal TableName As String) If TableName <> "" Then Debug.Print TableName Dim fullrng As Range Dim temprng As Range Dim thiscell As Range Dim nextcell As Range Set fullrng = Range("H1") fullrng.Name = TableName For rownum = 2 To finalrow 'Checking […]

VBA列自动合并?

我正在用VBA编写一个程序,首先从一系列单元格中编译一个Range,然后循环遍历这个范围来收集单元格中的数据。 问题是我需要范围来维护添加单元格的顺序,以便我可以在正确的顺序中收集数据。 如果数据在相邻的列中,则范围会将其转换为行堆栈。 看我的意思,如果你运行这个程序: Sub test_function() Dim My_Range As Range Dim My_Cell As Variant 昏暗我作为整数 我= 0 Set My_Range = Union(ActiveSheet.Range(“A1:A5”),ActiveSheet.Range(“B1:B5”)) 对于My_Range中的每个My_Cell i = i + 1 My_Cell.Value = i 下一个My_Cell 结束小组 您可以看到该范围是由相邻的两列数据(A1:A5和B1:B5)编译的,而不是此EXPECTED输出: 1 6 2 7 3 8 4 9 5 10 你得到 1 2 3 4 5 6 7 8 9 10 它将重现此行为,即使您一次添加一个单元格使用设置My_Range […]

隐藏名为范围数组中的图纸

我有一个dynamic命名的范围,它提供列表中的图纸名称(假设A2 =奥地利,A3 =德国,A4 =波兰)这个列表可以根据用户的大小而有所不同,所以我有一个在指定的范围内的偏移量捕获列A中的所有单元格都带有一个名称。 我想使用IF语句来隐藏基于这个命名范围的某些表单。 就像是: Public Sub test() Sheets(Array(Range("MyRange"))).Visible = xlVeryHidden End Sub 与上面我得到以下错误:运行时错误“13”:types不匹配 任何build议,请。 谢谢保罗