Question

我想用vba（excel）获取绿色表中行的位置。活动单元在该单元内部不是必需的。

事件的顺序： -用户单击表格内的单元格 -行以绿色高亮显示+上部行显示行，以便能够对其进行修改+活动单元格移至工作表顶部显示行的位置 -用户编辑工作表上部的行 -用户单击更新，然后将顶部显示的数据复制到当前以绿色突出显示的单元格中（但该行不必包含活动单元格）

我需要最后一步的帮助。复制到以绿色突出显示但未激活的行中。我该怎么办？

将行标记为绿色的代码是：（每次用户单击表内的新单元格时，都会调用Sub Clickinside）

Sub ClickInside()

    Dim cellno As String: cellno = Str(ActiveCell.row)
    Dim myRow As Range
    Set myRow = ActiveCell.EntireRow 'I want to select the row in the table ONLY

    Call Unprotect
    Call MarkRow(cellno, myRow)
End Sub

Sub MarkRow(cellno As String, myRow As Range)


    'Marking that row in yellow
    Range("Schema").Interior.ColorIndex = 0
    Application.ScreenUpdating = False
    Range("B" & Trim(cellno) & ":I" & Trim(cellno)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = RGB(0, 255, 0)
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Application.ScreenUpdating = True

End Sub

要选择单元格，我知道代码应为：

With Application.FindFormat.Interior
    .PatternColorIndex = xlAutomatic
    .Color = 65280
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

但是，如果我想放置这些单元格怎么办？为了能够在其中粘贴信息。

谢谢！

获取绿色表中行的位置

0 个答案: