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

[µo°Ý] °w¹ï (¯S©w½d³ò¤º) ¦rÅéÃC¦â¦Û°Ê­pºâ¥[Á`»P«ö¶s§ó·s°ÝÃD

[µo°Ý] °w¹ï (¯S©w½d³ò¤º) ¦rÅéÃC¦â¦Û°Ê­pºâ¥[Á`»P«ö¶s§ó·s°ÝÃD

¦U¦ìª©¤j¦n

¹J¨ì¤@­Ó°ÝÃD©M¼gªk½Ð¦U¥ý¶i«ü¾É !! ¥ý·PÁ¤j®a~~

°ÝÃD¡G«ö¶s´«­¶«á¡AVBA¦]¬°«ö¶s¥N¸¹¤£¦P¡AµLªk°õ¦æ¡A¬O§_¦³³q¥Îªº¼gªk¥i¥H¦b§ó´«¤U¤@­Ó¤u§@­¶®É·|¦Û°Ê°»´ú«ö¶s¥N¸¹

ªþ¥ó¬O¡y°w¹ï¨C­Ó¤ë»Ý­pºâ®w¦s»P±µ³æ«á³Ñ¾lªº¼Æ¶q¦Û¤v¼gªºÂ²©öVBA¡A·Q½Ð±Ð¥ý¶i¬O§_¦³¨ä¥L¤è¦¡¯à²¤Æµ{¦¡½X (³Ì¤U­±ÃC¦â³]©w¦pªG¦³10­Ó´N·|¼g¤£§¹¤F):L ¡AÁÂÁÂ

¥Í²£­p¹º.rar (644.03 KB)
VBA ·s¤â¶i¤Æ¤¤

¥»©«³Ì«á¥Ñ Hsieh ©ó 2019-1-11 15:58 ½s¿è

¬O³o¼Ëªº·N«ä¶Ü?
  1. Sub §ó·s¤é´Á_Click()
  2.     ActiveObject = Application.Caller '±Ò°Êµ{§Çªº«ö¶s
  3.     ActiveSheet.Shapes(ActiveObject).TextFrame.Characters.Text = "§ó·s¤é´Á¡G" & Now()
  4.     Call ColorSUM
  5.    
  6. End Sub

  7. Public Sub ColorSUM()
  8.     Dim k, i As Integer, Cp(), Dic
  9.     Set Dic = CreateObject("Scripting.Dictionary")
  10.     Cp = Array(3, 13, 33, 4, 9, 22, 27, 1) '¦â½X
  11.     For i = 0 To UBound(Cp)
  12.        Dic(Cp(i)) = 0
  13.     Next
  14.    
  15.    r = Range("F500").End(xlUp).Offset(3).Row '±q¯S©w¦ì¸m¶}©l¥[Á`
  16.    
  17.     For k = 9 To 33
  18.         For i = 17 To Range("C17").End(xlDown).Row '´`¦C­pºâÃC¦â¥[Á`
  19.           Dic(Cells(i, k).Font.ColorIndex) = Dic(Cells(i, k).Font.ColorIndex) + Cells(i, k)
  20.         Next
  21.         For j = 0 To UBound(Cp)
  22.            Cells(r, k).Offset(j).Font.ColorIndex = Cp(j)
  23.            Cells(r, k).Offset(j).Font.Bold = True
  24.            Cells(r, k).Offset(j) = Cells(5, k) + Dic(Cp(j))
  25.            Dic(Cp(j)) = 0 'Âk¹s
  26.         Next
  27.     Next
  28.    
  29. End Sub
½Æ»s¥N½X
¦^´_ 1# JT1221
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

·PÁÂHsieh¶W¯Åª©¥Dªº¦^ÂСA§A¼gªºµ{¦¡½X¶W¯Åºë²¡A¥¿¦b¬ã¨s¤¤ !!   {:3_59:}

¸Õ°õ¦æ¤§«á¡A«ö¶sªº³¡¥÷¨S°ÝÃD¡A¦ý¬O¤U­±­pºâµ²ªG¦³ÂI°ÝÃD¡AÀ³¸Ó¬O§Ú­ì¨Óªº»¡©ú¤£²M·¡³y¦¨¡C
§Ú°µ¤F¤@±i¹Ï¨Ó»¡©ú­pºâªº³W«h
³Ì¤W­±1ªº³¡¥÷¬O²{¦b®w¦s¡A¤¤¶¡ªº°Ï¶ô¤£²z·|
2ªº³¡¥÷¬O«È¤á»Ý¨D¡A¥Ø«e¸Ì­±³£¬O¡i-­È¡j¡A©Ò¥H·|ª½±µ¥Î+¸¹¨Ó°µ­pºâ
3ªº³¡¥÷¬O§Ú»Ý­n­pºâªº¥Ø«e³Ñ¾l®w¦s¡A¥Ø«e¨Ì1ªº³¡¥÷¨Ó»¡¡AÀ³¸Ó·|¦³¤TºØÃC¦â¡A¦ý¹ê»Ú°õ¦æ¦³¥|ºØÃC¦â !!
¦]¬°µ{¦¡½XÁ٬ݤ£¤ÓÀ´¡A©Ò¥H­n³Â·Ð¦AÀ°¦£¬Ý¬Ý !!  ·PÁ !!

»¡©ú

»¡©ú.JPG
2019-1-11 16:28

¥Í²£­p¹º-°õ¦æ«á.rar (643.12 KB)
VBA ·s¤â¶i¤Æ¤¤

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD