Ðề: Hình như bạn xem nhầm macro rồi;
Macro sự kiện của mình nằm trong trang tính cơ mà;
& Đảm bảo với bạn là không thể chậm hơn macro của bạn hưởng thụ của ai đó đem lại;
/(/ó đây nè:
Mã nguồn PHP:
[COLOR=#000000]
Option Explicit
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range
Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
Dim MyAdd [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [[/COLOR][COLOR=#0000BB]F2[/COLOR][COLOR=#007700]]) [/COLOR][COLOR=#0000BB]Is Nothing Then
Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"SoKTMay"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]H65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row
Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"8:245"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False
[/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B9[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]236[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]ClearContents
Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"I2: J" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then
MyAdd [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address
[/COLOR][COLOR=#007700]Do
[/COLOR][COLOR=#0000BB]With [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B244[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"D"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"C"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"H"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]9 Then Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= -[/COLOR][COLOR=#0000BB]1
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]9 Then Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]5 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"L"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]FindNext[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End With
Loop [/COLOR][COLOR=#007700]While [/COLOR][COLOR=#0000BB]Not sRng Is Nothing [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]MyAdd
End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]b8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]2
Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"245:" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True
End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End Sub
[/COLOR]
(*) Vậy bạn muốn tính tổng ở đâu thì lập sẵn công thức ở đó thôi;
(Hoặc trên dòng 8 hay nằm trên dòng cuối hay dòng dưới nó luôn hiện lên đó!)
:tanghoa:
Công Ty TNHH MPĐ Hưng Thịnh là địa chỉ tin cậy cho mua, bán, và cho thuê máy phát điện nhập khẩu từ Nhật Bản và các nước Châu Âu. Hãy để chúng tôi giúp bạn duy trì và nâng cao hiệu suất của máy phát...
Hưng Thịnh Power: Dịch Vụ Mua Bán và Cho Thuê Máy Phát Điện Công Nghiệp