Hỏi cách sum giống như kiểu Alt + (1 người xem)

[ke_co_don]

Em đang làm 1 file VBA muốn tính sum theo kiểu Alt +, Khi sử dụng record Macro thì máy chỉ tự động định dạng theo các ô mình đã phủ!

Thêm nữa, có kiểu là khi mở file Excel, máy sẽ tự động chạy đến 1 sheet, thay vì chạy đến sheet trước khi save. Làm thế nào để được như thế nhỉ. Mong mọi người giúp đỡ!

 

[PhanTuHuong]

Bạn thử tham khảo hàm này xem sao, có thể 1 số đoạn code bạn không cần dùng đến:

Function Trungbinh(Arr As Range) As Single
   Dim Tong As Single
   Dim i As Integer
     i = 0
     Tong = 0
   For Each Cell In Arr
       If Cell.Value > 0 Then
          Tong = Tong + Cell.Value
          i = i + 1
       Else
          i = i
       End If
   Next Cell
       Trungbinh = Tong / i
End Function

 

[ThichExcel]

Gửi kẻ cô đơn (Trong diễn đàn này bạn không cô đơn đâu)

Private Sub Workbook_Open()
Application.Worksheets("sheet mà bạn muốn đến").Select
End Sub

 

[PhanTuHuong]

Còn nếu bạn muốn tự động chuyển đến sheet nào đó khi mở máy thì hãy sử dụng 1 trong 2 Sub sau:

Sub Auto_Open()
    Sheets("Tên sheet cần chọn").Select
End Sub

Hoặc

Private Sub Workbook_Open()
    Sheets("Tên sheet cần chọn").Select
End Sub

 

[ke_co_don]

Sau một hồi tìm kiếm trên internet, tôi tìm thấy đoạn code này - được sử dụng như Alt + nghĩa là Autosum. Bản chất là Chương trình sẽ tự động nhấn nút Autosum (giống như nút xích ma) trên thanh công cụ. Thánk mọi người đã giúp đỡ. He he

Sub TestAutoSumXP()


Application.CommandBars.FindControl(ID:=226).Execute


Application.SendKeys "S{Enter}"


End Sub

 

[ke_co_don]

Cám ơn 2 đông chí Phantuhuong and thichexcel. Nhưng ... He he... tôi mới bập vào VBA nên ko hiểu là mình làm thế nào để có thực hiện đoạn code về tự động đến shéet khi mình mở file. Đã tự tạo 1 sub nhưng vấn đề là làm sao để sub chạy khi mình mở file. Hic.

 

[ke_co_don]

Ah. phải chép vào code module của this workbook! He he. Ngốc thật! , thnaks thanks all!! VUi quá là vui!