āĻāĻŽāĻ°া āĻ¯াāĻ°া āĻŦাংāĻ˛াāĻĻেāĻļে āĻāĻ্āĻ¸েāĻ˛ āĻ¨িā§ে āĻাāĻ āĻāĻ°ি
āĻ¤াāĻĻেāĻ° āĻŽāĻ§্āĻ¯ে āĻ
āĻ¨েāĻে āĻāĻ্āĻ¸āĻĒাāĻ°্āĻ āĻāĻে। āĻিāĻ¨্āĻ¤ু āĻ¸āĻŽāĻ¸্āĻ¯া āĻšāĻ˛ো āĻ¨িāĻেāĻ° āĻাāĻ¨া āĻাāĻ āĻ
āĻ¨্āĻ¯āĻে āĻাāĻ¨াāĻ¨ো।
āĻেāĻ āĻাāĻ¨াā§ āĻ¨া, āĻেāĻ āĻাāĻ¨াāĻāĻ¤ে āĻাāĻāĻ˛েāĻ āĻĒাāĻ°ে āĻ¨া। āĻ¯াāĻ āĻšোāĻ āĻāĻŽি āĻāĻāĻে āĻāĻāĻা āĻুāĻŦ āĻ¸াāĻ§াāĻ°āĻ¨ āĻŦিāĻˇā§
āĻ¨িā§ে āĻিāĻāĻ¨ āĻāĻ°āĻি। āĻ
ংāĻে āĻ˛েāĻাāĻ° āĻ¸āĻŽā§ āĻāĻŽāĻ°া āĻāĻŽা āĻŦ্āĻ¯āĻŦāĻšাāĻ° āĻāĻ°ি। āĻ¯েāĻŽāĻ¨ āĻļāĻ¤āĻেāĻ° āĻĒাāĻ°, āĻšাāĻাāĻ°েāĻ° āĻĒāĻ°,
āĻ˛āĻ্āĻˇেāĻ° āĻĒāĻ°, āĻোāĻিāĻ° āĻĒāĻ°। āĻিāĻ¨্āĻ¤ু 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