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

[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]

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

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

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

[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

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

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

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

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

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

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

[anf-b]

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

[Amir Ghasemiyan]

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