大侠帮忙!自定义字段名称和自定义值两列能否自动转换成一列.见附件.

rudong510 · 发表于 2011-3-21 22:17

如附件。从公司的服务器导出的原始数据如附件中的“原始数据”，里面有自定义字段名称1，自定义字段值1，自定义字段名称2，自定义字段值2，自定义字段名称3，自定义字段值3 等。能否通过简单的什么宏按钮控件能直接转换成“期望结果”中的样子。见两个sheet中的蓝色部分。另外为了把输入的结果能倒回到公司的数据库，所以也期望有另一个宏按钮，能将“期望结果”的样子转换成“原始数据”中的样子，谢谢！

gufengaoyue · 发表于 2011-3-21 22:59

原帖由 rudong510 于 2011-3-21 22:17 发表
如附件。从公司的服务器导出的原始数据如附件中的“原始数据”，里面有自定义字段名称1，自定义字段值1，自定义字段名称2，自定义字段值2，自定义字段名称3，自定义字段值3 等。能否通过简单的什么宏按钮控件能 ...

具体看附件

rudong510 · 发表于 2011-3-22 00:08

太强悍了！太感谢了！高手就是高手啊！！

rudong510 · 发表于 2011-3-22 00:12

等一下，不对啊。点击恢复按钮感觉没有真正恢复啊

gufengaoyue · 发表于 2011-3-22 09:45

原帖由 rudong510 于 2011-3-22 00:12 发表
等一下，不对啊。点击恢复按钮感觉没有真正恢复啊

真正恢复？？
不是这样的吗？你再说说要什么样的

rudong510 · 发表于 2011-3-22 11:54

老大，我的原始数据有6列：自定义字段名称1，自定义字段值1，自定义字段名称2，自定义字段值2，自定义字段名称3，自定义字段值3。对应有6个数值：生产日期，2011年3月12日，供应商，凯瑞公司，销售日期，2011年3月15日。

用你的恢复按钮执行结果只是恢复了标题，即自定义字段值1，自定义字段名称2，自定义字段值2，自定义字段名称3，自定义字段值3。但是对应的6个数值没有恢复。

rudong510 · 发表于 2011-3-22 14:27

老大，谢谢，这次表面上OK了。但是好像如果数据变了，代码又要变了啊。可能我没有说明清楚，我希望有一个通用的可以扩展的代码。因为其实实际上从公司数据库导出的EXCEL数据很复杂，有几百行，有很多列（10个自定义字段）。我的附件只是一个示例。我希望下次我从数据库导出真实的数据时，不需要修改代码，直接能够用。这个是不是要用到单元格什么相对引用啊什么的？而不是直接输入绝对值？？

gufengaoyue · 发表于 2011-3-22 13:07

原帖由 rudong510 于 2011-3-22 11:54 发表
老大，我的原始数据有6列：自定义字段名称1，自定义字段值1，自定义字段名称2，自定义字段值2，自定义字段名称3，自定义字段值3。对应有6个数值：生产日期，2011年3月12日，供应商，凯瑞公司，销售日期，2011年3 ...

Private Sub CommandButton1_Click()
arr = Array("自定义字段名称1", "自定义字段值1", "自定义字段名称2", "自定义字段值2", "自定义字段名称3", "自定义字段值3")
brr = Array("生产日期", "2011年3月12日", "供应商", "凯瑞公司", "销售日期", "2011年3月15日")
Range("G1:L1") = arr
Range("G2:L2") = brr
End Sub

复制代码

Private Sub CommandButton2_Click()
arr = Array("生产日期", "供应商", "销售日期", "", "", "")
brr = Array("2011年3月12日", "凯瑞公司", "2011年3月15日", "", "", "")
Range("G1:L1") = arr
Range("G2:L2") = brr
End Sub

复制代码

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

[求助] 大侠帮忙!自定义字段名称和自定义值两列能否自动转换成一列.见附件.