¦p¦ó§Q¥ÎVBAIJµoÀx¦s®æ²£¥Í¤é´Á.®É¶¡
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 7# man65boy
"¦ý¦pªG¤â°Ê§ó§ï®É¶¡ªº¸Ü¡A¦@p"¤À"¥i§_¦P®É§ó§ï¼Æ¾Ú"
¬Ý¤£À´§Aªº»Ý¨D¬O¤°»ò? |
|
|
|
|
|
|
- ©«¤l
- 169
- ¥DÃD
- 39
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-4-17
- ³Ì«áµn¿ý
- 2020-7-17
|
¦^´_ 11# yen956
©ç¨Æ¡A¤p§Ì¨S¼g©ú¥Õ!
°²³]B5¿é¤J¤Hû«á¡AD5¶]¥X"°_©l®É¶¡"¡AC5¿é¤J¤Hû«á¡AE5¶]¥Xµ²§ô®É¶¡¡A¤§«áVBA»yªk¤w¸g§âF5°µ²Îp¤F¡A§Ú¦bÀH·N§ó§ï°_©l®É¶¡D5¡AF5ªº²Îp®É¶¡´N¤£·|¦A§ó§ï¤F¡A¬O³oÓ·N«ä¡C |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 12# man65boy
¸Õ¸Õ¬Ý:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lst As Integer, r As Integer, Rng As Range
Lst = [A65536].End(xlUp).Row '¨ú±o ÄæA ³Ì¤U±«DªÅ¥Õ®æªº¦C¸¹
Set Rng = [B2].Resize(Lst - 1, 4) '³]©wWorksheet_ChangeIJ°Ê½d³ò¬°[B2:Dxx], xx=Lst(¦C¸¹)
If Target.Count > 2 Then Exit Sub '¦pªG¤@¦¸§ïÅܦh®æ«h¨S§@¥Î
If Intersect(Target, Rng) Is Nothing Then Exit Sub '¦pªG§ïÅܪºÀx¦s®æ¤£¦b¹wp½d³ò¤º«h¨S§@¥Î
r = Target.Row
'¦pªG§ïÅܪºÀx¦s®æ¬O BÄæ ©Î CÄæ, «h
If Target.Column = 2 Or Target.Column = 3 Then
'¡¹¦pªG Target ¬°ªÅ¥Õ, «h
If Target = "" Then
Target.Offset(0, 2) = "" '²M°£¦P¦C¥kÃä¨âÄ檺Cell
Target.Offset(0, 2).Interior.ColorIndex = 35 '¨Ã¤Ï¥Õ
Target.Cells(r, 6) = "" '¨Ã²M°£¦P¦Cªº[Fxx]
'¡¹§_«h
Else
'¦pªG¦P¦C¥kÃä¨âÄ檺Cell¬°ªÅ¥Õ, «h¶ñ¤J²{¦b®É¶¡, ¤£¬OªÅ¥Õ, «h¤£¶ñ
If Target.Offset(0, 2) = "" Then
Target.Offset(0, 2) = Now '¶ñ¤J²{¦b®É¶¡
Target.Offset(0, 2).Interior.ColorIndex = xlNone '¥B¨ú®ø¤Ï¥Õ
End If
End If
End If
'¦pªG °_©l®É¶¡ ¤Î µ²§ô®É¶¡ ¤£¬OªÅ¥Õ, «h¦b [Fxx] pºâ®É®t(¥H¤ÀÄÁ¬°³æ¦ì)
If Application.Count(Cells(r, 4), Cells(r, 5)) = 2 Then
Cells(r, 6) = Int((Cells(r, 5) - Cells(r, 4)) * 24 * 60)
End If
End Sub |
|
|
|
|
|
|
- ©«¤l
- 169
- ¥DÃD
- 39
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-4-17
- ³Ì«áµn¿ý
- 2020-7-17
|
¦^´_ 13# yen956
ÁÂÁÂyen956¤j¤jªºÀ°¦£¡A¯uªº«Ü¦n¥Î¡A¤]ÁÂÁÂML089¤j¤j¡A·PÁÂ^^ |
|
|
|
|
|
|