Chuyên đề giải đáp những thắc mắc về code VBA

[maytinhvp01]

Mình muốn nhờ giải thich câu lệnh " If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c) "
trong ví du:
Public Function LonNhat(Ran As Range)
Dim max As Double, v As Integer, d As Integer, c As Integer
max = Ran.Cells(1, 1)
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c)
Next c
Next d
v = Tim(max, Ran)
LonNhat = max
End Function
-------------------------------------------------------
[INFO1]Thông báo:
Vì topic này:
http://www.giaiphapexcel.com/forum/...ải-thích-các-code-đề-nghị-các-bạn-gửi-vào-đây
đã quá dài nên BQT đóng lại.
Nay tôi mở topic mới với cùng chủ đề: GIẢI THÍCH NHỮNG THẮC MẮC VỀ CODE
Các bạn nếu có nhu cầu giải thích code, vui lòng post tại đây nhé
NDU96081631
[/INFO1]

 

[neyugngnort]

Ai chỉ mình dòng code để thay đổi chiều cao tất cả các dòng thuộc vùng đã select với
Ví dụ chiều cao mỗi dòng tăng lên 2 đơn vị

 

[leonguyenz]

Ai chỉ mình dòng code để thay đổi chiều cao tất cả các dòng thuộc vùng đã select với
Ví dụ chiều cao mỗi dòng tăng lên 2 đơn vị

Lệnh sau:

Selection.RowHeight = Selection.RowHeight + 2

 

[neyugngnort]

Lệnh sau:

Selection.RowHeight = Selection.RowHeight + 2

Nếu seclect 2 dòng có chiều cao khác nhau, thì lệnh k có tác dụng gì

 

[leonguyenz]

Nếu seclect 2 dòng có chiều cao khác nhau, thì lệnh k có tác dụng gì

Select nhiều dòng thì nó lấy chiều cao dòng trên cùng làm chuẩn, sao lại không có tác dụng gì?

 

[snow25]

Nếu seclect 2 dòng có chiều cao khác nhau, thì lệnh k có tác dụng gì

Vậy duyệt từng dòng mà tăng lên.

 

[Quang_Hải]

Select nhiều dòng thì nó lấy chiều cao dòng trên cùng làm chuẩn, sao lại không có tác dụng gì?

Vầy mới được Thảo ơi

Selection.RowHeight = Cells(Selection.Row, 1).RowHeight + 2

Theo kinh nghiệm thì khi mình chọn 2 dòng không cùng độ cao thì code nó ngu ngu sao ấy

 

[neyugngnort]

Vậy duyệt từng dòng mà tăng lên.

Cảm ơn bác ! chắc phải dùng vòng for chạy từng dòng. Em nghĩ thế dc không. e là tay supper chip nên có gì mấy bác chỉ giáo

 

[iamnobika]

Dùng công thức Excel

Có phải do dùng hàm "thanglv" trong module em làm ra xử lý lệnh qua nhiều dòng quá nó làm chậm file đi phải không ạ?

 

[duonghychi]

Sub tinhtong()
Dim total, soluong, i As Long, x As Long, y As Long, a As Long
soluong = Sheet6.Range("f7:bz604").Value
For i = 1 To 1000
    For x = 1 To 100
    y = y + soluong(i, x).Value
    Next x
    total(a, 1) = y
Next i
Sheet6.Range("e7:e1000").Value = total(y, 1)

End Sub

Các bác xem giúp em các tính tổng trong 1 mảng với ạ, em làm mãi vẫn chưa được.

 

[snow25]

Sub tinhtong()
Dim total, soluong, i As Long, x As Long, y As Long, a As Long
soluong = Sheet6.Range("f7:bz604").Value
For i = 1 To 1000
    For x = 1 To 100
    y = y + soluong(i, x).Value
    Next x
    total(a, 1) = y
Next i
Sheet6.Range("e7:e1000").Value = total(y, 1)

