নিম্নলিখিত নিবন্ধে কীভাবে একটি ক্যালেন্ডার চিহ্নিত করে জিজ্ঞাসাবাদ করতে হয় তা দেখায় মাউস 
* বাস্তব বিশ্বে, আমরা একটি ডাটাবেসে অর্থপূর্ণ ডায়েরি এন্ট্রিগুলি পড়তে এবং লিখতে একটি ফর্ম খুলি। এই অনুশীলনটি কেবল ডান ক্লিকের মেকানিক্সগুলি প্রকাশ করে এবং কার্যপত্রক থেকেই তার বিশদটি সন্ধান করে।
আমরা শুরু করার আগে, স্প্রেডশিট সম্পর্কে কয়েকটি ব্যাখ্যা করার শব্দের, একটি কার্যকারী মডেল যা পাওয়া যাবে এখানে.
প্রক্রিয়া
গ্রিডের মধ্যে একটি ঘরে ক্লিক করা সেই কক্ষটিকে হাইলাইট করবে এবং এর মান পরিবর্তন করবে। ক্লিক এবং টানুন একটি পরিসীমা হাইলাইট করবে এবং এর মান পরিবর্তন করবে। যদি কোনও ঘরটি জনবহুল হয় তবে তা পরিষ্কার হয়ে যাবে, অন্যথায় এটি পপুলেশন হবে, এই ক্ষেত্রে একটি "*" দ্বারা।
বিপরীতে একটি ডান ক্লিক ক্লিক করা নির্বাচিত ঘর থেকে তথ্যের জন্য একটি অনুরোধ।
বেশ কয়েকটি মডিউল সহ মূলত দুটি ইভেন্ট ব্যবহৃত হয়।
- ওয়ার্কশিট_স্লেলেশন চেঞ্জ যাকে বলা হয় যখন কোনও ঘর বা ঘর নির্বাচন করা হয়।
- ওয়ার্কশিট_বিফোরআরাইটক্লিক যা ডান হাত মাউস বোতাম দ্বারা কল করা হয়।
সমস্যাটি
কক্ষকে ডান ক্লিক করাও একটি নির্বাচন গঠন করে, ট্রিগার করে সিলেকশন চেঞ্জ। আমরা এই ইভেন্টটিকে তার পথ চলতে দিতে হবে, এটি নিয়ন্ত্রণের কাছে আত্মসমর্পণের আগে নির্বাচিত ঘরটি সাফ করে পূর্বরাইটক্লিককে ইভেন্ট, যখন আমরা ক্লিয়ার হওয়া ঘরটি পুনরায় তৈরি করব। তবে এই পদক্ষেপটি ট্রিগার করবে নির্বাচন ইভেন্ট আবার, যা এটি আবার একবার সাফ করা থেকে থামাতে হবে।
এটি আমরা ব্লেনলয়েডিং নামে একটি বুলিয়ান পতাকা সহ করব।
ঘটনাবলী
কার্যপত্রকের পিছনে কোড উইন্ডোতে নিম্নলিখিতটি প্রবেশ করান (উদাহরণস্বরূপ মডিউলটিতে নয়)।
Option Explicit
Dim blnLoading As Boolean
Dim sPhase As String
Dim currCellValue As String
Dim dDate As Date
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row > 14 And ActiveCell.Row < 25 Then
If ActiveCell.Column > 4 And ActiveCell.Column < 47 Then 'selection is valid
On Error Resume Next
currCellValue = Target.Value 'get the target value from (ByVal Target As Range)
If blnLoading = True Then 'a value of True will force an exit from this event
blnLoading = False
Exit Sub
End If
sPhase = Cells(ActiveCell.Row, 1)
If sPhase = "" Then Exit Sub
If ActiveCell = "*" Then 'if the cell is populated, clear the selected range
Call ClearRange
Call UnblockCalendar
Else
Call PopulateRange
End If
Call RedrawCells
Range("A1").Select 'revive the SelectionChange event by changing selection.
Exit Sub
End If
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If currCellValue = "*" Then 'picked up by the previous event BEFORE it cleared it;
'This means this is a valid diary entry with detail.
blnLoading = True 'this will prevent the SelectionChange event (above) from running.
Target.Select
'currCell = Target.Address
'Range(currCell).Select
Target.Value = "*" 're-instate the value of the cell, since SelectionChange has cleared it
Call PopulateRange
dDate = Cells(13, ActiveCell.Column)
sPhase = Cells(ActiveCell.Row, 1)
MsgBox dDate & " - " & sPhase
Cancel = True 'suppress Excel’s standard right_click menus
End If
Range("A1").Select
blnLoading = False
End Sub
এটি দুটি ইভেন্টের যত্ন নেয়।
রেফারেন্সড কোড
কোডটিতে নিম্নোক্ত পপুলেটিং এবং ডিপোপুলেটিং রেঞ্জগুলি যুক্ত করুন:
Sub ClearRange() Selection.FormulaR1C1 = "" With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Sub PopulateRange() Selection.FormulaR1C1 = "*" With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorLight2 .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With End Sub
গ্রিডলাইন রক্ষণাবেক্ষণ
অ্যাপ্লিকেশন মধ্যে একটি মডিউল sertোকান। গ্রিডের চেহারা বজায় রাখার জন্য নিম্নলিখিত কোড যুক্ত করুন। এটি ম্যাক্রো রেকর্ডার, রিডানড্যান্সিগুলি এবং সমস্ত থেকে অনুলিপি করা হয়েছিল।
Option Explicit Sub UnblockCalendar() Selection.FormulaR1C1 = "" With Selection Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone End With End Sub Sub RedrawCells() Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With End Sub
বিপর্যয়ের বিরুদ্ধে সুরক্ষা
যারা প্রচুর পরিমাণে এক্সেল ডেভেলপমেন্টের কাজ করেন, তারা জানেন যে জটিল স্প্রেডশিটগুলো মাঝে মাঝে ক্র্যাশ করে খোলা ডকুমেন্টটি নষ্ট করে দেয়। প্রত্যাশার চেয়েও বেশি ক্ষেত্রে, এক্সেলের রিকভারি রুটিনের মাধ্যমে ক্ষতিগ্রস্ত ওয়ার্কবুকটি পুনরুদ্ধার করা যায় না। যদি কোনো ব্যাকআপ না থাকে, তবে করা কাজ হারিয়ে যায়। এই ধরনের কাজ করার জন্য বিশেষভাবে ডিজাইন করা টুল ব্যবহার করে এটি প্রতিরোধ করা সম্ভব। এক্সেল ফিক্স.
লেখকের ভূমিকা:
ফেলিক্স হুকার একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বিরল মেরামত এবং স্কয়ার পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com