我写了一个宏,虽然它有效但功能上并不是我需要的 . 这是一个交互式清单,可以分解机器的多个区域,如果它们正在工作,则检查它们,然后更新包含多个部分的主列表 . 但是,它一次只能用于一个单元格,并且它需要能够一次处理多个单元格(包括行和列) . 这是我目前的代码:
'Updates needed:
' Make so more than one cell works at a time
' in both x and y directions
Private Sub Worksheet_Change(ByVal Target As Excel.range)
Dim wb As Workbook
Dim mWS As Worksheet
Dim conName As String
Dim mCol As range
Dim mCon As Integer
Dim count As Long
Dim cell As range
Dim y As String
count = 1
y = ""
Set wb = ActiveWorkbook
Set mWS = wb.Sheets("Master")
Set mCol = mWS.range("B:B")
mCon = 0
'Selects the name of the string value in which we need to search for in master list
If Target.Column < 100 Then
ThisRow = Target.Row
conName = ActiveSheet.Cells(ThisRow, "B")
y = Target.Value
End If
'search for matching string value in master list
For Each cell In mCol
If cell.Value = conName Then
mCon = count
Exit For
End If
count = count + 1
Next
'mark as "x" in Master list
Dim cVal As Variant
Set cVal = mWS.Cells(count, Target.Column)
cVal.Value = y
End Sub
发生了什么 - 如果我向下拖动“x”表示多行或多列,我的代码会在y = Target.Value处断开,并且只会更新我首先选择的单元格以及主列表中的对应单元格 . 它应该做的是,如果我将“x”拖放到多行列上,它应该更新我正在处理的工作表和主列表中的所有列 . 我一次只设置一个单元格的宏,我不知道如何设置它来拖放多行的“x”值
2 回答
我认为你需要在
Target
上进行For ... Each
迭代才能使用多个单元格 . 正如Michael在评论中指出的那样,_Change
事件仅触发一次,但Target
反映了所有已更改的单元格,因此您应该能够遍历Target
范围 . 我使用这个简单的事件处理程序测试我无法对您的数据/工作表进行明显的测试,但我认为它应该让您走在正确的轨道上 .
您需要使用
ForEach
循环遍历单元格 .此外,您可能更好地使用
Selection
对象而不是Target