首页 > Office专区 > Excel教程 >

Excel一键实现区域内容在下标和常规间切换技巧

来源:互联网 2023-02-21 16:35:25 165

基于VBA技巧一键控制选区内容在下标形态和常规形态之间切换。y7X办公区 - 实用经验教程分享!

Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

工具/原料

  • Excel

方法/步骤

  • 1

    本教程以下列数据为例。y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 2

    插入一个切换按钮,找不到命令的话,可以参考以下链接:y7X办公区 - 实用经验教程分享!

    38Excel插入ActiveX控件技巧y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 3

    选好命令后,按住鼠标左键不松,拖动鼠标绘制按钮,绘制好后,松开鼠标左键即可。y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 4

    右键菜单,选择查看代码。y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 5

    在弹出的窗口中,复制粘贴一下代码(直接覆盖粘贴):y7X办公区 - 实用经验教程分享!

    Private Sub ToggleButton1_Click()y7X办公区 - 实用经验教程分享!

    Dim rng As Rangey7X办公区 - 实用经验教程分享!

    Set rng = Selectiony7X办公区 - 实用经验教程分享!

    For Each rng In Selectiony7X办公区 - 实用经验教程分享!

    If ToggleButton1 Theny7X办公区 - 实用经验教程分享!

    rng.Font.Subscript = Truey7X办公区 - 实用经验教程分享!

    Elsey7X办公区 - 实用经验教程分享!

    rng.Font.Subscript = Falsey7X办公区 - 实用经验教程分享!

    End Ify7X办公区 - 实用经验教程分享!

    Nexty7X办公区 - 实用经验教程分享!

    End Suby7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 6

    关闭VBA界面,返回Excel窗口。y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 7

    框选区域,按下按钮,选区内容变成下标形式;再次点击按钮(即弹起按钮),所选内容又变回常规形式。y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

    Excel一键实现区域内容在下标和常规间切换技巧y7X办公区 - 实用经验教程分享!

  • 7本页面未经许可获取自百度经验
  • 注意事项

    • 如果对您有点帮助,请帮忙点个赞再走,谢谢!

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!y7X办公区 - 实用经验教程分享!


    标签: excel实现区域内容技巧

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码