[حل شده] هشدار دادن در مورد خالی بودن یک سلول

[mhmd.q]

سلام خسته نباشید دوستان یه سوالی داشتم در رابطه با اینکه چطور میشه که اگر تو یه جدول یه سلول خالی باشه بهمون هشدار بده یا اون سلول یا سطری که اون سلول توش خالیه رنگی بشه یجور هشدار بده..ممنون میشم راهنماییم کنید دوستان خیلی مهمه

فرستاده شده از GT-I9300ِ من با Tapatalk

[mhmd.q]

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

سلام دوستان خسته نباشید من یک جدولی دارم که میخوام اگر تو اون جدول یک سلول خالی بشه بهم هشدار بده.ممنون میشم راهنماییم کنید دوستان خیلی مهمه

فرستاده شده از GT-I9300ِ من با Tapatalk

[iranweld]

با سلام

دیتای خود را بصورت جدول در آورید و از کدهای ذیل استفاده کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("table1")) Is Nothing Then

For Each cell In Range("table1")

If cell = "" Then

cell.Interior.ColorIndex = 3

Else


cell.Interior.ColorIndex = 0

End If
Next

End If


End Sub 

[mhmd.q]

با سلام

دیتای خود را بصورت جدول در آورید و از کدهای ذیل استفاده کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("table1")) Is Nothing Then

For Each cell In Range("table1")

If cell = "" Then

cell.Interior.ColorIndex = 3

Else


cell.Interior.ColorIndex = 0

End If
Next

End If


End Sub 

[ATTACH=CONFIG]12221[/ATTACH]

دیتامو بصورت جدول در بیارم؟!!من تو جدولم اولین سطر برای ماه ها هستش که فقط اسمه ماه هارو توش نوشتم.کافیه؟!

فرستاده شده از GT-I9300ِ من با Tapatalk

[iranweld]

فایل رو ملاحظه کنید مشکل داشتید در خدمتم

[mhmd.q]

فایل رو ملاحظه کنید مشکل داشتید در خدمتم

خیلی خیلی ممنون دوست عزیز.بیشتر سوال هایی که دارم کد نویسی داره به راهتی نمیتونم جواب بگیرم بازم ممنون

فرستاده شده از GT-I9300ِ من با Tapatalk

[amir_ts]

با سلام
میتونید از فرمول زیر با توجه به محدوده ، به صورت آرایه ای استفاده کنید و نتیجه رو در یک سلول مشاهده کنید.

=IF(COUNTBLANK(A1:E10);"محدوده  شامل سلول خالی است!";"تکمیل") 

علاوه بر این کد زیر هم میتونه به شما پیامی بابت خالی بودن سل در یک محدوده بده.

[LEFT]

Sub BlackCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Range("a1:e10")
Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks)
If Err = 0 Then
MsgBox "ãÍÏæÏå ÔÇãá Óáæá ÎÇáíÓÊ!"
Else: MsgBox "ʘãíá "
End If
End Sub


[/LEFT]

[mhmd.q]

فایل رو ملاحظه کنید مشکل داشتید در خدمتم

سلام دوست عزیز من کد رو وارد کردم ولی ارور میده یعنی روی سلول در جدول کلیک که میکنم یک صفحه ای باز میشه که نوشته
Run-time error 1004
Methbod range of object_worksheet fauld
وقتی هم میر تو صفحه کد خط دوم رو به رنگ زرد نشون داده.مشکل از کجاس؟!

فرستاده شده از GT-I9300ِ من با Tapatalk

[mhmd.q]

با سلام
میتونید از فرمول زیر با توجه به محدوده ، به صورت آرایه ای استفاده کنید و نتیجه رو در یک سلول مشاهده کنید.

=IF(COUNTBLANK(A1:E10);"محدوده  شامل سلول خالی است!";"تکمیل") 

علاوه بر این کد زیر هم میتونه به شما پیامی بابت خالی بودن سل در یک محدوده بده.

[LEFT]

