求助，去掉单元格中0.0005L中的字母L,并且在单元格中把0.0005自动除以2.在快表vba里实现，因为在固定位置有几百个这样的单元格，希望按一个按钮就可以自动判别，并自动转换，单元格里是纯数字的就保持原样，是数值加L的就是去字母L，并且数值除2.附件放了一个excel，在快表vba里实现和这个excel一样的功能就行了。

hessen 发表于 2017-10-30 08:42
Option Strict OFF   写到最开始

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

Option Strict OFF   写到最开始

hessen 发表于 2017-10-30 08:15

你好，感谢你的回复，刚才在快表vba中点击编译并运行，提示Option Strict On 不允许从“Object”到“String”的隐式转换

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'按钮/标签点击事件

复制代码

hessen 发表于 2017-10-30 08:42
Option Strict OFF   写到最开始

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

Option Strict OFF   写到最开始

hessen 发表于 2017-10-30 08:15

你好，感谢你的回复，刚才在快表vba中点击编译并运行，提示Option Strict On 不允许从“Object”到“String”的隐式转换

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'按钮/标签点击事件

复制代码