主题：按列设置的顺序输入内容

有一个表，包含有[类别],[原料名称],[型号等级],[包装规格],[原料代码]几列，要求必须按列设置的顺序输入内容，

在PrepareEdit中设置下面的代码即可实现。

If e.IsFocusCell Then   
    If e.Col.Name = "原料名称" And e.Row.IsNull("类别") = True Then
        e.Cancel = True
    ElseIf e.Col.Name = "型号等级" And e.Row.IsNull("原料名称") = True Then
        e.Cancel = True
    ElseIf  e.Col.Name = "包装规格" And e.Row.IsNull("型号等级") = True Then
        e.Cancel = True
    ElseIf e.Col.Name = "原料代码" And e.Row.IsNull("包装规格") = True Then
        e.Cancel = True
    Else
    End If
End If

问题是：能不能写一段简化的代码？

比如原理为：如果左侧列不为空即可输入本列，最左一列除外。