sheet1数据如图,我如何能够在sheet2的A2中输入标号1001直接显示出张三。
在其他单元格,比如B2显示=IF(ISERROR(VLOOKUP(A2,Sheet1!A:B,2,FALSE)),"",VLOOKUP(A2,Sheet1!A:B,2,FALSE))已经可以做到。
我现在需要达到的目标是在A1输入标号,A1直接显示名字!!!
请高手指点,谢谢
人员名单是在sheet1中,我在sheet2表中的A1输入1001,A1需要直接显示出名字“张三”,不显示输入的“1001”
ããè¦è¾å ¥æ°å代ç ï¼è¿åç¸åºå称ï¼
ããä¸ãè¥æ¯ä¸¤ä¸ªæ°å代ç ï¼å¯ç¨â设置åå æ ¼æ ¼å¼âä¸çâèªå®ä¹âå®æãæ¥éª¤æ¯ï¼
ããéåAåï¼å³å»ï¼â设置åå æ ¼æ ¼å¼âãâèªå®ä¹âï¼å¨å³ä¾§æ¡ä¸è¾å ¥å¦
ãã[=1001]"ç°é";[=1002]"贷款"
ããè¿æ ·ï¼å¨Aåè¾å ¥1001ï¼å°±è¿åâç°éâï¼è¾å ¥1002ï¼å°±è¿åâ贷款âã
ããäºãè¥æ¯ä¸ä¸ªå以ä¸æ°å代ç ï¼å¯ç¨âæ¡ä»¶æ ¼å¼âå®æãæ¥éª¤æ¯ï¼
ãã1ãéåAåï¼ç¹å»âå¼å§âãâæ¡ä»¶æ ¼å¼âãâæ°å»ºè§åâãâåªä¸ºå å«ä»¥ä¸å 容çåå æ ¼è®¾ç½®æ ¼å¼âã
ãã2ãå¨âç¼è¾è§å说æâä¸ï¼éâåå æ ¼å¼âãâçäºâï¼å¨å³ä¾§æ¡ä¸è¾å ¥1001ã
ãã3ãç¹âæ ¼å¼âæé®ï¼æå¼â设置åå æ ¼æ ¼å¼â对è¯æ¡ï¼ç¹âæ°åâé项å¡ãâèªå®ä¹âï¼å¨å³ä¾§è¾å ¥âç°éâï¼ä¸å«å¼å·ï¼ã
ãã4ãéå¤ä»¥ä¸æ¥éª¤ï¼ä¾æ¬¡ææ°å代ç 设置æ¡ä»¶æ ¼å¼ãç¡®å®ã
兄台,好像不能成功啊,我的目的是在输入编号的当前格显示对应的名字,你这个就是错位显示啊,还是得在C2输入数字然后显示名字在D1,我需要的是输入数字的单元格显示名字,就是在D1输入编号1001,显示出来的是“张三”而不是1001
VBA 解决 ,sheet1中只要是代号在前面,sheet2输入代码就会变成名称请见附件 有问题Hi我 祝你成功。。。
下载了不能打开
追答这不科学阿,我就能下载打开阿。。。VBA 会用吗?我再上传一次如果还是打不开 你把代码 放在里面试试 好吧 将代码放在
sheet2(sheet2)里面
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then
Exit Sub
Else
If Worksheets(1).Range("a2:xfd65536").Find(Target.Value, lookat:=xlWhole) Is Nothing Then
MsgBox "没有相应信息,请核对!", vbExclamation, "警告"
Else
Set a = Worksheets(1).Range("a2:xfd65536").Find(Target.Value, lookat:=xlWhole).Offset(0, 1)
Application.EnableEvents = False
Target.Value = a
Target.HorizontalAlignment = xlCenter
Application.EnableEvents = True
End If
End If
End Sub