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

¤@­Ó´Á­­Åã¥Ü°ÝÃD

¤@­Ó´Á­­Åã¥Ü°ÝÃD

½Ð±Ð¦U«e½ú¤Î¤j¤j­Ì,
¤p©f¦³¤@´Á­­°ÝÃD, ½Ð±Ð¦U¥ý¶i, ªþÀÉ,
¥ý¦æÁ¹L..
¸ê®Æ°Ï.rar (8.44 KB)

ÃD¥Ø°Ýªº¤£²M·¡¡A¸ê®Æµ¹ªº¤£»ô¥þ
´Á­­¸ê®Æ¦b­þ¸Ì?
Åã¥Üªº®É¾÷¬O¤°»ò?
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# 317
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, f As Range, R As Integer
  4.     With Sheets("¤u§@ªí1")
  5.         Set Rng = .Range("C:C").SpecialCells(xlCellTypeConstants)
  6.         Set f = Rng.Find(InputBox("¿é¤J °s¦W"), LOOKAT:=xlWhole)
  7.         If Not f Is Nothing Then
  8.             If .Cells(f.Row, "H") <> "" Then
  9.                 R = f.Row
  10.             Else
  11.                 R = .Cells(f.Row, "H").End(xlUp).Row
  12.                 If R = Rng.Cells(1).Row Then R = R + 1
  13.             End If
  14.             MsgBox f & "¨ì´Á¤é" & .Cells(R, "H")
  15.         End If
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE
ÁÂÁª©¤j, ³o¬O§Ú©Ò»Ý­n, ¦ý©¿µM¦³­Ó·Qªk, ¯à§_§â¿é¤J¦WºÙ§ï¬°¦~¥÷¥[¤ë¥÷, ¦p±Ò°Ê¥¨¶°, ¦bÅã¥Ü®Ø¤¤¿é¤J¦~¥÷¤Î¤ë¥÷, ¤ë¥÷ª««~¥þ¼ÆÅV¥Ü,
¤p©fª¾¹D³o¬O¦³Ãø«×, ¤£¹L¬O·Qª¾¦h¤@ÂI, ¾Ç¦h¤@ÂI.. ÁÂÁ¤j¤j,

TOP

¦^´_ 4# 317
  1. Sub ex()
  2. ym = InputBox("¿é¤J¤J³f¦~¤ë", , 201308)
  3. For Each a In Range("H:H").SpecialCells(xlCellTypeConstants)
  4.    If IsDate(a) Then
  5.       If Format(Cells(a.Row, "B"), "yyyymm") = ym Then
  6.          mystr = IIf(mystr = "", Cells(a.Row, "B").Text & " " & Cells(a.Row, "C") & "¨ì´Á¤é" & a.Text, mystr & Chr(10) & Cells(a.Row, "B").Text & " " & Cells(a.Row, "C") & "¨ì´Á¤é" & a.Text)
  7.       End If
  8.    End If
  9. Next
  10. MsgBox mystr
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  GBKEE
ÁÂÁª©¤j, ³o¬O§Ú©Ò»Ý­n, ¦ý©¿µM¦³­Ó·Qªk, ¯à§_§â¿é¤J¦WºÙ§ï¬°¦~¥÷¥[¤ë¥÷, ¦p±Ò°Ê¥¨¶°, ¦bÅã ...
317 µoªí©ó 2013-9-4 17:48

§Ú²q¼Ó¥D­nªº¥i¯à¬O¥u­n¬O¸Ó¤ë¥÷¶i³fªº³£­n¨q¥X¨Ó,
©Ò¥H§Ú°Ñ¦Ò 3# ±N 5# ­×§ï¤F¤@¤U :
  1. Sub ex()
  2.   ym = InputBox("¿é¤J¤J³f¦~¤ë", , 201308)
  3.   Set Rng = Range("B:B").SpecialCells(xlCellTypeConstants)
  4.   For Each a In Rng
  5.     If IsDate(a) Then
  6.       If Format(Cells(a.Row, "B"), "yyyymm") = ym Then
  7.         stemp = IIf(mystr = "", "", Chr(10))
  8.         If Cells(a.Row, "H") <> "" Then
  9.           R = a.Row
  10.         Else
  11.           R = Cells(a.Row, "H").End(xlUp).Row
  12.           If R = Rng.Cells(1).Row Then R = R + 1
  13.         End If
  14.         mystr = mystr & stemp & "¤J³f¤é´Á : " & Cells(a.Row, "B").Text & "  " & Cells(a.Row, "C") & "  ¨ì´Á¤é : " & Cells(R, "H")
  15.       End If
  16.     End If
  17.   Next
  18.   MsgBox mystr
  19. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ 317 ©ó 2013-9-5 00:14 ½s¿è

ÁÂÁ¼ӤW¤T¦ì GBKEE ,Hsieh ,luhpro ,«e½ú¤j¤j, ¤p©f°J¤ßÁÂÁÂ, ¯¬Ä@§Ö¼Ö

TOP

¦^´_ 4# 317
  1. Option Explicit
  2. Sub Ex()
  3.     Dim R As Integer, ym As String, mystr As String, A As Range
  4.     With Sheets("¤u§@ªí1")
  5.         R = Range("C:C").SpecialCells(xlCellTypeConstants).End(xlDown).Row
  6.         ym = InputBox("¿é¤J¨ì´Á¦~¤ë ®æ¦¡[yyyymm]", , Format(.[H4], "YYYYMM"))
  7.         For Each A In .Range("H:H").SpecialCells(xlCellTypeConstants)
  8.             If IsDate(A) Then
  9.               If Format(A, "yyyyMm") = ym Then
  10.                 If A.End(xlDown).Row > R Then
  11.                     mystr = Join(Application.Transpose(.Range("C" & A.Row & ":C" & R)), vbLf)
  12.                 Else
  13.                     mystr = Join(Application.Transpose(.Range("C" & A.Row & ":C" & A.End(xlDown).Row - 1)), vbLf)
  14.                 End If
  15.                 Exit For
  16.             End If
  17.         End If
  18.         Next
  19.         MsgBox IIf(mystr <> "", ym & " ¨ì´Á" & vbLf & mystr, ym & " ¨S¦³¨ì´Áªº°s")
  20.     End With
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¼Ó¤W¤T¦ì¼Ó¥D, ¦­±á
¤p©f¦A«×½Ð±Ð, §Ú§âµ{¦¡¥[¥H­×§ï, ¦ý¤p©f·Q¦pGBKEEª©¤j¤j, ¹ï¸Ü²°¤¤¥uÅã¥Ü¨ì´Á³fª«,
¦p¿é¤J¨S¦³¨ì¬õ°s¤ë¥÷®É, ¥ç·|§@¥X´£¥Ü¸Ó¤ë¥÷¨S¦³¨ì´Á¬õ°s,
¤p©f¸Õ¹Ï§âGBKEEª©¤j¤jµ{¦¡²V¤J¤U¦Cµ{¦¡¤¤, ¦ý¤£¦¨¥\, ¬G½Ð¼Ó¥D­Ì¨ó§U, ÁÂÁÂÁÂ!

Sub Ex()

  ym = InputBox("¿é¤J¤J³f¦~¤ë", , 201308)

  Set Rng = Range("B:B").SpecialCells(xlCellTypeConstants)

  For Each A In Rng

    If IsDate(A) Then

      If Format(Cells(A.Row, "B"), "yyyymm") = ym Then

        stemp = IIf(mystr = "", "", Chr(10))

        If Cells(A.Row, "m") <> "" Then

          R = A.Row

        Else

          R = Cells(A.Row, "m").End(xlUp).Row

          If R = Rng.Cells(1).Row Then R = R + 1

        End If

        mystr = mystr & stemp & "¤J³f¤é´Á : " & Cells(A.Row, "B").Text & "½s¸¹ :  " & Cells(A.Row, "c").Text & "¦WºÙ :  " & Cells(A.Row, "d").Text & "¯Å§O :" & Cells(A.Row, "e") & "  ¨ì´Á¤é : " & Cells(R, "m")

      End If

    End If

  Next

  MsgBox IIf(mystr <> "", ym & " ¨ì´Á" & vbLf & mystr, ym & " ¨S¦³¨ì´Áªº°s")

End Sub

TOP

¦^´_ 9# 317
¤W¶ÇÀɮ׬ݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD