با سلام به گروه در يك شيت ميتوان از تكرار نوشته جلوگيري داد ايا ميتوان كاري كرد كه در چند شيت اين دستور را داد تا اگر در شيت 1 نوشته اي داريم نتوام در شيت هاي ديگر تكرار كرد؟؟ اگر ميتوان فرمول ان چيست
-
-
سلام
بر روی مثلا sheet 2 کلیک راست کرده و viewCode را انتخاب و در کادر باز شده کد ذیل رو کپی کنید
از این به بعد با هر تغییری در Sheet 2 این کد اجرا شده و تمام sheet ها را جست و جو کرده و در صورت وجود یافتن مقداری همانند مقدار وارد شده پیغام "مقدار وارد شده تکراری است" را نشان میدهد.کد PHP:Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldVal, newVal As String
Dim i As Integer
Dim j As Double
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
j = 0
For i = 1 To Sheets.Count Step 1
j = j + Application.WorksheetFunction.CountIf(Sheets(i).Range("1:1048576"), newVal)
Next
If j > 0 Then
MsgBox ("مقدار وارد شده تکراری است")
Target.Value = oldVal
Else
Target.Value = newVal
End If
Application.EnableEvents = True
End Sub
[CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
[COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
[/CENTER] -
چطوری میشه این کد ها رو ذخیره کرد که بعد از بسته شدن فایل اکسل هم ادامه کار بتونیم انجام بدیم؟؟کامنت
-
کامنت
کامنت