Excel表格插入、删除和修改批注的方法,Excel表格插入、删除和修改批注的方法......
帮忙写vba如何给工作表排序
今天跟大家分享一下如何为工作表排序
工具/原料
- Excel
方法/步骤
如下图Excel中含有多个工作表,现在我们想要将这些工作表按照数值升序排列
首先同时按下Alt F11
点击sheet1
在下图空白区域录入vba代码
点击【运行】然后选择【运行子过程/用户窗体】,或者直接按下F5运行代码
最后点击【是】就可以将工作表升序排列
完成效果如下图,最后跟大家分享一下本文这里所使用的vba代码。
'激活工作表事件
'激活工作表,写入除目录外所有表名
'作者:如需帮忙写vba,请百度方方格子
'------------------------------------------
Sub 工作表标签排序()
Dim i As Long, j As Long, nums As Long, msg As Long
msg = MsgBox("工作表按升序排列请选 '是[Y]'. " & vbCrLf & vbCrLf & "工作表按降序排列请选 '否[N]'", vbYesNoCancel, "工作表排序")
If msg = vbCancel Then Exit Sub
nums = Sheets.Count
If msg = vbYes Then 'Sort ascending
For i = 1 To nums
For j = i To nums
If UCase(Sheets(j).Name) UCase(Sheets(i).Name) Then
Sheets(j).Visible = True
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
Else 'Sort descending
For i = 1 To nums
For j = i To nums
If UCase(Sheets(j).Name) > UCase(Sheets(i).Name) Then
Sheets(j).Visible = True
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End If
End Sub
注意事项
- Excel工具箱,百度即可了解详细的下载安装信息,本文这里就不做具体解说
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!