[求教]用VBA处理日期问题写入表头？

hao123

用VBA处理日期问题写入表头？给出两个日期（不确定），可能之间只有几天，或几十天，如何将对应的星期（只显示一个字符，如“星期五”只显示“五”）和日期用VBA如何完成？见附件

suse360

=TEXT(IF(COLUMN(B3)<DATEDIF($B$7,$B$8,"d"),DATE(YEAR($B$7),MONTH($B$7),DAY(DAY($B$7)+COLUMN(B3)-2)),""),"d")
公式放到第4行，往后面拖动。超过日期的不会显示信息。

hao123

谢谢关注，但日期显示不完整，另外星期也没解决，还是希望用VBA解决。

MoonLight=。=

笨办法解决

1. Sub write_day()
   
2.     Dim daynum As Integer, Weekday As String
   
3.     Worksheets("Sheet1").Rows(2) = ""
   
4.     Worksheets("Sheet1").Rows(3) = ""
   
5.     [A2] = "星期"
   
6.     [A3] = "日期"
   
7.     daynum = [B8] - [B7]
   
8.     For i = 0 To daynum
   
9.         Cells(3, 2 + i).Value = Application.Text(Cells(7, "B") + i, "dd")
   
10.         Weekday = Application.Weekday(Cells(7, "B") + i, 11)
    
11.         Select Case Weekday
    
12.                 Case 1
    
13.                 Weekday = "一"
    
14.                  Case 2
    
15.                 Weekday = "二"
    
16.                  Case 3
    
17.                 Weekday = "三"
    
18.                  Case 4
    
19.                 Weekday = "四"
    
20.                  Case 5
    
21.                 Weekday = "五"
    
22.                  Case 6
    
23.                 Weekday = "六"
    
24.                  Case 7
    
25.                 Weekday = "日"
    
26.                 End Select
    
27.         Cells(2, 2 + i).Value = Weekday
    
28.     Next
    
29. End Sub
    

复制代码