½Ð°Ý¤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
- 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
|
|
ss
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¸Õ¸Õ¡Ga = [e:e].Find(846, [e65536], , 1)(0, 0) |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 3# oobird
¤j¤j¡A©êºp¤p§ÌÁÙ¬O·s¤â¡A¥i¥H»¡©ú¤@¤U¶Ü??
¦bVBA¤Wn¦p¦ó§e²{ |
|
|
|
|
|
|
- ©«¤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# sunnyso
¹ï¡A³£¬O³sÄòªº¡AEÄ檺ȬO§ìAÄæȪº¤p®É©M¤À |
|
|
|
|
|
|
- ©«¤l
- 112
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 136
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- excel
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-12
- ³Ì«áµn¿ý
- 2022-11-29
|
Sub Macro1()
Dim DQ As Integer
'
For DQ = 1 To 17
If Range("D" & DQ).Value = 846 Then
Range("E" & DQ).Value = Range("c" & DQ - 1).Value
DQ = 17 ' ¦pªG¬O¤@¬Ý¨ì´Nµ²§ô¡A§_«h¦¹«ü¥O¥iÃö³¬
Else
End If
Next DQ
End Sub |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 6# cji3cj6xu6
¤j¤j¡A§Úªº¸ê®ÆÁÙn§ì847,848,849...¤@ª½¨ì1344¡A©Ò¥H³£n³o¼Ë¶Ü??
¥i¥H²²¤¼gªk¶Ü?? |
|
|
|
|
|
|
- ©«¤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
|
³oÓVBAn«ç»ò¼g
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2013-7-8 21:27 ½s¿è
A B C D E F
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
½Ð°Ýª©¤W¤j¤j¡A§Ún¼g¤@ÓVBAªºÅÞ¿è¬O·j´MEÄ檺¤º®e(¦]¬°EÄæ¬O¤½¦¡)¡A·íEÄæ¥X²{846®É¦bF2Åã¥Ü845©Ò¹ïÀ³¥ªÃ䪺È(7951.933202)¡A³oÓVBAn«ç»ò¼g |
|
|
|
|
|
|
- ©«¤l
- 112
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 136
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- excel
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-12
- ³Ì«áµn¿ý
- 2022-11-29
|
§Úªº¸ê®ÆÁÙn§ì847,848,849...¤@ª½¨ì1344¡A©Ò¥H³£n³o¼Ë¶Ü?? ==> ¨C¦¸¥u§ì²Ä¤@µ§¶Ü¡H
¥i¥H²²¤¼gªk¶Ü?? ¡×¡×> §Ú¥u·|if then / for °j°é ªº¼gªk¡A¨þ¨þ¡ã
Sub Macro1()
Dim DQ, EndLine, FindValue As Integer
'
EndLine =2000 '³Ì«á¤@µ§¸ê®Æ
FindValue =846
For DQ = 1 To EndLine
If Range("E" & DQ).Value = FindValue Then
Range("F" & DQ).Value = Range("D" & DQ - 1).Value
FindValue=FindValue+1
Else
End If
Next DQ
End Sub |
|
|
|
|
|
|
- ©«¤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
|
|
|
|
|