工具分享

2021年12月31日拥有了我的第一台苹果电脑MacBook Air Apple M1 芯片，之前没有用过Mac系统因此会遇到一些操作上的差异，当然这个过程中也有一些好用的功能，这个文章就记录一些我认为有趣的地方。 快速定位目标文件/文件夹 在访达界面中，使用 Shift-Command-G ，打开“前往文件夹”窗口，输入路径即可 - 在其他软件中选择本地文件时，使用**/**，打开“前往文件夹”窗口，输入路径即可

{callout color="#f0ad4e"} 本文来源于Apple官网，原文发布日期： 2022 年 07 月 27 日。 {/callout} 您可以按下某些组合键来实现通常需要鼠标、触控板或其他输入设备才能完成的操作。 要使用键盘快捷键，请按住一个或多个修饰键，然后按快捷键的最后一个键。例如，要使用 Command-C（拷贝），请按住 Command 键并按 C 键，然后同时松开这两个键。Mac 菜单和键盘通常使用符号来表示某些按键，其中包括以下修饰键： Command（或 Cmd）⌘ Shift ⇧ Option（或 Alt）⌥ Control（或 Ctrl）⌃ Caps Lock ⇪ Fn {alert type=“info”} 在 Windows PC 专用键盘上，请用 Alt 键代替 Option 键，用 Windows 标志键代替 Command 键。 Apple 键盘上的某些按键具有特殊符号和功能，例如显示屏亮度 、键盘亮度 、调度中心等。如果您的键盘上没有这些功能，您也许可以通过创建自己的键盘快捷键来实现其中的一些功能。要将这些键用作 F1、F2、F3 或其他标准功能键，请将它们与 Fn 键组合使用。 {/alert} 剪切、拷贝、粘贴和其他常用快捷键 Command-X ：剪切所选项并拷贝到剪贴板。 Command-C ：将所选项拷贝到剪贴板。这同样适用于“访达”中的文件。 Command-V ：将剪贴板的内容粘贴到当前文稿或 App 中。这同样适用于“访达”中的文件。 Command-Z ：撤销上一个命令。随后您可以按 Shift-Command-Z 来重做，从而反向执行撤销命令。在某些 App 中，您可以撤销和重做多个命令。 Command-A ：全选各项。 Command-F ：查找文稿中的项目或打开“查找”窗口。 Command-G：再次查找：查找之前所找到项目出现的下一个位置。要查找出现的上一个位置，请按 Shift-Command-G。 Command-H：隐藏最前面的 App 的窗口。要查看最前面的 App 但隐藏所有其他 App，请按 Option-Command-H。 Command-M：将最前面的窗口最小化至“程序坞”。要最小化最前面的 App 的所有窗口，请按 Option-Command-M。 Command-O：打开所选项，或打开一个对话框以选择要打开的文件。 Command-P：打印当前文稿。 Command-S：存储当前文稿。 Command-T：打开新标签页。 Command-W：关闭最前面的窗口。要关闭 App 的所有窗口，请按下 Option-Command-W。 Option-Command-Esc：强制退出 App。 Command-空格键：显示或隐藏“聚焦”搜索栏。要从“访达”窗口执行“聚焦”搜索，请按 Command–Option–空格键。（如果您使用多个输入源以便用不同的语言键入内容，这些快捷键会更改输入源而非显示“聚焦”。了解如何更改冲突的键盘快捷键。） Control-Command–空格键：显示字符检视器，您可以从中选择表情符号和其他符号。 Control-Command-F：全屏使用 App（如果 App 支持）。 空格键：使用“快速查看”来预览所选项。 Command-Tab：在打开的 App 中切换到下一个最近使用的 App。 Shift-Command-5：在 macOS Mojave 或更高版本中，拍摄截屏或录制屏幕。也可以使用 Shift-Command-3 或 Shift-Command-4 来拍摄截屏。进一步了解截屏。 Shift-Command-N：在“访达”中创建一个新文件夹。 Command-逗号 (,)：打开最前面的 App 的偏好设置。 ...

VBA创建新表汇总子sheet结果 源代码 V1.0 Public Sub abs_and_average() On Error Resume Next '这样不会报错。下标越界 If IsEmpty(Worksheets("data")) Then Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "data" Else Worksheets("data").UsedRange.ClearContents End If insertline=0 For Each usedsheet In Worksheets: insertline=insertline+1 If usedsheet.Range("b12") = "Cd3" Then usedsheet.Range("w14").FormulaR1C1 = "齿轮箱输入转速(r/min)的绝对值" usedsheet.Range("p10").FormulaR1C1 = "输入轴转速" '单元格输入公式，相对引用（可以通过录制宏进行修改替换） usedsheet.Range("w15").FormulaR1C1 = "=abs(RC[-1])" '判断需要填充多长，这里从第30行开始向后循环判断非空单元格 i = 30 While usedsheet.Cells(i + 1, 10) <> "" i = i + 1 Wend cc = "w15:v" & i '使用range的方法，向下填充，还有其他功能，可以通过录制宏查看 usedsheet.Range(cc).FillDown usedsheet.Range("q10").Formula = "=AVERAGE(U3964:U5014)" '把平均值输出到汇总表 Worksheets("data").cells(insertline,1)=split(usedsheet.name,"=")(0) Worksheets("data").cells(insertline,2)=split(usedsheet.name,"=")(1) Worksheets("data").cells(insertline,3)=usedsheet.Range("Q10").value Else End If Next ' 显示适当列宽 Worksheets("data").range("A:c").EntireColumn.AutoFit Worksheets("data").Sort.SortFields.Clear Worksheets("data").Sort.SortFields.Add2 Key:=Range("B1:B20"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With Worksheets("data").Sort .SetRange Range("A1:C20") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub V2.0 Public Sub abs_and_average0528() On Error Resume Next '这样不会报错。下标越界 If IsEmpty(Worksheets("data")) Then Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "data" Else Worksheets("data").UsedRange.ClearContents End If insertline=0 For Each usedsheet In Worksheets: insertline=insertline+1 If usedsheet.Range("b10") = "Cd3" Then '判断需要目标行数，这里从第30行开始向后循环判断非空单元格 i = 30 While Cells(i+1, 10) <> "" i = i + 1 Wend cc = "u12:x" & i usedsheet.range(cc).clear '单元格输入文字 usedsheet.Range("U12").FormulaR1C1 = "发电机转速（r/min）" usedsheet.Range("v12").FormulaR1C1 = "齿轮箱输入转速(r/min)" usedsheet.Range("w12").FormulaR1C1 = "【绝对值】发电机转速（r/min）" usedsheet.Range("x12").FormulaR1C1 = "【绝对值】齿轮箱输入转速(r/min)" '单元格输入公式，相对引用 usedsheet.Range("U13").FormulaR1C1 = "=RC[-1]*60/2/3.1415926" usedsheet.Range("V13").FormulaR1C1 = "=RC[-19]*60/2/3.1415926" '单元格输入公式，直接输入内容 usedsheet.Range("w13").Formula = "=abs(u13)" usedsheet.Range("x13").Formula = "=abs(v13)" '判断需要填充多长，这里从第30行开始向后循环判断非空单元格 i = 30 While usedsheet.Cells(i + 1, 10) <> "" i = i + 1 Wend cc = "u13:x" & i '使用range的方法，向下填充，还有其他功能，可以通过录制宏查看 usedsheet.Range(cc).FillDown usedsheet.Range("w11").Formula = "=AVERAGE(w1412:w50012)" usedsheet.Range("x11").Formula = "=AVERAGE(x1412:x50012)" '把平均值输出到汇总表 Worksheets("data").cells(1,1)= "sheet name" Worksheets("data").cells(1,2)="【绝对值】发电机转速（r/min）" Worksheets("data").cells(1,3)="【绝对值】齿轮箱输入转速(r/min)" Worksheets("data").cells(insertline+1,1)=usedsheet.name Worksheets("data").cells(insertline+1,2)=usedsheet.Range("w11").value Worksheets("data").cells(insertline+1,3)=usedsheet.Range("x11").value Else End If Next ' 显示适当列宽 Worksheets("data").range("A:c").EntireColumn.AutoFit ' Worksheets("data").Sort.SortFields.Clear ' Worksheets("data").Sort.SortFields.Add2 Key:=Range("B1:B20"), _ ' SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ' With Worksheets("data").Sort ' .SetRange Range("A1:C20") ' .Header = xlGuess ' .MatchCase = False ' .Orientation = xlTopToBottom ' .SortMethod = xlPinYin ' .Apply ' End With End Sub