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

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Nima

    • 2011/07/22
    • 385

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

    با سلام

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

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

    [CENTER][COLOR=#ff0000]************************************[/COLOR]
    No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
    [COLOR=#ff0000]************************************[/COLOR]

    [/CENTER]
  • daghyad

    • 2012/03/30
    • 117

    #2
    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

      • 2011/07/22
      • 385

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

      نوشته اصلی توسط daghyad
      سلام فرض کن اعدادت توی شیت 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 بود که حل شد

      بازم ممنون از راهنمائیتون
      [CENTER][COLOR=#ff0000]************************************[/COLOR]
      No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
      [COLOR=#ff0000]************************************[/COLOR]

      [/CENTER]

      کامنت

      چند لحظه..