Sub BlackCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Range("a1:e10")
Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks)
If Err = 0 Then
MsgBox "ãÍÏæÏå ÔÇãá Óáæá ÎÇáíÓÊ!"
Else: MsgBox "ʘãíá "
End If
End Sub


[/LEFT]

چهار خط مونده به اخر حروفشو از کجا بیارم؟!منطورم اینکه جه زبانی هستش؟!

فرستاده شده از GT-I9300ِ من با Tapatalk

[amir_ts]

چهار خط مونده به اخر حروفشو از کجا بیارم؟!منطورم اینکه جه زبانی هستش؟!

در فایل نمونه پیوست شده قابل مشاهده است. حروف فارسی اینگونه نمایش داده شده چیز خاصی نیست.

MsgBox "محدوده شامل سلول خالی ست!"Else: MsgBox " تکمیل " 

[mhmd.q]

در فایل نمونه پیوست شده قابل مشاهده است. حروف فارسی اینگونه نمایش داده شده چیز خاصی نیست.

MsgBox "محدوده شامل سلول خالی ست!"Else: MsgBox " تکمیل " 

متوجه شدم دوست عزیز اگر مشکلی پیش اومد مزاحمتون میشم.فقط یک سوالی یکی دیگه از دوستامون کدی را دادن که وقتی وارد کردم به مشکلی برخورد که توضیح دادم.شما میدونید مشکل از کجاس؟!

فرستاده شده از GT-I9300ِ من با Tapatalk

[mhmd.q]

با سلام
میتونید از فرمول زیر با توجه به محدوده ، به صورت آرایه ای استفاده کنید و نتیجه رو در یک سلول مشاهده کنید.

=IF(COUNTBLANK(A1:E10);"محدوده  شامل سلول خالی است!";"تکمیل") 

علاوه بر این کد زیر هم میتونه به شما پیامی بابت خالی بودن سل در یک محدوده بده.

[LEFT]

Sub BlackCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Range("a1:e10")
Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks)
If Err = 0 Then
MsgBox "ãÍÏæÏå ÔÇãá Óáæá ÎÇáíÓÊ!"
Else: MsgBox "ʘãíá "
End If
End Sub


[/LEFT]

دوست عزیز کد رو وارد کردم در شیتی که جدولم توش هست انجام که دادم داخل جدول هیج اتفاقی نیوفتاد.یعنی میخوام سلول های خالی داخل جدول با رنگی مشخص بشن.ممنون میشم راهنماییم کنید واقعا خیلی برام مهمه

فرستاده شده از GT-I9300ِ من با Tapatalk

[amir_ts]

دوست عزیز کد رو وارد کردم در شیتی که جدولم توش هست انجام که دادم داخل جدول هیج اتفاقی نیوفتاد.یعنی میخوام سلول های خالی داخل جدول با رنگی مشخص بشن.ممنون میشم راهنماییم کنید واقعا خیلی برام مهمه

فرستاده شده از GT-I9300ِ من با Tapatalk

کد و فرمول ارسالی بنده اعلام میکرد که سلول خالی هست. برای کار شما ساده ترین راه ابزار conditional formatting هست هر سلولی خالی بود قرمز نشون بده در صورتی که پر شد به رنگ عادی.
فایل رو ببینید.

[mhmd.q]

کد و فرمول ارسالی بنده اعلام میکرد که سلول خالی هست. برای کار شما ساده ترین راه ابزار conditional formatting هست هر سلولی خالی بود قرمز نشون بده در صورتی که پر شد به رنگ عادی.
فایل رو ببینید.

خیلی ممنون دوست عزیز
واقعا وقتتونو گرفتم.فقط میتونم یه سوال دیگه بپرسم؟!

فرستاده شده از GT-I9300ِ من با Tapatalk

[Amir Ghasemiyan]

سلام دوست عزیز
مثلا اگر سلول رو رنگی کنه براتون خوبه؟ یا میخواین با زدن یک دکمه بره بگرده اگه سلولی خالی بود بهتون پیغام بده؟