Question

I am making a growing calendar, where each variety has a different growing length. I would like to create a VBA? which will automatically input "E" (Expected Harvest) into the cell so many columns to the right depending on the variety from "P" (Planted) The "P" would be manually inputted. And "H" would be manually inputted when the plant has been Harvested.

Once it has been Harvested, I would like that row to go to the bottom. So all the expected plants to be harvested, are at the top.

What it would look like ideally

“Sheet

我知道最终结果,在那里,需要帮助

Answer 1

用户在第一份表格的模块中书写该代码,然后输入改动活动,以插入<代码>。 E 。

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .CountLarge = 1 Then
            If .Row > 2 And .Column > 5 And UCase(.Value) = "P" Then
                  Update sheet name as need, loading the 2nd table
                arr = Sheets("Sheet2").[a1].CurrentRegion.Value
                For i = 2 To UBound(arr)
                    If arr(i, 4) = Me.Cells(.Row, 2) Then
                        If .Column + arr(i, 5) <= Me.Columns.Count Then
                            Application.EnableEvents = False
                            .Offset(0, arr(i, 5)).Value = "E"
                            .Offset(0, arr(i, 5)).Interior.Color = 12574926
                            Application.EnableEvents = True
                        End If
                    End If
                Next
            End If
        End If
    End With
End Sub

b 以前,在欧佩斯最后一行的<代码>E的位置似乎不正确。 <代码>CO和GO>的日数相同。

友情链接