如何自动分配用户表单条目

Question

我有一个问题是如何在通过用户表单将信息提交到表格时自动对信息进行排序。

我已尝试过以下代码，但会出错。因为我是Excel编码的新手，所以我无法弄清楚如何使这个工作：

Dim LR As Integer
LR = Range("A1:E1").End(xlUp).Row
Application.EnableEvents = False
Range("A1:BB" & LR).Sort Key1:=Range("A1"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.EnableEvents = True

标题图片

UserForm图片

用户表单本身非常好用。我想在日期栏中按降序排序。

Answer 1

1. 确定您要使用的确切工作表和范围。
2. 每次清除排序并重新应用排序。
3. 在设置排序范围之前获取上次使用的数据范围。 （您设置<!-- Accessing Camera Hardware --> <uses-permission android:name="android.hardware.Camera" /> <uses-feature android:name="android.hardware.camera"/> <uses-feature android:name="android.hardware.camera.autofocus"/> <uses-feature android:name="android.hardware.camera.flash"/> <uses-feature android:name="android.hardware.location"/> 的方式始终是第1行。）

像这样：

LR