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

奬ª÷­n¦p¦ó¥Îvba­pºâ©O

¦^´_ 15# sillykin


    °Ï¤À                                             Àç·~³æ¦ì              ºÞ²z³æ¦ì       
                                            ·F³¡        «D·F³¡         ·F³¡     «D·F³¡
30%¥¼º¡ªÌ                        -25,000        -10,000        -25,000        -10,000
30%¥H¤W~40%¥¼º¡ªÌ                        -20,000        -7,000        -20,000        -7,000
40%¥H¤W~50%¥¼º¡ªÌ                        -16,000        -5,000        -16,000        -5,000
50%¥H¤W~60%¥¼º¡ªÌ                        -12,000        -4,000        -12,000        -4,000
60%¥H¤W~70%¥¼º¡ªÌ                        -8,000        -3,000        -8,000        -3,000
70%¥H¤W~80%¥¼º¡ªÌ                        -6,000        -2,000        -6,000        -2,000
80%¥H¤W~90%¥¼º¡ªÌ                        -4,000        -1,000        -4,000        -1,000
90%¥H¤W~100%¥¼º¡ªÌ                        -2,000        -500        -2,000        -500
¹F¦¨100%                                      2,000            800         1,000         500
¹O100%¥H¤W                               ¨C1%¡Ñ155        ¨C1%¡Ñ75         ¨C1%¡Ñ 75¨C1%¡Ñ 55


¥u¦³¹F¨ì100%¤~·|¦³¥[ÃB¥~ªº奬ª÷...§C©ó100%¥H¤U¨Ì·Ó¥¼º¡¤ñ²v ¦©奬ª÷(¦ý¬O­n¤ÀÀç·~³æ¦ì©ÎºÞ²z³æ¦ì)(·F³¡©Î«D·F³¡)

TOP

¦^´_ 16# sillykin


    ¦pªG逹¦¨¤ñ²v¡]¢H¡^³oÄæ¦ì®æ¥ÑÀx¦s®æ¦Û¤v¥Î¨ç¼Æ¥hºâ,,,¥u¨D奬ª÷³¡¥÷§Y¥i...¬O§_¥i¦æ..·PÁ¤j¤j¦b«ü±Ð¤@¤U..·P®¦

TOP

