excel表格_excel函数公式大全_execl从入门到精通
Excel 编程学习，ToggleButton切换按钮，使用方法介绍2024-04-25 19:24:25
一直没怎么使用切换按钮，通常用到也很少所也没有深入学习。
最近，仔细研究了一下，感觉在一些特殊的方面，使用起来有很好的便捷性。
其最大的特点就是：一个按钮可以实现执行不同的两个代码块。
这么考虑个按钮就使用起来比较方便了。
下面做一个详细介绍。
展示
下图是示例首页，可以看到三个功能按钮，这三个按钮都是切换按钮ToggleButton
从按钮标题可以看出来大概功能。
分别是切换颜色，切换字号，和全屏显示。
全屏
下图是全屏显示效果，全屏就是没有Excel 状态栏，标题栏和功能栏的窗口界面。
经测试，全屏状态下，表格不能编辑，可以作为浏览页展示使用。
Application.DisplayFullScreen = True''全屏显示代码
全屏效果图颜色
颜色切换，可以自由设备背景和字体颜色。
这个功能在对表格数据操作时很有用，对数据表格美观也是很需要重视的一个方面。
Interior.Color = RGB(210, 160, 201)''设置表格背景颜色font.Color = RGB(210, 21, 21)''设置字体颜色不同颜色切换字体字号
字体颜色改变的同时，增加了一个字体字号改变，可用下面代码来实现：
with font .Size = 11'字号 .Name = "微软雅黑"'字体 .Bold = False'粗体 .Color = RGB(1, 1, 1)'字体颜色 end with仿宋 14号字体程序里改变字体完整代码：
Private Sub ToggleButton3_Click()Dim R As Range Set R = ActiveSheet.Range("A1") Set R = ActiveSheet.Range("A2:N19") R.SelectIf Me.ToggleButton3.Value Then With R.Font .Size = 14 .Name = "仿宋" .Bold = True .Color = RGB(210, 21, 21) End With R.Borders.LineStyle = 0 R.HorizontalAlignment = 2Else With R.Font .Size = 11 .Name = "微软雅黑" .Bold = False .Color = RGB(1, 1, 1) End With R.Borders.LineStyle = 1 R.HorizontalAlignment = 3End If[c1].SelectEnd Sub其实可以把代码分别做成两个过程，分别来调用。
按钮主程序就变成如下几行代码：
Private Sub ToggleButton3_Click()If Me.ToggleButton3.Value ThenChange01 ''''''''''调用过程Change01Else Change02 ''''''''''调用过程Change01End If[c1].SelectEnd Sub
是不是十分简单了？其实还有两个过程，分别实现两个功能。
Sub Change01()''''过程1Dim R As Range Set R = ActiveSheet.Range("A1") Set R = ActiveSheet.Range("A2:N19") R.Select With R.Font .Size = 14 .Name = "仿宋" .Bold = True .Color = RGB(210, 21, 21) End With R.Borders.LineStyle = 0 R.HorizontalAlignment = 2End Sub
Sub Change02()''''过程2Dim R As Range Set R = ActiveSheet.Range("A1") Set R = ActiveSheet.Range("A2:N19") R.Select With R.Font .Size = 11 .Name = "微软雅黑" .Bold = False .Color = RGB(1, 1, 1) End With R.Borders.LineStyle = 1 R.HorizontalAlignment = 3End Sub
无形之中增加了一些重复代码，但是模块式，更加有利于程序可读性。
实现代码精简，也不是不可能。
以后，再介绍如何把代码进行删减，这里就不多说了。
功能实现为主，多几行代码这里也不会有什么影响。
下图是源码截图
结尾
欢迎关注江觅
学习不一样的Excel vba
标签: Excel如何编程做个按钮