快表软件

标题: 求助，在快表去掉单元格中类似0.0005L中的字母L，并把剩下的数值除2 [打印本页]
作者: dadong610    时间: 2017-10-29 18:44
标题: 求助，在快表去掉单元格中类似0.0005L中的字母L，并把剩下的数值除2
本帖最后由 dadong610 于 2017-10-30 09:08 编辑

求助，去掉单元格中0.0005L中的字母L,并且在单元格中把0.0005自动除以2.在快表vba里实现，因为在固定位置有几百个这样的单元格，希望按一个按钮就可以自动判别，并自动转换，单元格里是纯数字的就保持原样，是数值加L的就是去字母L，并且数值除2.附件放了一个excel，在快表vba里实现和这个excel一样的功能就行了。
作者: hessen    时间: 2017-10-29 18:44
本帖最后由 hessen 于 2017-10-30 09:46 编辑
  1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
  2. AW.WorkbookSet.GetLock()
  3. If e.shape.name="BTEST" then
  4. For Each Target As IRange In RANGE("$A$1:$G$4")
  5. IF RIGHT(Target.Value,1)= "L" THEN
  6. Target.Value = LEFT(Target.Value,LEN(Target.Value)-1) / 2
  7. END IF
  8. Next
  9. End if
  10. AW.WorkbookSet.ReleaseLock()
  11. End Sub'按钮/标签点击事件
复制代码

作者: dadong610    时间: 2017-10-30 08:33
hessen 发表于 2017-10-30 08:15

你好，感谢你的回复，刚才在快表vba中点击编译并运行，提示Option Strict On 不允许从“Object”到“String”的隐式转换
作者: hessen    时间: 2017-10-30 08:42
Option Strict OFF   写到最开始
作者: dadong610    时间: 2017-10-30 08:45
hessen 发表于 2017-10-30 08:42
Option Strict OFF   写到最开始

最开始是那个位置啊，我qq是495182383，能远程给看一下吗




欢迎光临 快表软件 (http://bbs.kuaibiao.cn/) Powered by Discuz! X3.4