½Ð°Ý¤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
|
¦^´_ 9# sunnyso
¤j¤j¡A¤p§ÌÁÙµLªk¤U¸üªþ¥ó¡A¥i¥Hª½±µ¶K¤W¨Ó¶Ü??
¤j¤j¥Îªº¬ODMAX¨ç¼Æ¶Ü?? |
|
|
|
|
|
|
- ©«¤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
- 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
|
¦^´_ 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
- 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
- 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
- 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
- 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 |
|
|
|
|
|
|