缩写管理

Question

我需要处理大量缩写，因此我想创建一个电子表格，当我在新单元格中输入每个缩写时，所有缩写都会自动排序。此外，当按字母顺序排列时，与此类单元格对应的整行必须移动。

我只是假设这是最好的继续进行的方式，所以欢迎任何想法。

Answer 1

假设我们有类似的东西：

Out 编辑程序要求在 B 列中输入全文，然后在 A 列中输入其旁边的缩写。首先将以下子项放入 标准模块 :

Sub Macro1()
   Dim N As Long
   N = Cells(Rows.Count, "A").End(xlUp).Row
   Columns("A:B").Select
   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A" & N), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Sheet1").Sort
      .SetRange Range("A1:B" & N)
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
End Sub

然后将这个事件宏放在工作表代码区:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim A As Range
   Set A = Range("A2:A" & Rows.Count)
   If Intersect(Target, A) Is Nothing Then Exit Sub
   If Target.Offset(0, 1) = "" Then Exit Sub

   Application.EnableEvents = False
      Call Macro1
   Application.EnableEvents = True
End Sub

启用宏后，更改 A 列中的单元格将导致 table 重新排序。

缩写管理

Abbreviations management

excel

vba

excel-2007