单击单元格时显示单元格的公式

[复制链接]
查看: 733|回复: 0

481

主题

2075

帖子

4592

积分

学士

Rank: 7Rank: 7Rank: 7

积分
4592
发表于 2022-1-14 15:06:08 | 显示全部楼层 |阅读模式
在工资表中希望查询的用户能看到工资的计算方法,这样大家看到后就知道每一项是如何计算的。可以通过快表VBA实现,单击单元格时将单元格中的公式写入一个集中显示的区域。
GIF 2022-01-14 14-34-05.gif

20220114150523.png

  1.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
  2.                 ActiveWorkbook.WorkbookSet.GetLock()
  3.                 On Error Resume Next
  4.                     Dim Rng  As IRange = e.RangeSelection.Intersect(Range("T_1"))
  5.              If  Rng IsNot Nothing Then
  6.                                 'ActiveWorkbook.ActiveWorksheet.Range.Cells(0,e.RangeSelection.Column).value = e.RangeSelection.Formula
  7.                                 ActiveWorkbook.ActiveWorksheet.Range("FormulaArea").Value =  "'" + e.RangeSelection.Formula
  8.             End If
  9.                 ActiveWorkbook.WorkbookSet.ReleaseLock()
  10.        End Sub'单元格选择后执行的事件
复制代码


电话/微信:18049989370 QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

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

热门产品

关于我们

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十年的行业经验.我们的理念是:"快表软件-提高的不只是效率!"

联系我们

  • 地址: 上海市张江浦东软件园13-205室
  • 电话: +86 (0) 21-5161-9370
  • Email: kuaibiao@kuaibiao.cn
客户端

手机微信

© 2001-2020 快表软件    工信部备案号:沪ICP备13033196号    技术支持:快表软件