首页 > Office专区 > Excel教程 >

Excel一键实现单元格内容在上标和常规间切换

来源:互联网 2023-02-21 16:35:11 67

基于切换控件和VBA代码一键实现所选区域单元格内容在上标形式和常规形式之间切换。c2B办公区 - 实用经验教程分享!

Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

工具/原料

  • Excel

方法/步骤

  • 1

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

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 2

    先插入一个ActiveX控件,找到控件命令的可以参考以下链接:c2B办公区 - 实用经验教程分享!

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

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 3

    绘制好后,如图所示。c2B办公区 - 实用经验教程分享!

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 4

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

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 5

    此时会自动跳转到VBA窗口。c2B办公区 - 实用经验教程分享!

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 6

    在工作表代码窗口中复制粘贴以下代码:c2B办公区 - 实用经验教程分享!

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

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

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

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

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

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

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

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

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

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

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

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 7

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

    框选单元格区域,点击按钮即可将单元格内容变成上标,再点击一次即可将所选区域单元格变回常规正常模式。c2B办公区 - 实用经验教程分享!

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

    Excel一键实现单元格内容在上标和常规间切换c2B办公区 - 实用经验教程分享!

  • 7此文章未经授权抓取自百度经验
  • 注意事项

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

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


    标签: excel实现单元内容

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