gpt4 book ai didi

excel - Worksheet.Columns 属性要求我提供 RowIndex?

转载 作者:行者123 更新时间:2023-12-03 01:24:49 26 4
gpt4 key购买 nike

如果我在 VBA 编辑器中编写此内容:

Dim ws As Worksheet: set ws = ActiveSheet
ws.Columns(

IntelliSense 向我显示了一个看似不相关的工具提示:

_Default([RowIndex], [ColumnIndex])

据我在 documentation 中看到的情况,Worksheet.Columns 属性仅接受索引(列)号。 .

那么为什么要求我提供 RowIndex ?为什么它引用 _Default(它是什么)?

最佳答案

The Worksheet.Columns property only accepts the index (column) number as far as I can see in the documentation.

文档中没有任何地方说 Columns 属性需要一个参数,事实上,提及这一点是错误的,因为它没有任何参数:

Worksheet.Columns definition in Object Browser

Worksheet.Rows 一样,Worksheet.Columns 生成一个 Range 对象。因此,当您“参数化”它时,真正发生的事情是这样的:

Set foo = ws.Columns.[_Default](value)

您提供的任何参数都会被解释为针对 Range 对象的隐式默认成员调用的参数,该对象是通过调用Columns返回的>.

您可能在某处读到过,Range 的默认成员是其Value - 但事实并非如此。 Range 的默认成员是一个名为 [_Default] 的隐藏属性(如果要显式调用它,则在 VBA 中需要使用方括号,因为没有合法的 VBA 标识符可以开头)带下划线),它需要两个可选参数:

Range._Default hidden property in Object Browser

当您在不提供任何参数的情况下读取(“获取”)此默认属性时,此默认属性确实为您提供Range.Value(即单个单个单元格的 Variant 值,或多个单元格的 2D Variant 数组)。当您分配给此默认属性时,您正在分配Range.Value

但是,当读取(“get”)此默认属性时提供任何参数时,您得到的是对非常标准的 Range.Item 索引器属性的调用:

Range.Item definition in the object browser

所以 Columns 所做的就是简单地获取输入范围,并生成一个 Range 对象,该对象的布局方式可以使用 进行访问RowIndex 参数 - 我们可以使用命名参数来证明这一点,这表明该代码是非法的:

?Sheet1.Range("A1:C1").Columns.Item(ColumnIndex:=2).Address
>> "wrong number of arguments"

等效代码如下:

?Sheet1.Range("A1:C1").Columns(ColumnIndex:=2).Address
>> "error 1004"

请注意,_Default 属性生成一个 Variant,因此上述 .Address 成员调用只能在运行时解析(并且你没有得到任何智能感知,并且编译器不会因任何拼写错误而退缩,即使指定了 Option Explicit ,但你在运行时得到错误 438 )。

最好坚持安全的早期绑定(bind)土地,并将返回的对象引用拉入局部变量:

Dim foo As Range
Set foo = ws.Columns(1)

Debug.Print foo.Address '<~ early-bound w/intellisense & compile-time validation
<小时/>

TL;DR:系统会提示您输入 RowIndex 参数,因为您正在调用(尽管是隐式)接受 RowIndex 参数的隐藏 _Default 属性。

关于excel - Worksheet.Columns 属性要求我提供 RowIndex?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58100804/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com