-1

我正在尝试创建一个 excel 电子表格，每当我按下一个按钮时，它都会从一张纸上读取信息，并（根据该信息）在另一张纸上填充一个具有特定值的单元格。

例如：

学生输入他们的测试答案。excel 文档对照数据库检查所有答案并计算分数并将它们与某些目标相关联（我已经处理好了）。

然后，学生按下“更新”按钮。该程序将读取学生的姓名（提供行号）和他们参加的测试（提供列-我仍然不确定如何提出带有字母的特定列，所以这也会有帮助）它会用学生的分数更新那个单元格。

我该怎么做？

4

1 回答 1

0

好的，就像你说的那种代码，我以前做过。这个我可以为你解答。但是因为我根本看不到你的努力。所以我只是给你我的代码并解释它，然后你需要把它改成你的问题代码。好？

      c = TB1.Value >> (My textbox for user to fill in their name that same with the sheet row value)

    Cells.Find(What:=c, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Activate
        myRow = ActiveCell.Row
        rtb = myRow >> My Row XX Value just like you said want to know at what row hold that value.

    e = coltb.Text >> (My textbox for user to fill in their date value that will be find in column)
    Cells.Find(What:=e, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=True).Activate
        myColumn = ActiveCell.Column
        ctb = myColumn >>> (My Column XX value just like for know what is the column that hold the value)

Worksheets("Sheet1").Cells(rtb, ctb) = Val(Score) > Your RTB(Row value) + CTB(Column Value) then the score of your test.

可能是这样，不是你想要的吗？此代码用于 VBA，导致您的标签使用 VBA

希望会有所帮助

于 2013-03-28T01:23:48.173 回答