¾È³çÇϼ¼¿ä ¿¢¸°ÀÌ ÀÔ¹® ´Ü°è¶ó °£´ÜÇѰ͵µ Çì¸Å³×¿ä ¤Ð
ÇöÀç sheet1 ¿¡ Á¶°Ç ¼³Á¤ ½Ã R8 ¼¿¿¡ °ªÀÌ ¶ß°í, ¹öÆ° Ŭ¸¯ ½Ã
sheet2ÀÇ °°Àº °ªÀ» °®´Â ¼¿·Î À̵¿ ¹× ¸Þ½ÃÁö¹Ú½º "ÃÑ x°³ ÀÚ·á°¡ ¹ß°ßµÇ¾ú½À´Ï´Ù." ¶ß°Ô²û ¸¸µé¾î´Â ³õ¾Ò½À´Ï´Ù.
Sub Á¶°Ç°Ë»ö()
Dim rngFind As Range
Dim n As Long
Dim v
v = Range("R8").Value
Set rngFind = Sheet2.UsedRange.Find(v, , , 1)
If Not rngFind Is Nothing Then
Sheet2.Activate
n = WorksheetFunction.CountIf(Cells, v)
rngFind.Select
MsgBox "ÃÑ " & n & "°³ ÀÚ·á°¡ ¹ß°ßµÇ¾ú½À´Ï´Ù.", vbOKOnly + vbInformation, "°á°ú"
Else
MsgBox "ÇØ´ç ÀÚ·á°¡ ¾ø½À´Ï´Ù.", vbOKOnly + vbInformation, "°Ë»ö¿À·ù"
End If
End Sub
Ȥ½Ã sheet1 R8¼¿°ª°ú µ¿ÀÏÇÑ °ªÀÌ sheet2¿¡ ¿©·¯°³ ÀÖ´Â °æ¿ì°¡ Àִµ¥
ÀÌ ¸ðµç ¼¿À» Ŭ¸¯ÇÑ°Íó·³ È°¼ºÈ or Ç¥½Ã ½ÃÄÑÁÙ ¼ö ÀÖ´Â ±â´ÉÀÌ ÀÖÀ»±î¿ä? ¤Ð
|