[حل شده] جایگزینی روابط ساده به جای فرمول ها

[Pbapba]

در فایل زیر یک سری فرمول نوشته شده که خیلی وقت گیر بود لطفا ببینید در سلول acبجای این همه فرمول میشه کار ساده تری کرد که نخواد این همه نوشت یا راهی هست که بشه کپی کنیم چون تعداد ردیفها شاید نزدیک 200 تا بشه ادم کور میشه بخواد ایقد بنویسه .لطفا اگر راهی است جوری بگید که من مبتدی هم بتونم کاری کنم
از وقتی که بابات خواندن و پاسخ میگذارید تشکر میکنم

[Pbapba]

یعنی راهی نیست

[generalsamad]

با سلام

کافیه این فرمول رو وارد خانه ac4 کرده و فرمول رو به پائین بسط دهید

=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)) 

نکته این بوده که شما باید از آدرس دهی ترکیبی استفاده میکردید
مثلا بجای b3 که از نوع آدرس دهی نسبی میباشد به اینصورت آدرس دهی رو تغییر میدادیدb$3

[Pbapba]

ممنون ولی ظاهرا یک جا اشکال هست چون همه فرمول نوشته میشه یعنی کار نمیکنه انگار باید به جای ;مقدار , را قرار داد . نمیدونم انجام بدم ببینم چی میشه

[iranweld]

با سلام

فایل پیوست که با ویژوال بیسیک تهیه گردید را ملاحظه و اعلام نظر بفرمایید

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 

[Pbapba]

با سلام

فایل پیوست که با ویژوال بیسیک تهیه گردید را ملاحظه و اعلام نظر بفرمایید

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 

بسیار ممنونم از راهنمایی جنابعالی لطف کردید.دستت درد نکنه

[Amir Ghasemiyan]

بسیار ممنونم از راهنمایی جنابعالی لطف کردید.دستت درد نکنه

دوست عزیز اگر پاسخ سوالتون رو دریافت کردین لطفا تاپیک رو حل شده کنید