Cần trợ giúp code lấy dữ liệu dòng cuối

Banotnt · 26/10/22

xin mọi người giúp mình lấy dữ liệu ô cuối cột F
Ghi vào phần "Đơn vị bảo quản này gồm : " với số lớn nhất trong ô dữ liệu "tờ"

VD: Đơn vị bảo quản này gồm: tờ 12 tờ (như file đính kèm)
Thanks mọi người

Phuocam · 27/10/22

Banotnt đã viết:
xin mọi người giúp mình lấy dữ liệu ô cuối cột F
Ghi vào phần "Đơn vị bảo quản này gồm : " với số lớn nhất trong ô dữ liệu "tờ"

VD: Đơn vị bảo quản này gồm: tờ 12 tờ (như file đính kèm)
Thanks mọi người

Bạn dùng thử công thức này:

="Đơn vị bảo quản này gồm có : "&TRIM(RIGHT(SUBSTITUTE(LOOKUP(2,1/($F$2:$F$6<>""),$F$2:$F$6),"-",REPT(" ",100)),100))&" tờ"

Khỏi thanks.

.

Banotnt111 · 27/10/22

Phuocam đã viết:
Bạn dùng thử công thức này:

="Đơn vị bảo quản này gồm có : "&TRIM(RIGHT(SUBSTITUTE(LOOKUP(2,1/($F$2:$F$6<>""),$F$2:$F$6),"-",REPT(" ",100)),100))&" tờ"

Khỏi thanks.

.

Mình có tới hơn 1000 Sheets lận Á nên viết hàm thì hơi mất thời gian. Hông biết có code hông ta

chiendich · 27/10/22

Banotnt111 đã viết:
Mình có tới hơn 1000 Sheets lận Á nên viết hàm thì hơi mất thời gian. Hông biết có code hông ta

Bạn @Phuocam code thiệt đi tề. Người ta để mục lập trình mà bạn bắt thử hàm. File có 1000 sheets.. ghê thật!

SA_DQ · 27/10/22

PHP:

Sub TimTriDongCuoiCotF()
 Dim Rws As Long, TriCD As Long, VTr As Integer, TriCuoi
 
 Rws = [F65500].End(xlUp).Row
 TriCuoi = Cells(Rws, "F").Value
 VTr = InStr(TriCuoi, "-")
 If VTr Then
    TriCuoi = Mid(TriCuoi, VTr + 1, Len(TriCuoi))
 End If
 MsgBox  "Don Vi Bao Quan Này Gôm Có : " & TriCuoi & " Tò"
End Sub

Banotnt111 · 28/10/22

SA_DQ đã viết:

PHP:

Sub TimTriDongCuoiCotF()
 Dim Rws As Long, TriCD As Long, VTr As Integer, TriCuoi
 
 Rws = [F65500].End(xlUp).Row
 TriCuoi = Cells(Rws, "F").Value
 VTr = InStr(TriCuoi, "-")
 If VTr Then
    TriCuoi = Mid(TriCuoi, VTr + 1, Len(TriCuoi))
 End If
 MsgBox  "Don Vi Bao Quan Này Gôm Có : " & TriCuoi & " Tò"
End Sub

Ý mình muốn gán ví dụ 12 tờ xuống cái dòng “ đơn vị bảo quản này gồm “ Á có cách nào chạy lấy dữ liệu dòng cuối cột F rồi copy xuống được hông ạ

Ronaldinho7 · 28/10/22

Banotnt111 đã viết:
Ý mình muốn gán ví dụ 12 tờ xuống cái dòng “ đơn vị bảo quản này gồm “ Á có cách nào chạy lấy dữ liệu dòng cuối cột F rồi copy xuống được hông ạ

Ý bạn có phải thế này?

PHP:

Sub GPE()
    Dim Lr&, Lr1&, Num$, a&, Num1&, Num2&, sMax&
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        With Ws
            Lr = .Range("F" & Rows.Count).End(xlUp).Row
            Lr1 = .Range("B" & Rows.Count).End(xlUp).Row
            Num = .Range("F" & Lr).Value
            a = InStr(Num, "-")
            Num1 = Left(Num, a - 1) * 1
            Num2 = Mid(Num, a + 1, 10000) * 1
            sMax = Application.Max(Num1, Num2)
            .Range("B" & Lr1 - 3).Value = ChrW(272) & ChrW(417) & "n v" & ChrW(7883) & " b" _
                     & ChrW(7843) & "o qu" & ChrW(7843) & "n n炸 g" & ChrW(7891) & "m c・ " & "T" _
                     & ChrW(7901) & " " & sMax & " T" & ChrW(7901)
        End With
    Next Ws
