### Excel学习笔记（打印版）知识点汇总
#### 1. 控制工具栏的启用与禁用
- **知识点**: `Application.CommandBars("Worksheet Menu Bar").Enabled = false` 这一行代码用于禁用Excel中的“工作表菜单栏”。
- **应用场景**: 当需要限制用户的操作权限，比如在发布的工作簿中防止用户误操作时，可以使用该方法来隐藏或禁用某些工具栏。
#### 2. 获取活动单元格所在行列数据
- **知识点**: `cells(activecell.row,"b").value` 表示获取活动单元格所在行的B列单元格中的值。
- **应用场景**: 在编写VBA脚本时，经常需要根据当前所选单元格获取或设置数据。例如，在进行数据分析时，可以通过该方法快速获取用户选择的特定行数据。
#### 3. 创建工作表并指定位置
- **知识点**:
```vba
Dim shtSheet As Worksheet
For Each shtSheet In Sheets
If shtSheet.Name = "KK" Then Exit Sub
Next shtSheet
Set shtSheet = Sheets.Add(Before:=Sheets(1))
shtSheet.Name = "KK"
End Sub
```
- **应用场景**: 当需要在Excel中动态创建新的工作表，并且指定其位置时，可以使用这段代码。例如，在开发报表模板时，可以基于用户的输入动态添加工作表，并确保它们按照一定的顺序排列。
#### 4. 设置列表框数据
- **知识点**: `Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")` 用于一次性填充列表框的数据。
- **应用场景**: 在创建交互式报表或者数据输入表单时，可以使用列表框来让用户选择特定的选项，如月份、季度等。
#### 5. 复制行数据到另一张表
- **知识点**: `Sheet2.Rows(1).Value = Sheet1.Rows(1).Value` 用于将一个表中的某一行全部复制到另一个表中。
- **应用场景**: 当需要在不同的工作表之间共享数据时，可以使用这种方法来复制行数据。例如，从原始数据表复制数据到汇总表。
#### 6. 解锁和锁定单元格
- **知识点**:
```vba
Me.Unprotect
Cells.Locked = False
Range("D11:E11").Locked = True
Me.Protect
```
- **应用场景**: 在保护工作表的同时，可以通过这种方式解锁或锁定特定的单元格。这对于创建用户友好的数据输入表单非常有用，可以确保用户只能修改指定的区域。
#### 7. 禁用工作表标签上的快捷菜单
- **知识点**: `Application.CommandBars("Ply").Enabled = False` 用于禁用工作表标签上的快捷菜单。
- **应用场景**: 如果希望用户只通过预定义的方式与工作表进行交互，可以禁用这些快捷菜单以减少意外操作的可能性。
#### 8. 复制单元格数据
- **知识点**:
```vba
Sub aa()
For i = 1 To 12
Range("C" & i) = Range("B" & i)
Next i
End Sub
```
- **应用场景**: 当需要批量复制数据时，这种循环方式非常高效。例如，在整理数据时，可以从一列复制数据到另一列。
#### 9. 插入批注
- **知识点**:
```vba
ActiveCell.AddComment
Selection.Font.Size = 12
```
- **应用场景**: 在进行文档审核或提供反馈时，可以在特定单元格中插入批注并设置字体大小。这对于文档协作非常有用。
#### 10. 禁止双击单元格
- **知识点**:
```vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
```
- **应用场景**: 当需要防止用户通过双击单元格进行编辑时，可以使用这个事件处理程序。这有助于保持数据的完整性。
#### 11. 设置滚动区域
- **知识点**: `ScrollArea` 属性用于设置允许滚动的区域。
```vba
Worksheets(1).ScrollArea = "a1:f10"
```
- **应用场景**: 当工作表数据量很大时，可以使用此属性来限定用户查看的区域。这对于展示特定的数据集非常有用。
#### 12. 检测最大值并触发动作
- **知识点**:
```vba
if application.max([a1:e1])=10 then
msgbox""
commandbutton1.enabled=false
```
- **应用场景**: 当需要监控某一范围内的最大值，并在满足条件时执行特定操作（如弹出消息框、禁用按钮等），可以使用这种方法。这在数据监控和异常检测方面非常实用。
#### 13. 更改单元格颜色
- **知识点**:
```vba
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5
End Sub
```
- **应用场景**: 当需要自动改变更改过的单元格颜色时，可以使用这个事件处理程序。这对于数据验证和突出显示更改非常有用。
#### 14. 动态求和
- **知识点**:
```vba
Sub test()
Dim rng As Range, rng2 As Range
For Each rng In ActiveSheet.UsedRange.Columns
Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column))
rng2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2)
Next rng
End Sub
```
- **应用场景**: 在需要动态计算每列总和的情况下，可以使用这段代码。例如，在制作财务报告时，可以自动计算每一列的总计，提高工作效率。
#### 15. 建立多表链接
- **知识点**:
```vba
Sub test2()
...
```
- **应用场景**: 当需要在一个工作表中建立对其他多个工作表的链接时，可以使用类似的方法。这对于创建复杂的报表结构非常有用，可以在一个中心工作表中快速访问和汇总来自不同来源的数据。
以上就是从给定的文件内容中提取的关键知识点。这些知识点涵盖了从简单的数据操作到复杂的逻辑控制，对于初学者和进阶用户都非常有用。通过掌握这些技巧，可以大大提高使用Excel的效率和灵活性。
