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

½Æ»s¤½¦¡

¦^´_ 10# myleoyes


  
Rng(2).Offset(, i) = "=ROUND(r" & ii & "c6 *" & [M3] & ",2)"

[M3] ¨S¦³¼Æ¦r,»Ýµ¹­Ó¼Æ¦r
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# GBKEE
¨}®v!ÁÂÁÂ!!
        ©êºp!«æµÛ´_­ì¸ê®Æ«o§Ñ¤FM3ªº¼Æ¾Ú
         M3¬°¥ô·N¼Æ¦r½d¨Ò¬°0.0254
        ²{¦bµ{¦¡¥i¥H°õ¦æ¦ýµ²ªG¨Ã«D©Ò»Ý
        ®t²§¤§³BªþÀÉ»¡©úLeoV78-2Bªí¥Ü
       ´ú¸ÕÀÉLeoV78-2A
       ½Ð¤£§[½ç±Ð¯uªº¨¯­WÅoÁÂÁ¦A¤T!!

LeoV78-2B.rar (581.15 KB)

LeoV78-2A.rar (16.9 KB)

TOP

¦^´_ 12# myleoyes

   
«ö8¤ë¶s¥¿½Tª¬ºA(¦]¬°²Ä2µ§¦b8¤ë¬° 0 ,AI2µ¥©ó0µ§©Ò¥HAI6¨S¦³¼Æ¾Ú)                                                       

¤£À´½Ð¸ÑÄÀ¤@¤U,²Ä2µ§¬°¦ó¬O8¤ëªºÅÞ¿è.

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

TOP

¦^´_ 13# GBKEE
¨}®v!ÁÂÁÂ!!
     ¡­°²³]§ë¤J¨C¤ë°t®§°òª÷,¥B°t®§ÃB«D©T©wÃB¡­
     ¦b5¤ë4¤é»P5¤ë9¤é¤À§O¶R¤J2µ§°òª÷
     ¦b5¤ë©³°t®§©Ò¥HAH3:AI3¬O2µ§ªº¦U§O°t®§ÃB
     Z3¬°°t®§¤é´Á
     ¦b6¤ë14¤é¦A¶R¤J1µ§°òª÷
     ¦b6¤ë©³°t®§©Ò¥HAH4:AJ4¬O¦@3µ§ªº¦U§O°t®§ÃB
     Z4¬°°t®§¤é´Á
     ¥H¦¹Ãþ±À...¸Ô°O§ë¸êª¬ºA
     ¼ÒÀÀ8¤ëÅ«¦^5¤ë9¤éªº(²Ä2µ§)°òª÷
     ©Ò¥Hµ{¦¡·|±NA4(½s¸¹2)Åܦ¨ 0
     ¤]´N¬O»¡¨C·í¥ô¦ó³QÅ«¦^ªº°òª÷½s¸¹³£·|Åܬ° 0
     ¦nÅýAI2=0²Õ°µ¬°µ{¦¡°Ñ·Ó¥Î
     «ê¥©8¤ë¥÷¤]¨S¦³¶R¤J°òª÷
     ¦b8¤ë©³¨SÅ«¦^ªº°òª÷®§·Ó¼Ë°t
     Å«¦^ªº´N¨S¦³°t©Ò¥HAH6:AK6¬O¦@3µ§ªº¦U§O°t®§ÃB
     A4=0(AI2=0²Õ¤wÅ«¦^)©Ò¥HAI6="",©Ò¥H¥u°t3µ§
     ¸Ü¨ì¦¹¬O§_¯Ç´e?!!¬°¦ó­n«Ø¥ßAH,AI..µ¥µ¥Ä檺¥Øªº
     ¦]¬°·í§ë¸êªº®É¶¡¤[»·»Pµ§¼ÆÅܦh
     ·íÅ«¦^®É¨ì©³¬O·l¯q¦h¤Ö??
     ¤×¨ä¬O¨C¤ë¦³°t®§¥B«D©T©wÃB¯uªº¬O¤£¹D°t¦h¤Ö®§..
     °ß¦³±N¼Æ¦rÅܦ¨¼Æ¾Ú¤~¯à§ä¨ìÀò§Qªº¤£¤Gªk«h
     µM¦Ó¾ÇExcel³Ì°g¤Hªº¦a¤è´N¬O"¼ÒÀÀ"
     ³z¹L"ºë·Çªº¼Æ¾Ú¼ÒÀÀ"´N¯à¬Ý¨ì¥¼¨Ó­È!!
     ³o¬O¤ß±o.....±ß¦w!!ÁÂÁ¦A¤T!!

TOP

¦^´_ 14# myleoyes
¦³Å«¦^ AÄæ=0 ,¦³°µ³o¬ö¿ý«á,8#ªºµ{¦¡½XÀ³¬O²Å¦X§Aªº´Á±æ.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# GBKEE
¨}®v! ÁÂÁÂ!!½Ð¬Ý²M·¡°Êµe                                       
½Ð«ö5¤ë¶s¦A½Ð¬Ý²M·¡AH3:AI3ªº¼Æ¾Ú                                       
AH3:AI3¬O¦P®É¦³¼Æ¾Ú , ¦A²M°£¸ê®Æ                                       
½Ð«ö¨}®v¶s¦A½Ð¬Ý²M·¡AH3:AI3ªº¼Æ¾Ú                                       
AH3¦³¼Æ¾Ú , ¦ý¬OAI3«o¬OªÅ¥Õªº                                       
§O§Ñ¤F5¤ë¥÷¬O¶R2µ§                                       
¦ý«o¥u°t1µ§®§,½Ð°Ý¥t¤@µ§®§¦b­þ¸Ì???                                       
¦]¬°¨}®vªºµ{¦¡¬O¶¥±è¦¡ªº¤è¦¡                                       
¥u­n¹J¨ì·í¤ë¥÷¦P®É¦³2µ§¥H¤Wµn¤J·|¥X¿ù                                       
¬Oµ{¦¡¿ù»~ªº¦a¤è§A¬O§_ª`·N¨ì©O?                                       
µ{¦¡¤£¯à³æ³æA3¹ïAH3 , A4¹ïAI4 , A5¹ïAJ5                                       
³o¹ï¨C¤ë¥u¶R1µ§¾A¥Î,¦pªG¨C¤ë¶R¦hµ§¬O¿ù»~ªº                                       
¤£¬O¶Ü?¨}®v©ú¥Õ§_?
¦AªþÀɸլݬݨ¯­WÅo!ÁÂÁ¦A¤T!!

LeoV78.gif (239.11 KB)

LeoV78.gif

LeoV78-2C.rar (16.01 KB)

TOP

¦^´_ 16# myleoyes
  1. Sub Ex()
  2.     Dim C As Integer, i As Integer, R As Integer
  3.     C = [AH1].Column
  4.     R = Cells(Rows.Count, [AH1].Column).End(xlUp).Row + 1
  5.     If R < 3 Then R = 3
  6.     i = 3
  7.     Do While IsDate(Cells(i, "B")) And Cells(i, "B") < Cells(R, "Z")
  8.         If Cells(i, "B") < Cells(R, "Z") Then
  9.             Cells(1, C) = "=SUM(R3C:R200C)"
  10.             Cells(2, C) = "=R" & i & "C1&""µ§"""
  11.             Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
  12.             C = C + 1
  13.             i = i + 1
  14.         End If
  15.     Loop
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 17# GBKEE
¨}®v! «D±`ªºÁÂÁÂ!!
        µ{¦¡¹ïÅo!¦ý«o¿òº| 0µ§ªºª¬ªp
                Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)" ¦¹¦C
        ­×§ï¦p¤U
               If Cells(2, C) <> "0µ§" Then  Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
         §Y¥i¯u¬O¨¯­W§AÅo!!¤p§Ì¥Ñ°J·P¿E....ºÉ¦b¤£¨¥¤¤
              ¦b¦¹¸Û¼°ªº¯¬ºÖ..... ±z»P¦U¤jª©¥D¤Î¦U¦ì«e½ú­Ì!
                                                 ·s¦~§Ö¼Ö!!
                ¤@°¨·í¥ý  ÅD±æ¤@¾ã¦~.....   ·PÁ¤j®aªº±Ð¾ÉÅý¤p§Ì¤£Â_ªº¦¨ªø
              ÁÂÁ¦A¤T!!

TOP

¦^´_ 17# GBKEE
¨}®v!
    ³oµ{¦¡¦³»~??
    ½Ð­×§ïA3¤£¯àÅ«¦^ªº°ÝÃD
    ·íA3¬°¹s®Éµ{¦¡³à¥¢§P§O¯à¤O
    µLªkÄ~Äò¼g¤J¸ê®Æ
    ¦p°Êµe¤W¹Ïª¬ºA
    ¨¯­WÅo!ÁÂÁ¦A¤T!!

LeoV78-3.gif (698.9 KB)

LeoV78-3.gif

LeoV78-3.rar (11.86 KB)

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-3-22 15:15 ½s¿è

¦^´_ 19# myleoyes
¸Õ¸Õ¬Ý:
  1. Sub «Ø¥ß¤é´Á¤ñ¹ïªí()
  2.     Dim i As Integer
  3.     Sheets("Sheet1").Activate
  4.    
  5.     '®Ú¾Ú [B3], ¶ñ¤J³sÄò9­Ó¤ëªº µ²ºâ¤é´Á ¨ì ÄæZ
  6.     '¨Ã¶ñ¤J³sÄò9­Ó¤ëªº ¦~¤ë ¨ì ÄæY, ¨Ñ [Y2] Match ¦~¤ë ¥Î
  7.     '¦]¬°¬Y¨Ç¤ë¥÷¶W¹L1µ§, ¥B¦P¤ë¥÷¶·¼g¦b¦P¤@¦C, ¬G¥Î MATCH ¤ñ¹ï¬O§_¦P¤@¤ë¥÷ªº¸ê®Æ
  8.     '½Ð­×§ï For i = 1 To 9 ¤§ 9, ¦pªG¹w­p­n­n«Ø¥ß³sÄò 12­Ó¤ëªº¸ê®Æ, «h§ï¬° 12
  9.     For i = 1 To 9
  10.         Cells(i + 2, 26) = DateSerial(Year([B3]), Month([B3]) + i, 1) - 1
  11.         Cells(i + 2, 25) = Year(Cells(i + 2, 26)) - 1911 & Month(Cells(i + 2, 26))
  12.     Next i
  13. End Sub

  14. Sub Exyen()
  15.     Dim Rng, chkRng As Range
  16.     Dim i, endRow, endRow2, blankRow As Integer
  17.     endRow = [A2000].End(xlUp).Row
  18.     [AH1].Resize(200, 40) = ""
  19.     [Y3].Resize(200, 2) = ""
  20.     «Ø¥ß¤é´Á¤ñ¹ïªí
  21.     endRow2 = [Y200].End(xlUp).Row
  22.    
  23.     Sheets("Sheet1").Activate
  24.     [M3] = 0.0254                 '¦¹¦C "­É¥Î" M$3¬O­ÓÅܼƨëD©T©w­È
  25.     blankRow = 3
  26.     oldRow = 3
  27.     Application.Calculation = xlManual
  28.    
  29.     For i = 3 To endRow
  30.    
  31.         '­Y Cells(2, i + 31)<>"", «h³oµ§¸ê®Æ¤vµ²ºâ¹L, ´«¤U¤@µ§
  32.         If Cells(2, i + 31) <> "" Then GoTo next1:
  33.         
  34.         '§_«h±N ½s¸¹ ¼g¤J Cells(2, i + 31)
  35.         Cells(2, i + 31) = Cells(i, 1)
  36.         
  37.         '±N ¥Ø«e³o¤@µ§ ÄæB ¤§ ¦~¤ë©ñ¤J [Y1], ¨Ñ [Y2] Match ¤ñ¹ï¦~¤ë ¥Î
  38.         [Y1] = Year(Cells(i, 2)) - 1911 & Month(Cells(i, 2))
  39.         
  40.         '¦]¬°¬Y¨Ç¤ë¥÷¶W¹L1µ§, ¥B¦P¤ë¥÷¶·¼g¦b¦P¤@¦C, ¬G¥Î MATCH ¤ñ¹ï¬O§_¦P¤@¤ë¥÷ªº¸ê®Æ
  41.         [Y2] = "=MATCH(Y1,Y3:Y200,0)"
  42.         
  43.         blankRow = [Y2] + 2
  44.         If Cells(i, 1) <> 0 Then
  45.             Range(Cells(blankRow, i + 31), Cells(endRow2, i + 31)) = "=ROUND($F$" & i & "*$M$3,2)"
  46.         Else
  47.             Range(Cells(blankRow, i + 31), Cells(i, i + 31)) = "=ROUND($F$" & i & "*$M$3,2)"
  48.         End If
  49.         Cells(1, i + 31) = "=SUM(R3C" & i + 31 & ":R200C" & i + 31 & ")"
  50. next1:
  51.      Next
  52.      Application.Calculation = xlAutomatic
  53. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD