এক্সেলে মাস্টার টেক্সট অ্যানিমেশন:দুটি প্রমাণিত পদ্ধতি

পদ্ধতি 1 – স্ক্রলিং টেক্সট অ্যানিমেশন

• ভিজ্যুয়াল বেসিক উইন্ডো খুলুন Alt+F11 টিপে .
• ঢোকান এ গিয়ে একটি নতুন মডিউল ঢোকান এবং মডিউল-এ ক্লিক করুন .

• নিম্নলিখিত কোডটি কপি করুন এবং নতুন মডিউলে পেস্ট করুন:

' Scrolling Text
Sub Start_Text_Scroll()
My_Value = ActiveSheet.Range("C4").Value
Final_Value = WorksheetFunction.Rept(My_Value, 1)
Do
For initial = 1 To Len(Final_Value)
 Length = Len(Final_Value) - 1
 DoEvents
 For AA = 1 To 10000000
 AA = AA + 1
 Next
 Range("B6") = Mid(Final_Value, initial, Length) & Left(Final_Value, initial - 1)
Next
Loop
End Sub
Sub Stop_Scrolling()
End
End Sub

️ কোডটি কিভাবে কাজ করে?

• Start_Text_Scroll সাবরুটিন C4 কক্ষে সংরক্ষিত পাঠ্যটিকে স্ক্রোল করে .
• এটি একটি লুপ তৈরি করে যা পাঠ্যকে বাম থেকে ডানে স্থানান্তরিত করে।
• AA এর মান পরিবর্তন করে গতি সামঞ্জস্য করুন .
• স্ক্রলিং বন্ধ করতে, Stop_Scrolling ব্যবহার করুন  সাবরুটিন।

• স্ক্রলিং শুরু এবং বন্ধ করার জন্য বোতাম যোগ করুন:
  • আকৃতি সন্নিবেশ করান (যেমন, আয়তক্ষেত্রগুলি) ঢোকান থেকে  ট্যাব।

• • এন্টার করুন স্ক্রলিং শুরু করুন  একটি আকৃতির ভিতরে।

• • Start_Text_Scroll বরাদ্দ করুন এই আকারে ম্যাক্রো।

• • ঠিক আছে ক্লিক করুন .

• • স্ক্রলিং বন্ধ করুন এর জন্য পুনরাবৃত্তি করুন  বোতাম।

• পাঠ্য বার্তা স্ক্রোল করা শুরু এবং বন্ধ করতে বোতামগুলি ব্যবহার করুন৷
৷

পদ্ধতি 2 - অ্যানিমেটেড টেক্সট ব্লিঙ্ক করা

• পাঠ্য বাক্স আঁকুন
  • ঢোকান-এ যান  ট্যাব এবং পাঠ্য নির্বাচন করুন এবং টেক্সট বক্স-এ ক্লিক করুন .

• • একটি পাঠ্য বাক্স আঁকুন আপনার পছন্দের আকারের।

• • পাঠ্য লিখুন আপনি ব্লিঙ্ক করতে চান।

• খালি টেক্সট বক্স যোগ করুন
  • অতিরিক্ত টেক্সট বক্স তৈরি করুন অনুরূপ আকার এবং আকারের।

• টেক্সট বক্সের নাম পরিবর্তন করুন
  • নিম্নলিখিতভাবে পাঠ্য বাক্সগুলির পুনঃনামকরণ করুন:টেক্সটবক্স 1 , টেক্সটবক্স 2 , ইত্যাদি।

• ওভারলে টেক্সট বক্স
  • সমস্ত টেক্সট বক্স সাজান যাতে সেগুলি ওভারল্যাপ হয় এবং একটি একক বাক্স হিসাবে উপস্থিত হয়৷
  ৷

• VBA কোড
  • Alt+F11 টিপে VBA সম্পাদক খুলুন .
  • একটি নতুন মডিউল সন্নিবেশ করান (ঢোকান> মডিউল )।

• নিম্নলিখিত কোড লিখুন:

Sub Blink()
On Error GoTo skip
Do While Range("B4").Value = "Blink"
For txtbx = 1 To 5
ActiveSheet.Shapes("TextBox " & txtbx).ZOrder msoBringToFront
DoEvents
Next txtbx
Loop
skip:
ActiveSheet.Shapes("TextBox 1").ZOrder msoBringToFront
Exit Sub
End Sub

️ কোডটি কিভাবে কাজ করে?

• ব্লিঙ্ক  সাবরুটিন একের পর এক টেক্সট বক্স সামনে নিয়ে আসে (টেক্সটবক্স থেকে 1 টেক্সটবক্স 5 ) ZOrder  ব্যবহার করে আদেশ।
• ত্রুটি পরিচালনা নিশ্চিত করে যে প্রথম পাঠ্য বাক্সটি দৃশ্যমান থাকবে।

• ওয়ার্কশীট কোড
  • ওয়ার্কশীট কোডে, লিখুন:

Private Sub Worksheet_Change(ByVal Tgt As Range)
If Tgt = Range("B4") Then
Call Blink
End If
End Sub

️ কোডটি কিভাবে কাজ করে?

• যখন B4 কক্ষে ডেটা ঢোকানো হয় , Excel ব্লিঙ্ক কে কল করে৷ মডিউল।

মনে রাখার মতো বিষয়গুলি৷

• 2য় পদ্ধতিতে, মসৃণ অ্যানিমেশনের জন্য টেক্সট বক্সগুলির সঠিকভাবে নাম পরিবর্তন এবং সারিবদ্ধ করতে মনে রাখবেন

অভ্যাস ওয়ার্কবুক ডাউনলোড করুন

আপনি এখান থেকে অনুশীলন ওয়ার্কবুক ডাউনলোড করতে পারেন:

সম্পর্কিত প্রবন্ধ

• কিভাবে এক্সেলে অ্যানিমেটেড বার চার্ট রেস তৈরি করবেন
• কিভাবে এক্সেলে অ্যানিমেটেড চার্ট তৈরি করবেন
• UserForm-এ VBA অ্যানিমেশন