پرسش کد ماکرویی جهت شمارش حرفی خاص مثلا z در محدوده دلخواه و درج آن در سلول مشخص مثلا d1

[mahdi2013]

سلام وعرض ارادت خدمت اساتید محترم

کد ماکرویی برای شمارش عدد و یا حرفی خاص در سلول های یک محدوده مشخص مد نظر است که عدد شمارش آن بعد از اعمال ماکرو در سلول دلخواه درج شود.
البته بایستی تنها دقیقا خود آن حرف و یا عبارت مشخص شمارش شود و نه سلول هایی که بخشی از این عبارت را دارا هستند و به حرف بزرگ و کوچک هم حساس.
با سپاس فراوان

[iranweld]

با سلام

از ماکرو ذیل استفاده کنید

Sub test()

For Each cell In ActiveSheet.UsedRange

If cell = Range("b2") And cell <> "" Then

t = t + 1

End If

Next

t = t - 1

If t < 0 Then t = 0

MsgBox Range("b2") & " = " & t

End Sub