پرسش نمایش یک متن بعد از کلیک بر روی یک سلول

[anf-b]

سلام
امیدوارم حالتون خوب باشه
در بخش کدنویسی اکسل، میخوام بعد از اینکه بر روی سلول a1 کلیک شد، در سلول a2 یک متن که شامل متن ساده، اینتر و پارامترهای چند سلول دیگه هست نمایش داده بشه

نمونه متن:

test test test
line one needs c1 words
line two needs b2 words

end end

در متن بالا، منظور از c1 و b2 پارامترهای موجود در سلول های b1 و b2 هست.

ممنون میشم من رو راهنمایی کنید
با تشکر

[Amir Ghasemiyan]

سلام
امیدوارم حالتون خوب باشه
در بخش کدنویسی اکسل، میخوام بعد از اینکه بر روی سلول a1 کلیک شد، در سلول a2 یک متن که شامل متن ساده، اینتر و پارامترهای چند سلول دیگه هست نمایش داده بشه

نمونه متن:



در متن بالا، منظور از c1 و b2 پارامترهای موجود در سلول های b1 و b2 هست.

ممنون میشم من رو راهنمایی کنید
با تشکر

سلام دوست عزیز
این کد رو در قسمت کدهای شیت وارد کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Range("A2") = "line one needs " & Range("C1") & "words" & vbNewLine & "line two needs " & Range("B2") & " words"
End If
End Sub

[amir_ts]

با سلام
کد زیر را امتحان کنید.

[LEFT]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Target.Offset(1).Value = "line one needs" & " " & Range("c1") & " " & "words" & Chr(10) & "line one needs" _
 & " " & Range("b2") & " " & "words" & Chr(10) & "end"
End Sub
[/LEFT]

پست همزمان شد ولی بدلیل تفاوت جزیی با یک نتیجه ، پاک نکردم.

[anf-b]

سلام دوست عزیز
این کد رو در قسمت کدهای شیت وارد کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Range("A2") = "line one needs " & Range("C1") & "words"  & vbNewLine & "line two needs " & Range("B2") & " words"
End If
End Sub

با سلام
کد زیر را امتحان کنید.

[LEFT]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Target.Offset(1).Value = "line one needs" & " " & Range("c1") & " " & "words" & Chr(10) & "line one needs" _
 & " " & Range("b2") & " " & "words" & Chr(10) & "end"
End Sub
[/LEFT]

پست همزمان شد ولی بدلیل تفاوت جزیی با یک نتیجه ، پاک نکردم.

ممنونم بابت لطف شما دو عزیز،
یه مشکل کوچیک داره
بعد از اینکه خروجی درون سلول a2 رو کپی میکنم توی نرم افزاری مثل Notepad ، اول و آخر جمله دو تا دابل کوتیشن اضافه میشه
حتی در یک سلول دیگه از این کد استفاده کردم اما باز درست نشد

=SUBSTITUTE(B2;"""";"")

ممنون میشم راهنماییم کنید
با تشکر

[anf-b]

ممنون میشم توی این بخش آخر که در پست بالا پرسیدم هم بنده رو راهنمایی کنید
با تشکر

[Amir Ghasemiyan]

لطفا یک فایل نمونه قرار بدین