有没办法真真正正地让数字自动加上前缀？

34412113 · 发表于 2012-4-11 10:49

看了你的附件，有一种变通的方法，就是你改变你的公式就可以了，没有必要在数据上面纠结。

lzqmsy · 发表于 2012-4-11 10:52

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then
         Application.EnableEvents = False
         Target = "K" & Target
         Application.EnableEvents = True
      End If
End If
End Sub

sishuiren · 发表于 2012-4-11 11:04

看了这么多回复，有解决了此问题的，但不太简单

考试加油站 · 发表于 2012-4-11 11:07

swl4561255 发表于 2012-4-10 18:08
自定义单元格数字格式为：K0，录入完成后选定数据区，复制，然后按CTRL+C两次，打开剪贴板，粘贴剪贴板内容 ...

这个方法太好，收藏与学习了

ctp_119 · 发表于 2012-4-11 11:13

foundking 发表于 2012-4-11 10:34
看了您的回答。一阵欣喜，因为这正是我想要的答案。但是再看您第二次回答，我真的想哭了。估计要学VB不是 ...

其实很简单的，我都跟你说了，现学现用呀。。至于其他的，慢慢来……

foundking · 发表于 2012-4-11 11:14

本帖最后由 foundking 于 2012-4-11 11:14 编辑

lzqmsy 发表于 2012-4-11 10:52
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column ...

又是用到VB的……{:soso_e105:}
偶不会用啊……
弱弱问这串代码弄到哪里去？
{:soso_e105:}
如果非得VB才能解决，暂时我也只有一个一个地输入了。日后抽时间学习一下VB……

foundking · 发表于 2012-4-11 11:17

ctp_119 发表于 2012-4-11 11:13
其实很简单的，我都跟你说了，现学现用呀。。至于其他的，慢慢来……

你的那串代码，放在哪里呀……现学现用，也得有个切入点呢……{:soso_e101:}
现在连它他通过哪个菜单放在哪里我都不知道……
弱弱问声老师，您是否能给我个方向？{:soso_e105:}

ctp_119 · 发表于 2012-4-11 11:21

加我qq，远程吧，，，你按alt+f11就可以看见代码了。。

黯夜琉璃 · 发表于 2012-4-11 12:34

楼主啊你这个真是看得我无比纠结
ctp已经拟好代码了你放去代码窗口就能用了

不过我想说代码比公式还量身定做
如果你除了K以外还有其他规则的
最好一并说明不然该段代码会有不适
而且你摆放序号的列也永远只能是当前列
任何删除、移动都会导致代码报错

foundking · 发表于 2012-4-11 12:47

黯夜琉璃发表于 2012-4-11 12:34
楼主啊你这个真是看得我无比纠结
ctp已经拟好代码了你放去代码窗口就能用了

{:soso_e117:}是啊，已经发现了。我把第一列的数据复制到别的列，就失效了。

		自动登录	找回密码
密码			免费注册

[求助] 有没办法真真正正地让数字自动加上前缀？