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

[µo°Ý] ¥[Á`°ÝÃD

¦^´_ 10# luhpro
¬O¤pªº»¡¤£²M·¡¡A­pºâ¹Lµ{¦p¤U:
²Ä 1 ¦æ - ( D5=33 , E5=-91 )
¡° C9=[-100] ©M=-91 (±ø¥ó5 - ¦pªGºñ¦â®æ¤º¦³[]ªº¼Æ­È<=E5¡A¥u·íE5ªº­È¡A¤£»Ý­pºâ¨ä¥kÃäµL[]ªº¼Æ­È, IJµo)
¡° D9=33     (±ø¥ó5 - ²¤¹L)
¡° G9=[35]   ©M=-91+33=-58 (±ø¥ó4 - ¦pªGºñ¦â®æ¤º¦³[]ªº¼Æ­È>=D5¡A¥u·íD5ªº­È¡A¤£»Ý­pºâ¨ä¥kÃäµL[]ªº¼Æ­È)
¡° H9=-110   (±ø¥ó5 - ²¤¹L)
¡° I9=[32]   (¤£¦b±ø¥ó¤º - ¨S¦³­pºâ)
¡° J9=-102   ©M=-91+33-91=-149 (±ø¥ó3:¦pªGºñ¦â®æ¤ºªº¼Æ­È<=E5¡A¥u·íE5ªº­È)

²Ä 2 ¦æ -
¡° F10=[-27] (¤£¦b±ø¥ó¤º - ¨S¦³­pºâ)
¡° G10=135   ©M=-149+33=-116 (±ø¥ó1:¦pªGºñ¦â®æ¤ºªº¼Æ­È>=D5¡A¥u·íD5ªº­È)
¡° M10=[-30] (¤£¦b±ø¥ó¤º - ¨S¦³­pºâ)
¡° N10=-2   ©M=-116-2=-118  (±ø¥ó2:¦pªGºñ¦â®æ¤ºªº¼Æ­È<D5¤Î>E5¡A¥u·í®æ¤ºªº­È)

²Ä 3 ¦æ -
¡° B11=[-61]  (¤£¦b±ø¥ó¤º - ¨S¦³­pºâ)
¡° C11=-60    ©M=-118+-60=-178 (±ø¥ó2)
¡° O11=[-9]   (¤£¦b±ø¥ó¤º - ¨S¦³­pºâ)
¡° P11=20     ©M=-178+20=-158 (±ø¥ó2)

TOP

¦^´_ 11# donod
¹q¸£³o´X¤Ñ¤S±¾¤F,¨ì¤µ¤Ñµ{¦¡¤~§Ë¥X¨Ó.
§A¬Ý¬Ý¬O§_OK, µ{¦¡¦p¤U:
  1. Sub nn()
  2.   Dim iCol%, iCols%, iNum%, iIdx%, iI%, iJ%
  3.   Dim lRow&, lRows&, lSum&(0 To 1)
  4.   Dim bChk(0 To 1, 0 To 1) As Boolean

  5.   lSum(0) = 0
  6.   lSum(1) = 0
  7.   For lRow = 9 To 11
  8.     For iI = 0 To 1
  9.       For iJ = 0 To 1
  10.         bChk(iI, iJ) = False
  11.       Next
  12.     Next
  13.     For iCol = 2 To 18
  14.       With Cells(lRow, iCol)
  15.         If Not .Value = "" Then ' µL¼Æ¦r¤£³B²z
  16.           iIdx = IIf(.Interior.ColorIndex = 43, 1, 0)
  17.           If Left(.Value, 1) = "[" Then
  18.             bChk(iIdx, 0) = True
  19.             iNum = Val(Mid(.Value, 2, Len(.Value) - 2))
  20.           Else
  21.             bChk(iIdx, 0) = False
  22.             iNum = Val(.Value)
  23.           End If
  24.          
  25.           If Not bChk(iIdx, 0) And bChk(iIdx, 1) Then
  26.             bChk(iIdx, 1) = False
  27.           ElseIf iNum >= Cells(5, 2 + iIdx * 2) Then
  28.             lSum(iIdx) = lSum(iIdx) + Cells(5, 2 + iIdx * 2)
  29.             If bChk(iIdx, 0) Then bChk(iIdx, 1) = True
  30.           ElseIf iNum <= Cells(5, 3 + iIdx * 2) Then
  31.             lSum(iIdx) = lSum(iIdx) + Cells(5, 3 + iIdx * 2)
  32.             If bChk(iIdx, 0) Then bChk(iIdx, 1) = True
  33.           Else
  34.             If Not bChk(iIdx, 0) Then
  35.               lSum(iIdx) = lSum(iIdx) + iNum
  36.               bChk(iIdx, 1) = False
  37.             End If
  38.           End If
  39.         End If
  40.       End With
  41.     Next iCol
  42.   Next lRow
  43.   MsgBox "ºñ¦â®æÁ`¼Æ¬° : " & lSum(1) & Chr(10) & Chr(10) & Chr(10) & "µL¦â®æÁ`¼Æ¬° : " & lSum(0)
  44. End Sub
½Æ»s¥N½X

TOP

¦^´_ 12# luhpro

¥i¥H¤F¡AÁÂÁ¤j¤j!

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD