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

rudong510

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

gufengaoyue

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

具体看附件

rudong510

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

rudong510

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

gufengaoyue

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

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

rudong510

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

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

rudong510

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

gufengaoyue

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

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

复制代码

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

复制代码