GBKEE

¦^´_ 8# v03586
§Aªºµ{¦¡Å޿褣«Ü©ú¥Õ©Ò¥H­n½Ð°Ý§A¦p¤U

[DA¥X¶Ô§ó·s]ªí³æ¤¤
¥X¶Ô®É¼Æ»P©µ®É¥[¯ZªºÃöÁp¬°¦ó,¦p¬O:¥X¶Ô®É¼Æ>8¤p®É,«á¤~¦³©µ®É¥[¯Zªºµo¥Í.¤S¥[¯Z®É¼Æªº­­¨î¬°¦ó?
©µ®É¥[¯Z:«ü©ÒÄݪº[¯Z§O]¶Ü?
¤é´Á¦p¬°¦U²Õªº¥ð°²¤é®É,¥X¶Ô®É¼Æ,©µ®É¥[¯Z,¥[¯Z®É¼Æ¦p¦ó¿é¤J                           

¤H­û¦^³ø1ST,2ND,3RDªº¥X¶Ô²v: ¨Ì[¥X¶Ô¸ê®Æ®w]ªº[¯Z§O] ²Î­p¹ï¶ý?
17# ªþ¹Ï(¤@) ¤¤ªº ©µªø¤H¼Æ,´£¦­¤H¼Æ ¬O¦p¦ó©w¸q",¤S2ND,3RD¤¤¦U²Õ¥ð°²¤H¼Æ,ªºÅ޿謰¦ó?
ªþÀɤ¤ªº[¾ã¦X­¶­±]ªºÄæ¦ì6¤é-9¤é ¬O§¹¾ãªº¶Ü?¬O¦p¤H­û¦^³ø1ST,2ND,3RDªº¥X¶Ô²v¶Ü?

GBKEE

¦^´_ 23# v03586

V - ¥ð°²¤H¼Æ
P - ¥ð°²¤H¼Æ
K - ¥ð°²¤H¼Æ   
¦p¦ó­pºâ??

GBKEE

¦^´_ 25# v03586
­×§ï¤F [DA¥X¶Ô§ó·s]UserForm
[¾ã¦X­¶­±]¤u§@ªí§A¸ÕµÛ°µ§@¬Ý

   
   Ex.zip (530.12 KB)

¤U¸ü¦¸¼Æ: 12

2016-8-10 09:16

GBKEE

¦^´_ 27# v03586
¡y¤H­û¦^³ø«ö¶s¡z«á ¡y¤H­û¦^³ø¡z¸ê®Æªíªº¬P´Á·|®ø¥¢¤£¨£­C?
¨S¦³°Ú,¦A¸Õ¸Õ¬Ý

¦­¯Z¤H­û (1ST) ¡y©µªø¥[¯Z¡z2ND ,     ©Ò¥H³o­Ó©µªø¥[¯Zªº¤H¤O, À³¸Ó­nºâ¥h²Ä¤G¯Zªº¤HÀY
±Mªø,DA,¶}¾÷¼Æ, ÁÙ¬O¦­¯Z¶ý?
ªþÀɦp¬O


Ex.zip (538.61 KB)

¤U¸ü¦¸¼Æ: 12

2016-8-10 16:09

GBKEE

¦^´_ 29# v03586
±Mªø,DA,¶}¾÷¼Æ, ÁÙ¬O¦­¯Z¶ý?    ¬Oªººâ¦­¯Z, ¥[¯Z¤H­û, ´N´«§O¯Z¥h¦w±Æ¥Lªº¤u§@¶µ¥Ø¤F
¨º[¦w±Æ¥Lªº¤u§@¶µ¥Ø]´N¤£¦b³o²Î­p¤§¤º.


¬õ¦â®Ø®Øªº¸ê®Æ³£¤£¨£¤F,§A¸É¤W¼Æ¦r«á¦A¸Õ¸Õ¬Ý.

¤£ª¾¹D[¾ã¦X­¶­±]ªº¤é´Á¦p¦ó³]©w!!!
¥iª½¨Ì¤é´Áªº³]©w±µ½Æ»s¹L¥h.

GBKEE

¦^´_ 31# v03586


Ex.zip (538.28 KB)

¤U¸ü¦¸¼Æ: 9

2016-8-12 17:54

ªþÀɤw¸É¤W ¤H¤O¸ê®Æ®w¯Z§O²Õ§O¤H¼Æ¸ê®Æªºµ{¦¡½X
ªþÀɪº Main_¦^³ø²M°£() »P29#ªþÀɪºªºµ{¦¡½X¤@¼Ë
½Ð¦A¸Ô²Ó¬Ý¬Ý ¬P´Á¬O§_ÁÙ¬O¨S¦³¶Ü?

1. Private Sub Main_¦^³ø²M°£()
   
2.     Dim i As Date
   
3.     With Sheets("¤H­û¦^³ø")
   
4.         .[A2] = Format(xDay, "yyyy/mm")                                                             '** ¤ë¥÷ **
   
5.         .Range(.[h1], .[h1].End(xlToRight)).EntireColumn = ""
   
6.         .Range(.[A63], .[G63].End(xlDown)) = ""
   
7.         For i = DateSerial(Year(xDay), Month(xDay), 1) To DateSerial(Year(xDay), Month(xDay) + 1, 0)
   
8.                 With .[h1]                                                        '**­«¼g ·í¤ë¥÷¤é´Á
   
9.                
   
10.                     .Offset(0, Day(i) - 1) = Day(i)
    
11.                     .Offset(1, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
    
12.                     
    
13.                     .Offset(16, Day(i) - 1) = Day(i)
    
14.                     .Offset(17, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
    
15.                     
    
16.                     .Offset(32, Day(i) - 1) = Day(i)
    
17.                     .Offset(33, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
    
18.                     
    
19.                     .Offset(60, Day(i) - 1) = Day(i)
    
20.                     .Offset(61, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
    
21.                     
    
22.                     Stop   '½Ð¦^¨ì [¾ã¦X­¶­±]¬Ý¤@¤U¬P´Á¦³¿é¤J¶Ü?
    
23.                 End With
    
24.         Next
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 32# GBKEE
2003  ->  Mid(Format(i, "aaa"), 3) §Y¥i¥X²{¬P´Á
·PÁÂc_c_la i¤µ¤Ñ 17:25 ´£¨Ñ  
°ª©ó2003ª©ª©¥»­×§ï¦p¤U
Main_¦^³ø²M°£().Offset(1, Day(i) - 1) = Mid(Format(i, "aaa"), 3)­×§ï¦¨.Offset(1, Day(i) - 1) = Mid(Format(i, "aaaa"), 3)«K OK ¤F¡C

GBKEE

¦^´_ 34# c_c_lai
·PÁÂÀ°¦£­×¥¿.

GBKEE

¦^´_ 38# v03586
½Ð°Ý¨ä¾lªºMid(Format(i, "aaa"), 3) ¦³§ï¦¨Mid(Format(i, "aaaa"), 3)¶Ü?

1.    .Offset(17, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
   
2.                     
   
3.                     .Offset(32, Day(i) - 1) = Day(i)
   
4.                     .Offset(33, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
   
5.                     
   
6.                     .Offset(60, Day(i) - 1) = Day(i)
   
7.                     .Offset(61, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
   
8.                     

½Æ»s¥N½X

GBKEE

¦^´_ 46# c_c_lai
¤â³N«á­n¦h¥ð®§.

    ¦^´_ 45# v03586

´£°Ý¤WÀ³¦³ªº§G§½»PÅ޿訫¦V¬O´£°Ý¤H­n¨ã³Æ´£¥Xªº¡A
¦^ÂЪ̥u¬O§U§A¸Ñ´b¡B¾É¤J¡B¥H¤Î¨Ç³\¦³·Nªº¹ê½è´£¥Ü

¨º¸Õ¸Õ¬Ý

1. Private Sub UserForm_Initialize()
   
2.     ³]©w
   
3.     ¤H¤O¸ê®ÆŪ¨ú
   
4.     Â÷¾À˵ø '****¥[¤W³o­Ó¬Ý¬Ý
   
5.     ¯Z§O.List = DA¯Z§O.keys
   
6.     ©µªø¥[¯Z.List = DA¯Z§O.keys
   
7.     ¥i¾Þ¾÷¼Æ.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
   
8.     V = True
   
9.     ¯Z§O.ListIndex = 0
   
10.     ¦~.List = Array(Year(Date) - 2, Year(Date) - 1, Year(Date))  '3¦~¤ºªº½d³ò
    
11.     ¤ë.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
    
12.     ¦~.ListIndex = ¦~.ListCount - 1
    
13.     ¤ë.ListIndex = Month(Date) - 1
    
14.     ¤é.ListIndex = Day(Date) - 1
    
15. End Sub

½Æ»s¥N½X

1. Sub Â÷¾À˵ø()
   
2.     Dim Rng As Range, i As Long, St   As String
   
3.     With Sheets("¥X¶Ô¸ê®Æ®w")
   
4.         For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
   
5.             St = .Cells(i, "D")
   
6.             If DA¤u¸¹.EXiSTS(St) = False Then
   
7.                 If Rng Is Nothing Then
   
8.                     Set Rng = .Cells(i, "D").EntireRow
   
9.                 Else
   
10.                     Set Rng = Union(.Cells(i, "D").EntireRow, Rng)
    
11.                 End If
    
12.             End If
    
13.         Next
    
14.     End With
    
15.     If Not Rng Is Nothing Then Rng.Delete
    
16.     Set Rng = Nothing
    
17.     With Sheets("¤H­û¦^³ø")
    
18.         For i = 63 To .Range("A" & Rows.Count).End(xlUp).Row
    
19.             St = .Cells(i, "D")
    
20.             If DA¤u¸¹.EXiSTS(St) = False Then
    
21.                 If Rng Is Nothing Then
    
22.                     Set Rng = .Cells(i, "D").EntireRow
    
23.                 Else
    
24.                     Set Rng = Union(.Cells(i, "D").EntireRow, Rng)
    
25.                 End If
    
26.             End If
    
27.         Next
    
28.     End With
    
29.     If Not Rng Is Nothing Then Rng.Delete
    
30. End Sub

½Æ»s¥N½X