نمایش اعداد منفی به صورت مثیت در لیست باکس

[Nima]

با سلام

یه لست باکس داریم که یه سری اعداد رو لیست میکنه و نمایش میده اما این اعداد به صورت منفی هستند

چیکار میشه کرد تا اعداد به صورت مثبت تو لیست باکس نمایش داده بشن

[daghyad]

RE: نمایش اعداد منفی به صورت مثیت در لیست باکس

سلام فرض کن اعدادت توی شیت 1 ستون a هستند باید قدر مطلق این اعداد را توی لیست باکس نمایش بدی روی فرمت روی رویداد Initialize بنویس


[align=left]Private Sub UserForm_Initialize()
Dim c As Range
ListBox1.Clear
For Each c In Sheet1.Range("a1", Range("a1").End(xlDown))
ListBox1.AddItem Abs(c.Value)
Next
End Sub[/align]

[Nima]

RE: نمایش اعداد منفی به صورت مثیت در لیست باکس

سلام فرض کن اعدادت توی شیت 1 ستون a هستند باید قدر مطلق این اعداد را توی لیست باکس نمایش بدی روی فرمت روی رویداد Initialize بنویس


[align=left]Private Sub UserForm_Initialize()
Dim c As Range
ListBox1.Clear
For Each c In Sheet1.Range("a1", Range("a1").End(xlDown))
ListBox1.AddItem Abs(c.Value)
Next
End Sub[/align]

با تشکر از شما
مشکل من همین ABS بود که حل شد

بازم ممنون از راهنمائیتون