End Sub

Các bác xem giúp em các tính tổng trong 1 mảng với ạ, em làm mãi vẫn chưa được.

Cái total của bạn là mảng hả.Mà biến a của bạn là gì.

 

[HieuCD]

Có phải do dùng hàm "thanglv" trong module em làm ra xử lý lệnh qua nhiều dòng quá nó làm chậm file đi phải không ạ?

File gốc chậm do 2 nguyên nhân:
- Hàm tự tạo bằng VBA thường chạy chậm hơn hàm của Excel
- Hàm "thanglv" sử dụng cho nhiều Ô, khi có sự thay đổi của file sẽ tính lại giá trị của hàm, nên chạy rất nhiều lần làm chậm file, dùng Ô B1 lưu trữ giá trị nên chỉ chạy 1 lần.

 

[duonghychi]

Cái total của bạn là mảng hả.Mà biến a của bạn là gì.

biến a là các gia trị trong mảng total, không biết em làm thế có đúng các không ạ?

 

[Ba Tê]

biến a là các gia trị trong mảng total, không biết em làm thế có đúng các không ạ?

Bạn đưa file lên và giải thích bạn muốn kết quả là gì mọi người mới hiểu được.
Code bạn viết chỉ bạn hiểu mục đích thôi.

 

[snow25]

biến a là các gia trị trong mảng total, không biết em làm thế có đúng các không ạ?

A nó luôn bằng 0 mà.Bạn phải tăng nó lên chứ ví dụ.a=a+1.Mà cái gán mảng bạn cũng lỗi.

 

[ThangCuAnh]

Tối kỵ trong lập trình là dùng biến mà chưa khởi tạo trị mặc định ban đầu cho nó. Ông VBA này lanh chanh quá, làm người code dễ dãi, có thói quen xấu theo.
Tui đọc mấy cái code mà thiếu option explicit và thiếu khởi tạo biến thì rất khó chịu, xóa liền.

 

[duonghychi]

Xin các bác viết code giúp em ạ,

 

[Ba Tê]

Xin các bác viết code giúp em ạ,

"Quăng" file lên cũng phải giải thích làm cái gì, trên cột nào... chứ thế này thì chắc phải hỏi anh Google xem code bạn viết là muốn làm cái gì.
Nếu anh Google trả lời được chắc sẽ có người giúp bạn.

 

[duonghychi]

"Quăng" file lên cũng phải giải thích làm cái gì, trên cột nào... chứ thế này thì chắc phải hỏi anh Google xem code bạn viết là muốn làm cái gì.
Nếu anh Google trả lời được chắc sẽ có người giúp bạn.

Dạ, em muốn tính tổng cho các dòng từ vùng "f7:bz604" kết quả, hiện thị tại "e7:e604, mong bác giúp em các viết code cho mảng ạ. Em cảm ơn!

 

[Ba Tê]

Dạ, em muốn tính tổng cho các dòng từ vùng "f7:bz604" kết quả, hiện thị tại "e7:e604, mong bác giúp em các viết code cho mảng ạ. Em cảm ơn!

Dùng tạm cái này xem.

Option Explicit

Public Sub sGpe()
Dim sArr(), dArr(), I As Long, J As Long, R As Long, Col As Long
With Sheets("TINH NVL")
    Col = .Range("XFD5").End(xlToLeft).Column - 5
    R = .Range("C100000").End(xlUp).Row - 6
    sArr = .Range("F7").Resize(R, Col).Value
    R = UBound(sArr)
    ReDim dArr(1 To R, 1 To 1)
    For I = 1 To R
        For J = 1 To Col
            dArr(I, 1) = dArr(I, 1) + sArr(I, J)
        Next J
    Next I
    .Range("E7").Resize(R) = dArr
End With
End Sub

 

[duonghychi]

Dùng tạm cái này xem.

em cảm ơn ạ