excel vba-在列中查找單元格的值並記錄相應行的另一列中的文本

Question

我喜歡excel，可以編寫非常基本的宏，但是想做一些更復雜的事情，這將使向學生提供信息非常有效。

想象下面的數據是一本成績冊。 A列是家庭作業的列表，然后下一列是一個學生，以及每個作業的成績。

    |    A     |   B
 ---------------------
 1. | student: | Nick 
 2. | HW2 ---  |  0  
 3. | HW3 ---  |  0
 4. | HW4 ---  |  3
 5. | HW5 ---  |  0

我希望能夠選擇一個學生的姓名，然后單擊一個按鈕，該按鈕將記錄A列中與其中“ 0”的學生姓名下的任何行相對應的作業列表...目標是此分配列表可以放在電子郵件的正文中。 我編寫了一個函數，該函數將導致出現一封電子郵件，但是我無法弄清楚該函數的代碼，該函數將收集可以放入該電子郵件正文中的“硬件上的0”數據。

感謝您的幫助。 謝謝！

Answer 1

嘗試這樣的事情：

Sub Grade_0()
    Name = ActiveCell
    Set Sheet = ActiveCell.Worksheet
    List = ""
    With Sheet
        colOffset = ActiveCell.Column - 1
        For Each cell In .Range(.Range("A2"), .Range("A2").End(xlDown))
            If cell.Offset(0, colOffset) = 0 Then
                List = List + cell + " "
            End If
        Next
    End With

    MsgBox List
End Sub

這只是找到作業的演示。 您必須如何排隊並以正確的方式返回它們。