Question

我想在每次运行代码时将我的公式引用从B15内的两个列中的函数移到右边。（我想用它制作一个宏按钮）

  Could not match type

    ( exception :: EXCEPTION
    , exception :: EXCEPTION
    )

  with type

    ( console :: CONSOLE
    , exception :: EXCEPTION
    , exception :: EXCEPTION
    )


while trying to match type Eff
                             ( exception :: EXCEPTION
                             , exception :: EXCEPTION
                             )
  with type Eff
              ( console :: CONSOLE
              , exception :: EXCEPTION
              )
while checking that expression (apply void) (launchAff ((bind (...)) (\$0 ->
                                                                        ...
                                                                     )
                                                       )
                                            )
  has type Eff
             ( console :: CONSOLE
             , exception :: EXCEPTION
             )
             Unit
in value declaration g

我尝试为c值添加变量，但无法多次循环它。

关于如何构建代码的任何想法？

Answer 1

因为它是一个字符串，你可以循环遍历每个字符并检查C [知道下一个数字直到]是数字（如果你不想使用全局变量）。提取它们并添加2.以下是如何执行此操作的示例

Sub button1_click()
Dim sFormula As String
Dim sParts As String
Dim cChar As String
Dim cFound As Boolean
Dim bracketFound As Boolean
Dim i As Long
cFound = False
bracketFound = False


sParts = Range("B15").FormulaR1C1
'loop through the string
For i = 1 To Len(sParts)
    If cFound = True Then 'did we already find the C in the string
        If bracketFound = True Then 'did we already find the first bracket
            Dim iCount As Long
            iCount = 0 'how many numeric digits we will have
            While IsNumeric(Mid(sParts, i + iCount + 1, 1)) = True 'check each digit after to see if it is numeric
                iCount = iCount + 1
            Wend

            cChar = CStr(CInt(Mid(sParts, i, 1 + iCount)) + 2) 'get our number and add 2
            'update i
            i = i + iCount
            'reset flags
            bracketFound = False
            cFound = False
        Else
            If Mid(sParts, i, 1) = "[" Then 'check for inner bracket
                bracketFound = True
                cChar = Mid(sParts, i, 1)
            End If
        End If
    Else
        If Mid(sParts, i, 1) = "C" Then 'check for the C char
            cFound = True
            cChar = Mid(sParts, i, 1)
        Else
            cChar = Mid(sParts, i, 1)
        End If
    End If
    sFormula = sFormula & cChar 'update formula

Next i
'set the new formula
Range("B15").FormulaR1C1 = sFormula

End Sub

偏移FormulaR1C1每个按钮单击

1 个答案: