السلام عليكم ورحمة الله وبركاتة
اساتزة وخبراء هذا المنتدي الجميل بارك الله في علمكم ونفعكم به
اريد دمج كودين
Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range)
Set Rng = Range("A1,B1,C:C,D:D")
If Not Intersect(Tr, Rng) Is Nothing Then
Tr.Offset(0, 1).Select
Set Rng = Nothing
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal X As Range)
Application.ScreenUpdating = False 'åÐÇ ÇáÓÊÑ áÚÏã ÇåÊÒÇÒ ÇáÔÇÔÉ'
ActiveWindow.Zoom = 50 ' áÅÚØÇÁ Òææã ÈÞíãÉ ãÚíäÉ áäÇÝÐÉ æÑÞÉ ÇáÚãá ÇáÍÇáíÉ
ActiveSheet.Cells.Interior.ColorIndex = 0 ' åÐÇ ÇáÓÑ ÎÇÕ ÈãÓÍ Çááæä '
ActiveSheet.Cells.Font.Bold = False
X.Cells.Font.ColorIndex = 1 'åÐÇ ÇáÓÊÑ ÎÇÕ Èáæä ÇáäÕ ÏÇÎá ÇáÎáíå
X.Cells.Font.Bold = True
X.Cells.Interior.ColorIndex = 19 'åÐÇ ÇáÓÊÑ ÎÇÕ ÈÊÛíÑ Çááæä
[g8] = Application.WorksheetFunction.Sum(Range("g9:g11")) 'åÐÇ ÇáÓÊÑ ÎÇÕ ÈÌãÚ ÚãæÏ ãÚíä'
Application.ScreenUpdating = True ' åÐÇ ÇáÓÊÑ áÚÏã ÇåÊÒÇÒ ÇáÔÇÔÉ '
End Sub
مرفق دمج كودين.xls
جزاكم الله خيراً