Question

我有很多报道说我从中提取信息然后放入新字段。我想知道是否有一个很好的方法来构建它，以便根据报告类型，变量变暗以引用我需要的单元格，但内置循环计数器。这是我正在寻找的快速模型：

sub demo()
dim i as long
dim a,b,c,d,e as range

for i = 1 to 100
   if cells(i,1).value2 like "Financials-Q4" Then
     set a = cells(i,21).value2
     set b = cells(i,44).value2
     set c = cells(i,65).value2
  elseif cells(i,1).value2 like "Amor-Q4" Then
     set a = cells(i,100).value2
     set b = cells(i,97).value2
     set c = cells(i,157).value2
     set d = cells(i,89).value2
  end if
next i

 'Start using variables
 for i = 1 to 100
   If a = b Then
      c = "Does not compute"
   Else
      c = "Does compute"
   End if
next i

目前我的代码基本上只是引用每个单独的单元格值，这对于清理/更改来说非常耗时。

Answer 1

应该有用的东西：

int *sortArguments(int argc, char *argv[]) {

    int *list = malloc(sizeof(int) * (argc));
    int i;    

    for (i = 0; i < argc; i++) 
    {    
        list[i] = atoi(argv[i]);
    }
    sortIntegers(list, (argc));

    return list;
}

假设您不需要Sub Demo() Dim i As Long Dim a As Range Dim b As Range Dim c As Range, d As Range, e As Range For i = 1 To 100 If Cells(i, 1).Value2 = "Financials-Q4" Then Set a = Cells(i, 24).Value2 Set b = Cells(i, 24).Value2 Set c = Cells(i, 24).Value2 ElseIf Cells(i, 1).Value2 = "Amor-Q4" Then Set a = Cells(i, 100).Value2 Set b = Cells(i, 97).Value2 Set c = Cells(i, 157).Value2 Set d = Cells(i, 89).Value2 End If Next End Sub，只需Like，因为您没有使用=或*符号来使用?。

这是使用Like并将结果显示在即时窗口（source）中的一些示例：

Like

关于使用?"Vito6" Like "V?to6" True ?"Vito6" Like "Vito#" True ?"Vito6" Like "V*6" True ?"Vito6" Like "Vit[a-z]6" True ?"Vito6" Like "Vit[A-Z]6" False ?"Vito6" Like "Vit[!A-Z]6" True ?"12 34" Like "## ##" True ?"12 34" Like "1[0-9] [0-9]4" True代替Integer - Why Use Integer Instead of Long?

一次调暗许多变量并在其中使用循环变量？

1 个答案: