انجام عملیات روی یک سلول از محدوده ای خاص

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mch2v

    • 2014/03/17
    • 62

    انجام عملیات روی یک سلول از محدوده ای خاص

    سلام
    با یه مثال میپرسم
    مثلا من میخوام هر موقع که روی یکی از سلول های ستون g کلیک کردم روی همون سلول یه عملیاتی برام انجام بده (حالا اون عملیات زیاد مهم نیست) و با کلیک روی سلول های دیگه از ستون های دیگه هیچ اتفاقی نیفته. ضمنا در vba باشه.
    ممنون میشم اگه پاسخ بدید.
  • generalsamad
    مدير تالار توابع

    • 2014/06/22
    • 1496

    #2
    با سلام
    یه کد ساده قرار میدم ببینید کمکتون میکنه؟
    کد PHP:
    Private Sub CommandButton1_Click()
    Dim grade As Single
    grade 
    ActiveCell
    If grade >= 10 And Not IsEmpty(ActiveCell.ValueThen
    ActiveCell
    (12) = "ÞÈæá"
    End If
    If 
    grade 10 And Not IsEmpty(ActiveCell.ValueThen
    ActiveCell
    (12) = "ãÑÏæÏ"
    End If
    End Sub 
    طبق فایل ضمیمه وقتی در ستون B روی نمره شخص انتخاب شده و دکه رو بزنید وضعیت قبولی یا مردودی اون رو نمایش میده

    فایل ضمیمه گردید
    فایل های پیوست شده
    [CENTER]
    [SIGPIC][/SIGPIC]
    [/CENTER]

    کامنت

    • Ali Parsaei
      مدير تالارتوابع اکسل

      • 2013/11/18
      • 1522
      • 71.67

      #3
      سلام،
      به هر حال جهت رسيدن به مقصود بايد از کد زير در رويداد selection change شيت مورد نظرتون استفاده کنيد:
      (خط سوم کد را با شرط مورد نظر خود عوض کنيد)

      کد PHP:
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If 
      Selection.Column 7 Then
         MsgBox 
      "row: " ActiveCell.Row
       End 
      If
      End Sub 
      Last edited by Ali Parsaei; 2015/07/15, 20:16.
      [SIGPIC][/SIGPIC]

      کامنت

      • mch2v

        • 2014/03/17
        • 62

        #4
        دست شما درد نکنه عالی بود .
        یه سوال دیگه در ادامه همین موضوع داشتم.
        میخواستم روی سلولی که دارم کار میکنم (مثلا یه عدد وارد میکنم ) قبل از اینکه enter بزنم یا روی سلول کلیک کنم توی همون سلول تشخیص بده که شرط برقرار هست یا نه.
        ممنون

        کامنت

        • Ali Parsaei
          مدير تالارتوابع اکسل

          • 2013/11/18
          • 1522
          • 71.67

          #5
          نوشته اصلی توسط mch2v
          دست شما درد نکنه عالی بود .
          یه سوال دیگه در ادامه همین موضوع داشتم.
          میخواستم روی سلولی که دارم کار میکنم (مثلا یه عدد وارد میکنم ) قبل از اینکه enter بزنم یا روی سلول کلیک کنم توی همون سلول تشخیص بده که شرط برقرار هست یا نه.
          ممنون
          نمي شود!
          [SIGPIC][/SIGPIC]

          کامنت

          • mch2v

            • 2014/03/17
            • 62

            #6
            نوشته اصلی توسط علي پارسا
            نمي شود!
            یعنی هیچ راه دیگه ای نداره ؟

            کامنت

            • mokaram
              مدير تالار اکسل و بانک اطلاعاتی

              • 2011/02/06
              • 1805
              • 74.00

              #7
              نوشته اصلی توسط mch2v
              یعنی هیچ راه دیگه ای نداره ؟
              این امکان وجود نداره به دلیل اینکه هیچ ابزار کنترلی برای بررسی شرطتتون نیست مگه اینکه بخواهید با استفاده از فرمها کار ورود اطلاعات را انجام بدید که اون موقع دستتون بازتره در غیر اینصورت امکان پذیر نیست
              [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
              [/CENTER]

              کامنت

              • mch2v

                • 2014/03/17
                • 62

                #8
                یه سوال دیگه در همین رابطه
                مثلا توی فایلی که آقای generalsamad گذاشتن ، وضعیت قبول یا مشروط سلول فعال رو نمایش میده .
                حالا من میخوام با کلیک روی CommandButton وضعیت کل ستون رو نمایش بده .
                با تشکر
                ببخشید هر دفعه سوال جدید میپرسم.

                کامنت

                • Ali Parsaei
                  مدير تالارتوابع اکسل

                  • 2013/11/18
                  • 1522
                  • 71.67

                  #9
                  نوشته اصلی توسط mch2v
                  یه سوال دیگه در همین رابطه
                  مثلا توی فایلی که آقای generalsamad گذاشتن ، وضعیت قبول یا مشروط سلول فعال رو نمایش میده .
                  حالا من میخوام با کلیک روی CommandButton وضعیت کل ستون رو نمایش بده .
                  با تشکر
                  ببخشید هر دفعه سوال جدید میپرسم.
                  شما بايد يک متغيير تعريف کرده و سپس آن را در يک حلقه FOR قرار دهيد مثل اين:
                  کد PHP:
                  Private Sub CommandButton1_Click()
                  Dim C As Range
                  For Each C In Range("B2:B7")
                  If 
                  >= 10 And <> "" Then
                  C
                  .Offset(01) = "قبول"
                  ElseIf "" Then
                  C
                  .Offset(01) = ""
                  Else
                  C.Offset(01) = "مردود"
                  End If
                  Next
                  End Sub 
                  [SIGPIC][/SIGPIC]

                  کامنت

                  چند لحظه..