[µo°Ý] ¦p¦ó§ï¼g¦¹½gµ{¦¡¡AÁÂÁ¡C

av8d

­ì¥ý¬O¨Ï¥Î³o¬q¬O¥¿±`ªº(¦p¤U)

1. Private Sub CommandButton1_Click()
   
2.     If D10 < 1 Then
   
3.         Rows("10").EntireRow.Hidden = True
   
4.     End If
   
5. End Sub

½Æ»s¥N½X

§ï¼g«á´N¤£·|°Ê¤F(¦p¤U)

1. Private Sub CommandButton1_Click()
   
2.     For i = 10 To 38 Step 7
   
3.         If D & "i" < 1 Then
   
4.             Rows("i").EntireRow.Hidden = True
   
5.         End If
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

«á¨Óµo²{§PÂ_¦¡¤]¦³°ÝÃD¡AµL½×D10¦³¨S¦³¤p©ó1¸Ó¦C³£·|³QÁôÂáC(­ì©lÀɦp¤U)
´£°Ý.rar (33.17 KB)

¤U¸ü¦¸¼Æ: 6

2018-1-8 13:38

------------------------------------------------------------------------------------------------------------
2018/1/8 13:45
°ÝÃD¤@¤w¸Ñ¨M¡A³Ñ°ÝÃD¤G¡C

av8d

¦^´_ 1# av8d

°ÝÃD¤G¤w¸Ñ

1. Private Sub CommandButton1_Click()
   
2.     For i = 10 To 38 Step 7
   
3.         If Range("D" & i).Value < 1 Then
   
4.             Rows(i).EntireRow.Hidden = True
   
5.         End If
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 2# av8d
°Ñ¦Ò¬Ý¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, ½ü­Èªí(), x As Integer
   
4.     Dim xDay As Date, xWeek()
   
5. Xy:
   
6.     On Error Resume Next
   
7.     xDay = DateSerial(InputBox("¿é¤J¦~¥÷", , Year(Date)), 1, 1)
   
8.     If Err > 0 Then
   
9.         If MsgBox("¦~¥÷???  : ­«·s¿é¤J? ", vbOKCancel) = vbCancel Then
   
10.             Exit Sub
    
11.         Else
    
12.             GoTo Xy
    
13.         End If
    
14.     End If
    
15.     On Error GoTo 0
    
16.     xWeek = Array("¬P´Á¤é", "¬P´Á¤@", "¬P´Á¤G", "¬P´Á¤T", "¬P´Á¥|", "¬P´Á¤­", "¬P´Á¤»")
    
17.     With Sheets("½ü­È¤H­ûªí")
    
18.         ½ü­Èªí = .Range("B1", .Range("B1").End(xlDown).Address).Value
    
19.         ½ü­Èªí = Application.WorksheetFunction.Transpose(½ü­Èªí)
    
20.     End With
    
21.    
    
22.     With Cells
    
23.         .Clear
    
24.         .Range("B1") = Year(xDay) & "¦~"
    
25.         .Range("B2") = "½ü­È¤H­û"
    
26.         .HorizontalAlignment = xlCenter
    
27.         .Font.Size = 22
    
28.     End With
    
29.     i = 1
    
30.     Do
    
31.         With Range("c" & i).Resize(, 7)
    
32.             .Cells(1) = Month(xDay)
    
33.             .Merge
    
34.             .NumberFormatLocal = "0""¤ë""""¥÷"""
    
35.             .Offset(1).Resize(, 7) = xWeek
    
36.         End With
    
37.         i = i + 2
    
38.         Do
    
39.             Cells(i, "C").Cells(1, Weekday(xDay, vbSunday)).Cells = Day(xDay)
    
40.             With Cells(i, "¢Ð")
    
41.                 If .Cells = "" Then
    
42.                     x = Application.WorksheetFunction.WeekNum(xDay)
    
43.                     If x < UBound(½ü­Èªí) Then
    
44.                         .Cells = ½ü­Èªí(x)
    
45.                     Else
    
46.                         If x Mod UBound(½ü­Èªí) = 0 Then
    
47.                             .Cells = ½ü­Èªí(1)
    
48.                         Else
    
49.                             .Cells = ½ü­Èªí(x Mod UBound(½ü­Èªí) + 1)
    
50.                         End If
    
51.                     End If
    
52.                 End If
    
53.             End With
    
54.             If Cells(i, "¢Ð") = "" Then Application.WorksheetFunction.WeekNum (xDay)
    
55.             If Weekday(xDay, vbSunday) = 7 And Month(xDay) = Month(xDay + 1) Then i = i + 1
    
56.             xDay = xDay + 1
    
57.         Loop Until Month(xDay) <> Month(xDay - 1)
    
58.         i = i + 1
    
59.     Loop Until Year(xDay) <> Year(xDay - 1)
    
60. End Sub

½Æ»s¥N½X