Chuyển hàm từ excel sang code VBA (1 người xem)

[themorzer]

Mình có File Excel đính kèm, tính công thức trên Excel, nhưng khi mình đổi qua VBA sử dụng hàm For Each
mong các bạn hỗ trợ và giúp chổ nào sai để mình chỉnh lai, mình làm bằng hàm Excel, nhưng khi áp dụng vào Code VBA thì k hoạt động

 

[befaint]

Mình có File Excel đính kèm, tính công thức trên Excel, nhưng khi mình đổi qua VBA sử dụng hàm For Each
mong các bạn hỗ trợ và giúp chổ nào sai để mình chỉnh lai, mình làm bằng hàm Excel, nhưng khi áp dụng vào Code VBA thì k hoạt động

Bạn cần kết quả cuối cùng là gì?
Trường hợp có nhiều kết quả (1AE-82155-00) thì lấy cột nào?

 

[Hoang2013]

Lời khuyên này có thể làm bạn fật lòng:

Khi mới vô "nghề" ta nên tường minh;

Mình nhồm zô macro của bạn đã thấy choáng rồi & xin lỗi, hết muốn làm gì đó cho bạn vui luôn!

 

[Ba Tê]

Mình có File Excel đính kèm, tính công thức trên Excel, nhưng khi mình đổi qua VBA sử dụng hàm For Each
mong các bạn hỗ trợ và giúp chổ nào sai để mình chỉnh lai, mình làm bằng hàm Excel, nhưng khi áp dụng vào Code VBA thì k hoạt động

Làm "thí thí" theo cách hiểu "thí thí".
Bạn thay đổi ô K2 nhé.

 

[themorzer]

Lời khuyên này có thể làm bạn fật lòng:

Khi mới vô "nghề" ta nên tường minh;

Mình nhồm zô macro của bạn đã thấy choáng rồi & xin lỗi, hết muốn làm gì đó cho bạn vui luôn!

Mình đã làm bằng Hàm trên excel. Vấn đề 1 là sử dụng Index và Match để xác định ô trong dữ liệu cột nào có số thì in ra số đó,
Vấn đề 2 là chổ nào có số thì in tiêu đề ra, giống ma trận,
ví dụ: ta gõ vào ô K2 "1AE-82155-00" thì cột nào khác không thì hiển thị,
Vấn đề 2, nếu cột nào khac 0 thì in tiêu đề cột đó ra

 

[befaint]

Mình có File Excel đính kèm, tính công thức trên Excel, nhưng khi mình đổi qua VBA sử dụng hàm For Each
mong các bạn hỗ trợ và giúp chổ nào sai để mình chỉnh lai, mình làm bằng hàm Excel, nhưng khi áp dụng vào Code VBA thì k hoạt động

Xem file ở bài #15.
Hết...

 

[themorzer]

Bạn cần kết quả cuối cùng là gì?
Trường hợp có nhiều kết quả (1AE-82155-00) thì lấy cột nào?

dữ liệu của mình ở cột có chứa 1AE-82155-00 thì k có dũ liệu trùng,
khi nhập 1AE-82155-00 vào ô K2 thì cột nào có thì in ra, sau khi in ra thì in luôn tiêu đề có chứa của cột đó (vấn đề 2)
cả 2 vấn đề mình đã viết hàm chạy trên excel, cá bạn chỉ cần nhập 1 trong các giá trị của cột A vào ô K2 là các ô cở cột P nó sẽ ra kết quả
Mình muốn chạy VBA để ra kết quả này, trong macro mình sử dụng For Each để chạy

 

[themorzer]

Hết...

đúng như ý mình, nhưng chi ra 1 kết quả, cột nào có dũ liệu của dòng 1AE-82155-00 thì cho ra kết quả hết

 

[befaint]

đúng như ý mình, nhưng chi ra 1 kết quả, cột nào có dũ liệu của dòng 1AE-82155-00 thì cho ra kết quả hết

Bạn làm ví dụ minh họa rõ ràng, cụ thể rồi sẽ điều chỉnh theo yêu cầu...
Ví dụ cái kết quả cuối cùng sau khi nhập mã vào [K2] ấy, chứ không vấn đề 1, 2 gì nữa...

 

[themorzer]

Bạn làm ví dụ minh họa rõ ràng, cụ thể rồi sẽ điều chỉnh theo yêu cầu...

Khi nhập 1AE-82155-00 thì nó ra kết quả nhu ô vấn đề 2

 

[befaint]

Khi nhập 1AE-82155-00 thì nó ra kết quả nhu ô vấn đề 2

Gửi cái file excel lên ấy...

Ví dụ cái kết quả cuối cùng sau khi nhập mã vào [K2] ấy, chứ không vấn đề 1, 2 gì nữa...

 

[Ba Tê]

Khi nhập 1AE-82155-00 thì nó ra kết quả nhu ô vấn đề 2View attachment 175956

Hình như bạn chưa xem và trả lời cho bài #4, nó đúng hay sai ý bạn?

 

[themorzer]

Gửi cái file excel lên ấy...

Ví dụ cái kết quả cuối cùng sau khi nhập mã vào [K2] ấy, chứ không vấn đề 1, 2 gì nữa...

 

[themorzer]

Làm "thí thí" theo cách hiểu "thí thí".
Bạn thay đổi ô K2 nhé.

cam on ban, hơi giống ý mình, mình chỉnh lại vài chổ đã ra đc kết quả

 

[befaint]

Thay file bài #6

 

[themorzer]

cám ơn cá ban đã đóng góp ý kiến cho mình, mình xin lỗi vì bất tiện này

Hình như bạn chưa xem và trả lời cho bài #4, nó đúng hay sai ý bạn?

Ban cho mình hỏi xíu về code của ban, nếu mình muốn đặt điều kiện thì đặt ở dòng nào ở code
nào để cho ra kết quả như bên dưới
Ví dụ:

+ Công thức trên Excel như sau:
Ở cột P: IF(LEFT(M3,4)="3611",M3,"")
Cột Q: IF(LEFT(M3,4)="2605",M3,"")
Cộ R là trừ 2 điều kiện trên
Thanks

 

[befaint]

Chết mệt!!!
"cái kết quả cuối cùng sau khi nhập mã vào [K2] ấy, chứ không vấn đề 1, 2 gì nữa.."
Giờ còn kết quả cuối cùng 2, cuối cùng 3.
Bao giờ mới đến cuối cùng thứ n...

 

[themorzer]

Chết mệt!!!
"cái kết quả cuối cùng sau khi nhập mã vào [K2] ấy, chứ không vấn đề 1, 2 gì nữa.."
Giờ còn kết quả cuối cùng 2, cuối cùng 3.
Bao giờ mới đến cuối cùng thứ n...

cam on ban mình đã giải quyết dc nhờ sụ giiup do cua ban

 

[befaint]

cam on ban mình đã giải quyết dc nhờ sụ giiup do cua ban

Đó không phải là vấn đề!!!

 

[themorzer]

Đó không phải là vấn đề!!!

cái kết quả cuối cùng là chọn ra nhu hình trên minh post

 

[themorzer]

Đó không phải là vấn đề!!!

code nhu thế nào để VBA tự ra kết quả như Cột P,Q,R la được
Cột P, ký tự đầu là 3611
Cột Q kí tự đầu là 2605
còn Cột R la loại cả 2 truong hợp trên

 

[befaint]

View attachment 175978

code nhu thế nào để VBA tự ra kết quả như Cột P,Q,R la được
Cột P, ký tự đầu là 3611
Cột Q kí tự đầu là 2605
còn Cột R la loại cả 2 truong hợp trên

Chờ cái kết quả cuối cùng thứ n mình tiêu hết bữa trưa rồi, giờ đói meo. Chạy rẽ khói luôn!!!

 

[themorzer]

Chờ cái kết quả cuối cùng thứ n mình tiêu hết bữa trưa rồi, giờ đói meo. Chạy rẽ khói luôn!!!

xin lỗi bạn, vì mình ở cty nên lúc online dc, lúc không, bạn thông cảm giúp mình nhé

 

[HieuCD]

Chờ cái kết quả cuối cùng thứ n mình tiêu hết bữa trưa rồi, giờ đói meo. Chạy rẽ khói luôn!!!

mới ăn mì gói xong

Public Sub GPE()
Dim Darr(), Arr(1 To 100, 1 To 3), i As Long, j As Long, iR As Long, DK As String
Darr = Range("A2:I14").Value:       DK = Range("K2").Value
For i = 2 To UBound(Darr)
  If Darr(i, 1) = DK Then
    For j = 2 To UBound(Darr, 2)
      If Darr(i, j) > 0 Then
        col = 3 + (Left(Darr(1, j), 2) = "36") * 2 + (Left(Darr(1, j), 2) = "26")
        Arr(100, col) = Arr(100, col) + 1
        Arr(Arr(100, col), col) = Darr(1, j)
        If iR < Arr(100, col) Then iR = Arr(100, col)
      End If
    Next j
  End If
Next i
Range("M1:R100").ClearContents
If iR Then Range("P3:R3").Resize(iR) = Arr
End Sub

 

[Ba Tê]

View attachment 175978

code nhu thế nào để VBA tự ra kết quả như Cột P,Q,R la được
Cột P, ký tự đầu là 3611
Cột Q kí tự đầu là 2605
còn Cột R la loại cả 2 truong hợp trên

Cái này đâu "dính liếu" với bạn nhờ giúp ở bài đầu tiên?
Hình như tôi bị "chóng mặt". P,Q,R từ IRac xuất hiện?

 

[themorzer]

mới ăn mì gói xong

Public Sub GPE()
Dim Darr(), Arr(1 To 100, 1 To 3), i As Long, j As Long, iR As Long, DK As String
Darr = Range("A2:I14").Value:       DK = Range("K2").Value
For i = 2 To UBound(Darr)
  If Darr(i, 1) = DK Then
    For j = 2 To UBound(Darr, 2)
      If Darr(i, j) > 0 Then
        col = 3 + (Left(Darr(1, j), 2) = "36") * 2 + (Left(Darr(1, j), 2) = "26")
        Arr(100, col) = Arr(100, col) + 1
        Arr(Arr(100, col), col) = Darr(1, j)
        If iR < Arr(100, col) Then iR = Arr(100, col)
      End If
    Next j
  End If
Next i
Range("M1:R100").ClearContents
If iR Then Range("P3:R3").Resize(iR) = Arr
End Sub

Chào bạn. Do bận việc không online được. Bạn có thể giải thích giúp mình đoạn code này không

If Darr(i, j) > 0 Then
col = 3 + (Left(Darr(1, j), 2) = "36") * 2 + (Left(Darr(1, j), 2) = "26")
Arr(100, col) = Arr(100, col) + 1
Arr(Arr(100, col), col) = Darr(1, j)
If iR < Arr(100, col) Then iR = Arr(100, col)

 

[HieuCD]

Chào bạn. Do bận việc không online được. Bạn có thể giải thích giúp mình đoạn code này không

If Darr(i, j) > 0 Then
col = 3 + (Left(Darr(1, j), 2) = "36") * 2 + (Left(Darr(1, j), 2) = "26")
Arr(100, col) = Arr(100, col) + 1
Arr(Arr(100, col), col) = Darr(1, j)
If iR < Arr(100, col) Then iR = Arr(100, col)

col = 3 + (Left(Darr(1, j), 2) = "36") * 2 + (Left(Darr(1, j), 2) = "26") là xác định cột kết quả
nếu 2 ký tự đầu không phải là 36 thì col là 3, nếu là 36 thì 3-2=1 và nếu là 26 thì 3-1=2
Arr(100, col) = Arr(100, col) + 1 là xác định dòng kết quả
If iR < Arr(100, col) Then iR = Arr(100, col) là xác định dòng cuối cùng của bảng kết quả
bạn mở code bấm phím chức năng F8 rà chuộc vào các biến để xem vận hành của code