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

**mhmd.q** · 2016/08/08, 10:45

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

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

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

**iranweld** · 2016/08/08, 10:46

با سلام

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

کد PHP:


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

فایل های پیوست شده

Book11.xls (35.0 کیلو بایت, مشاهدات 17)

**mhmd.q** · 2016/08/08, 10:50

نوشته اصلی توسط iranweld

با سلام

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

کد PHP:


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** · 2016/08/08, 11:05

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

**mhmd.q** · 2016/08/08, 11:09

نوشته اصلی توسط iranweld

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

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

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

**amir_ts** · 2016/08/08, 11:49

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

کد PHP:


=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]

فایل های پیوست شده

test_03.rar (16.4 کیلو بایت, مشاهدات 20)

**mhmd.q** · 2016/08/08, 11:54

نوشته اصلی توسط iranweld

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

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

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

**mhmd.q** · 2016/08/08, 11:58

نوشته اصلی توسط amir_ts

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

کد PHP:


=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** · 2016/08/08, 12:03

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

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

کد PHP:


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

**mhmd.q** · 2016/08/08, 12:07

نوشته اصلی توسط amir_ts

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

کد PHP:


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

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

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

**mhmd.q** · 2016/08/08, 12:19

نوشته اصلی توسط amir_ts

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

کد PHP:


=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** · 2016/08/08, 12:52

نوشته اصلی توسط mhmd.q

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

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

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

فایل های پیوست شده

Book_05.xlsx (11.4 کیلو بایت, مشاهدات 10)

**mhmd.q** · 2016/08/08, 12:55

نوشته اصلی توسط amir_ts

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

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

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