[µo°Ý] ¥[¤J±ø¥ó­×­qµ{¦¡½X

b9208

¦U¦ì¥ý¶i±z¦n
¦p¤Uµ{¦¡½X¡A¤µ¥[¤J¤@±ø¥ó¡A·íMÄæÀx¦s®æ­È = WORK®É¤~­pºâ²Î­p¡C
·q½Ð¥ý¶i­Ì«ü¾É¡A¦p¦ó­×§ïµ{¦¡½X¡C
«D±`·PÁÂ

With Sheets("¤u®Æ")
If .[D6].End(xlDown).Row = .Rows.Count Then MsgBox "µL¸ê®Æ": Exit Sub
For Each A In .Range(.[D6], .[D65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
Ar = Split(A, "+")
   For Each C In Ar
      MyStr = C & "," & Left(A.Offset(, 3), 8) & "," & A.Offset(, 8)
      dic1(MyStr) = Split(MyStr, ",")
   Next
Next
End With

rouber590324

DEAR SIR
  ¥[¤J¦p¤U¸Õ¸Õ

X = Application.WorksheetFunction.CountIf(Range("M1:M65536"), "WORK")
If X - 1 >= 0 Then
  
End If

b9208

¦^´_ 2# rouber590324

±z¦n
À³´¡¤J©óµ{¦¡½X¨º¦ì¸m¡H
ÁÂÁ±zªº¨ó§U

lpk187

Private Sub Worksheet_Change(ByVal Target As Range)
n = Target.Row
If Target = Cells(n, "M") Or Cells(n, "M") = "work" Then
    Cells(n, "N") = Application.Sum(Range("I" & n & ":K" & n))
Else
    End
End If
End Sub
¸Õ¸ÕÃþ¦ü³o¤è¦¡¬Ý¬Ý¬O¤£¬O§A·Q­nªº
³oSub¡A¬O¥u­n§ïÅÜÀx¦s®æ´N·|¥h°õ¦æ·Q­nªº°Ê§@

rouber590324

With Sheets("¤u®Æ")
If .[D6].End(xlDown).Row = .Rows.Count Then MsgBox "µL¸ê®Æ": Exit Sub

X = Application.WorksheetFunction.CountIf(Range("M1:M65536"), "WORK")
If X - 1 >= 0 Then

For Each A In .Range(.[D6], .[D65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
Ar = Split(A, "+")
   For Each C In Ar
      MyStr = C & "," & Left(A.Offset(, 3), 8) & "," & A.Offset(, 8)
      dic1(MyStr) = Split(MyStr, ",")
   Next
Next

ENDIF
End With