پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

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

  1. #1


    آخرین بازدید
    11 _ 06 _ 2012
    تاریخ عضویت
    December_2010
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    Lightbulb سوال درباره ی فعال کردن یک سلول خاص با کلیک بر دکمه های مربوط به سطر و ستون آن

    با سلام به دوستان،
    برای ساخت یک فرم خاص باید اعداد زیادی را در یک شیت اکسل وارد کنم،آیا روشی وجود دارد که بتوان با کلیک بر روی دکمه های بالا و گوشه سمت چپ شیت.مکان نما را به سلول محل تقاطع آنها انتقال بدهد؟
    مثلا با کلیک روی سر ستون M و سطر 200 مکان نما به سلول M200 منتقل شود یا کادری ظاهر شود که مقدار ورودی برای سلول M200 را از من بپرسد؟
    از پاسختون پیشاپیش ممنونم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: سوال درباره ی فعال کردن یک سلول خاص با کلیک بر دکمه های مربوط به سطر و ستون آن

    با درود فراوان

    برای اینکه به سلولی خاص مثلا m200 برویم این قابلیت در خود اکسل وجود دارد و کافیست در کارد Namebox خانه کوچکی روبروی فرومول بار( که وقتی روی هر سل کلیک می کنیم نام سلول را نشان میدهد) با نوشتن نام هر سلول و زدن اینتر به سلول مورد نظر میرود مثلا اگر در آن بنویسید M200 و اینتر را بفشارید به سلول M200 خواهید رفت
    و اینکه با نوشتن نام سلول کاری باز شود و مقدار ورودی را از شما بخواهد اگر منظور شما این است که برای نوشتن چیزی در یک سل کادری باز شود و هرچیزی که بنویسیم در سلول مورد نظر وارد شود بله اینکار شدنی است و کافیست که از دو اینپود باکس استفاده کنی که اولی مقداری را که می خوای وارد سلول کنی از شما بپرسد و دومی سلولی که مد نظر شماست را بپرسد و یا اینکه از Userform استفاده کنید

  4. #3


    آخرین بازدید
    11 _ 06 _ 2012
    تاریخ عضویت
    December_2010
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    RE: سوال درباره ی فعال کردن یک سلول خاص با کلیک بر دکمه های مربوط به سطر و ستون آن

    ممنونم از پاسختون.
    ابگذارید سئوالم رو به شکل دیگه ای مطرح کنم.باید با کلیک روی سلول اول سطر و بعد اول ستون سلول مربوط یه آن سطر/ستون خاص انتخاب بشه.یعنی به فرض با کلیک روی سلول c1 و بعد a10 سلول c10 انتخاب بشه.
    متشکرم.

  5. #4


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: سوال درباره ی فعال کردن یک سلول خاص با کلیک بر دکمه های مربوط به سطر و ستون آن

    با درود فراوان

    چون نمی دانستم این را در چه برنامه ای و به چه منظوری نیاز دارید یک نمونه فایل را در ضمیمه گذاشته ام که امیدوارم همان چیزی باشد که مد نظر شماست

    در این فایل وقتی اول ستون را انتخاب کنی و بعد سطر تقاطع این دو را یافته و انتخاب میکند


    فایل ضمیمه:

    [attachment=114]
    فايل هاي پيوست شده فايل هاي پيوست شده

  6. #5


    آخرین بازدید
    11 _ 06 _ 2012
    تاریخ عضویت
    December_2010
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    RE: سوال درباره ی فعال کردن یک سلول خاص با کلیک بر دکمه های مربوط به سطر و ستون آن

    یک دنیا ممنونم.شما هم کار منو راه انداختید هم باعث شدید بطور جدی بدنبال یادگیری VBA در اگسل بیفتم.
    باز هم ممنون.
    ای کاش درباره ی کدش هم توضیح اندکی میدادید.
    [align=left][align=left]
    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("it65500") <> "" And Range("it65501") <> "" Then
    
    Range("it65500") = ""
    Range("it65501") = ""
    
    Range("it65500") = Application.Selection.Column
    
    ElseIf Range("it65500") = "" Then
    Range("it65500") = Application.Selection.Column
    
    ElseIf Range("it65500") <> "" Then
    Range("it65501") = Application.Selection.Row
    
    Cells(Range("it65501"), Range("it65500")).Select
    Range("it65500") = ""
    Range("it65501") = ""
    Else
    Cells(Range("it65501"), Range("it65500")).Select
    Range("it65500") = ""
    Range("it65501") = ""
    End If
    End Sub
    [/align][/align][hr]
    یک دنیا ممنونم.شما هم کار منو راه انداختید هم باعث شدید بطور جدی بدنبال یادگیری VBA در اکسل بیفتم.
    باز هم ممنون.
    ای کاش درباره ی کدش هم توضیح اندکی میدادید.
    [align=left][align=left]
    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("it65500") <> "" And Range("it65501") <> "" Then
    
    Range("it65500") = ""
    Range("it65501") = ""
    
    Range("it65500") = Application.Selection.Column
    
    ElseIf Range("it65500") = "" Then
    Range("it65500") = Application.Selection.Column
    
    ElseIf Range("it65500") <> "" Then
    Range("it65501") = Application.Selection.Row
    
    Cells(Range("it65501"), Range("it65500")).Select
    Range("it65500") = ""
    Range("it65501") = ""
    Else
    Cells(Range("it65501"), Range("it65500")).Select
    Range("it65500") = ""
    Range("it65501") = ""
    End If
    End Sub
    [/align][/align]

  7. #6


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: سوال درباره ی فعال کردن یک سلول خاص با کلیک بر دکمه های مربوط به سطر و ستون آن

    با درود فراوان

    در ین خط کدمان را در زیر روال SelectionChange صفحه مورد نظرمان قرار داده ایم
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)



    در این خط دو سل را در نظر گرفته ایم که اگر خالی نبودند کد را اجرا کند
    If Range("it65500") <> "" And Range("it65501") <> "" Then

    در این دوخط در صورت برقرار بودن شرط بالا دوسل مورد نظر را خالی میکند
    Range("it65500") = ""
    Range("it65501") = ""

    در این خط از دوسلی که انتخاب کرده ایم سل اول یعنی it65500 برابر با شماره ستون سلی که با موس انتخاب کرده ایم می شود در واقع یعنی شماره ستون ما در آن ذخیره می شود
    Range("it65500") = Application.Selection.Column

    در صورتی که شرط بالا برقرار نباشد شرط زیر را برسی میکند که اگر سل اول یعنی it65500 خالی بود کد بعد از آن را اجرا کند
    ElseIf Range("it65500") = "" Then

    در این خط در صورت برقرار بودن شرط بالا سل اول را برابر با شماره ستون قرار می دهد
    Range("it65500") = Application.Selection.Column

    و باز هم اگر شرط دوم هم برقرار نبود این شرط بررسی میکند که اگر سل اول خالی نبود یعنی شماره ستون در آن نوشته شده بود کد بعد از آن را اجرا کند
    ElseIf Range("it65500") <> "" Then

    در صورت برقرار بودن شرط بالا یعنی شرط سوم سل دوم را برابر با شماره ردیف قرار میدهد
    Range("it65501") = Application.Selection.Row

    در این خط چون هم شماره ستون که در سل اول نوشته شده و شماره ردیف که در سل دوم نوشته شده را داریم پس با کد Cells(Column,Row که در این کد قرار داده و آن را انتخاب می کند که در اصل هدف ماست
    Cells(Range("it65501"), Range("it65500")).Select

    در این دو خط دو سا مورد نظر را که با شماره ردیف و شماره ستون پرشده بود را خالی میکنیم تا آماده شود برای انتخاب بعد
    Range("it65500") = ""
    Range("it65501") = ""

    در صورتی که هیچ کدام از شرط های بالا برقرار نباشد کد زیر اجرا میشود
    Else
    در این خط سل تقاطع ستون و ردیف را انتخاب می کند
    Cells(Range("it65501"), Range("it65500")).Select
    دوسل را خالی میکند
    Range("it65500") = ""
    Range("it65501") = ""
    پایان شرط ها
    End If
    پایان محدوده کد
    End Sub


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

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

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

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

  1. کپی خانه*های انتخابی از ستونی به ستون دیگر
    توسط eppagh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 04 _ 07 _ 2012, 14:31
  2. سوال در تغییر هدر ستون در اکسل
    توسط r.karbar در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 24 _ 06 _ 2012, 23:13
  3. تعداد در يك ستون به شرط ستون ديگر
    توسط karbar در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 7
    آخرين نوشته: 24 _ 05 _ 2012, 22:56
  4. پاسخ ها: 1
    آخرين نوشته: 30 _ 12 _ 2010, 08:29
  5. دستور حرکت مکان نما از یک ستون به ستون دیگر
    توسط sh_amar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 13
    آخرين نوشته: 02 _ 12 _ 2010, 21:11

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

غیر فعال کردن شرط در ویژوال بیسیک

چگونه در اکسل با کلیک به سلول یا نمودار دلخواه برویم

چکونه در ایکسل با انتخاب یک سل به صفحه مورد نظر برویم؟

سلول فعال در اكسل

در اکسل چطور در یک باکس به خط بعد برویم

برقراری شرط در اکسل

غیر فعال کردن یک سلول با شرط در اکسل

دستور رفتن به سل خاص اکسلچگونه به صفحه اخر اکسل برویمچکونه در مسیج باکس به خط بعدی برویمچگونه يك يك سطر را با شرط خاص در اكسل جستجو كنيم رفتن به سلول خاص در اکسلرفتن به خط ديگر در يك سلول اكسلفعال شدن سلول در اكسلرفتن از يك سطر به سطر بعدي در همان سلول در اكسلرفتن به یک خانه خاص با دکمه در اکسلدراکسل یک سلول غیرفعال شودفعال کردن سلول با اینتربا کلیک روی خانه مورد نظر به همان صفحه برویم در اکسل ورود به سلولهای خاص در اکسلچگونه در اکسل به خط. پایینی برویم؟ عدم کار کردن دکمه‌هاي alignment در اکسلاکسل برقراری شرط به سل خاصی برودغیر فعال کردن یک سلول در اکسساکسل با کلیک روی یک سل به شیت دیگر برویم

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

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