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

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

  1. #1


    آخرین بازدید
    2014/12/22
    تاریخ عضویت
    April 2012
    نوشته ها
    90
    امتیاز
    2
    سپاس
    5
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    تنظیم هدر در لیست باکس

    سلام
    من برای لیست باکسم میخوام با استفاده از دستور Column Head عنوان سر ستون ها رو تنظیم کنم و برای این کار از دستور زیر استفاده کردم:
    کد:
    ListBox2.RowSource = Sheet3.Range("a1:e1").Name
    اما این دستور اجرا نمیشه ولی وقتی به جای name از address استفاده میکتم (مانند دستور زیر):

    کد:
    ListBox2.RowSource = Sheet3.Range("a1:e1").address
    کد اجرا میشه ولی خب آدرس ستونها (column A - Column B -...) نوشته میشه، آیا راهی هست که آدرس ستون ها را با نام دلخواه مشخص کنم؟ یا با چه روشی میتونم برای نام ستون های لیست باکسم از نام های مورد نظر خودم استفاده کنم؟
    لطفا پشنهاد استفاده از لیبل رو ندید چون مناسب کارم نیست.

    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: تنظیم هدر در لیست باکس

    سلام دوست عزيز شما با دستور RowSource منبع ديتاي ليست باكستو مشخص ميكني نه هدرتو
    ولي اگه تو همين كد، رنجتو از A2 شروع كني سطر اولو به عنوان هيدر در نظر ميگيره مثل كد زير
    کد:
    ListBox1.RowSource = Sheet3.Range("a2:e10").Address

  4. #3


    آخرین بازدید
    2014/12/22
    تاریخ عضویت
    April 2012
    نوشته ها
    90
    امتیاز
    2
    سپاس
    5
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    RE: تنظیم هدر در لیست باکس

    نقل قول نوشته اصلی توسط MEYTI
    سلام دوست عزيز شما با دستور RowSource منبع ديتاي ليست باكستو مشخص ميكني نه هدرتو
    ولي اگه تو همين كد، رنجتو از A2 شروع كني سطر اولو به عنوان هيدر در نظر ميگيره مثل كد زير
    کد:
    ListBox1.RowSource = Sheet3.Range("a2:e10").Address
    این کاری که میگی رو انجام دادم ولی هدرها سفید میمونه و هیچی توش نمیاد.

    کد:
     
    Private Sub CommandButton1_Click()
    ListBox1.ColumnHeads = True
    ListBox1.ColumnCount = 10
    ListBox1.RowSource = Sheet16.Range("a2:g2").Address
    End Sub


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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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