āĻāĻŽāϰা āϝাāϰা āĻŦাংāϞাāĻĻেāĻļে āĻāĻ্āϏেāϞ āύিā§ে āĻাāĻ āĻāϰি
āϤাāĻĻেāϰ āĻŽāϧ্āϝে āĻ
āύেāĻে āĻāĻ্āϏāĻĒাāϰ্āĻ āĻāĻে। āĻিāύ্āϤু āϏāĻŽāϏ্āϝা āĻšāϞো āύিāĻেāϰ āĻাāύা āĻাāĻ āĻ
āύ্āϝāĻে āĻাāύাāύো।
āĻেāĻ āĻাāύাā§ āύা, āĻেāĻ āĻাāύাāĻāϤে āĻাāĻāϞেāĻ āĻĒাāϰে āύা। āϝাāĻ āĻšোāĻ āĻāĻŽি āĻāĻāĻে āĻāĻāĻা āĻুāĻŦ āϏাāϧাāϰāύ āĻŦিāώā§
āύিā§ে āĻিāĻāύ āĻāϰāĻি। āĻ
ংāĻে āϞেāĻাāϰ āϏāĻŽā§ āĻāĻŽāϰা āĻāĻŽা āĻŦ্āϝāĻŦāĻšাāϰ āĻāϰি। āϝেāĻŽāύ āĻļāϤāĻেāϰ āĻĒাāϰ, āĻšাāĻাāϰেāϰ āĻĒāϰ,
āϞāĻ্āώেāϰ āĻĒāϰ, āĻোāĻিāϰ āĻĒāϰ। āĻিāύ্āϤু Excel āĻ āĻĻেāĻāĻŦেāύ āĻāĻŽা āĻāϏে āĻŦিāϞিā§āύ āĻŽিāϞিā§āύ āĻāϰ āĻĒāϰ। āϝেāĻŽāύ 124050222
āĻāĻ āϏংāĻাāĻি āϝāĻĻি āĻāĻĒāύি Excel āĻ āϞিāĻেāύ āĻāĻŦং āĻāĻŽা āĻŦ্āϝāĻŦāĻšাāϰ āĻāϰেāύ āϤাāĻšāϞে 124,050,222 āĻ āϰāĻāĻŽ āĻšāĻŦে।
āϤাāϰ āĻŽাāύে āĻāĻŽাāϰ āĻšিāϏাāĻŦে āĻāϏāϞ āĻāĻ āĻļāϤ āĻāĻŦ্āĻŦিāĻļ āĻŽিāϞিā§āύ āĻĒāĻ্āĻাāĻļ āĻšাāĻাāϰ āĻĻুāĻ āĻļāϤ āĻŦাāĻāĻļ āĻাāĻা। āĻিāύ্āϤু
āĻāĻŽাāĻĻেāϰ āĻŦাংāϞাāĻĻেāĻļেāϰ āĻāĻŽা āϏ্āĻাāĻāϞে āĻšāĻŦে āĻāϰāĻāĻŽ 12,40,50,222 āĻŽাāύে āĻŦাāϰ āĻোāĻি āĻāϞ্āϞিāĻļ āϞাāĻ āĻĒāĻ্āĻাāĻļ
āĻšাāĻাāϰ āĻĻুāĻ āĻļāϤ āĻŦাāĻāĻļ āĻাāĻা। āĻāĻŽি āĻāĻāĻে āĻĻেāĻাāĻŦ āĻিāĻাāĻŦে Excel āĻŦাংāϞাāĻĻেāĻļেāϰ āϏ্āĻাāĻāϞে āĻāĻŽা āĻŦ্āϝāĻŦāĻšাāϰ
āĻāϰāϤে āĻšā§।
(ā§§) āĻĒ্āϰāĻĨāĻŽে āĻāĻĒāύাāϰ āĻাāĻ্āĻিāϤ āϏংāĻ্āϝাāĻি āϝেāĻোāύ
āϏেāϞ āĻ āϞিāĻুāύ (āĻāĻাāϧিāĻ āϏেāϞ āĻŦ্āϝāĻŦāĻšাāϰ āĻāϰāϤে āĻĒাāϰেāύ)।
(⧍) āĻāϰāĻĒāϰ āϏেāϞāĻুāϞো āϏেāϞেāĻ্āĻ āĻāϰে Right
Button Click āĻāϰে Format Cell select āĻāϰুāύ।
(ā§Š) Number tab āĻĨেāĻে Category āĻāϰ āύিāĻে
Custom select āĻāϰুāύ। āĻāϰāĻĒāϰ Type āĻāϰ āύিāĻেāϰ āĻŦāĻ্āϏে āύিāĻেāϰ āϞাāĻāύāĻি āĻšুāĻŦāĻšু āĻāĻĒি āĻāϰে āĻĒেāώ্āĻ āĻāϰুāύ।
OK āĻāϰুāύ। āĻĻেāĻুāύ āĻŦাংāϞাāĻĻেāĻļী āϏ্āĻাāĻāϞে āĻāĻŽা āĻāϏে āĻেāĻে।
āĻāϰ āϝাāϰা vba code āύিā§ে āĻাāĻ āĻāϰেāύ āĻŦা āĻāϰāϤে
āĻĒাāϰāĻŦেāύ āϤাāϰা āύিāĻেāϰ Function āĻি āĻŦ্āϝāĻŦāĻšাāϰ āĻāϰāϤে āĻĒাāϰেāύ। āĻĢাংāĻļāύেāϰ āĻŽাāϧ্āϝāĻŽেāĻ āĻāĻāĻ āĻĢāϞাāĻĢāϞ āĻĒাāĻŦেāύ।
Public Function
BdCommaStyle(YourValue)
Dim vResult As Variant
Dim strProcess As String
Dim strFormat As String
Dim iLength As Long
vResult = Null
If IsNumeric(YourValue) Then
strProcess = Abs(YourValue) & ""
iLength = InStr(1, strProcess & ".", ".") - 1
iLength = iLength + iLength \ 2
strFormat = Right("@@@,@@,@@,@@@", iLength)
vResult = Format(strProcess, strFormat)
If Left(vResult, 1) = "," Then
vResult = Mid(vResult, 2)
End If
If Val(YourValue) < 0 Then
vResult = "-" & vResult
End If
End If
BdCommaStyle = vResult
End Function














