ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ av8d ©ó 2018-1-8 13:46 ½s¿è

­ì¥ý¬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)
------------------------------------------------------------------------------------------------------------
2018/1/8 13:45
°ÝÃD¤@¤w¸Ñ¨M¡A³Ñ°ÝÃD¤G¡C

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-1-8 21:40 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD