EXCEL技巧专辑..（欢迎参与，共同学习）

hpcex

订阅此贴 非常需要~

haofei7766

太好了，非常的使用，谢谢！！！！

kidsreturn

很实用呀！谢谢了

ricoman

怎样生成12个月的日期呢

并且每个月连续的标出 两天红色 一天蓝色 两天红色一天蓝色。

一月
1  2  3  4  5  6

。。。。。
。。。。。
这样

谢谢

[ 本帖最后由 ricoman 于 2008-12-4 23:30 编辑 ]

西岭

直接拉不就可以了

excel

1、做好日期：选择时间格式，自定义一下。填写2009-1-1，其他日子拉动就行了。
2、把1、2设置成红字，把3设置成蓝字。
3、选择1、2、3，点击格式刷，再点击4拉动到最后的日期。
4、选择一月的31天的单元格，双击格式刷，再分别点击各月的1号单元格。
完成。
如文件。

ricoman

:MM 谢谢

妮可宝贝

@:onioncn_11)

写了一个sub,用来生成楼上需要的所谓的日历?
呵呵,用法.. 就不用我多说了吧..

1. Sub NikDay()
   
2.     Dim y&, i&, j&
   
3.     y = Val(InputBox("请输入4位数的年份,比如2008:", "妮妮日历生成", Year(Now)))
   
4.     If y < 1000 Or y > 3000 Then
   
5.         MsgBox "别开玩笑了,你给的年份,我可算不出来..", vbDefaultButton1, "妮妮日历生成"
   
6.     Else
   
7.         Columns(1).ColumnWidth = 10
   
8.         Columns("B:AH").ColumnWidth = 3
   
9.         Columns("A:AH").HorizontalAlignment = 3
   
10.         Columns("A:AH").VerticalAlignment = 2
    
11.         Columns("A:AH").Font.Name = "宋体"
    
12.         Columns("A:AH").Font.Size = 9
    
13.         For i = 2 To 32
    
14.             Columns(i).Font.Color = IIf(i Mod 3 = 1, vbBlue, vbRed)
    
15.         Next
    
16.         For i = 1 To 12
    
17.             Cells(i * 2 - 1, 1) = y & "年" & i & "月"
    
18.             For j = 2 To Day(DateSerial(y, i + 1, 1) - 1) + 1
    
19.                 Cells(i * 2, j) = j - 1
    
20.             Next
    
21.         Next
    
22.     End If
    
23. End Sub

复制代码

效果图:


@:onioncn_12)

jarjar

谢谢，刚学了一招

好汉是我

这次刚好等级考试,顺便进来学习一下了