Question

我尝试在通过循环的不同迭代更改的范围上运行代码。如果范围内的值（＆＃34; SearchBy＆＃34;）= ZeroCounts

，我希望代码运行

Dim dummy As String
dummy = """" & range("SearchBy").Value & """"

Dim WorkRange As range
WorkRange = Sheets("HungarianAlgorithm").range(dummy)

WorkRange.Select

以下是我试图解决此问题的方法，但我无法找到一种无需返回错误的方法。有什么想法吗？

for ( @Files ) {

    opendir( D, $path . '\/' . $_ ) or die "$!";
    my @textfiles = grep { ! /^\.{1,2}$/ } readdir( D );

    for ( @textfiles ) {

        #    print "$_\n";   <----the file names.
        my $epoch_timestamp = ( stat( $_ ) )[9];
        print "$epoch_timestamp\n";
    }

Answer 1

在为对象类型变量

分配值时，需要使用Set

尝试

Set WorkRange = Sheets("HungarianAlgorithm").Range(Range("SearchBy").Value)

使用单元格内容设置范围变量

1 个答案: