已知物料代号快速输入物料名称（鼠标右键）

liuho1 · 发表于 2009-3-12 11:14

已知物料代号快速输入物料名称
输入物料代号后，按鼠标右键，点击快捷键，在右边的单元格中直接输入物料名称
1.做好物料名称对照表
2.设置鼠标右键“物料名称”，连接代码
Private Sub Workbook_Open()
Set Amenu = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton)
Amenu.Caption = "物料名称"
Amenu.OnAction = "Macro1"
End Sub
3.代码放在模块中
Application.ScreenUpdating = False
  X = ActiveCell.Row
  Y = ActiveCell.Column
  A = Selection.Rows.Count
  For B = 0 To A - 1
  Cells(X + B, Y + 1).Select
  ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'[mm.xls]mm'!C1:C2,2,0)"
  Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Application.CutCopyMode = False
Next
4.退出时，消除快捷键
5.将文件储存在Xlstart文件夹中，设为隐藏文件
这样在任何文件中使用

waldeler · 发表于 2009-3-12 11:27

简单问题复杂化

liuho1 · 发表于 2009-3-12 11:31

有很多代号，不能全部记得，这样方便许多

adian2000 · 发表于 2009-3-21 23:23

思路可以，技巧也不错。
但该问题的用这种方法是：简单问题复杂化

jygzcj · 发表于 2009-3-23 13:42

设为自动即可

lfspecter · 发表于 2009-3-23 17:00

用函数就可以了。

射雕 · 发表于 2009-3-23 20:43

同意楼上几位的说法

YZLSZAJ · 发表于 2009-12-14 21:55

有创意。。。

wangjs_sh · 发表于 2009-12-20 15:03

同意6楼的说法

三十四度 · 发表于 2010-4-15 00:11

各有千秋行行出状元

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

[原创] 已知物料代号快速输入物料名称（鼠标右键）