আমার একটি কলাম আছে যা আমি ফিল্টার করতে চাই, এই ফিল্টারটিতে দুটি স্বতন্ত্র উপাদান রয়েছে।
ধাপ 1:
- তথ্য একটি কলামের মাধ্যমে নিচে সরানো
- তথ্য ব্লক মধ্যে ফাঁক সনাক্ত করুন
- মনোনীত কোষের মান থেকে কম গ্যাপ 1 এর মান পূরণ করে
ধাপ ২:
- ধাপ 1 হিসাবে তথ্য একই কলামের মাধ্যমে নিচে সরানো
- মনোনীত সেল মানের চেয়ে কম সংখ্যক সারি ধারণ করে এমন ডেটা গোষ্ঠী চিহ্নিত করুন
- মনোনীত সেল মানের চেয়ে ছোট ডেটা ব্লক মুছে ফেলা হয়
আমি ইতিমধ্যে একটি ম্যাক্রো তৈরি করেছি যা একটি নির্দিষ্ট কোষের মান (ঘরগুলি (1, 15)। ভ্যালু) -এর কম ডেটা গোষ্ঠীতে ফাঁক পূরণ করে, নীচে দেখানো হয়েছে।
এখানে যা আছে তাই আমি দ্বিতীয় ধাপের জন্য একটি ম্যাক্রো লিখতে শুরু করেছি কিন্তু সিনট্যাক্স ত্রুটিটি পূর্ববর্তী হতে পারছি না। নীচের দেখানো হয় কাঁচা এবং ফিল্টার তথ্য একটি উদাহরণ।
সিনট্যাক্স ত্রুটিটি এক জিনিস, আমি দ্বিতীয় ধাপ কীভাবে পরিচালনা করব তা নিয়ে সংগ্রাম করছি, তাই সহায়তাটি প্রশংসা করা হবে।
চিয়ার্স
Option Explicit
Sub FillInTheBlanks()
'
' FillInTheBlanks Macro
'
'Declare integers and decimal characters
Dim iCol As Long, Last As Long, i As Long
Dim iBlank As Long, BlankMode As Boolean, iCount As Long
Dim j As Long, i1 As Long, iFullCount As Long 'Declare integers, boolean and decimal characters
iCol = ActiveCell.Column 'Column identified by active cell
Last = Cells(Rows.Count, iCol).End(xlUp).Row 'Determine end of nominated range
iBlank = 0 'iBlank starts at zero
iFullCount = 0 'iBlank starts at zero
BlankMode = False 'BlankMode starts as False
For i = 4 To Last 'Start at row 4 and go to the end of column
If BlankMode Then 'If the next cell is empty
If Cells(i, iCol) = "" Then
iBlank = iBlank + 1 'If an emty cell is detected increase iBlank by 1
iCount = iBlank 'Count the spaces
Else
For j = i1 To i - 1 And iCount < Cells(1, 15).Value
Cells(j, iCol).Value = 1
Next j
BlankMode = False
End If
Else
If Cells(i, iCol) = "" Then
iBlank = 1
i1 = i
BlankMode = True
End If
End If
Next i
End Sub
Option Explicit
Sub EraseSpikes()
'
'
'
'
Dim iCol As Long, Last As Long, i As Long
Dim iFullCount As Long
Dim p As Long
iCol = ActiveCell.Column
Last = Cells(Rows.Count, iCol).End(xlUp).Row
iFullCount = 0
For i = 4 To Last
If Cells(i, iCol) = 1 Then
iFullCount = iFullCount + 1
p = i
Else
If iFullCount < Cells(1, 15).Value And Sum(Range(Cells(p, iCol),Cells(p-Cells(1, 15).Value,iCol))=0 And Sum(Range(Cells(p+iFullCount, iCol),Cells(p+iFullCount(1, 15).Value,icol))=0
End If
End If
Next i
End Sub
1 1 1
2 1 1
3 1 1
4 1 1
5 1 1
6 1 1
7 1 1
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 1 1
25 1 1
26 1 1
27 1 1
28 1 1
29 1 1
30 1 1
31 1 1
32 1 1
33 1 1
34 1 1
35 1 1
36 1 1
37 1 1
38 1 1
39 1
40 1
41 1 1
42 1 1
43 1 1
44 1 1
45 1 1
46 1 1
47 1
48 1 1
49 1 1
50 1 1
51 1 1
52 1 1
53 1 1
54 1
55 1
56 1
57 1
58 1 1
59 1 1
60 1 1
61 1 1
62 1 1
63 1 1
64 1
65 1
66 1
67 1
68 1
69 1 1
70 1 1
71 1 1
72 1 1
73 1 1
74 1 1
75 1
76 1
77 1
78 1
79 1
80 1
81 1
82 1 1
83 1 1
84 1 1
85 1 1
86 1 1
87 1 1
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107 1
108 1
109 1
110 1
111 1
112 1
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137 1 1
138 1 1
139 1 1
140 1 1
141 1 1
142 1 1
143 1
144 1
145 1
146 1
147 1
148 1
149 1
150 1
151 1
152 1
153 1
154 1
155 1 1
156 1 1
157 1 1
158 1 1
159 1 1
160 1 1
আপনার ম্যাক্রো আসলে আপনি বর্ণিত চেয়ে আরো জটিল দেখায়, এছাড়াও এটি আপনার সঠিক সমস্যা যা এটা স্পষ্ট নয়। এটা পরিষ্কার এবং একটি digestible আকার করতে আপনার প্রশ্ন সম্পাদনা করুন।
—
Máté Juhász
ধন্যবাদ, আমি কিছু সম্পাদন করেছি তাই আশা করছি জিনিষ এখন একটি বিট পরিষ্কার।
—
Sandie