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

[µo°Ý] vba°µ¦Û°Ê¦X­p

§Ú¦A½Ð±ÐLai¥ý¥Í ¬°¦ó¨C¦¸¨Ï¥Î¦¹¤å¥ó®É¬°¦ó³£­n¨ì¥N½X¤º«ö¥¨¶°±Ò¥Î©O?
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

§Ú¦A½Ð±ÐLai¥ý¥Í ¬°¦ó¨C¦¸¨Ï¥Î¦¹¤å¥ó®É¬°¦ó³£­n¨ì¥N½X¤º«ö¥¨¶°±Ò¥Î©O?
tomtracy µoªí©ó 2015-8-3 23:54

¦]¬°§Aªº¤p­p¨Ã«D³]©w¦b¡y©T©wÄæ¦ì¡z¤W¡A¦Ó¬O¦ì©ó¤£©w¦C¤W¡A
³q±`§A¥i¯à¦b½T©w¿é¤J§¹¦¨«á¤~·|¥[¤W¡y¤p­p¡zÄæ¡A¦b½T©w
¤u§@µ²§ô«á¦¹®É§A¤~·|¥hIJµo Ex() ¤§¬G¡C
°²³]§A¤w½T©w¡y¤p­p¡zÄæ¬O¦ì¦b¡y©T©wÄæ¦ì¡z¤W¡A¨º§A¥i¥Hª½±µ¦b
¸Ó K Äæ¡Aª½±µ¥´¤J ¡y=SUM(K##:K##)¡z¡A¤£´Nµ²¤F¡H
¦ó¶·¦A¦h¦¹¤@Á|¥hÀ³¥Î VBA ¸Ñ¨M¡I

TOP

¦^´_ 12# c_c_lai


    ³Q±z»¡¹ï¤F! ¥i´N¦³¤H·Q尽¿ìªk´N·Q¸ÕµÛ¬Ý¬Ý¦³¨S¦³§óÃiªº¤èªk! ¬°¤Fº¡¨¬¥ô°È¤Î·Qªk´N­n§ä¤è¦¡ :'( :'( :'(
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-8-4 12:54 ½s¿è

¦^´_ 13# tomtracy
©ñ¸m©ó Sheet1 (Sheet1) µ{¦¡½X¤º¡G
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim bt As Single


  3.     bt = Range("B" & Rows.Count).End(xlUp).Row - 3  ' ¤p­p¤§«eªº¤º®e

  4.     If (bt >= 8 And Target.Row < bt) And Target.Column = 11 Then  ' ·í K Äæ¦ì­È²§°Ê®É
  5.         ThisWorkbook.Ex
  6.     End If
  7. End Sub
½Æ»s¥N½X
©ñ¸m©ó ThisWorkbook µ{¦¡½X¤º¡G
  1. Sub Ex()
  2.     Dim bt As Single
  3.    
  4.     With Sheet1
  5.         bt = .Range("B" & .Rows.Count).End(xlUp).Row
  6.         If bt > 8 And InStr(.Range("B" & bt - 3), "¤p­p") Then
  7.             .Range("K" & bt - 3).Formula = "=SUM(K8:K" & (bt - 4) & ")"     '  ¤p­p
  8.             .Range("K" & bt).Formula = "=SUM(K" & (bt - 3) & ":K" & (bt - 1) & ")"     '  Á`­p
  9.         End If
  10.     End With
  11. End Sub
½Æ»s¥N½X
Àx¦s«á¡A¥u­n±q K8 Äæ¶}©l¦Ü¤p­p«e K Ä椺®e¦³©Ò²§°Ê®É¡A¤p­p»PÁ`­p¤º®e­È«K·|¦Û°ÊÀH¤§²§°Ê¡A
¦Ó¤£»Ý¦A¥Ñ¤H¤u±Ò°Ê Ex()¡A³o¯Âºé¬OÃi¤Hªºµ{¦¡¼gªk¥ç¬O§A©Ò´Á±æªº¤è¦¡¡C

TOP

¦^´_ 14# c_c_lai

§Ú¤£ª¾¥Î¦óºØ¨¥»y¥h·PÁ±z!°£¤F·PÁÂÁÙ¬O·PÁÂ! ±z¯uªº«Ü¦³®ð«×ªºÀ°§Ú!¥i¬O·M²Âªº§Ú¸Õ¤F±zªº¾Þ§@¦A¶}

«Ø¥Á¤½¥q (¤w¸m¤JThisWorkbook ).rar (17.82 KB)

«Ø¥Á¤½¥q (2).rar (20.57 KB)

¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

¥´ªº¦r¬°¦ó³£·|¤£¨£©O?   §Ú·Q»¡ªº¬O Lai¥ý¥Íµ¹§Úªº¤å¥ó§Ú·Ó°µ¤F ¥i¬O¦A­«·s¶}±Ò¤´­n¨ì¥¨¶°³B°õ¦æEx ! §Ú§â¤å¥óªþ¤W½Ðlai¥ý¥Í¬Ý!
¥t¥~¤@¥÷¤å¥ó¬O§Ú¦­¥ýªº¤å¥ó¥N½X,¬O¯à¦Û°Ê°õ¦æªº!¦Û¦æ­×§ï«á,µo²{¥u¯à¥[Á`¦X­p¤U¤@²Õ¼Æ¦r¦Ó¤w ¬O§_¦³¿ìªk­×§ï?
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

¦^´_ 15# tomtracy

TOP

¦^´_ 17# c_c_lai

ÁÂÁ±z!­ì¨Ó¬O³o¼Ë!
    :handshake
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD