Question

您好我有一个excel文件，包含3个大小的项目（大，中，小项目大小）。我已经根据他们的项目大小在一个excel表中分离了它们。但是在将来，我需要根据项目规模添加新项目。我需要一个用户表单代码来运行，并根据项目大小添加新信息。到目前为止，我只设法创建一些代码。但它不起作用，因为它会找到任何空行并填写，这不是我想要的。我想要的是一个有助于根据项目大小进行选择并从那里插入新行的代码。例如，新项目大小很小，因此项目信息将插入到小型项目中找到的空行中。这是我到目前为止的代码。

    Private Sub CommandAddButton1_Click()

lastrow = Sheets("Programme Status Summary").Range("J").End(xlDown).Row

    Cells(lastrow + 1, "J").Value = TextBoxProjCode.Text
    Cells(lastrow + 1, "E").Value = TextBoxProjName.Text
    Cells(lastrow + 1, "C").Value = TextBoxSegment.Text
    Cells(lastrow + 1, "F").Value = TextBoxSummary.Text
    Cells(lastrow + 1, "G").Value = TextBoxAcc1.Text
    Cells(lastrow + 1, "H").Value = TextBoxAcc2.Text
    Cells(lastrow + 1, "I").Value = TextBoxProjM.Text
    Cells(lastrow + 1, "K").Value = TextBoxCountry.Text
    Cells(lastrow + 1, "L").Value = TextBoxRegulatory.Text
    Cells(lastrow + 1, "M").Value = TextBoxRiskLvl.Text
    Cells(lastrow + 1, "P").Value = TextBoxSchForecast.Text
    Cells(lastrow + 1, "R").Value = TextBoxSchPar.Text
    Cells(lastrow + 1, "S").Value = TextBoxImpact.Text
    Cells(lastrow + 1, "T").Value = TextBoxCustNonRetail.Text
    Cells(lastrow + 1, "U").Value = TextBoxCustRetail.Text
    Cells(lastrow + 1, "V").Value = TextBoxOutsourcingImp.Text
    Cells(lastrow + 1, "W").Value = TextBoxListImpt.Text
    Cells(lastrow + 1, "X").Value = TextBoxKeyStatus.Text
    Cells(lastrow + 1, "N").Value = TextBoxSchStart.Text
    Cells(lastrow + 1, "O").Value = TextBoxSchEnd.Text
    Cells(lastrow + 1, "Y").Value = TextBoxRagStatus.Text
    Cells(lastrow + 1, "Z").Value = TextBoxRagCost.Text
    Cells(lastrow + 1, "AA").Value = TextBoxRagBenefit.Text

Unload AddMedProjects

End Sub

我希望有人能帮助我，因为我不擅长这一点。谢谢！

根据使用用户表单设置的行范围添加新的信息行

0 个答案: