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

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

• Alt+F11 চাপা দিয়ে Visual Basic Window খুলুন।
• Insert-এ যান এবং Module-এ ক্লিক করে একটি নতুন মডিউল ইনসার্ট করুন।

• নিচের কোডটি কপি করে নতুন মডিউলে পেস্ট করুন:

' 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 সাবরুটিন ব্যবহার করুন।

• স্ক্রোলিং শুরু ও বন্ধ করার জন্য বাটন যোগ করুন:
  • Insert ট্যাব থেকে শেপস (যেমন: রেক্ট্যাঙ্গল) ইনসার্ট করুন।

• • একটি শেপে Start Scrolling লিখুন।

• • এই শেপে Start_Text_Scroll ম্যাক্রো অ্যাসাইন করুন।

• • OK ক্লিক করুন।

• • Stop Scrolling বাটনের জন্যও একই প্রক্রিয়া दुহরান।

• টেক্সট মেসেজ স্ক্রোল শুরু ও বন্ধ করতে বাটনগুলো ব্যবহার করুন।

পদ্ধতি ২ – ব্লিংকিং অ্যানিমেটেড টেক্সট

• টেক্সট বক্স আঁকুন
  • Insert ট্যাবে যান এবং Text সিলেক্ট করে Text Box-এ ক্লিক করুন।

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

• • যে টেক্সট ব্লিংক করাতে চান সেটি লিখুন।

• খালি টেক্সট বক্স যোগ করুন
  • সদৃশ আকার এবং সাইজের অতিরিক্ত টেক্সট বক্স তৈরি করুন।

• টেক্সট বক্সের নাম পরিবর্তন করুন
  • টেক্সট বক্সগুলোকে নিচের মতো переименাম করুন: TextBox 1, TextBox 2, ইত্যাদি।

• টেক্সট বক্স ওভারলে করুন
  • সকল টেক্সট বক্স আরেঞ্জ করুন যাতে সেগুলো ওভারল্যাপ হয় এবং একটি একক বক্সের মতো দেখায়।

• VBA কোড
  • Alt+F11 চাপা দিয়ে VBA এডিটর খুলুন।
  • Insert > Module দিয়ে একটি নতুন মডিউল ইনসার্ট করুন।

• নিচের কোডটি লিখুন:

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

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

• Blink সাবরুটিন ZOrder কমান্ড ব্যবহার করে টেক্সট বক্সগুলোকে একে بعد এক সামনে আনে (TextBox 1 থেকে TextBox 5)।
• এরর হ্যান্ডলিং নিশ্চিত করে যে প্রথম টেক্সট বক্সটি দৃশ্যমান থাকে।

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

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

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

• যখন B4 সেলে ডেটা ইনসার্ট করা হয়, এক্সেল Blink মডিউলটি কল করে।

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

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

অনুশীলন ওয়ার্কবুক ডাউনলোড করুন

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

সম্পর্কিত আর্টিকেল

• এক্সেলে অ্যানিমেটেড বার চার্ট রেস তৈরির পদ্ধতি
• এক্সেলে অ্যানিমেটেড চার্ট তৈরির পদ্ধতি
• VBA Animation in UserForm

নিখরচা এডভান্সড এক্সেল এক্সারসাইজ সমাধানসহ পান!