½Ð°Ý¤j¤j¥X²{«½ÆªºÈn«ç»ò§ì¬Û¹ïÀ³ªºÈ
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
½Ð°Ý¤j¤j¥X²{«½ÆªºÈn«ç»ò§ì¬Û¹ïÀ³ªºÈ
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2013-7-8 21:27 ½s¿è
A B C D E
84558 7956 1 7951.886961 845
84558 7957 1 7951.889495 845
84558 7956 1 7951.89153 845
84558 7956 1 7951.893564 845
84558 7957 3 7951.901137 845
84558 7956 1 7951.903162 845
84559 7957 1 7951.905679 845
84559 7957 1 7951.908193 845
84559 7957 9 7951.930713 845
84559 7957 1 7951.933202 845
84600 7957 3 7951.940657 846
84600 7957 1 7951.943137 846
84600 7957 1 7951.945615 846
84600 7957 5 7951.957967 846
84601 7957 4 7951.967805 846
84601 7957 1 7951.970258 846
84601 7957 2 7951.975158 846
84601 7958 2 7951.981022 846
½Ð°Ý¤j¤j¡A§Ún«ç»ò¼gVBA·íEÄæ¥X²{846®É§ì¤W¤@Ó845©Ò¹ïÀ³¥ªÃ䪺È(7951.933202) |
|
|
|
|
|
|
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
ÂŤÑ
§AªºData¬O§_¬°Excel a,b,c,d,e,f,...Äæ(¤w«Ø¥ß¦n)¤§±¡§Î¤U¡A
¥un¾ã¦X§ä¥X¤£¦Pªº e Äævalue ¹ïÀ³È¬°¤W£¸¦CdÄæ
Y¬O¦p¦¹¡A¥ÎVBA¤~¬O¤ý¹D |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 12# ÂŤÑÄR¦À
µ{¦¡½X¨Ì§A1#ªº¸ê®Æ©Ò¼g¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- 'Dim(ÃöÁä¦r) «Å§iÅܼƬ°µ{¦¡¨p¥ÎªºÅܼÆ
- Dim N As String, Rng As Range 'String ¦r¦ê«¬ºA 'Range(½d³ò)«¬ºA¬°ª«¥ó
-
- With Sheets("¸ê®Æªí") '×¥¿¬°¥¿½Tªº¤u§@ªí¦WºÙ
- '.[E:E] = .Range("E:E") 'Sheets("¸ê®Æªí")ªº E Äæ
- 'Application.Max(.[E:E]) ->¶Ç¦^Eøó ³Ì¤jÈ
- 'Application.Min (.[E:E])->¶Ç¦^Eøó ³Ì¤pÈ
- 'N = InputBox("¿é¤J¼ÆÈ") '¤£¹w³]¼ÆÈ ¥Î¦¹µ{¦¡½X
- 'InputBox ¨ç¼Æ Åã¥Ü¤@¹ï¸Ü¤è¶ô¨Ó°µ¬°´£¥Ü¡Aµ¥¨Ï¥ÎªÌ¿é¤J¤å¦r©Î«ö¤U«ö¶s¡A¨Ã¶Ç¦^¥]§t¤å¦r¤è¶ô¤º®eªºString¡C
- N = InputBox("¿é¤J¼ÆÈ", , Application.Max(.[E:E]))
- Set Rng = .Range("E:E").Find(What:=N, After:=Range("E1"), LookAt:=xlWhole) 'SET(³]¥ßª«¥óÅܼÆ)ªºÃöÁä¦r
- ' ½Ð¸Ô¬Ý VBA Find¤èªk, InputBox ¨ç¼Æ ªº»¡©ú
- If Not Rng Is Nothing Then 'Nothing: Find §ä¤£¨ì N(ªº¼ÆÈ)
- If Rng.Row = 2 Then '·íRng(ª«¥ó)ªº¦C¸¹¬O 2
- Set Rng = Rng.Offset(, -1) 'ª«¥ó:쪫¥ó ¦C¦ì( ¤£°Ê ),øó¦ì(¥ª²¾¤@Äæ)
- Else
- Set Rng = Rng.Offset(-1, -1) 'ª«¥ó:쪫¥ó ¦C¦ì(¤W¤É¤@¦C),øó¦ì(¥ª²¾¤@Äæ)
- End If
- Rng.Select
- MsgBox Rng.Address
- End If
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 605
- ¥DÃD
- 92
- ºëµØ
- 0
- ¿n¤À
- 648
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- macau
- µù¥U®É¶¡
- 2013-4-5
- ³Ì«áµn¿ý
- 2019-2-10
|
¦^´_ 14# ÂŤÑÄR¦À
upload your Excle file |
|
ss
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 13# sunnyso
¤j¤j§A³oÓ¤èªk¤]¤£¦æ£°¡A·PÁ¤j¤j |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 2# kimbal
¤j¤j§Aªº¨âÓ¤èªk³£¤£¦æ¡A²Ä¤@Ó¤èªk¥Ñ©óEÄæ¬O¤½¦¡©Ò¥HMATCH§ä¤£¨ì
²Ä¤GӤ覡VBA¥X²{¿ù»~1004(µLªk¨ú±oÃþ§OworksheetfunctionªºmatchÄÝ©Ê)
½Ð°Ý¤j¤j¥H¤W°ÝÃDn¦p¦ó¸Ñ¨M©O?? |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
F2 ªº¤½¦¡
=OFFSET(D1,MATCH(846,E:E,0)-2,0)
VBA:- On Error Resume Next
- [F2] = [D1].Offset(Application.WorksheetFunction.Match(846, Columns(5), 0) - 2)
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 9# sunnyso
¦pªG¬O¥ÎDMAX¬O¤£¦æªº¡A§Ú¸Õ¹L¤F |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 9# sunnyso
¤j¤j¡A¤p§ÌÁÙµLªk¤U¸üªþ¥ó¡A¥i¥Hª½±µ¶K¤W¨Ó¶Ü??
¤j¤j¥Îªº¬ODMAX¨ç¼Æ¶Ü?? |
|
|
|
|
|
|
- ©«¤l
- 605
- ¥DÃD
- 92
- ºëµØ
- 0
- ¿n¤À
- 648
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- macau
- µù¥U®É¶¡
- 2013-4-5
- ³Ì«áµn¿ý
- 2019-2-10
|
¦^´_ 5# ÂŤÑÄR¦À
®Ú¾Ú§Aªº±ø¥ó¡]³sÄò®É¶¡¡^¤£¥ÎVBA´N¥i¥H°µ¨ì¡A¨£ªþ¥ó¡C§A¤@©wn¥ÎVBA¶Ü¡H
sonny.rar (7.77 KB)
|
|
ss
|
|
|
|
|