求助EXCEL.制做宏.实现以下功能

tangqp · 发表于 2006-9-8 22:52:00

你的ACCESS中必须按1,2,3...8的顺序更新,假如3和6换个顺序的话得到得结果将不一样,我写得代码是按1,2,3,...8这样得顺序得出得结果,不知你注意到没有.

cangqiong · 发表于 2006-9-8 23:20:00

把格式变了一下。。。。应该怎么改下编程啊。。

原来现在是

品种型号类别月份品种型号数量加工费合计基本费类别价格

怎么改程序啊？

谢谢你了。。

cangqiong · 发表于 2006-9-8 23:24:00

你太强了。。。我一开始用的CASE  不行

  后来在单元格用search 可以。。编程下不支持。

  后来找到了INSTR 可以了。但一直编不出来。。。

tangqp · 发表于 2006-9-8 23:41:00

改以下单元格得下标就可以了

cangqiong · 发表于 2006-9-8 23:57:00

别的都改出来了。。。就差“量产品”的没改出来。。

语句太多了。。。

帮我改下吧就是最下边"量产品"的语句

cangqiong · 发表于 2006-9-9 00:00:00

谢谢.我都改出来了。。。

谢谢你了。

cangqiong · 发表于 2006-9-9 00:26:00

不好意思还得麻烦你一下。。。还是有点问题

打EXCEL作的和ACCESS作的。。。打了个比较。。。

还是有点问题.....

tangqp · 发表于 2006-9-9 18:47:00

把那几个

if...

end if

按顺序调换位置,第一个放到最后,第二个放到倒数第二,依次...

另外需注意"型号"中的字符...有些记录同时满足多个条件...

cangqiong · 发表于 2006-9-11 16:51:00

谢谢。非常感谢。。。做出来了

还有个问题是这句。。Range(Cells(3, 8), Cells(Sheets(1).UsedRange.Rows.Count, 8)).ClearContents
For i = 2 To Sheets(1).UsedRange.Rows.Count
要改为五个工作表都能用。或者更多，，是不是要改Sheets(1)这个啊。改成什么？

cangqiong · 发表于 2006-9-11 18:56:00

         (Left(Cells(i, 3), 1) = "C" And InStr(Cells(i, 3), "Q2") <> 0 And InStr(Cells(i,  3), "80-") > InStr(Cells(i, 3), "Q2"))

这句用“白话”怎么读啊？

还有这两句 11.  ((Left(Cells(i, 3), 1) = "M") And InStr(Cells(i, 3), "BK"))

         22. (Left(Cells(i, 3), 1) = "C" And InStr(Cells(i, 3), "S1")) <> 0

为什么11那句没有“<>0"  而22那句有等于  "<>0"啊

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 求助EXCEL.制做宏.实现以下功能

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)