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

[µo°Ý] ½Ð°Ý¥X¶Ô¨t²Î³]­p

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-8-12 12:49 ½s¿è

¦^´_ 30# GBKEE


    ¤@¼Ë©O!! ¸É¤W«á«ö¤U¥h¤@¼Ë¤£¨£  ¡y¬P´Á¡z´Xªº³¡¤À, «ö¤U¥h´NÅܦ¨#29¼Ó·Ó¤ùªº¼Ë¤l
     ¬P´Á´X¨ºÄæ³£®ø¥¢ , ½Ð°Ý§Ú¬O§_¦³¾Þ§@¿ù»~©O??

   
Q1.png
2016-8-12 12:47

TOP

¦^´_ 31# v03586


Ex.zip (538.28 KB)

ªþÀɤw¸É¤W ¤H¤O¸ê®Æ®w¯Z§O²Õ§O¤H¼Æ¸ê®Æªºµ{¦¡½X
ªþÀɪº Main_¦^³ø²M°£() »P29#ªþÀɪºªºµ{¦¡½X¤@¼Ë
½Ð¦A¸Ô²Ó¬Ý¬Ý ¬P´Á¬O§_ÁÙ¬O¨S¦³¶Ü?
  1. Private Sub Main_¦^³ø²M°£()
  2.     Dim i As Date
  3.     With Sheets("¤H­û¦^³ø")
  4.         .[A2] = Format(xDay, "yyyy/mm")                                                             '** ¤ë¥÷ **
  5.         .Range(.[h1], .[h1].End(xlToRight)).EntireColumn = ""
  6.         .Range(.[A63], .[G63].End(xlDown)) = ""
  7.         For i = DateSerial(Year(xDay), Month(xDay), 1) To DateSerial(Year(xDay), Month(xDay) + 1, 0)
  8.                 With .[h1]                                                        '**­«¼g ·í¤ë¥÷¤é´Á
  9.                
  10.                     .Offset(0, Day(i) - 1) = Day(i)
  11.                     .Offset(1, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  12.                     
  13.                     .Offset(16, Day(i) - 1) = Day(i)
  14.                     .Offset(17, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  15.                     
  16.                     .Offset(32, Day(i) - 1) = Day(i)
  17.                     .Offset(33, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  18.                     
  19.                     .Offset(60, Day(i) - 1) = Day(i)
  20.                     .Offset(61, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  21.                     
  22.                     Stop   '½Ð¦^¨ì [¾ã¦X­¶­±]¬Ý¤@¤U¬P´Á¦³¿é¤J¶Ü?
  23.                 End With
  24.         Next
  25.     End With
  26. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-8-12 18:06 ½s¿è

¦^´_ 32# GBKEE
2003  ->  Mid(Format(i, "aaa"), 3) §Y¥i¥X²{¬P´Á
·PÁÂc_c_la i¤µ¤Ñ 17:25 ´£¨Ñ  
°ª©ó2003ª©ª©¥»­×§ï¦p¤U
Main_¦^³ø²M°£().Offset(1, Day(i) - 1) = Mid(Format(i, "aaa"), 3)­×§ï¦¨.Offset(1, Day(i) - 1) = Mid(Format(i, "aaaa"), 3)«K OK ¤F¡C
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 33# GBKEE
¦b Excel 2010 Àô¹Ò¤U´ú¸Õ:
A0B.png
2016-8-12 18:38

TOP

¦^´_ 34# c_c_lai
·PÁÂÀ°¦£­×¥¿.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 33# GBKEE


    ¥X²{¦p¤U¿ù»~µe­±
Q1.png
2016-8-14 18:46


Rng.Offset(2, -4).Resize(3).Select
  1. Private Sub Main_¥X¶Ô²v(Rng As Range, St As String)
  2.     Dim Ar
  3.     Rng.Offset(2, -4).Resize(3).Select    '¡ö ³o¤@¦æ¥X¿ù
  4.     Rng.Offset(2, -4).Resize(3).Value = Application.Transpose(DA²Õ§O(St))
  5.    
  6.     Rng.Offset(2, -3) = Application.Sum(DA±Mªø(St))                             '**¯Z§OÁ`¤H¼Æ
  7.     Rng.Offset(6, -5).Resize(8).Value = Application.Transpose(DA±Mªø(St))      '**¯Z§O¦U±Mªø¤H¼Æ
  8.    
  9.     Ar = DA±Mªø(St)
  10.     With Rng.Resize(, ¤éÁ`¼Æ)
  11.         .Cells = "=((r[1]c+r[2]c+r[3]c)+(r[4]c+r[5]c/2))/r[2]c5"
  12.         .Value = .Value
  13.         .Replace "0%", "", xlWhole  '¥h°£0
  14.        ' For Each e In .Cells     '¥Î°j°é
  15.        '     If e = 0 Then e = ""  '¥h°£0
  16.        ' Next
  17.     End With
  18. End Sub
½Æ»s¥N½X
¬õ®Ø¤¤ÁÙ¬O¨S¦³¥X²{
Q2.png
2016-8-14 18:46

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-14 22:21 ½s¿è

¦^´_ 36# v03586
§A§â
    Rng.Offset(2, -4).Resize(3).Select
§ï¦¨³Æµù«¬ºA¡F §Y
    '  Rng.Offset(2, -4).Resize(3).Select
µM«áÀx¦s«á¡A¦A¸Õ¸Õ¬Ý¡I

P.S.¡G
Rng.Offset(2, -4).Resize(3).Select ¶Ç¦^
<µLªk¨ú±oÃþ§O Range ªº Select ÄÝ©Ê>

TOP

¦^´_ 37# c_c_lai


    ·PÁ¤j¤jªºSupport !! ²×©ó¸Ñ¨M¤F!!

    ·Q°Ý¤@¤U¦p¤U¹Ï, ÁöµM³Ì¤W­±ªº¤é´Á¤£·|¤£¨£¤F , ¬õ®Ø³¡¤À¤G¤T¯ZªºÁÙ¬O·|®ø¥¢, ½Ð°Ý¦p¦ó­×§ï©O


Q1.png
2016-8-15 01:45

TOP

¦^´_ 38# v03586
½Ð°Ý¨ä¾lªºMid(Format(i, "aaa"), 3) ¦³§ï¦¨Mid(Format(i, "aaaa"), 3)¶Ü?
  1.    .Offset(17, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  2.                     
  3.                     .Offset(32, Day(i) - 1) = Day(i)
  4.                     .Offset(33, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  5.                     
  6.                     .Offset(60, Day(i) - 1) = Day(i)
  7.                     .Offset(61, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  8.                     
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-15 07:41 ½s¿è

¦^´_ 38# v03586
GBKEE ª©¤j  «üªº¬O¡G
A0B.png
2016-8-15 07:40

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD