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

ctp_119

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Application.EnableEvents = False
If Target.Column <> 1 Then Exit Sub
str = Target.Value
Target.Value = "k" & str
Application.EnableEvents = True
End Sub

foundking

zlaizhl 发表于 2012-4-10 22:22
希望这是你要的结果

想要的倒是。但是你这个是把所有的单元格都弄成会自动加K了。我只需第一列，或者特定的某一列加K，其它的要是正常的。

foundking

turkey2008 发表于 2012-4-10 23:42
请楼主把7楼说的后半部分吃透再发表言论，不会用瞎说，无语。“按CTRL+C两次，打开剪贴板，粘贴剪贴板内容” ...

您说的操作我知道。我并不是单单要复制一个K+数字的编号就行了。我随后的操作还要用加了K的这个序号来引用函数或者用函数来引用它。我想要使自动加了前缀的序号和直接手工输入的前缀+数字的序号是同一个东东，您或许没理解我的意思。

foundking

ditiantai56 发表于 2012-4-10 18:52
这样行吗？

这种方法我试过了。可行。而且用函数来引用自动生成带K的序号没有错误。

寅鹞

用通用格式G打头的那个。

foundking

terqm 发表于 2012-4-10 22:16
不用VBA无解，况且就输入一个K字不会太麻烦吧。。。用0+数字 =  K+ 数字 倒是还可以。

输入一个K虽然不麻烦。但是我要有成几百个上千个这样的序号要处理。而且不单单是一个K，而且还有S或者其它大写字母开头的。而且表格每行都有数字、字母、汉字。
我录序号是要先按一下Caps lock键，然后按下字母键再按下数字键，然后再按下Caps lock键换成中文输入，等于一行表格我多按了2下Caps lock键，多按了一个字母键，一共多按了3下键。那么，数据多了，如果是有500行要处理，就多按1500次键。这个不是个小数量。而且搞不好要出错的。

shuyee

如果不嫌烦的话,可以用替换,输入++,替换成k,这样当你录入++3,系统会换成k3.使用++号,位于小键盘,录入方便,并且不常用.
其实你在引用的地方,加个k,是不是更简单呢.

babutianlun

这个简单了，加入辅助列后，用"k"&a1 公式，所有的数据转变后将这一列复制，粘贴数值不就行了，然后把原来的那一列数字删掉就行了。

foundking

ctp_119 发表于 2012-4-11 08:06
Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Application.EnableEvents = F ...

试过了。你这个表格是我想要情况。真实在添加了K。（但我要的是大写的字符，您的表格添加的是小写的字符。），VB我不太懂，也不会用。请问您的这个是编程的还是VB实现的？有没办法让它会根据需要添加K或者A或者S这样的数据？
而且您做好的这个表格，我如何把你第一列的属性弄到我自己已经输入大量数据的表格我第一列，然后自己就能用了？

foundking

shuyee 发表于 2012-4-11 08:26
如果不嫌烦的话,可以用替换,输入++,替换成k,这样当你录入++3,系统会换成k3.使用++号,位于小键盘,录入方便,并 ...

能具体点吗？你说的++是否能实现批量加K或者其它的字母？
怎么用的啊，是选中欲加字母的序号，然后按++？还是，我试了，无法实现啊。