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

[mch2v]

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

[generalsamad]

با سلام
یه کد ساده قرار میدم ببینید کمکتون میکنه؟

Private Sub CommandButton1_Click()
Dim grade As Single
grade = ActiveCell
If grade >= 10 And Not IsEmpty(ActiveCell.Value) Then
ActiveCell(1, 2) = "ÞÈæá"
End If
If grade < 10 And Not IsEmpty(ActiveCell.Value) Then
ActiveCell(1, 2) = "ãÑÏæÏ"
End If
End Sub 

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

فایل ضمیمه گردید

[Ali Parsaei]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Selection.Column = 7 Then
   MsgBox "row: " & ActiveCell.Row
 End If
End Sub 

[mch2v]

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

[Ali Parsaei]

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

نمي شود!

[mch2v]

نمي شود!

یعنی هیچ راه دیگه ای نداره ؟

[mokaram]

یعنی هیچ راه دیگه ای نداره ؟

این امکان وجود نداره به دلیل اینکه هیچ ابزار کنترلی برای بررسی شرطتتون نیست مگه اینکه بخواهید با استفاده از فرمها کار ورود اطلاعات را انجام بدید که اون موقع دستتون بازتره در غیر اینصورت امکان پذیر نیست

[mch2v]

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

[Ali Parsaei]

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

شما بايد يک متغيير تعريف کرده و سپس آن را در يک حلقه FOR قرار دهيد مثل اين:

Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Range("B2:B7")
If C >= 10 And C <> "" Then
C.Offset(0, 1) = "قبول"
ElseIf C = "" Then
C.Offset(0, 1) = ""
Else
C.Offset(0, 1) = "مردود"
End If
Next
End Sub