پاک کردن محتویات سلولهایی که فاقد فرمول هستند

[elam]

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

[amir_ts]

با سلام
شما تو هر شیت با زدن کلید Ctrl+G (برگه Go TO) و انتخاب گزینه Special و انتخاب Constanse از لیست میتونید تمام سل ها رو شناسایی و پاک کنید.(گزینه های دیگه رو هم میتونید انتخاب و پاک کنید.)

[iranweld]

با سلام

از ماکرو ذیل نیز میتوانید استفاده کنید


Sub test()

Dim cell As Range

For Each Sheet In Worksheets

Sheet.Select

For Each cell In ActiveSheet.UsedRange

If Not cell.HasFormula Then

cell = ""

End If

Next

Next Sheet

Sheet1.Select

End Sub

[elam]

با سلام
شما تو هر شیت با زدن کلید Ctrl+G (برگه Go TO) و انتخاب گزینه Special و انتخاب Constanse از لیست میتونید تمام سل ها رو شناسایی و پاک کنید.(گزینه های دیگه رو هم میتونید انتخاب و پاک کنید.)

ممنون از راه حلتون جالب بود اما چون من شیت های زیادی دارم زمانبر میشد. راهی را سراغ دارید که با این روش بشه همه شیت ها را با هم انجام داد؟

با سلام

از ماکرو ذیل نیز میتوانید استفاده کنید


Sub test()

Dim cell As Range

For Each Sheet In Worksheets

Sheet.Select

For Each cell In ActiveSheet.UsedRange

If Not cell.HasFormula Then

cell = ""

End If

Next

Next Sheet

Sheet1.Select

End Sub



خیلی ممنون واقعا عالی و کار راه انداز بود

[aabbasi4790]

با سلام

از ماکرو ذیل نیز میتوانید استفاده کنید


Sub test()

Dim cell As Range

For Each Sheet In Worksheets

Sheet.Select

For Each cell In ActiveSheet.UsedRange

If Not cell.HasFormula Then

cell = ""

End If

Next

Next Sheet

Sheet1.Select

End Sub



آیا میشه کد رو تغییر داد تا فقط اعداد پاک بشه و متنها پاک نشه ?

[iranweld]

آیا میشه کد رو تغییر داد تا فقط اعداد پاک بشه و متنها پاک نشه ?

با سلام

از کد های ذیل استفاده کنید


Sub test()

Dim cell As Range

For Each Sheet In Worksheets

Sheet.Select

For Each cell In ActiveSheet.UsedRange

If IsNumeric(cell) Then

cell = ""

End If

Next

Next Sheet

Sheet1.Select

End Sub