¦^´_ 16# sillykin
µ{¦¡¤w­×§ï½Ð­«·s¤U¸ü8# µ{¦¡½X
¦³¿ù»~½Ð¬Ý¹Ï


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

TOP

¦^´_ 19# sillykin


    ¤£¦n·N«ä§Ú¨Ï¥Îªºª©¥»¬Oecxel2000
°õ¦æµ²ªG¬°¹Ï¤ùÅã¥Ü"¥¼©w¸q"

¥¼©w¸q1.JPG (75.67 KB)

¥¼©w¸q1.JPG

TOP

¦^´_ 20# sillykin


    ¤j¤j§A¦n..¤W­zªº°ÝÃD³£¤x¸g¸Ñ¨M¤F..¦b½Ð±Ð¤@­Ó¤p°ÝÃD

°²¦p"Àç·~³æ¦ì"¤¤--¤À¬°12­Ó¤p³æ¦ì-¦p :³æ¦ì1¡B³æ¦ì2¡B³æ¦ì3¡B³æ¦ì4¡B³æ¦ì5.....¡B³æ¦ì12
     "ºÞ²z³æ¦ì"¤¤---¤À¬°8­Ó¤p³æ¦ì
  
¦b³oºØ±¡§Î­n¦p¦ó¥h³B²z©O??
VBA­n¦p¦ó¥h§PÂ_©O???

TOP

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

TOP

¦^´_ 22# GBKEE


    ½Ð¤j¤j¬d¾\...

¦¨ÁZOK444.rar (19.39 KB)

TOP

¦^´_ 23# sillykin
  1. Option Explicit
  2. Sub Ex()
  3.     Dim I As Integer
  4.     With Sheets("¡®¡®³æ¦ì¦¨ÁZÁ`ªí¡®¡®").Range("A3")
  5.         Do While .Offset(I) <> ""
  6.             ¼úª÷µ{¦¡ .Offset(I), .Offset(I, 2), .Offset(I, 4)
  7.             I = I + 1
  8.         Loop
  9.     End With
  10. End Sub
  11. Private Sub ¼úª÷µ{¦¡(³æ¦ì As Range, ¾ºÙ As String, ¹F¦¨ÃB As Integer)
  12.     Dim Ar, ³d¥ôÃB As Integer, ¹F¦¨¦Ê¤À¤ñ As Single, ¼úª÷ As Integer, °ÆÁ`¼úª÷ As Integer
  13.     '  ****(±ø¥ó¤u§@ªí¤¤) ¨S¦³ªºÂ¾ºÙ ->  °ª¯Å±M­û, Åv²z¸g²z  ***
  14.     Dim ³¡ªù As String, ºÙ©I As String, M As Integer, A As Integer
  15.     ' *******LTrim¡BRTrim »P Trim ¨ç¼Æ  ¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim)***************************
  16.                                                        '©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê¡C*
  17.     ºÙ©I = Trim(³æ¦ì.Offset(, 2))                                      '¶Ç¦^¾ºÙ«e«á§¡µLªÅ¥ÕªºVariant (String)  *
  18.     '************************************************************************************************************
  19.     ³æ¦ì.Offset(, 7) = Application.Match(ºÙ©I, Array(0, "°ÆÁ`¸g²z", "¨ó²z", "°ª¯Å±M­û", "¸g²z", _
  20.     "Åv²z¸g²z", "°Æ¸g²z", "°Æ²z", "¤@µ¥Á¸²z", "¤Gµ¥Á¸²z", "·~°È±M­û", "¿ì¨Æ­û", "§U²z­û", "¶±­û", "ªA°È¥Í"), 0)
  21.     '************************************************************************************************************
  22.     '************************************************************************************************************
  23.     ³¡ªù = Replace(³æ¦ì, "³æ¦ì", "")                                    '¥h±¼ "³æ¦ì" ¶Ç¦^ ¼Æ¦r©Î¤å¦r            *
  24.     If Mid(³¡ªù, 1, 1) Like "[0-9]" Then ³¡ªù = "Àç·~³¡ªù"              '¬°¼Æ¦r->Àç·~³¡ªù                       *
  25.     ³d¥ôÃB = IIf(³¡ªù = "Àç·~³¡ªù", 500, 300)                           '¹w³]¬°«D·F³¡ªº³d¥ôÃB                   *
  26.     °ÆÁ`¼úª÷ = 0                                                        '¹w³]¬°°ÆÁ`¼úª÷¬° 0                     *
  27.     '************************************************************************************************************
  28.     If ³¡ªù = "Àç·~³¡ªù" Then
  29.         Ar = Array(0, 0, -10000, -7000, -5000, -4000, -3000, -2000, -1000, -500, 800, 75)           '«D·F³¡(¼úÃg¼úª÷)
  30.         If ³æ¦ì.Offset(, 7) <= 10 Then
  31.             Ar = Array(0, 0, -25000, -20000, -16000, -12000, -8000, -6000, -4000, -2000, 2000, 155) '·F³¡  (¼úÃg¼úª÷)
  32.             M = Application.Match(ºÙ©I, Array("°ª¯Å±M­û", "¤Gµ¥Á¸²z", "¤@µ¥Á¸²z", "°Æ¸g²z", "¨ó²z", "¸g²z", "°ÆÁ`¸g²z"), 0)
  33.             'M = > Match ªº¼Æ¦r
  34.             ³d¥ôÃB = Application.Index(Array(100, 1500, 2000, 2200, "(µù1)", "(µù1)", 2500), M)  '³d¥ôÃB °}¦C(°ª¯Å±M­û->100)
  35.             'Index ¶Ç¦^¤@­Óªí®æ©Î½d³ò¤ºªº¬Y­Ó­È©Î°Ñ·Ó¦ì§}¡C
  36.             °ÆÁ`¼úª÷ = IIf(ºÙ©I = "°ÆÁ`¸g²z", 2000, 0)
  37.         End If
  38.     Else
  39.         ³¡ªù = "ºÞ²z³¡ªù"
  40.         Ar = Array(0, 0, -10000, -7000, -5000, -4000, -3000, -2000, -1000, -500, 500, 55)  '«D·F³¡(¼úÃg¼úª÷)
  41.         If ³æ¦ì.Offset(, 7) <= 10 Then
  42.             Ar = Array(0, 0, -25000, -20000, -16000, -12000, -8000, -6000, -4000, -2000, 1000, 75)    '·F³¡  (¼úÃg¼úª÷)
  43.             M = Application.Match(ºÙ©I, Array("°ª¯Å±M­û", "¤Gµ¥Á¸²z", "¤@µ¥Á¸²z", "°Æ¸g²z", "¸g²z"), 0) '***ºÞ²z³æ¦ì :¨S¦³ªºÂ¾ºÙ ,°ÆÁ`¸g²z
  44.             ³d¥ôÃB = Application.Index(Array(100, 600, 700, 800, 900, 2500), M)                         '³d¥ôÃB °}¦C(°ª¯Å±M­û->100)
  45.            'ºÞ²z³¡ªù¨S¦³°ÆÁ`¸g²z -> ' °ÆÁ`¼úª÷ = IIf(ºÙ©I = "°ÆÁ`¸g²z", 2000, 0)
  46.         End If
  47.     End If
  48.     ³æ¦ì.Offset(, 3) = ³d¥ôÃB
  49.     '*************************************** FÄæ (¹F¦¨¤ñ²v¢H)¥Î¤½¦¡¦³¨â¦¡¥i¥Î*******************************
  50.     ³æ¦ì.Offset(, 5) = "=Round(RC[-1] / RC[-2] * 100, 0)"              'R1C1ªí¥Üªk
  51.    '³æ¦ì.Offset(, 5) = "=Round(" & ³æ¦ì.Offset(, 4).Address & " / " & ³æ¦ì.Offset(, 3).Address & "* 100, 0)"
  52.     '*******************************************************************************************************
  53.     ¹F¦¨¦Ê¤À¤ñ = Round(¹F¦¨ÃB / ³d¥ôÃB * 100, 0)
  54.     '³æ¦ì.Offset(, 5) = ¹F¦¨¦Ê¤À¤ñ
  55.     ¼úª÷ = 0
  56.     If ¹F¦¨ÃB / ³d¥ôÃB * 10 < 3 Then
  57.         M = 2
  58.     ElseIf ¹F¦¨ÃB / ³d¥ôÃB * 10 > 10 Then
  59.         M = 10
  60.         ¼úª÷ = Ar(UBound(Ar))
  61.     Else
  62.         M = Int(¹F¦¨ÃB / ³d¥ôÃB * 10)
  63.     End If
  64.     ³æ¦ì.Offset(, 6) = Ar(M) + ((¹F¦¨¦Ê¤À¤ñ - 100) * ¼úª÷) + °ÆÁ`¼úª÷   'Ar(M) = ¼úÃgªºª÷ÃB
  65.     '¼úª÷­pºâ¤½¦¡: = ¼úÃgªºª÷ÃB+  ((¹F¦¨100%¥H¤W-100)* ¼úª÷) + °ÆÁ`¼úª÷
  66. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 24# GBKEE


    ÁÂÁ¤j¤jªº¦^ÂÐ..¥Ñ°J·PÁªO¥DªºÀ°¦£
  ³æ¦ì¤è­±¦³ÂI¼g¿ù..
Àç·~³æ¦ìÀ³¬° :¸U¨½¤À³¡¡B ª÷¤s¤À³¡¡B¥Ûªù¤À³¡¡B¤T¤§¤À³¡¡B¸q¤s¤À³¡¡B¤ô¸P¤À³¡¡BÀç·~³¡¡B­^±M¤À³¡¡B¦Ë³ò¤À³¡¡BÀs§Î¤À³¡¡B¤K¨½¤À³¡¡BªO¾ô¤À ³¡¡B®ç¶é¤À³¡¡B¥N²z³¡¡B¥X¯Ç³¡¡B·~°È³¡¡B²z°]³¡
ºÞ²z¤À³¡À³¬° :¼f¬d³¡¡Bªk°È³¡¡B·|­p³¡¡BÁ`°È³¡¡B¦æ¬F³¡¡B«H¥Î³¡¡B¥ø¹º³¡¡B±Ð¨|³¡¡B¤H¨Æ³¡
  
¤£¦n·N«ä..»s³yªO¥D«Ü¦hªº°ÝÃD ,¨­·P©êºp

TOP

¦^´_ 24# sillykin
  1. Option Explicit
  2. Const ºÞ²z³¡ªù = "¼f¬d³¡¡Bªk°È³¡¡B·|­p³¡¡BÁ`°È³¡¡B¦æ¬F³¡¡B«H¥Î³¡¡B¥ø¹º³¡¡B±Ð¨|³¡¡B¤H¨Æ³¡"
  3. Const ¾°È§O = "0,°ÆÁ`¸g²z,¨ó²z,°ª¯Å±M­û,¸g²z,Åv²z¸g²z,°Æ¸g²z,°Æ²z,¤@µ¥Á¸²z,¤Gµ¥Á¸²z,·~°È±M­û,¿ì¨Æ­û,§U²z­û,¶±­û,ªA°È¥Í"
  4. Sub Ex()
  5.     Dim I As Integer
  6.     With Sheets("¡®¡®³æ¦ì¦¨ÁZÁ`ªí¡®¡®").Range("A3")
  7.         Do While .Offset(I) <> ""
  8.             ¼úª÷µ{¦¡ .Offset(I), .Offset(I, 2), .Offset(I, 4)
  9.             I = I + 1
  10.         Loop
  11.     End With
  12. End Sub
  13. Private Sub ¼úª÷µ{¦¡(³æ¦ì As Range, ¾ºÙ As String, ¹F¦¨ÃB As Integer)
  14.     '  ****(±ø¥ó¤u§@ªí¤¤) ¨S¦³ªºÂ¾ºÙ ->  °ª¯Å±M­û, Åv²z¸g²z  ***
  15.     Dim Ar, ³d¥ôÃB As Integer, ¹F¦¨¦Ê¤À¤ñ As Single, ¼úª÷ As Integer, °ÆÁ`¼úª÷ As Integer
  16.     Dim ³¡ªù As String, ¾ºÙ¥N¸¹ As String, M As Integer '
  17.     'LTrim¡BRTrim »P Trim ¨ç¼Æ  ¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim)©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê¡C*
  18.     ¾ºÙ¥N¸¹ = Trim(³æ¦ì.Offset(, 2))                                                   '¶Ç¦^¾ºÙ¥N¸¹«e«á§¡µLªÅ¥ÕªºVariant (String)
  19.     'Split ¨ç¼Æ ¶Ç¦^¤@­Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
  20.     ³æ¦ì.Offset(, 7) = Application.Match(¾ºÙ¥N¸¹, Split(¾°È§O, ","), 0)               'Match ¾ºÙ¥N¸¹¦b¾°È§O¥HSplit¤À³Î¥Xªº°}¦C¤¤ªº¦ì¸m
  21.     'InStr ¨ç¼Æ ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
  22.     ³¡ªù = IIf(InStr(ºÞ²z³¡ªù, ³æ¦ì), "ºÞ²z³¡ªù", "Àç·~³¡ªù")               'InStr¶Ç¦^0->¨S§ä¨ì="Àç·~³¡ªù"
  23.     °ÆÁ`¼úª÷ = 0                                                        '¹w³]¬°°ÆÁ`¼úª÷¬° 0
  24.     ³d¥ôÃB = IIf(³¡ªù = "ºÞ²z³¡ªù", 300, 500)
  25.     If ³¡ªù = "Àç·~³¡ªù" Then
  26.         Ar = Array(0, 0, -10000, -7000, -5000, -4000, -3000, -2000, -1000, -500, 800, 75)           '«D·F³¡(¼úÃg¼úª÷)
  27.         If ³æ¦ì.Offset(, 7) <= 10 Then
  28.             Ar = Array(0, 0, -25000, -20000, -16000, -12000, -8000, -6000, -4000, -2000, 2000, 155) '·F³¡  (¼úÃg¼úª÷)
  29.             M = Application.Match(¾ºÙ¥N¸¹, Array("°ª¯Å±M­û", "¤Gµ¥Á¸²z", "¤@µ¥Á¸²z", "°Æ¸g²z", "¨ó²z", "¸g²z", "°ÆÁ`¸g²z"), 0)
  30.             'M = > Match ªº¼Æ¦r
  31.             ³d¥ôÃB = Application.Index(Array(500, 1500, 2000, 2200, "(µù1)", "(µù1)", 2500), M)  '³d¥ôÃB °}¦C(°ª¯Å±M­û->100)
  32.             'Index ¶Ç¦^¤@­Óªí®æ©Î½d³ò¤ºªº¬Y­Ó­È©Î°Ñ·Ó¦ì§}¡C
  33.             °ÆÁ`¼úª÷ = IIf(¾ºÙ¥N¸¹ = "°ÆÁ`¸g²z", 2000, 0)
  34.         End If
  35.     Else       ' ³¡ªù => "ºÞ²z³¡ªù"
  36.         Ar = Array(0, 0, -10000, -7000, -5000, -4000, -3000, -2000, -1000, -500, 500, 55)  '«D·F³¡(¼úÃg¼úª÷)
  37.         If ³æ¦ì.Offset(, 7) <= 10 Then
  38.             Ar = Array(0, 0, -25000, -20000, -16000, -12000, -8000, -6000, -4000, -2000, 1000, 75)    '·F³¡  (¼úÃg¼úª÷)
  39.             M = Application.Match(¾ºÙ¥N¸¹, Array("°ª¯Å±M­û", "¤Gµ¥Á¸²z", "¤@µ¥Á¸²z", "°Æ¸g²z", "¸g²z"), 0)
  40.             '***¨S¦³ªºÂ¾ºÙ,[°ÆÁ`¸g²z],ºÞ²z³æ¦ì¦p¦³°ÆÁ`¸g²z(µ{¦¡°õ¦æ·|²£¥Í¿ù»~)*****************************
  41.             ³d¥ôÃB = Application.Index(Array(100, 600, 700, 800, 900, 2500), M)                         '³d¥ôÃB °}¦C(°ª¯Å±M­û->100)
  42.            'ºÞ²z³¡ªù¨S¦³°ÆÁ`¸g²z -> ' °ÆÁ`¼úª÷ = IIf(¾ºÙ¥N¸¹  = "°ÆÁ`¸g²z", 2000, 0)
  43.         End If
  44.     End If
  45.     ³æ¦ì.Offset(, 3) = ³d¥ôÃB
  46.     '*************************************** FÄæ (¹F¦¨¤ñ²v¢H)¥Î¤½¦¡¦³¨â¦¡¥i¥Î*******************************
  47.     ³æ¦ì.Offset(, 5) = "=Round(RC[-1] / RC[-2] * 100, 0)"              'R1C1ªí¥Üªk
  48.    '³æ¦ì.Offset(, 5) = "=Round(" & ³æ¦ì.Offset(, 4).Address & " / " & ³æ¦ì.Offset(, 3).Address & "* 100, 0)"
  49.     '*******************************************************************************************************
  50.     ¹F¦¨¦Ê¤À¤ñ = Round(¹F¦¨ÃB / ³d¥ôÃB * 100, 0)
  51.     '³æ¦ì.Offset(, 5) = ¹F¦¨¦Ê¤À¤ñ
  52.     ¼úª÷ = 0
  53.     If ¹F¦¨ÃB / ³d¥ôÃB * 10 < 3 Then
  54.         M = 2
  55.     ElseIf ¹F¦¨ÃB / ³d¥ôÃB * 10 > 10 Then
  56.         M = 10
  57.         ¼úª÷ = Ar(UBound(Ar))
  58.     Else
  59.         M = Int(¹F¦¨ÃB / ³d¥ôÃB * 10)
  60.     End If
  61.     ³æ¦ì.Offset(, 6) = Ar(M) + ((¹F¦¨¦Ê¤À¤ñ - 100) * ¼úª÷) + °ÆÁ`¼úª÷   'Ar(M) = ¼úÃgªºª÷ÃB
  62.     '¼úª÷­pºâ¤½¦¡: = ¼úÃgªºª÷ÃB+  ((¹F¦¨100%¥H¤W-100)* ¼úª÷) + °ÆÁ`¼úª÷
  63. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD