Giúp e: Tự động copy công thức xuống dòng (1 người xem)
- Thread starter nad582
- Ngày gửi
Người dùng đang xem chủ đề này
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
99.9999% là hổng ai hiểu bạn muốn gì.
Tiêu đề của 2 sheet chẳng thấy "ăn nhậu" gì với nhau, copy cái gì vào cái gì?
Mình phải giải thích sao cho người khác hiểu chứ không phải biểu người khác hiểu cái mình giải thích đâu, vì có khi mình giải thích chỉ có mình hiểu thôi.
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Bạn nói là "ở sheets "tinhtoan" e có tiết diện b, h và chiều dài L", nó ở đâu? Cột nào?
Bạn muốn nói đến cột F, G?
Vì không phải chuyên ngành của bạn nên khi đọc mà bạn không nói rõ cột nào với cột nào sẽ rất khó hiểu để mà giúp tiếp.
Lần chỉnh sửa cuối:
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Mình làm tiếp code của thầy Ba Tê đã làm cho bạn và theo cách hiểu của người...trên mây (hic, đọc mà vẫn còn lơ mơ với cái đề bài...), ra kết quả thế này. Bạn xem đã đúng ý chưa nhé. Không đúng...thì chắc là sai...hihi.
Bạn xem file:
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Cột L tiêu đề là "G", cột I tiêu đề là L(m), vậy là lấy dữ liệu cho cột L hay cột I?
Mình lại cứ hiểu là cột F, G, và I. (cột I có L(m)), hic hic.
Vì như ở trên khi bạn nói đến cột F và cột G bạn nói tới tiêu đề mà. chứ đâu có nói cột nào đâu. Đấy là mình tự hiểu
b(cm)
h(cm)
mình hiểu là cột F và G.
Loạn mất rồi.
Một là nói tiêu đề cột thì nói tất cả là tiêu đề cột, hai là nói cột thì chỉ cần nói cột A, B hay C.....thôi thì mới hiểu thống nhất và làm được dễ dàng hơn.
Giờ là cột F, G và L. Cột F tiêu đề là b (cm), cột G tiêu đề là: h(cm), và cột L tiêu đề là g??? hay là muốn cột I tiêu đề là L(m)????
Không muốn thấy công thức mà muốn bấm nút chạy 1 phát...
Lần chỉnh sửa cuối:
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
File mình gửi cho bạn, bạn có xem kỹ tiêu đề cột không? Bạn xem kỹ file của mình đã đúng ý chưa đã nhé, xem kỹ lại các cột, nếu đã đúng ý kiểu như thế thì mình làm tiếp cho bạn. Ok nhé. Giờ phải zìa nhà đã, hết giờ làm rồi, tối tiếp chiêu cho bạn sau nhé.
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Bạn chưa xem kỹ file của mình đúng không? Vì các cột F,G, I đã được lấy sang bằng code. Khi nãy bạn nói cột L, mới phải hỏi lại bạn. Dòng 6 là công thức bạn muốn có. Nếu muốn thay đổi công thức thì vào dòng 6 mà thay đổi.
Tất cả các dòng từ 8 trở xuống sẽ tính toán giống như dòng 6.
Lần chỉnh sửa cuối:
Upvote
0
nad582
Thành viên thường trực
- Tham gia
- 7/6/11
- Bài viết
- 317
- Được thích
- 48
cơ bản là đúng ý em rồi, nhưng ở cột F,G, I thì không cần công thức mà thay vào đó là đoạn code bổ sung vào code đã có sẵn...còn cột L ko quan tâm nữa..bạn có hiểu ý mình hok!!! ráng giúp giùm y...
Upvote
0
Bạn quan tâm công thức hay không công thức làm gì,
Đúng giá trị mình cần tìm là được, kết quả đúng là OKIE;
mà sao tất cả có thể làm công thức thường được , tại sao phải là VBA???
vì dữ liệu cũng có mấy chục dòng đâu có nhiều gì chăng đâu?
Upvote
0
Bài trên XN đã giúp bạn còn gì? đã chuyển thành VALUE hết, chỉ để công thức ở dòng thứ 6 mà thôi?
Vậy bạn muốn gì hơn?
Upvote
0
nad582
Thành viên thường trực
- Tham gia
- 7/6/11
- Bài viết
- 317
- Được thích
- 48
bài trên bác XN chỉ giúp em thêm công thức vào dòng 6 thôi, cái đó em cũng biết nhưng vấn đề là giờ e muốn ở cột F,G, I thì không cần công thức mà thay vào đó là đoạn code bổ sung vào code đã có sẵn...bác giúp giùm e..
Upvote
0
không chỉ thêm công thức cho dòng 6 đâu, mà:
code cũ có sẵn thì các cột J K M N L cũng là công thức copy xuống đó thôi - giờ XN đã bổ sung vào code cũ để tính toán cho các cột F G H I
quan trọng bạn cần gì hơn? chứ tất cả F G H I chuyển thành giá trị (VALUE) giống code cũ đó (chỉ riêng dòng 6 là công thức)
Nên bạn phải nói cái bạn cần ra
Upvote
0
bạn không giải thích: bạn cần gì hơn code XN đã làm??? lại post file như thế lên làm chi nữa
hay bạn KHÔNG muốn sử dụng công thức - dù 1 dòng?
Upvote
0
F G I sao không giống như các cột J K ... được? lạ thật?
thử file sau đúng ý chưa??? sửa code XN Bate chút chút thui
còn nếu muốn thuần không công thức thì có thể làm lun cả các cột J K ... khỏi công thức lun
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Hơ bạn này đọc không kỹ bài của mình. Mình đã nói là mình làm tiếp code của thầy Ba Tê, trên code của thầy Ba Tê đã làm cho bạn phía trên và làm thêm cho bạn theo ý bạn muốn và dùng VBA cho bạn để value các giá trị trong các cột, trừ dòng 6.
Và bạn vodoi2x đã xem code và hiểu mình viết gì và có nói lại với bạn rồi.
Vẫn chưa được hả? Có thể bạn muốn gì mà mình chưa hiểu. Mà bạn xem bài của bạn vodoi2x xem đã đúng ý chưa? Không tất cả mọi người làm giúp bạn, cuối cùng bạn vẫn nói: Chưa đúng ý thì...
Lần chỉnh sửa cuối:
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Hình như bạn muốn kết quả như thế này đúng không?
Làm kiểu kia bạn hổng hiểu nên làm kiểu "củ chuối" này xem sao. Có khi bạn sẽ dễ hiểu hơn á.
Làm kiểu kia bạn hổng hiểu nên làm kiểu "củ chuối" này xem sao. Có khi bạn sẽ dễ hiểu hơn á.
Upvote
0
nếu thế thì nên là thế này cho đơn giản, khỏi vòng lặp, array areo
(code vẫn dựa chính theo XN, Bate nhé)
[GPECODE=vb]
Public Sub MaOi()
Application.ScreenUpdating = False
Dim rnG As Range, n As Long
With Sheets("Frames")
Set rnG = Range(.[A2], .[A65000].End(xlUp))
End With
n = rnG.Rows.Count
Sheets("tinhtoan").[A8:N65000].ClearContents
With Sheets("tinhtoan").[A8].Resize(n)
.Resize(, 3).Value = rnG.Resize(, 3).Value
.Offset(, 3).Value = rnG.Offset(, 6).Value
.Offset(, 4).Value = rnG.Offset(, 10).Value
.Offset(, 5).Formula = "=VLOOKUP(RC[-5],GPE,4,0)"
.Offset(, 6).Formula = "=VLOOKUP(RC[-6],GPE,5,0)"
.Offset(, 7).Formula = "=RC[-1]/10"
.Offset(, 8).Formula = "=VLOOKUP(RC[-8],GPE,3,0)"
.Offset(, 9).Formula = "=RC[-3]-RC[-2]"
.Offset(, 10).Formula = "=ROUND(ABS(RC[-6])*10^3/(R3C5*RC[-5]*RC[-1]^2),3)"
.Offset(, 11).Formula = "=ROUND((1+SQRT(1-2*RC[-1]))/2,3)"
.Offset(, 12).Formula = "=IF(RC[-2]>R5C5,""Tang Thiet dien"",IF(RC[-8]>=0,ROUND(ABS(RC[-8])*10^3/(RC[-1]*R2C4*RC[-3]),2),""(-)""&ROUND(ABS(RC[-8])*10^3/(RC[-1]*R2C4*RC[-3]),2)))"
.Offset(, 13).Formula = "=ROUND(IF(RC[-9]>=0,RC[-1]*100/(RC[-8]*RC[-4]),RIGHT(RC[-1],LEN(RC[-1])-3)*100/(RC[-8]*RC[-4])),2)"
.Offset(, 5).Resize(, 2).Value = .Offset(, 5).Resize(, 2).Value
.Offset(, 8).Value = .Offset(, 8).Value
End With
Application.ScreenUpdating = True
End Sub
[/GPECODE]
Lần chỉnh sửa cuối:
Upvote
0
nad582
Thành viên thường trực
- Tham gia
- 7/6/11
- Bài viết
- 317
- Được thích
- 48
Thì ra đây là kiểu củ chuối...bác XN và Bác vodoi2x làm đúng ý em rồi...e cảm ơn 2 bác nhiều..và các bác trong GPE...chúc nhiều sức khỏe...
Vậy e nhờ các bác giúp e lun phần lọc lun nhe: cũng file đó e mún lọc giá trị ở cột E là Mmax Min1 Mmin2 tương ứng với tên ở cột A...e có kèm file theo ạ..
Upvote
0
Số phần tử của bạn tối đa là bao nhiêu phần tử, số cấu kiện trong GPE tối đa là bao nhiêu
Nếu trên 5000 dòng trở lên thì code củ chuối đó sẽ chậm là chắc,
Upvote
0
xuan.nguyen82
Thành viên tích cực
- Tham gia
- 29/9/10
- Bài viết
- 1,548
- Được thích
- 8,043
- Giới tính
- Nữ
- Nghề nghiệp
- Human Resource Director
Với lại là đề bài ra từ đầu của bạn ấy chưa tổng quát, nghĩa là làm đến đâu bạn ấy mới nhớ ra việc tiếp theo, vì vậy người viết code cũng khó có cái nhìn tổng quát ngay từ đầu được. Đành viết củ chuối ăn tạm ...hihi.
Upvote
0
vậy cách tim Max thì chắc là Max lớn nhất của M, nhưng Min1 Min2 là sao?
Một lần nữa bạn lại không giải thích rõ ràng: cần giải thích rõ ràng Max, Min1, Min2 tìm thế nào,
Đừng ỉ lại người khác hiểu thay cho mình
Upvote
0
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Lấy file bài trên của XN làm tiếp cho bạn thêm 1 Sub Tia_Oi cho đủ cặp (Của XN là MaOi rồi)
Phải bấm nút "Má Ơi!" trước mới bấm nút "Tía Ơi!" sau.
Má chưa chạy thì Tía hổng biết đường chạy... Ổng chạy tấm bậy "gáng chịu".
PHP:
Public Sub Tia_Oi()
Application.ScreenUpdating = False
Dim Sarr(), Darr(), I As Long, J As Long, K As Long
Range("A8:N" & [A65000].End(xlUp).Row).Copy [Q8]
Range("Q8:AD" & [Q65000].End(xlUp).Row).Sort Key1:=Range("Q8"), Order1:=xlAscending, Key2:=Range("U8") _
, Order2:=xlDescending, Header:=xlNo
Sarr = Range("Q8:AD" & [Q65000].End(xlUp).Row + 1).Value
ReDim Darr(1 To UBound(Sarr, 1), 1 To UBound(Sarr, 2))
K = 1
For J = 1 To UBound(Sarr, 2)
Darr(K, J) = Sarr(1, J)
Next J
For I = 2 To UBound(Sarr, 1) - 1
If Sarr(I, 1) <> Sarr(I + 1, 1) Then
For J = 1 To UBound(Sarr, 2)
Darr(K + 1, J) = Sarr(I - 1, J)
Darr(K + 2, J) = Sarr(I, J)
Darr(K + 3, J) = Sarr(I + 1, J)
Next J
K = K + 3
End If
Next I
[Q8:AD65000].ClearContents
[Q8].Resize(K, UBound(Sarr, 2)).Value = Darr
Application.ScreenUpdating = True
End Sub
Upvote
0
