درج * با كليك كردن روي سلول

[alisabet]

سلام :

من ميخواهم با كليك كردن روي يك سلول ( سلولهاي يك ستون) مقدار "*" يا علامت تيك درآن سلول درج شود چكار كنم ؟ ضمناً از ابزار كنترلي چك باكس نميخواهم استفاده كنم يعني فقط ميخواهم محدوده اي از سل ها هنگام كليك روي هر سلول كاركتر * يا كاراكتر تيك در آن خانه درج شود

[komeilex]

RE: درج * با كليك كردن روي سلول

سلام دوست عزیز. فایل زیر خدمت شما:
[attachment=766]

[alisabet]

RE: درج * با كليك كردن روي سلول

سلام دوست عزیز. فایل زیر خدمت شما:

سلام :
دست شما درد نكنه توجه شمار را به 3 نكته ذيل جلب ميكنم
1- ميخوام اگه خانه اي از قبل حاوي * بود با كليك مجدد * پاك بشه و اگه خالي بود با كليك كردن * بذاره

2- در فايل ارسالي شما اگه با كليدهاي صفحه كليد هم در بين سلولها حركت كنيد اونا رو ستاره دار ميكنه خواهش ميكنم اين رو هم اصلاح كنيد طوري كه فقط با كليك موس ستاره را بذاره

3- نميخوام همه سلها داراي اين خاصيت باشند بلكه فقط يك ستون اينجوري باشه

[komeilex]

RE: درج * با كليك كردن روي سلول

برای مورد اول به جای کد قبلی ار این کد استفاده کنید:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Value = "*" Then
ActiveCell.Value = ""
Else
ActiveCell.Value = "*"
End If
End Sub 

برای سایر موارد ایشاا.. اساتید VB کمک کنن. من خودم تو این زمینه خیلی تازه کارم.:P

[alisabet]

RE: درج * با كليك كردن روي سلول

دوستان اگه راه حلي دارن خواهشمند است از ابراز آن دريغ نفرمايند

[MEYTI]

RE: درج * با كليك كردن روي سلول

با سلام
شما ميتوني از دابل كليك استفاده كني در رويداد دابل كليك شيت مورد نظر كد زير را كپي كنيد

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("A1:G14")) Is Nothing Then
        
        Cancel = True
        
        
      
        If Target.Value = "" Then
            Target.Value = "*"
            
       Else
        Target.Value = ""
        End If
    
    End If
End Sub 

[khakzad]

RE: درج * با كليك كردن روي سلول

ممنون
اين کد رو توضيح ميدين؟؟
If Not Intersect(Target, Range("A1:G14")) Is Nothing Then

Cancel = True

مرسي

[MEYTI]

RE: درج * با كليك كردن روي سلول

با سلام
این کد برای انتخاب کردن یک یا چند ناحیه و انجام عملیاتی بر روی ان ناحیه که با not میتوان بودن و نبودن در آن ناحیه را مشخص کرد
و با کد TRUE=CANCEL هم میشه سلولی که روی آن دابل کلیک شده از حالت فکوس خارج کرد

[~M*E*H*D*I~]

RE: درج * با كليك كردن روي سلول

سلام
تو لینک زیر پست 94 یک فایل نمونه با شرایط خواسته شده هست کافیه فقط فونت تنظیم بشه که ستاره درج بشه
http://forum.exceliran.com/thread-1254-page-10.html

[alisabet]

RE: درج * با كليك كردن روي سلول

سلام
تو لینک زیر پست 94 یک فایل نمونه با شرایط خواسته شده هست کافیه فقط فونت تنظیم بشه که ستاره درج بشه
http://forum.exceliran.com/thread-1254-page-10.html

عاليه هموني بود كه ميخواستم ولي آيا ميشه بجاي دبل كليك با رويداد كليك انجام بشه؟

[~M*E*H*D*I~]

RE: درج * با كليك كردن روي سلول

رویداد رو تبدیل کن به click

[alisabet]

RE: درج * با كليك كردن روي سلول

رویداد رو تبدیل کن به click

نشد كه
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)

[~M*E*H*D*I~]

RE: درج * با كليك كردن روي سلول

میتونی از rightclick استفاده کنی فک میکردم worksheet رویداد کلیلک داره ولی مثل اینکه نداره

Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)