نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: راست چین بودن لیست باکس

  1. #1


    آخرین بازدید
    2024/02/14
    تاریخ عضویت
    January 2015
    نوشته ها
    71
    امتیاز
    30
    سپاس
    0
    سپاس شده
    20 در 12 پست
    سطح اکسل
    66.00 %

    Depressed راست چین بودن لیست باکس

    با سلام خدمت دوستان

    چرا هرکاری میکنم باوجود اینکه دیتای من در شیت اکسل راست چین هست، اما وقتی وارد لیست باکس می شود ، هنگام نمایش بصورت چپ به راست نمایش می دهد؟
    منظور خودم را بصورت تصویر ارائه می دهم.:
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  01.jpg
مشاهده: 56
حجم:  39.5 کیلو بایت

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  02.jpg
مشاهده: 49
حجم:  25.7 کیلو بایت

    در ضمن به هیچ هنوان هم سربرگ روی لیست باکس من نمی آید.
    دستورش رو هم می گذارم تا ملاحظه بفرمایید
    Public Sub addlist()
    Dim n, col
    n = 2

    col = WorksheetFunction.CountA(Sheet3.Range("1:1"))
    ListBox1.ColumnCount = col + 1
    ListBox1.Clear

    Do While Sheet3.Cells(n, 1) <> Empty
    ListBox1.AddItem Sheet3.Cells(n, 6) 'n - 1 ' c.Row - 1
    For i = 0 To col
    ListBox1.List(ListBox1.ListCount - 1, i + 1) = Sheet3.Cells(n, i + 1) ' c.Value
    Next i

    n = n + 1
    Loop
    End Su[/LTR][/RTL][/LTR]b
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    کد ذیل را به کدهای خود اضافه کنید
    کد PHP:
    TextBox1.TextAlign HorizontalAlignment.Right 

  4. #3


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط zxcvbn نمایش پست ها
    با سلام خدمت دوستان

    چرا هرکاری میکنم باوجود اینکه دیتای من در شیت اکسل راست چین هست، اما وقتی وارد لیست باکس می شود ، هنگام نمایش بصورت چپ به راست نمایش می دهد؟
    منظور خودم را بصورت تصویر ارائه می دهم.:
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  01.jpg
مشاهده: 56
حجم:  39.5 کیلو بایت

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  02.jpg
مشاهده: 49
حجم:  25.7 کیلو بایت

    در ضمن به هیچ هنوان هم سربرگ روی لیست باکس من نمی آید.
    دستورش رو هم می گذارم تا ملاحظه بفرمایید
    Public Sub addlist()
    Dim n, col
    n = 2

    col = WorksheetFunction.CountA(Sheet3.Range("1:1"))
    ListBox1.ColumnCount = col + 1
    ListBox1.Clear

    Do While Sheet3.Cells(n, 1) <> Empty
    ListBox1.AddItem Sheet3.Cells(n, 6) 'n - 1 ' c.Row - 1
    For i = 0 To col
    ListBox1.List(ListBox1.ListCount - 1, i + 1) = Sheet3.Cells(n, i + 1) ' c.Value
    Next i

    n = n + 1
    Loop
    End Su[/LTR][/RTL][/LTR]b
    با درود و تشکر از جناب iranweld
    دوست عزیز در مورد راستچین کردن ListBox شما میبایست ابتدا در پنجره تنظیمات UserForm گزینه RightToLeft رو به حالت True تغییر دهید.
    در مورد نمایش سرستونها باید عرض کنم: ابتدا اینکه شما می بایست در پنجره تنظیمات ListBox یا توسط دستور در خود vb گزینه ColumnHeads را در وضعیت True قرار دهید تا امکان نمایش سرستونها مهیا شود و اما در حالتی که شما با استفاده از دستور AddItem مقادیر ListBox را اضافه میکنید امکان نمایش سرستونها وجود ندارد (یا حداقل بنده بلد نیستم)!

    بنده راه حل ساده تر و مناسبتری برای رفع مشکلتون پیشنهاد میکنم:
    1. ابتدا در شیت مورد نظرتون یک محدوده پویا تعریف کنید. برای این کار به سربرگ FORMULAS رفته و گزینه Name Manager را کلیک کنید، در پنجره ظاهر شده روی New کلیک کنید و در پنجره New Name ابتدا یک نام دلخواه را (مثلا Data) در قسمت Name وارد کنید و سپس در قسمت Refers to فرمول زیر را وارد و Ok کنید و در نهایت از پنجره Name Manager خارج شوید.
    کد PHP:
    =OFFSET(!$A$1;1;0;COUNTA(!$A:$A)-1;COUNTA(!$1:$1)) 
    با این کار محدوده پویا جهت داده ها تعریف میشود.

    2. در پنجره تنظیمات ListBox و یا توسط دستور در خود vb این محدوده را به گزینه RowSource نسبت دهید:
    کد PHP:
    Me.ListBox1.RowSource="Data" 
    با این روش شما هم سرستونها رو در لیست باکستون مشاهده میکنید و هم اینکه با اضافه یا کم کردن یک سطر یا ستون بصورت خودکار درون لیست باکستون این تغییرات اعمال میشود.

    یک فایل نمونه از عرایضم آماده و ضمیمه کردم که بهتر بتونید استفاده کنید.
    امیدوارم واستون مفید واقع شود، موفق باشین.
    فايل هاي پيوست شده فايل هاي پيوست شده


  5. #4


    آخرین بازدید
    2024/02/14
    تاریخ عضویت
    January 2015
    نوشته ها
    71
    امتیاز
    30
    سپاس
    0
    سپاس شده
    20 در 12 پست
    سطح اکسل
    66.00 %

    آقاي ابوتراب عزيز

    مثل هميشه قدرتمند و عالي

    واقعا لذت مي برم وقتي مي بينم شما تا اين حد به موضوع مسلط هستيد و دقيقا منو به هدفم مي رسونيد.
    از لطف شما بي نهايت سپاسگذارم.

    موضوع RightToLeft بودن userform اصلا به ذهنم نرسيد چون همش تو تنظيمات list box دنبال همچين چيزي بودم.
    درمورد لود شدن ديتا به اين حالت در ليست باكس هم واقعا موضوع جديدي بود.خصوصا استفاده از فرمول offset كه برام تازگي داشت.مي دونم هدف از نوشتن اين فرمول چيه.ولي از منطقش سر در نياوردم.
    بهر حال عالي بود.
    ممنون

  6. سپاس ها (2)


  7. #5


    آخرین بازدید
    2022/12/25
    تاریخ عضویت
    March 2015
    محل سکونت
    کرمان
    نوشته ها
    55
    امتیاز
    118
    سپاس
    297
    سپاس شده
    66 در 19 پست
    تعیین سطح نشده است

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



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. [حل شده] بدست آوردن لیست بدهکاران
    توسط elam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2015/10/18, 19:44
  2. درخواست راهنمایی در رابطه با رتبه بندی اعداد در یک لیست عددی
    توسط Ali_Sedaghat در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 7
    آخرين نوشته: 2014/12/06, 14:58
  3. پاسخ ها: 0
    آخرين نوشته: 2014/04/19, 03:27
  4. پاسخ ها: 0
    آخرين نوشته: 2013/11/14, 17:11
  5. درخواست راهنمایی(لیست باکس)
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/01, 12:23

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

اکسل لیست باکس راست چین

نحوه نوشتن چک باکس با متن راست چین در اکسل

راست چین کردن فرم در وی بی اکسل

راست چین کردن متن مسیج باکس در vab اکسل برای نمایش

راست چین کردن لیست باکس vba

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد