Em đang làm một bảng tính bằng excel bây giờ em muốn viết bằng VBA?

[khoavu87]

em đang làm thử một bảng tính kết cấu mặt đường và em đã làm đc bằng ex rùi.bây giờ e muốn làm nó bàng VBA thì làm sao ạ?em gửi file kèm theo.MỌI người giúp em với nhé.cảm ơn Mọi người

 

[ndu96081631]

em đang làm thử một bảng tính kết cấu mặt đường và em đã làm đc bằng ex rùi.bây giờ e muốn làm nó bàng VBA thì làm sao ạ?em gửi file kèm theo.MỌI người giúp em với nhé.cảm ơn Mọi người

Trong file bạn nói rằng:

Trên đây là bài toán mà em đang dùng bằng ex để tính vậy giờ em muốn dùng bằng VBA thì làm cách nào ạ?

Như thế thì VBA chẳng liên quan gì đến Excel chăng? Mà cụ thể bạn muốn tính cái gì đây? Thay những công thức trong file thành code VBA? Mấy công thức ấy đơn giản chứ có phức tạp gì đâu mà phải thay?

 

[khoavu87]

vâng vì em đang học sử dụng VBA trong ex mà anh nên em mới cần chỉ bảo từ mọi người ạ.mong anh giúp đỡ thay tất cả các dòng lệnh trên thành code vba.

 

[ChanhTQ@]

Vậy bạn muốn thứ nào trong các thứ sau:

(1) Hàm tự tạo tính từng dòng, theo kiểu =TinhHeSo( LookUpValue As Range) As Double

(2) Hiện toàn bộ kết quả các dòng như trên & cuối có dòng tổng cộng.

Chờ ý kiến của bạn.

 

[sealand]

Anh Ndu nói đúng đấy. Cái gì mà công thức thông thường làm được thì không nên đưa vào VBA nữa vì tốc độ tính toán, mức độ chính xác, khả năng phát sinh lỗi của nó sẽ là tốt hơn. Ta chỉ cần đến VBA những cái khi thao tác bình thường không hiệu quả bằng VBA thôi.
Trong chiến đấu, lúc khó khăn có viện binh thật quý nhưng lúc bình thường thì phải nuôi viện binh và coi chừng nó sinh sự nữa đấy. Vậy phải biết lựa chọn khi nào thì cần gọi viện binh và mwcs độ nào thôi.

 

[khoavu87]

em muốn hiện kiểu 2 của anh chanhTQ nhờ anh giúp đỡ.

 

[ChanhTQ@]

Hàm mảng tự tạo của bạn đây, xin mời

Option Explicit:           Option Base 1
Function KQMang(LookUpRange As Range)
 Dim Rw As Long, Clls As Range, Dem As Integer
 
 Rw = LookUpRange.Rows.Count:          ReDim MDL(Rw + 1, 1) As Double
 For Each Clls In LookUpRange.Cells(0).Resize(Rw)
   Dem = Dem + 1
   If Clls.Value >= 25 Then
      With Clls.Offset(, 4)
         MDL(Dem, 1) = (Clls.Value / 100) ^ (4.4) * .Value * .Offset(, 1) * .Offset(, 2)
         MDL(Rw + 1, 1) = MDL(Rw + 1, 1) + MDL(Dem, 1)
      End With
   Else
   End If
 Next Clls
 KQMang = MDL
End Function

Hướng dẫn sử dụng trước khi dùng:
(*) Chép hàm vô module 1
(*) Dùng chuột chọn các ô 'K9..K21' & bấm lên thanh công thức cú pháp như sau:

=KQMang(E9:J20)​

(*) Kết thúc bằng tổ hợp 3 phím của hàm mảng.

Chúc thành công.

 

[tuananhcd04]

Chán bạn khoavu quá!Bạn nên tìm hiểu kỹ đề tài khi post bài. Mấy bài toán cỏn con này mà cũng yêu cầu giúp đỡ!!!Dân cầu đường ah?Bạn phải chịu khó tìm hiểu chứ.Bạn Ndu và Sealand nói đúng đấy.
Sao không đưa nguyên tiêu chuẩn AĐM 22TCN 211-06 lên cho mấy anh đọc rồi làm luôn. Vậy bạn học chuyên môn làm gì nữa?Bạn phải biết mình muốn tính cái gì chứ. VBA chỉ hỗ trợ thôi.Đâu phải cái j cũng dùngVBA.Công nhận a ChanhTQ nhiệt tình ghê, thành viên tích cực có khác.Ai cũng nhiệt tình như ChanhTQ thì hay quá. Lần sau nếu anh ChanhTQ còn gặp những bài như vậy thì khỏi trả lời đi anh. A Chanh TQ thì phải làm " việc lớn". Những bài như vậy mất thời gian lắm.
Bạn KhoaVu muốn tìm hiểu VBA là tốt, nhưng bạn nên đọc những bài trong diễn đàn trước, nhiều bài hay lắm, đừng post "lung tung" vậy.
Góp ý vậy. Hy vọng không làm ai buồn
http://www.giaiphapexcel.com/forum/member.php?u=55937

 

[haituan]

Re:

Khoavu87: Nếu bạn học dân cầu đường thì bạn thử tham khảo bản file tính đồ án tốt nghiệp này thử xem nhé.
http://www.4shared.com/file/128711839/766f39fb/Dnv-RP-F105.html

Bonne chance!


-----------------------------------------------------------------------------------------
Une belle journée....Il n'y a que le premier pas qui coute!

 

[khoavu87]

tất nhiên là em cũng đã tìm hiểu,bước đầu học mà m\nên mới cần các bác trợ giúp chứ.vì học em còn chuyên môn của mình nữa nên có phải lúc nào cũng ngồi học đc hết đâu?bác tuấn anh cd 04 nhỉ.hihii.mong bác nhiệt tình hơn nữa.đối với bác nó là dễ nhưng đối với nhiều ng nó là khó

 

[khoavu87]

hãy xóa luôn bài nay cho em nhé.để đỡ dung lượng