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

[µo°Ý] ¿é¤J½s¸¹¶]¥X¸ê®Æ

[µo°Ý] ¿é¤J½s¸¹¶]¥X¸ê®Æ

¥»©«³Ì«á¥Ñ gn00487767 ©ó 2014-2-12 16:12 ½s¿è

·Ð½Ð¤j¤j±Ð¾Ç


¸Ó¦p¦ó²K¥[«ü¥O

¿é¤J½s¸¹¶]¥X¸ê®Æ.rar (12.59 KB)

¦^´_ 1# gn00487767
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Option Base 1
  3. Private Sub CommandButton1_Click()
  4.     Ex
  5. End Sub
  6. Private Sub TextBox1_Change()
  7.     Ex
  8. End Sub
  9. Private Sub Ex()
  10.     Dim Rng As Range, Ar, i As Integer
  11.     Ar = Array([C3], [G3], [C5], [G5], [C7], [C9])
  12.     Set Rng = Sheets("¸ê®Æªí").Range("A:A").Find(WHAT:=TextBox1, LOOKAT:=xlWhole)
  13.     For i = 1 To UBound(Ar)
  14.         If Not Rng Is Nothing Then
  15.             Ar(i).Value = Rng.Offset(, i)
  16.         Else
  17.             Ar(i).Value = ""
  18.         End If
  19.     Next
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# gn00487767
TextBox1¦³¨Ï¥Î»Ý¨D¶Ü? ®³±¼·|²M²n¤@ÂI¡C
¸ê®ÆÃe¤j¥i¥H°Ñ¦Ò¤U­±¡A¥u¥Îmatch§ä¤@¦¸¡C
  1. Private Sub CommandButton1_Click()
  2.   Dim lRow As Long, sID As String
  3.   
  4.   sID = Sheets("ªí®æ").[E1].Value
  5.   If sID <> "" Then
  6.     With Sheets("¸ê®Æªí")
  7.       On Error Resume Next  '©¿²¤§ä¤£¨ì®Éªº Error
  8.       lRow = Application.Match(sID, .Range(.[A1], .[A1].End(xlDown)), 0)
  9.       On Error GoTo 0 'ÁÙ­ì
  10.     End With
  11.    
  12.     If lRow > 0 Then
  13.       ar = Application.Transpose(Application.Transpose(Sheets("¸ê®Æªí").Cells(lRow, "B").Resize(, 6).Value))
  14.       With Sheets("ªí®æ")
  15.         .[C3].Value = ar(1)
  16.         .[G3].Value = ar(2)
  17.         .[C5].Value = ar(3)
  18.         .[G5].Value = ar(4)
  19.         .[C7].Value = ar(5)
  20.         .[C9].Value = ar(6)
  21.       End With
  22.     End If
  23.   End If
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

·PÁ¶W¯Åª©¥Dªº±Ð¾Ç
§Aªº¤èªk²Å¦X¤p§Ìªº»Ý¨D
¥u¬O¤p§Ì¤£¤Ó¯à²z¸Ñ,¦]¬°¤Àªº¦n´²
¦h¥X¨º¨ÇEX¬O¤°»ò·N«ä
¦]¬°¤p§Ì¬O§¹¥þ¤£À´ºCºC¬ã¨sªº

TOP

¦^´_ 4# gn00487767
  1. Private Sub CommandButton1_Click()
  2.             Ex  '°õ¦æ³oµ{¦¡ = Call Ex   
  3.             End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# stillfish00

·PÁÂstillfish00¤j¤jªº«ü¾É
TextBox1¬O¥i¥H®³±¼,
¦]¬°¤p§Ì¤§«e­è¾Ç²ß®É,«Ü¦h³sµ²³£§Ë¦bTextBox1,©Ò¥H¤~¥[¤W¥hªº
¦A½Ð°Ý
ar = Application.Transpose(Application.Transpose(Sheets("¸ê®Æªí").Cells(lRow, "B").Resize(, 6).Value))
¸Ì­±ªº"B"¬O¥NªíBÄæ¶Ü
¸Ì­±ªº 6 ¬O¥Nªí BÄ椧«áªº6Äæ¶Ü?
¦]¬°¤p§Ì¯uªº¬O¥Ñ§¹¥þ¤£À´¦Û¦æ¶Ã´ê¥X¨Óªº

TOP

¦^´_ 5# GBKEE

¦A½Ð°Ý¤j¤j,¨º³o2­Ó©O
01.Option Explicit
02.Option Base 1
¤p§Ì¸Õ¹L®³±¼¥L­Ì
¦ý°õ¦æ«á¦ì¸m³£¶Ã¤F

TOP

¦^´_ 7# gn00487767
vbaµøµ¡,¦³¤@»¡©ú«ü¥O,¿é¤J Option Explicit ¦³»¡©ú
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# gn00487767
¸Ì­±ªº"B"¬O¥NªíBÄæ¶Ü
¸Ì­±ªº 6 ¬O¥Nªí BÄ椧«áªº6Äæ¶Ü?

¬Oªº

TOP

¦^´_ 3# stillfish00

¦A¦¸½Ð±Ð stillfish00 ¤j¤j
­Y¾ãÄæ¸ê®Æªº¸Ü¤p§Ì¤S¸Ó«ç»ò°µ©O?
¦pªþ¥ó

¿é¤J½s¸¹¶]¥X¸ê®Æ2.rar (10.61 KB)

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD