下一个命令 - 在清除表单字段时转发到下一个Excel行

Question

我想推送下一个命令按钮，从表单中提取信息并将其输入我的Excel电子表格。虽然我想添加警告“选择下一步将保存当前数据和清除表格”这可以吗？如果选择是，则表单清除，用户可以输入其他人员信息。

有人会协助代码吗？

Answer 1

Private Sub Next_Command_Click（）
    做
        nCurrentRow = nCurrentRow + 1
        TraverseData（nCurrentRow）
    循环直到NCCL.Cells（nCurrentRow，1）.Value =＆＃34;＆＃34;或NCCL.Cells（nCurrentRow，1）.Value = Me.PatientIdentifier_Text.Value
结束子

Private Sub Previous_Command_Click（）
    做
        nCurrentRow = nCurrentRow - 1
        TraverseData（nCurrentRow）
    循环直到nCurrentRow = 1或NCCL.Cells（nCurrentRow，1）.Value = Me.PatientIdentifier_Text.Value
结束子