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

¥Î¤½¦¡°lÂÜ¥X¦Û¨º¤@Äæ¦ì

¥Î¤½¦¡°lÂÜ¥X¦Û¨º¤@Äæ¦ì

¯à°÷¿é¤J¸ê®Æ, ¥i¥H°lÂܨì¦b¨º¤@­Óªí¤¤¥X²{
¨Ò¦p¿é¤J
vwxÅã¥Ü¬°ªí3
tde Åã¥Ü¬°ªí4¶Ü
½Ð«ü±Ð


ªí1        ªí2        ªí3        ªí4
abc        jkl        stu        zbc
def        mno        vwx        eqa
ghi        pqr        yqa        tde

¥»©«³Ì«á¥Ñ register313 ©ó 2012-1-11 00:54 ½s¿è

¦^´_ 1# enoch

ªì¾ÇªÌVBA

¥X¦Û¦ó¤u§@ªí
  1. Sub cc()
  2. ser = InputBox("½Ð¿é¤J­n´M§äªº­È:")
  3. If Trim(ser) <> "" Then
  4.   For sht = 1 To Sheets.Count
  5.     Set rng = Sheets(sht).Cells.Find(what:=ser, lookat:=xlWhole)
  6.     If Not rng Is Nothing Then
  7.        out = out & Sheets(sht).Name & Chr(10)
  8.     End If
  9.   Next sht
  10. End If
  11. If out = "" Then
  12.    MsgBox "¨S¦³§ä¨ì"
  13. Else: MsgBox "´M§äªº­È" & ser & "¥X²{¦b¤u§@ªí" & Chr(10) & out
  14. End If
  15. End Sub
½Æ»s¥N½X
¥X¦Û¦óÄæ¦ì
  1. Sub dd()
  2. ser = InputBox("½Ð¿é¤J­n´M§äªº­È:")
  3. If Trim(ser) <> "" Then
  4.   For C = 1 To Range("A1").End(xlToRight).Column
  5.     Set rng = Columns(C).Find(what:=ser, lookat:=xlWhole)
  6.     If Not rng Is Nothing Then
  7.        out = out & Cells(1, rng.Column) & Chr(10)
  8.     End If
  9.   Next C
  10. End If
  11. If out = "" Then
  12.    MsgBox "¨S¦³§ä¨ì"
  13. Else: MsgBox "´M§äªº­È" & ser & "¥X²{¦b" & Chr(10) & out
  14. End If
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313

="ªí"&MAX((A2:D4=F1)*COLUMN(A2:D4))  °}¦C¤½¦¡
F1¬°±ý¬d¸ß¤§¸ê®Æ

TOP

¦^´_ 3# register313


    register313¤j¤j,
·Q½Ð±Ð¤@¤U
out = out & Cells(1, rng.Column) & Chr(10)
»P
out = Cells(1, rng.Column) & Chr(10)
¦³¤°»ò¼Ëªº¤£¦P?
out = out & Cells(1, rng.Column) & Chr(10)
³o ¤@¬q§Ú¤£¤ÓÀ´¬O¤°»ò·N«ä ¦A³Â·Ð±z©âªÅ¸Ñµª, ÁÂÁÂ

TOP

¦^´_ 4# dino1978

¦]¥»µ{¦¡¬O©ñ¦bFOR°j°é¤º(³]¦³3¦¸°j°é)

                out = Cells(1, rng.Column) & Chr(10)  
²Ä1°j°éout¤§­È        ²Ä1¦¸Àx¦s®æ¤§­È+¤À¦æ         
²Ä2°j°éout¤§­È        ²Ä2¦¸Àx¦s®æ¤§­È+¤À¦æ         
²Ä3°j°éout¤§­È        ²Ä3¦¸Àx¦s®æ¤§­È+¤À¦æ            
³Ì«á¿é¥Xout¤§­È       ²Ä3¦¸Àx¦s®æ¤§­È+¤À¦æ

                 out = out & Cells(1, rng.Column) & Chr(10)
²Ä1°j°éout¤§­È        ªÅ­È+²Ä1¦¸Àx¦s®æ¤§­È+¤À¦æ
²Ä2°j°éout¤§­È        ²Ä1¦¸Àx¦s®æ¤§­È+¤À¦æ+²Ä2¦¸Àx¦s®æ¤§­È+¤À¦æ
²Ä3°j°éout¤§­È        ²Ä1¦¸Àx¦s®æ¤§­È+¤À¦æ+²Ä2¦¸Àx¦s®æ¤§­È+¤À¦æ+²Ä3¦¸Àx¦s®æ¤§­È+¤À¦æ
³Ì«á¿é¥Xout¤§­È       ²Ä1¦¸Àx¦s®æ¤§­È+¤À¦æ+²Ä2¦¸Àx¦s®æ¤§­È+¤À¦æ+²Ä3¦¸Àx¦s®æ¤§­È+¤À¦æ

TOP

¦^´_ 5# register313

ÁÂÁÂregister313¤j¤j  ©ú¥Õ¤F,  ÁÂÁ±z¸ÔºÉªº¸Ñ»¡!!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-15 07:07 ½s¿è

¦^´_ 2# register313
¥X¦Û¦óÄæ¦ì :  ¦p´M§äªº­È¦b¤@Ä椤¥X²{¼Æ¦¸·|¦³»~®t
  1. Option Explicit
  2. Sub Ex()
  3.     Dim MyText As String, Rng As Range, F_Address As String, TheFind As String
  4.     MyText = Trim(InputBox("½Ð¿é¤J­n´M§äªº­È:"))
  5.     If MyText <> "" Then
  6.         Set Rng = Range("A1").CurrentRegion.EntireColumn.Find(MyText, lookat:=xlWhole)
  7.         If Not Rng Is Nothing Then
  8.             F_Address = Rng.Address
  9.             Do
  10.                 TheFind = IIf(TheFind = "", Rng.Address(0, 0), TheFind & "   " & Rng.Address(0, 0))
  11.                 Set Rng = Range("A1").CurrentRegion.EntireColumn.FindNext(Rng)
  12.             Loop Until F_Address = Rng.Address
  13.         End If
  14.     End If
  15.     If TheFind <> "" Then
  16.         MsgBox MyText & "  ¦ì©ó : " & TheFind
  17.     Else
  18.         MsgBox "¨S¦³§ä¨ì  " & MyText
  19.     End If
  20. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD