hanykassem قام بنشر سبتمبر 11 مشاركة قام بنشر سبتمبر 11 السلام عليكم ورحمه الله وبركاته وبها نبدأ vba الي كود COUNTIF تحويل =COUNTIF(G$3:G3,G3) TEST COUNTIF.xlsx رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 13 مشاركة قام بنشر سبتمبر 13 وعليكم السلام ورحمة الله وبركاته الكود Sub CountIfToColumnH() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Set ws = ThisWorkbook.Sheets("Sheet1") lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row For i = 2 To lastRow ws.Cells(i, "H").Value = Application.WorksheetFunction.CountIf(ws.Range("G$2:G" & i), ws.Cells(i, "G").Value) Next i End Sub الملف TEST COUNTIF.xlsb 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر سبتمبر 13 مشاركة قام بنشر سبتمبر 13 وعليكم السلام ورحمة الله تعالى وبركاته يمكنك استخدام كدالك Sub addFormula() Dim lr& With ThisWorkbook.Sheets("Sheet1") lr = .Cells(.Rows.Count, "G").End(xlUp).Row .Range("H2:H" & lr).Formula2 = "=COUNTIF(G$2:G" & lr & ", G2)" End With End Sub ولتنفيده عند التغيير تلقائيا مع اظافة المعادلة الموجودة في عمود G يمكنك وضع الكود التالي في حدث Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim lr As Long lr = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row 'column (G) With Me.Range("G2:G" & lr) .Formula2 = "=TEXTJOIN(""-"", TRUE, A2, C2)" .Value = .Value End With 'column (H) With Me.Range("H2:H" & lr) .Formula2 = "=COUNTIF(G$2:G" & lr & ", G2)" .Value = .Value End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub 1 رابط هذا التعليق شارك More sharing options...
FranklinWrights قام بنشر الإثنين at 16:31 مشاركة قام بنشر الإثنين at 16:31 (معدل) On 9/13/2024 at 11:16 AM, محمد هشام. said: وعليكم السلام ورحمة الله تعالى وبركاته يمكنك استخدام كدالك Sub addFormula() Dim lr& With ThisWorkbook.Sheets("Sheet1") lr = .Cells(.Rows.Count, "G").End(xlUp).Row .Range("H2:H" & lr).Formula2 = "=COUNTIF(G$2:G" & lr & ", G2)" End With End Sub ولتنفيده عند التغيير تلقائيا مع اظافة المعادلة الموجودة في عمود G يمكنك وضع الكود التالي في حدث Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim lr As Long lr = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row 'column (G) With Me.Range("G2:G" & lr) .Formula2 = "=TEXTJOIN(""-"", TRUE, A2, C2)" .Value = .Value End With 'column (H) With Me.Range("H2:H" & lr) .Formula2 = "=COUNTIF(G$2:G" & lr & ", G2)" .Value = .Value End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub Nox Vidmate VLC شكرا تم تعديل الإثنين at 16:46 بواسطه FranklinWrights رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان