طریقه ثابت نگه داشتن لیست کشوی(combo box) هنگام اسکرول خوردن صفحه

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • mtf

    • 2015/06/09
    • 10
    #1

    طریقه ثابت نگه داشتن لیست کشوی(combo box) هنگام اسکرول خوردن صفحه

    با سلام
    من میخوام وقتی در شیت اکسل جابجا میشم، drop down کومبوباکس جابجا نشود،
    مشکل دیگه اینه که وقتی وارد شیتهای دیگه میشم drop down کومبوباکس در اون شیت ها به طور خودکار نمایش داده میشه .

    فایل نمونه این مشکلو داره. ممنون میشم راهنمایی کنید
    Dropdown-with-Search-Suggestion_Final.xls
    برچسب ها: هیچ‌کدام
    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67
      #2
      سلام
      ساده ترین راه اینه در سطر اول قرارش بدی و freeze کنید !.
      وگرنه کد زیر رو در قسمت view code کاربرگ مورد نظر کپی کنید فقط موقعی که اسکرول می کنید چون باید تغییر صورت بگیره باید بر روی یه سلول کلیک کنید تا جابه جایی صورت بگیره.
      کد:
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rng As Range
    Dim Top As Single
    Dim Left As Single
    Set Rng = ActiveWindow.VisibleRange.Cells(1, 1)
    Top = Rng.Top
    Left = Rng.Left
    With ComboBox1
        .Top = Top
        .Left = Left
    End With
End Sub
      سوال دوم رو متوجه نشدم...!
      من هم یه سوال دارم دقیقا با این چه کار می خواهید بکنید؟
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

        کامنت

        • mtf

          • 2015/06/09
          • 10
          #3
          نوشته اصلی توسط rahi_feri
          سلام
          ساده ترین راه اینه در سطر اول قرارش بدی و freeze کنید !.
          وگرنه کد زیر رو در قسمت view code کاربرگ مورد نظر کپی کنید فقط موقعی که اسکرول می کنید چون باید تغییر صورت بگیره باید بر روی یه سلول کلیک کنید تا جابه جایی صورت بگیره.
          کد:
          Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Rng As Range
    Dim Top As Single
    Dim Left As Single
    Set Rng = ActiveWindow.VisibleRange.Cells(1, 1)
    Top = Rng.Top
    Left = Rng.Left
    With ComboBox1
        .Top = Top
        .Left = Left
    End With
End Sub
          سوال دوم رو متوجه نشدم...!
          من هم یه سوال دارم دقیقا با این چه کار می خواهید بکنید؟



          سلام
          ممنون از توجه شما استاد گرامی
          من دارم یه صفحه به اندازه صفحه a4 در اکسل طراحی میکنم که یکسری اطلاعات از دادهای شیتهای دیگر میگیره و یکسری اطلاعات ورودی به آنها میده و نمیشه جای کمبو باکسها را تغییر داد
          در مورد سوال دوم وقتی وارد شیتهای دیگر میشوم و در حال ویرایش آنها می باشم drop down از یه شیت دیگه ظاهر میشود و دست و پاگیر میشه
          و یه سوال دیگه وقتی دکمه drop down را کلیک میکنم از سمت راست به چپ منتقل میشه؟؟؟و بعد از کلیک مجدد لیست باز میشه(صفحه راست به چپ می باشد)

            کامنت

            • rahi_feri

              • 2014/08/08
              • 524
              • 94.67
              #4
              سلام
              textalign رو تغییر بدید تا مجتویات در طرف دلخواه قرار بگیرند
              [B][SIZE=1]بخش امضاء :
              [/SIZE][/B][LEFT]
              [CODE]
              Sub Macro()
              ActiveCell = "IY" & Right(Application.Name, 5)
              With ActiveCell.Characters(Start:=2, Length:=1).Font
              .Name = "Webdings"
              .Color = 255
              End With
              End Sub
              [/CODE]
              [/LEFT]

                کامنت

                • mtf

                  • 2015/06/09
                  • 10
                  #5
                  نوشته اصلی توسط mtf
                  سلام
                  ممنون از توجه شما استاد گرامی
                  من دارم یه صفحه به اندازه صفحه a4 در اکسل طراحی میکنم که یکسری اطلاعات از دادهای شیتهای دیگر میگیره و یکسری اطلاعات ورودی به آنها میده و نمیشه جای کمبو باکسها را تغییر داد
                  در مورد سوال دوم وقتی وارد شیتهای دیگر میشوم و در حال ویرایش آنها می باشم drop down از یه شیت دیگه ظاهر میشود و دست و پاگیر میشه
                  و یه سوال دیگه وقتی دکمه drop down را کلیک میکنم از سمت راست به چپ منتقل میشه؟؟؟و بعد از کلیک مجدد لیست باز میشه(صفحه راست به چپ می باشد)
                  سلام
                  کسی راه حلی به نظرش نمیرسه؟

                    کامنت

                    قبلی template بعدی
                    چند لحظه..