用VBA 按要求填充颜色和笑脸

hyjianjian

各位大侠：
您们好！
附近里有2个工作表（1，工作日历  2，发注工作表，笑脸表）

首先对发注工作表进行操作：

• A6:A36行  还原至 无填充颜色   A1列 标题年份与月份改写成 当前年份与月份。
• A6:36列  填写当前月份日期（如现在8月份，则8月1日~8月31日）月份是 变量
• 根据工作日历相应的日期状态填充颜色49407。     工作日历F~AJ列  比如发注表的8月1日 对应的 工作日历20150801 下一行为0 表示休息日 则在发注表的8月1日一整行填充49407颜色！ 如果工作日历对应为1 正常工作日 则不填充颜色！
  

部品纳入状况表操作（范围G列~AK列）：

• B2 标题更改当前的年份与月份    M2 对工作日历当前月份工作日（状态为1）进行统计  有18个1 则反馈为18日
• 还原操作.   判定A3列的 NO 号有几行（比如有65行）   并对 G5~AK69 复原操作  填充颜色为透明  删除全部笑脸表  第1~4行 是固定不变的  最后2行也是固定不操作的！
• G4~KA4 写入当前月份日期     G3~AK3 写入星期几   根据对应的工作日历（状态为0 休息）按列填充10079487 颜色   （NO1开始  NO最后个结束）
• 根据AL列要求 按行数填充笑脸  K2有笑脸 样板！  其中“1隔天“指的是 从月份第一工作日开始     “2隔天” 指的是从月份第二个工作日开始
• 笑脸填充要保证后续的可扩展性能    比如我要添加NO66  我只有在该行 AL列 填入每天   VBA也能正确工作
  

hyjianjian

请各位大侠围观

蓝桥玄霜

1. Private Sub Workbook_Open()
   
2. Dim nf$, yf$, dd, i&, rq$
   
3. Sheet1.Activate
   
4. Rows(6).Resize(31).Interior.ColorIndex = xlNone
   
5. [a6].Resize(31, 1).ClearContents
   
6. nf = Year(Date): yf = Month(Date)
   
7. [a1] = "  " & nf & "年" & yf & "月Y部品发注"
   
8. dd = Day(DateSerial(nf, yf + 1, 0))
   
9. [a6] = DateSerial(nf, yf, 1)
   
10. [a6].AutoFill [a6].Resize(dd, 1)
    
11. rq = nf & Format(yf, "00")
    
12. Call lqxs(rq)
    
13. End Sub
    
14. 
    
15. Sub lqxs(rq)
    
16. Dim myPath$, myName$, Arr1, i&, x$, m&, d
    
17. Set d = CreateObject("Scripting.Dictionary")
    
18. myPath = ThisWorkbook.Path & ""
    
19. myName = "工作日历.xlsx"
    
20. With GetObject(myPath & myName)
    
21.     Arr1 = .Sheets(1).Range("A1").CurrentRegion
    
22.     For i = 2 To UBound(Arr1)
    
23.         x = Arr1(i, 2) & ""
    
24.         If Not d.exists(x) Then d(x) = i
    
25.     Next
    
26.     .Close False
    
27. End With
    
28. If d.exists(rq) Then
    
29.     m = d(rq)
    
30.     For i = 6 To Arr1(m, 5) + 5
    
31.         If Arr1(m + 1, i) = 0 Then Cells(i, 1).Resize(1, 47).Interior.ColorIndex = 44
    
32.     Next
    
33. End If
    
34. End Sub
    

复制代码

蓝桥玄霜

请见附件。
工作簿打开即可实现。

hyjianjian

蓝桥玄霜 发表于 2015-8-12 14:46
请见附件。
工作簿打开即可实现。

你好，第二个部品纳入状况表无效？

hyjianjian

邀请各位大侠围观，第二工作表该如何写VBA?

hyjianjian

蓝桥玄霜 发表于 2015-8-12 14:18

版主:
      貌似你只完成了第一部分，关于第二个工作表 笑脸表填充并没涉及到？
部品纳入状况表操作（范围G列~AK列）：
B2 标题更改当前的年份与月份    M2 对工作日历当前月份工作日（状态为1）进行统计  有18个1 则反馈为18日
还原操作.   判定A3列的 NO 号有几行（比如有65行）   并对 G5~AK69 复原操作  填充颜色为透明  删除全部笑脸表  第1~4行 是固定不变的  最后2行也是固定不操作的！
G4~KA4 写入当前月份日期     G3~AK3 写入星期几   根据对应的工作日历（状态为0 休息）按列填充10079487 颜色   （NO1开始  NO最后个结束）
根据AL列要求 按行数填充笑脸  K2有笑脸 样板！  其中“1隔天“指的是 从月份第一工作日开始     “2隔天” 指的是从月份第二个工作日开始
笑脸填充要保证后续的可扩展性能    比如我要添加NO66  我只有在该行 AL列 填入每天   VBA也能正确工作

hyjianjian

邀请大侠门围观，能否帮助解决第二题

hyjianjian

邀请各位大侠围观

thestronger

al列的规则看来还有很多变数，你能详细列举出来吗?而且要规范化，便于编程。 另外，笑脸不建议用图案，操作太麻烦，可以直接插入笑脸这个字符