End Sub

SA_DQ · 28/10/22

Bạn xem trong file, cách thô nhất đó nha & chúc bạn vui suốt ngày!

Ronaldinho7 · 28/10/22

SA_DQ đã viết:
Bạn xem trong file, cách thô nhất đó nha & chúc bạn vui suốt ngày!

Em thích sự kiên nhẫn của bác đó nha.
file .rar của bác em mở cứ bị lỗi.
Không bung ra được.

SA_DQ · 28/10/22

Zl: 0933707265 đã viết:
(2) Em thích sự kiên nhẫn của bác đó nha.
(1) file .rar của bác em mở cứ bị lỗi.
Không bung ra được.

(1) Vậy bạn phải chờ & nhờ ai mở được
Trong nới có 2 Name & 1 hàm tự tạo
Tại ô nào cần hiễn thị chuỗi, ta nhập: =DVi & sto(F2:F6) & " " & To
Ở đây: - DVi là chuỗi tiếng Việt trước số lượng tờ;
- Hàm tự tạo STo cần được cung cấp địa chỉ các ô cột 'F' chứa dữ liệu về số tờ
- To là Name có Refers to là 'tờ'
Hàm tự tạo có nội dung như sau:

PHP:

Function STo(Rng As Range)
 Dim Rws As Long, J As Long, VTr As Byte
 Dim TriCuoi
 
 Rws = Rng.Rows.Count
 For J = Rws To 1 Step -1
    TriCuoi = Rng(J).Value
    If TriCuoi <> "" Then
        VTr = InStr(TriCuoi, "-")
        If VTr Then
            TriCuoi = Mid(TriCuoi, VTr + 1, Len(TriCuoi))
        End If
        STo = TriCuoi:              Exit Function
    End If
 Next J
End Function

