=concatenate(b4;if(b4="";"";b$3);if(or(c4<0;c4="";b4="");"";"+");c4;if(c4="";"";c$3);if(or(d4<0;d4="");"";"+");d4;if(d4="";"";d$3);if(or(e4<0;e4="");"";"+");e4;if(e4="";"";e$3);if(or(f4<0;f4="");"";"+");f4;if(f4="";"";f$3);if(or(g4<0;g4="");"";"+");g4;if(g4="";"";g$3);if(or(h4<0;h4="");"";"+");h4;if(h4="";"";h$3);if(or(i4<0;i4="");"";"+");i4;if(i4="";"";i$3);if(or(j4<0;j4="");"";"+");j4;if(j4="";"";j$3);if(or(k4<0;k4="");"";"+");k4;if(k4="";"";k$3);if(or(l4<0;l4="");"";"+");l4;if(l4="";"";l$3);if(or(m4<0;m4="");"";"+");m4;if(m4="";"";m$3);if(or(n4<0;n4="");"";"+");n4;if(n4="";"";n$3);if(or(o4<0;o4="");"";"+");o4;if(o4="";"";o$3);if(or(p4<0;p4="");"";"+");p4;if(p4="";"";p$3);if(or(q4<0;q4="");"";"+");q4;if(q4="";"";q$3);if(or(r4<0;r4="");"";"+");r4;if(r4="";"";r$3);if(or(s4<0;s4="");"";"+");s4;if(s4="";"";s$3);if(or(t4<0;t4="");"";"+");t4;if(t4="";"";t$3);if(or(u4<0;u4="");"";"+");u4;if(u4="";"";u$3);if(or(v4<0;v4="");"";"+");v4;if(v4="";"";v$3);if(or(w4<0;w4="");"";"+");w4;if(w4="";"";w$3);if(or(x4<0;x4="");"";"+");x4;if(x4="";"";x$3);if(or(y4<0;y4="");"";"+");y4;if(y4="";"";y$3);if(or(z4<0;z4="");"";"+");z4;if(z4="";"";z$3);if(or(aa4<0;aa4="");"";"+");aa4;if(aa4="";"";aa$3))
Private Sub CommandButton1_Click()
K = Cells(Rows.Count, "A").End(xlUp).Row
Dim KOL As String
Range("AB6:AC" & K).ClearContents
Range("AB2").Select
For I = 4 To K + 1
KOL = ""
For j = 2 To 27
If Cells(I, j).Value <> "" Then
KOL = KOL & "+" & Cells(I, j).Value & Cells(3, j).Value
End If
Next
Range("AB" & I).Value = Range("A" & I).Value
Range("AC" & I).Value = Mid(KOL, 2, Len(KOL))
Next
Selection.FillLeft
Cells.Replace What:="+-", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
کامنت