★利用单元颜色动态判断记录方式★

ridcigzq · 发表于 2014-11-4 15:33

学习！谢谢分享！

椰汁红豆黑糯米 · 发表于 2014-11-21 17:38

141121采购下单模板.rar (40.36 KB, 下载次数: 6)
我这个按照楼主的改的，肿么还是有点问题呢，生成的数据库里有些内容不是按表格里数据的，求大侠指点指点

陈文华 · 发表于 2014-11-22 10:12

先收藏了，好好的学习。

度翔 · 发表于 2015-2-2 21:28

下载研究研究

kaixin999 · 发表于 2015-2-3 19:06

学习了，收藏备用

畦畦 · 发表于 2015-3-6 17:18

学习谢谢无私共享

daphy123 · 发表于 2015-3-7 14:46

学习！再学习！！

sunseas89 · 发表于 2015-3-9 11:37

收下了，好好学习，感谢楼主分享

wfqwfq2 · 发表于 2015-12-22 15:34

Sub 写字段名称到数据库()
Sheets("数据库").Cells(1, 1) = "行号" '数据库第一个字段名称为“行号”
For Each r In ActiveSheet.UsedRange '数组方式——将当前工作表所有单元纳入数组
If r.Interior.ColorIndex = 40 Or r.Interior.ColorIndex = 43 Then '如果单元颜色为茶色或酸橙色
      a = r.Value '获取字段名称
      If Sheets("数据库").[1:1].Find(a) Is Nothing Then '如果单元内容在数据库第1行不存在
         x = Sheets("数据库").[iv1].End(1).Column '数据库第一行最后列号
         Sheets("数据库").Cells(1, x + 1) = a '将新字段名称写到数据库表最后列
      End If
End If
Next
End Sub    如何将字段名称写入第二行

wfqwfq2 · 发表于 2015-12-22 15:35

不要行号，也不能取消

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