(2) /(hông phải mình kiên nhẫn đâu, đó là những bài tập luyện để trí não chậm lão hóa mà thôi!

befaint · 28/10/22

Mình thì thích cái nick này quá trời luôn.

Nội quy vậy mà hổng to thế.

Ronaldinho7 · 28/10/22

befaint đã viết:
Mình thì thích cái nick này quá trời luôn.

View attachment 282642

Nội quy vậy mà hổng to thế.

View attachment 282643

Hớ hớ...
Em vẫn tuân thủ luật diễn đàn mừ,
chỉ là zl (zờ lờ), không Email, không website... :{{

SA_DQ · 28/10/22

Zl: 0933707265 đã viết:
Hớ hớ... . . . .
chỉ là zl (zờ lờ), không Email, không website...

Bạn chưa sai phạm so với nội qui DĐ; Nhưng bạn hiện giờ chưa thể sánh được với ĐT ĐV NƠI!
& vì lẽ đó, bạn nên nhờ thành viên ban Điều hành đổi lại NickName của mình;

Mình đề xuất 1 trong những NickName như dưới đây:
(*) ZL9066 292 734
(*) ZL Chín 066 292 734
(*) ZL . . . .
Chúc vui nha!

Ronaldinho7 · 28/10/22

SA_DQ đã viết:
Bạn chưa sai phạm so với nội qui DĐ; Nhưng bạn hiện giờ chưa thể sánh được với ĐT ĐV NƠI!
& vì lẽ đó, bạn nên nhờ thành viên ban Điều hành đổi lại NickName của mình;

Mình đề xuất 1 trong những NickName như dưới đây:
(*) ZL9066 292 734
(*) ZL Chín 066 292 734
(*) ZL . . . .
Chúc vui nha!

Em cám ơn bác nhé!
em muôn đổi lại nhưng phải cuối tháng sau mới đổi được.
Để không làm phiền ban quản trị, em sẽ tự đổi khi đủ điều kiện thời gian.
Chúc bác vui!

Banotnt · 28/10/22

Zl: 0933707265 đã viết:

Ý bạn có phải thế này?

PHP:

Sub GPE()
    Dim Lr&, Lr1&, Num$, a&, Num1&, Num2&, sMax&
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        With Ws
            Lr = .Range("F" & Rows.Count).End(xlUp).Row
            Lr1 = .Range("B" & Rows.Count).End(xlUp).Row
            Num = .Range("F" & Lr).Value
            a = InStr(Num, "-")
            Num1 = Left(Num, a - 1) * 1
            Num2 = Mid(Num, a + 1, 10000) * 1
            sMax = Application.Max(Num1, Num2)
            .Range("B" & Lr1 - 3).Value = ChrW(272) & ChrW(417) & "n v" & ChrW(7883) & " b" _
                     & ChrW(7843) & "o qu" & ChrW(7843) & "n n炸 g" & ChrW(7891) & "m c・ " & "T" _
                     & ChrW(7901) & " " & sMax & " T" & ChrW(7901)
        End With
    Next Ws
End Sub

Num1 = Left(Num, a - 1) * 1
Num2 = Mid(Num, a + 1, 10000) * 1
ông có thể giải thích đoạn code này hông tui chưa hiểu lắm

Ronaldinho7 · 28/10/22

Banotnt đã viết:
Num1 = Left(Num, a - 1) * 1
Num2 = Mid(Num, a + 1, 10000) * 1
ông có thể giải thích đoạn code này hông tui chưa hiểu lắm

Kết quả đúng không bạn?!
Đoạn code trên nó tách hai số bởi dấu “-“
Nhân với 1 để chuyển sang dạng số nhé!
À thêm: nếu bạn >= 45 tuổi thì hãy xưng ông - tôi với mình nhé!
Vì mình 45 tuổi rồi
Chúc bạn vui.

SA_DQ · 29/10/22

Zl: 0933707265 đã viết:
. . . .
(1) Đoạn code trên nó tách hai số bởi dấu “-“
Nhân với 1 để chuyển sang dạng số nhé!

(2) À thêm: nếu bạn >= 45 tuổi thì hãy xưng ông - tôi với mình nhé!
Vì mình 45 tuổi rồi
Chúc bạn vui.

(1) Na ná như trên trang tính Excel, nhỉ?!

(2) Sẵn dịp này: Nếu ông già của bạn ≥ 75 thì gọi mình là chú, bằng ngược lại thì gọi mình là bác từ nay trở đi, nha.

(*) Chúc mọi người có những ngày cuối tuần vui vẻ!

Ronaldinho7 · 29/10/22

SA_DQ đã viết:
(1) Na ná như trên trang tính Excel, nhỉ?!

(2) Sẵn dịp này: Nếu ông già của bạn ≥ 75 thì gọi mình là chú, bằng ngược lại thì gọi mình là bác từ nay trở đi, nha.

(*) Chúc mọi người có những ngày cuối tuần vui vẻ!

Úi chà là chà
Phạm huý hổm rầy, đáng phải gọi chú-cháu mới đúng. Cơ mà, em lỡ gọi bác xưng em rồi, thôi thì bác cũng thông cảm đặng.

Banotnt · 1/11/22

Zl: 0933707265 đã viết:
Kết quả đúng không bạn?!
Đoạn code trên nó tách hai số bởi dấu “-“
Nhân với 1 để chuyển sang dạng số nhé!
À thêm: nếu bạn >= 45 tuổi thì hãy xưng ông - tôi với mình nhé!
Vì mình 45 tuổi rồi
Chúc bạn vui.

Cũng là file đó nhưng cho em hỏi có cách nào code số trang của sheets ghi vào phần “ mục lục văn bản gồm …… tờ “ (….. là số trang của sheets)

snow25 · 1/11/22

SA_DQ đã viết:
(2) Sẵn dịp này: Nếu ông già của bạn ≥ 75 thì gọi mình là chú, bằng ngược lại thì gọi mình là bác từ nay trở đi, nha.

Cháu chào ông Sa ạ.19.

Cần trợ giúp code lấy dữ liệu dòng cuối

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Lỡ bước sang ngang

/(hông là gì!

Thành viên mới

Zl: 0707315985

File đính kèm

/(hông là gì!

File đính kèm

Zl: 0707315985

/(hông là gì!

|||||||||||||

Zl: 0707315985

/(hông là gì!

Zl: 0707315985

Thành viên mới

Zl: 0707315985

/(hông là gì!

Zl: 0707315985

Thành viên mới

Thành viên gạo cội