[已解决]看下附件，实现有光标的

xxtt369

看下附件，实现有光标的

最佳答案

月排行榜 / 总排行榜

xdragon

2014-8-23 14:08

1. Sub 运费()
   
2.    Dim n&, rng As Range
   
3.    Set rng = ActiveCell
   
4.    rng.Value = "运费=33"
   
5.    n = Len(rng.Value) - InStr(rng.Value, "=")
   
6.    Application.SendKeys "{F2}{left " & n & "}"
   
7. End Sub

复制代码

还是老样子，根据你自己的需求改这个运费=33

跳转到最佳答案楼层

十五的月亮

双击一下不就行了

xxtt369

十五的月亮 发表于 2014-8-23 10:36
双击一下不就行了

正是因为经常用到，双击麻烦。才来求助的。

xxtt369

再顶装 下，可否中实现？？

xdragon

1. Sub 运费()
   
2.    ActiveCell.Value = "运费="
   
3.    Application.SendKeys "{F2}"
   
4. End Sub

复制代码

xxtt369

xdragon 发表于 2014-8-23 13:27

谢谢老师！敢再问下，可否再进一步，想把光标控制到哪个字节，也就是单元格里更精确的位置么。
打个比方，在=后面还有文字时，要求把光标只定位在=号后面。能实现么？

xdragon

1. Sub 运费()
   
2.    Dim n&, rng As Range
   
3.    Set rng = ActiveCell
   
4.    rng.Value = "运费=33"
   
5.    n = Len(rng.Value) - InStr(rng.Value, "=")
   
6.    Application.SendKeys "{F2}{left " & n & "}"
   
7. End Sub

复制代码

还是老样子，根据你自己的需求改这个运费=33

xxtt369

xdragon 发表于 2014-8-23 14:08
还是老样子，根据你自己的需求改这个运费=33

非常强大。谢谢！