周一至周五 : 08:30 - 17:30 客服专员电话/微信:17301649370 QQ:2902102332
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
双击指定单元,循环录入文本(工作表代码)
显示全部楼层 倒序浏览 发表日期 2014-02-12 17:34:35 2725次阅读 1次回复
susan
2014-2-12 17:34:35
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
    If T.Address <> "$A$1" Then Exit Sub
    Cancel = True
    T = IIf(T = "好", "中", IIf(T = "中", "差", "好"))
End Sub
双击指定单元,循环录入文本(工作表代码)
Dim nums As Byte
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$A$1" Then
        nums = nums Mod 3 + 1
        Target = Mid("上中下", nums, 1)
        Target.Offset(1, 0).Select
    End If
End Sub
先收藏     研究研究

精彩评论1

先收藏     研究研究
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |