Excel表格不起作用

Question

对于Excel VBA Forms，我是一个完整的新手并尝试创建以下表单。我现在正试图让它与我的学生电子表格一起工作，但它不起作用。

我已经完成了脚本以及在选择学生名字方面似乎唯一有用的一点，没有别的事情正在做我期望的事情，我不知道我哪里出错。< / p>

这是为了学校艺术系，所以他们可以从列表中选择一个学生，并填写学生代码和学生表格字段。然后，他们应该能够在相关字段旁边添加学生购买的任何项目的数量，然后应该更新Excel电子表格中的相关字段。如果该字段中有一个退出号码，则需要将其添加到该号码中。

对此有任何帮助或建议将非常感激！

Answer 1

您可以使用RANGE功能来实现这一目标。

例如，如果您的电子表格如下所示：

+------------+--------+------------+---------------+---------------+
| Pupil Code | Pencil | Edding Pen | A5 Spiral Pad | A6 Spiral Pad |
+------------+--------+------------+---------------+---------------+
| 10154      | 0      | 1          | 0             | 2             |
+------------+--------+------------+---------------+---------------+
| 10155      | 1      | 1          | 0             | 1             |
+------------+--------+------------+---------------+---------------+
| 10156      | 0      | 0          | 0             | 1             |
+------------+--------+------------+---------------+---------------+

您可以使用RANGE功能在电子表格中找到您的学生代码：

Dim r as Range

For each r in Range("A2:A100")
   If r.Value = textboxPupilCode.Value Then
      textboxPencil.Value = r.Offset(0,1).Value
   End If
Next r

OFFSET函数指的是从当前范围看到的单元格。在这种情况下，关于瞳孔代码右侧的单元格。