一个库存管理的示例,目标是方便录入,分仓查询.

Rowen · 发表于 2006-10-12 22:57

有几种方法可以达成, VBA 方法一如下代码:

Private Sub ShowMyName()
Dim myName As Name
For Each myName In ThisWorkbook.Names
Debug.Print myName.Name, myName.RefersTo
Next
End Sub

可以作为一个参考, 因为所选工作表及单元格的不同, 某些相对引用的名称公式会不一样.

IMERCN · 发表于 2006-10-13 09:43

先看看，学习学习

leopds2008 · 发表于 2006-10-13 11:32

谢了！已打印。

lcl787924 · 发表于 2006-10-16 20:38

太棒了，一口气从1看到了25，先收藏，慢慢再学，谢谢Rowen总版主!

小鱼儿2006 · 发表于 2006-10-17 07:20

真不知道如何感谢版版,谢谢,谢谢.

linjiandan · 发表于 2006-10-17 15:04

高手啊!太利害了!

Rowen版主能否跟据此文件单独做一个教程给我们这些后学晚辈学习学习啊!如果真能这样,那真是太感谢了!!!!

leopds2008 · 发表于 2006-10-19 14:07

把版主的程序看了几遍后，也模仿了一下，水平有限所作程序总出错，还请版主帮忙修改一下。

VQEYkbOB.rar (17.85 KB, 下载次数: 29)

[此贴子已经被作者于2006-10-19 14:09:33编辑过]

Rowen · 发表于 2006-10-20 00:15

你代码中的 HK.Range(... 请改用 Sheet5.Range(...

因HK是工作表名, 不是CODENAME, 它的模块名称为Sheet5, 建议在VBA窗口之属性页中选中该工作表, 然后将其名称改为 HK

chat163 · 发表于 2006-10-20 17:57

已经盗用了版主的部分代码进行学习了~和使用了

Rowen · 发表于 2006-10-20 23:09

可不要说是“盗用”，套用就OK了。

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