نحوه انتخاب تمام سلول های یک ستون !

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

    • 2014/12/13
    • 78
    • 43.00
    #1

    پرسش نحوه انتخاب تمام سلول های یک ستون !

    سلام .
    در ستونی که تعداد دیتاها زیاده و انتخابشون با اسکرول کردن سخته و بین دیتا ها هم سلول خالی هست وقتی با ctl+shift +arrow down انتخابش میکنم میره تا اولین سلول خالی رو سلکت میکنه
    اگر بخوام به آخرین سلول جدول بره باید چکار کنم ؟
    برچسب ها: هیچ‌کدام
    • rasools13

      • 2017/01/20
      • 360
      • 80.00
      #2
      سلام از این استفاده کنید
      ctrl + shift + end
      [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
      [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
      [/CENTER]

        کامنت

        • yogishiip

          • 2014/12/13
          • 78
          • 43.00
          #3
          ممنون.
          این روش همه ستون های شیت رو انتخاب میکنه .
          من میخوام یک ستون فقط انتخاب بشه !

            کامنت

            • rahi_feri

              • 2014/08/08
              • 524
              • 94.67
              #4
              سلام
              تا جایی که میدونم همچین میانبری وجود نداره!
              میشه با دونستن سلول اول یا ستون و فرمول و name range محدوده ای پویا رو نام گذاری کرد!
              با استفاده از ماکرو هم میشه که می تونید بهش میانبر تخصیص بدید! که این کد میتونه یه شروع باشه!
              کد:
              Sub selectrange()
lasrrow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(lasrrow, ActiveCell.Column)).Select
End Sub
              اگه ActiveCell.Row رو به جاش 1 بذارید هر جای ستون کلیک کنید از سطر اول تا انتها انتخاب میشه!
              اگه ستون اول باشه میشه رفت به آخرین سلول یه ستون که سلول خالی نداره و به بالا برگشت و همه رو انتخاب کرد!
              با دونستن سلول اخر می تونید (count در نوار وضعیت کمک میکنه) بدون اسکرول و با استفاده از name box محدوده رو انتخاب کنید!
              [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]

                کامنت

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