Tìm ra địa chỉ ô mà giá trị của ô đó đã bị trùng với giá trị ở ô dưới nó ?

Nguyen Rem · 11/6/22

Em chào các anh chị !
Không nhờ các anh chị xem xét lỗi nữa mà em muốn nhờ các anh chị viết một đoạn code dựa trên ý tưởng mà em viết ^^ . Hoặc anh chị có thể viết theo ý của anh chị cũng được nhưng mà nếu mà phát triển được theo hướng của em thì thật sự rất tuyệt vời :>
Hiện tại em đang muốn tìm ra các giá trị bị trùng lặp trên một vùng ô
Ý tưởng của em là dựa vào tính chất của collection để làm .
Em lưu đoạn code này ở trong module 4 . Kết quả sau khi tìm kiếm ở trong của số immediate nó ra như sau:

Ý nghĩa của dòng $A$13 $A$12 R MCRAE là:
Giá trị của ô A13 trùng với ô A12 và giá trị trùng là R MCRAE . Các dòng ở dưới tương tự !
Nhưng mà đoạn code trên chỉ làm được khi chỉ có một cặp giá trị trùng nhau . Còn nếu mà có hơn một cặp giá trị trùng nhau thì nó ra kết quả không còn đúng nữa .
Kết quả mong muốn cho ra :

$A$N $A$(N-i1) $A$(N-i2) ... $A$(N-i(k)) "Giá trị bị trùng lặp"
.
.
.

Với

N > (N-i1) > (N-i2) > ... > (N-i(k))
$A$N là địa chỉ ô mà giá trị trùng của nó là cuối cùng trong danh sách
$A$(N-i1) $A$(N-i2) ... $A$(N-i(k)) là các địa chỉ ô mà sự xuất hiện của các giá trị trùng nhau là giảm dần ( Tức là Giá trị trùng xuất hiện đầu tiên trong danh sách tương ứng với địa chỉ $A$(N-i(k)) ..... và Giá trị trùng xuất hiện Trước giá trị trùng cuối cùng trong danh sách tương ứng với địa chỉ $A$(N-i1) )

-- Hơi khó để diễn đạt nhưng mà mong là các anh chị hiểu ý của em --

SA_DQ · 11/6/22

PHP:

Sub TimTrungTrenCot() ' Cách Cù Lân Nhât Dê Tìm & Liêt Kê KQ Trùng Trên 1 Côt ' Dim Rws As Long, W As Integer Dim Rng As Range, sRng As Range, Cls As Range Dim MyAdd As String Rws = [A2].CurrentRegion.Rows.Count ReDim Arr(1 To 3 * Rws, 1 To 4) [G1].Resize(Rws * 8, 4).Value = Space(0) For Each Cls In Range([A1], Cells(Rws, "A")) Set Rng = Cls.Offset(1).Resize(1 + Rws) Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole) If sRng Is Nothing Then W = W + 1: Arr(W, 1) = Cls.Value Arr(W, 2) = Cls.Address: Arr(W, 3) = "GPE.COM" Else MyAdd = sRng.Address Do W = W + 1: Arr(W, 1) = Cls.Value Arr(W, 2) = Cls.Address: Arr(W, 3) = sRng.Address Set sRng = Rng.FindNext(sRng) Loop While Not sRng Is Nothing And sRng.Address <> MyAdd End If Next Cls If W Then [G1].Resize(W, 3) = Arr() End Sub

batman1 · 11/6/22

Ngày mai em đi đủ 5 ký tự.

Mã:

Sub PopulateUniqueArray1()
Dim cell_ As Range
Dim item As String
Dim Col As New Collection
Dim valCell As String
Dim n, k

    n = Range("A1", Range("A1").End(xlDown)).Rows.Count

    On Error Resume Next
    For k = 0 To n - 1
        Set cell_ = Range("A1").Offset(k)
        valCell = cell_.Value
        item = Col.item(valCell)
        If Err.Number Then
            Err.Clear
            Col.Add cell_.Address & " " & valCell, valCell
        Else
            Col.Remove (valCell)
            Col.Add cell_.Address & "*" & item, valCell
        End If
    Next k
    On Error GoTo 0
    For k = 1 To Col.Count
        item = Col.item(k)
        If InStr(1, item, "*") Then Debug.Print Replace(item, "*", " ")
    Next k
End Sub

Nguyen Rem · 11/6/22

Ôi ! Xịn quá ^^
Em cảm ơn hai anh nhiều lắm ! Em đều đã đọc bài làm của hai anh rồi ! . Nó đều rất hay nhưng mà em thấy cách của anh batman1 nó đúng với ý tưởng của em đặt ra ban đầu hơn . Nên em sẽ theo cách làm đó . Em mới nhìn code thôi chứ bây giờ em mới đào sâu nghiên cứu ^^ --Thật thú vị !--
Có gì thắc mắc tiếp thì em sẽ hỏi các anh sau . Em cảm ơn hai anh nhiều lắm <3

batman1 · 11/6/22

Nguyen Rem đã viết:
Ôi ! Xịn quá ^^
Em cảm ơn hai anh nhiều lắm ! Em đều đã đọc bài làm của hai anh rồi ! . Nó đều rất hay nhưng mà em thấy cách của anh batman1 nó đúng với ý tưởng của em đặt ra ban đầu hơn . Nên em sẽ theo cách làm đó . Em mới nhìn code thôi chứ bây giờ em mới đào sâu nghiên cứu ^^

Tôi làm đêm nhưng ngày nhìn không ưng lắm. Để "tự nhiên" hơn và sát với cách làm của bạn hơn thì sửa như sau. Tức thêm key, và xử lý lỗi khi key đã tồn tại.

Thay

Mã:

item = Col.item(valCell)
If Err.Number Then
    Err.Clear
    Col.Add cell_.Address & " " & valCell, valCell
Else
    Col.Remove (valCell)
    Col.Add cell_.Address & "*" & item, valCell
End If

bằng

Mã:

Col.Add cell_.Address & " " & valCell, valCell
If Err.Number Then  ' neu da ton tai key
    item = Col.item(valCell)                                        ' đọc ra item hiện hành
    Col.Remove (valCell)                                            ' xóa key + item
    Col.Add cell_.Address & "*" & item, valCell         ' thêm lại key với item mới
    Err.Clear                                                               ' xóa thông tin lỗi
End If

Nguyen Rem · 11/6/22

Dạ vâng ạ ! Anh nói thì em mới để ý dòng code trước của anh nó đúng là hơi không theo trình tự của mạch tư duy thật . Còn giờ em thấy nó đúng chiều hơi rồi ấy ^^

batman1 đã viết:

Mã:

Col.Add cell_.Address & " " & valCell, valCell
If Err.Number Then ' neu da ton tai key
item = Col.item(valCell) ' đọc ra item hiện hành
Col.Remove (valCell) ' xóa key + item
Col.Add cell_.Address & "*" & item, valCell ' thêm lại key với item mới
Err.Clear ' xóa thông tin lỗi
End If

Đầu tiên là Thêm item ==> Kiểm tra item xem có chưa ==> Nếu có rồi thì xóa cái vừa thêm và thêm một item mới vào trong collection dựa theo item cũ

Còn code cũ của anh thì lại kiểm tra trước rồi mới thêm vào hay xóa đi ^^

batman1 · 11/6/22

Nguyen Rem đã viết:
Dạ vâng ạ ! Anh nói thì em mới để ý dòng code trước của anh nó đúng là hơi không theo trình tự của mạch tư duy thật . Còn giờ em thấy nó đúng chiều hơi rồi ấy ^^

Đầu tiên là Thêm item ==> Kiểm tra item xem có chưa ==> Nếu có rồi thì xóa cái vừa thêm và thêm một item mới vào trong collection dựa theo item cũ

Còn code cũ của anh thì lại kiểm tra trước rồi mới thêm vào hay xóa đi ^^
View attachment 277191

Tùy theo "trình tự" tư duy nào. Không biết mọi người thì thế nào nhưng cùng một bài toán nếu giải ở những thời điểm khác nhau thì tôi có thể có những cách giải khác nhau. Tùy từng thời điểm mà tư duy khác nhau, ý rưởng ban đầu rồi cứ riết đi theo "con đường ấy đã chọn ấy". Đôi lúc đầu óc còn vướng bận, đôi lúc điên điên, lúc đang ngủ có người dội gáo nước lạnh vào mặt thì bật dậy nói A, khi đang nhậu mà có ai hắt cốc bia vào mặt thì bật ra B, tùy lúc tùy hứng mà tư duy đi theo mạch khác ...

Lúc trước là: trước tiên đọc ra item cũ, mục đích để nối với địa chỉ mới thành item mới để xóa key cũ + thêm key mới. Nếu có lỗi tức key CHƯA TỒN TẠI, thì là thêm key bình thường (lần đầu tiên), ngược lại thì làm cái ý định "nối với địa chỉ mới thành item mới để xóa key cũ + thêm key mới"

Nguyen Rem · 11/6/22

batman1 đã viết:
Tùy theo "trình tự" tư duy nào. Không biết mọi người thì thế nào nhưng cùng một bài toán nếu giải ở những thời điểm khác nhau thì tôi có thể có những cách giải khác nhau. Tùy từng thời điểm mà tư duy khác nhau, ý rưởng ban đầu rồi cứ riết đi theo "con đường ấy đã chọn ấy". Đôi lúc đầu óc còn vướng bận, đôi lúc điên điên, lúc đang ngủ có người dội gáo nước lạnh vào mặt thì bật dậy nói A, khi đang nhậu mà có ai hắt cốc bia vào mặt thì bật ra B, tùy lúc tùy hứng mà tư duy đi theo mạch khác ...

Lúc trước là: trước tiên đọc ra item cũ, mục đích để nối với địa chỉ mới thành item mới để xóa key cũ + thêm key mới. Nếu có lỗi tức key CHƯA TỒN TẠI, thì là thêm key bình thường (lần đầu tiên), ngược lại thì làm cái ý định "nối với địa chỉ mới thành item mới để xóa key cũ + thêm key mới"

Nhưng mà em để ý thấy anh hay dùng cụm từ "Ngày mai em đi" lắm ấy ! Em hơi tò mò chút thôi :> Kiểu em cũng lên mạng gõ thử mà nó ra bài hát của soobin Hoàng Sơn :>

huhumalu · 11/6/22

Tuổi chú batman1 thì "Ngày mai em đi, biển nhớ tên em gọi về ...".

batman1 · 11/6/22

huhumalu đã viết:
Tuổi chú batman1 thì "Ngày mai em đi, biển nhớ tên em gọi về ...".

Đúng rồi. Mê giọng hát Khánh Ly. Tôi không nghe nhạc thường xuyên nhưng đã nghe thì không nghe những ca sĩ trẻ. Cứ Hồng Nhung, Khánh Ly, Lệ Thu thôi.

Nguyen Rem đã viết:
Nhưng mà em để ý thấy anh hay dùng cụm từ "Ngày mai em đi" lắm ấy !

Người ta hành xử rất vô lý. Ép mình phải viết đủ 5 từ. Nhưng ép sao được. Muốn 5 từ hay cả bài hát ta cũng có.

Nguyen Rem · 11/6/22

Có thể nó không liên quan đến chủ đề này cho lắm
Nhưng mà em muốn hỏi anh về sự "bình yên trong tâm hồn" . Anh cảm nhận được chứ ? Bình yên thực sự nó là thế nào ? Cảm giác ấy ra sao ?
Em cảm nhận thấy có một sự tương đồng khi anh trả lời

batman1 đã viết:
Tôi không nghe nhạc thường xuyên nhưng đã nghe thì không nghe những ca sĩ trẻ. Cứ Hồng Nhung, Khánh Ly, Lệ Thu thôi.

Một người không thường hay nghe nhạc thì chắc hẳn sẽ không nghiện mạng xã hội , không nghiện những thứ "rẻ tiền" , không dễ bị lôi kéo và dẫn dắt ... và chắc có khả năng ngồi một mình --Có khả năng kết nối thực sự với bản thân-- . Hơn nữa em muốn nghe từ một người cách mình hai thế hệ xem nó sẽ như thế nào . Bây giờ có siêu siêu nhiều thứ cám dỗ ( không còn là cuộc chiến của sự thiếu thốn nữa rồi mà giờ phải đấu tranh với sự dồi dào) nên việc để tâm trí của mình không bị xâu xé và định được là một điều thực sự khó .
Đây là một câu hỏi khó(Bởi nó quá chung chung và chắc hẳn một người như anh sẽ không thích) . Nếu anh không trả lời thì coi như đây là cách em ngợi mở chẳng hạn
--Khi em cảm thấy người nào có sự tương đồng thì em thường hay hỏi thế này(Một thói quen)--

batman1 · 11/6/22

Nguyen Rem đã viết:
Có thể nó không liên quan đến chủ đề này cho lắm
Nhưng mà em muốn hỏi anh về sự "bình yên trong tâm hồn" . Anh cảm nhận được chứ ? Bình yên thực sự nó là thế nào ? Cảm giác ấy ra sao ?
Em cảm nhận thấy có một sự tương đồng khi anh trả lời

Một người không thường hay nghe nhạc thì chắc hẳn sẽ không nghiện mạng xã hội , không nghiện những thứ "rẻ tiền" , không dễ bị lôi kéo và dẫn dắt ... và chắc có khả năng ngồi một mình --Có khả năng kết nối thực sự với bản thân-- . Hơn nữa em muốn nghe từ một người cách mình hai thế hệ xem nó sẽ như thế nào . Bây giờ có siêu siêu nhiều thứ cám dỗ ( không còn là cuộc chiến của sự thiếu thốn nữa rồi mà giờ phải đấu tranh với sự dồi dào) nên việc để tâm trí của mình không bị xâu xé và định được là một điều thực sự khó .
Đây là một câu hỏi khó(Bởi nó quá chung chung và chắc hẳn một người như anh sẽ không thích) . Nếu anh không trả lời thì coi như đây là cách em ngợi mở chẳng hạn
--Khi em cảm thấy người nào có sự tương đồng thì em thường hay hỏi thế này(Một thói quen)--

Cũng chả có gì cao xa. Đơn giản là những thứ ấy nó không lôi cuốn tôi. Tôi không liên lạc với ai trên mạng xã hội, kể cả trên GPE. Tức không liên lạc bình thường qua tin nhắn, tiếp xúc ngoài đời.

VetMini · 11/6/22

Tuổi mấy người thì được cái may mắn biết nhạc Trịnh qua tình ca.

Tuổi tôi thì còn phải chịu đựng "đàn bò vào thành phố...", "ghế đá công viên, dời ra đường phố...", "chiều đi trên đồi cao, hát trên những xác người..."

SA_DQ · 12/6/22

Người đời đồn rằng: Muốn hát nhạc Trinh mượt mà nên hít hay choát xíu xiu nào đó; Thông tin chưa kiểm chứng à nha!

Nhattanktnn · 12/6/22

Nguyen Rem đã viết:
Có thể nó không liên quan đến chủ đề này cho lắm
Nhưng mà em muốn hỏi anh về sự "bình yên trong tâm hồn" . Anh cảm nhận được chứ ? Bình yên thực sự nó là thế nào ? Cảm giác ấy ra sao ?
Em cảm nhận thấy có một sự tương đồng khi anh trả lời

Một người không thường hay nghe nhạc thì chắc hẳn sẽ không nghiện mạng xã hội , không nghiện những thứ "rẻ tiền" , không dễ bị lôi kéo và dẫn dắt ... và chắc có khả năng ngồi một mình --Có khả năng kết nối thực sự với bản thân-- . Hơn nữa em muốn nghe từ một người cách mình hai thế hệ xem nó sẽ như thế nào . Bây giờ có siêu siêu nhiều thứ cám dỗ ( không còn là cuộc chiến của sự thiếu thốn nữa rồi mà giờ phải đấu tranh với sự dồi dào) nên việc để tâm trí của mình không bị xâu xé và định được là một điều thực sự khó .
Đây là một câu hỏi khó(Bởi nó quá chung chung và chắc hẳn một người như anh sẽ không thích) . Nếu anh không trả lời thì coi như đây là cách em ngợi mở chẳng hạn
--Khi em cảm thấy người nào có sự tương đồng thì em thường hay hỏi thế này(Một thói quen)--

Bạn có vẻ là một cô gái khá đặc biệt nhỉ, tuổi đôi mươi nhưng lại không mê mạng xã hội ( ngủ 20h khi tụi bạn đang bấm điện thoại) và thức dậy sớm 2,3 giờ sáng để học lập trình. Nói chuyện thì như bà cụ non, đọc hành văn bạn viết cũng rất xuôi, chắc viết văn cũng hay lắm đây

Nguyen Rem · 12/6/22

Nhattanktnn đã viết:
Bạn có vẻ là một cô gái khá đặc biệt nhỉ, tuổi đôi mươi nhưng lại không mê mạng xã hội ( ngủ 20h khi tụi bạn đang bấm điện thoại) và thức dậy sớm 2,3 giờ sáng để học lập trình. Nói chuyện thì như bà cụ non, đọc hành văn bạn viết cũng rất xuôi, chắc viết văn cũng hay lắm đây

Em thì không biết có phải là đặc biệt hay không nhưng chính vì thế mà tý nữa em bị đuổi khỏi phòng :<
Chắc không đặc biệt gì đâu chỉ tại em có lối sống khác thôi anh ^^ . Anh thấy em khác biệt thì chẳng qua là anh đã quá quen với cái âm thanh , với cái tiếng ồn của sự giằng xé . Thể xác có thể vẫn chấp nhận nhưng mà tâm trí thì chắc không đâu . Đó là chưa kể bây giờ còn nghiện mạng xã hội đặc biệt là tiktok , facebook , game , video sex (Nghiện xem những thứ ngắn ngắn --Thức ăn nhanh--) . Đùa chứ ! Tuổi trẻ bị đốt ngay trước mắt mình ! Bản năng đàn ông cũng bị mai một dần đi theo thời gian chỉ bởi đám làm tiktok và facebook watch ! . Nếu như ngày xưa mọi người quan trọng cái sự kết nối với nhau qua ngoài đời thực thì bây giờ khi đi ra ngoài lại thấy có gì đó sai sai , hơi hơi ngại ngại ! Nếu như ngày xưa những người con trai phải gánh vác trách nhiệm , phải xông pha ra chiến trường , phải lao động xản xuất, sáng tạo , phải xây dựng thành phố ... Thì thời nay cái trách nhiệm đó dường như không thấm vào đâu. Nên có lẽ nó đã bị lấp liếm bởi những thứ ngụy tạo đàn ông (Đàn ông con trai là phải biết uống rượu , phải mồm to , phải bạo lực , phải biết đua xe , phải thử tất cả mọi thứ , phải có máu liều "Thế mới là đàn ông chứ" ) . Và cũng chính vì thế kiến cho họ cũng hay dỗi vặt hay chấp vặt hơn , để ý , hay tủn mủn và dường như cũng hay ghen hơn . Họ dùng sự tội lỗi để kiểm soát hành vi của người yêu , có khi nếu không dùng được thì chắc chuyển qua bạo lực cũng nên ! Vậy nên họ thường không hấp dẫn được bạn đời của mình ! Không hấp dẫn được phái yếu ! Thừa mứa đàn ông! --Nói đúng hơn là thừa mứa những cậu con trai trong cái xác người lớn-- Vậy nên để kiếm được một người bạn đời tử tế thật sự rất khó . Không phải là "lập trình" , cũng không phải là "sự nghiệp" . Tất nhiên là những thứ đó nó cũng quan trọng (không phủ nhận) .
Đây chỉ là một chút quan điểm cá nhân(Những thứ mà hiện tại em đang nghĩ) . Nó có thể thay đổi trong tương lai nên các anh chị chỉ nên đọc và để đấy thôi chứ cũng không nên phản biện làm gì , cũng không nên phản ứng thái quá bởi đây cũng chỉ là góc nhìn của một người xa lạ mà thôi ! Em nói như này không phải là để tranh đấu xem ai đúng ai sai mà chỉ mong muốn để mọi người cùng phát triển .

befaint · 12/6/22

Nhattanktnn đã viết:
Bạn có vẻ là một cô gái khá đặc biệt nhỉ, tuổi đôi mươi nhưng lại không mê mạng xã hội ( ngủ 20h khi tụi bạn đang bấm điện thoại) và thức dậy sớm 2,3 giờ sáng để học lập trình. Nói chuyện thì như bà cụ non, đọc hành văn bạn viết cũng rất xuôi, chắc viết văn cũng hay lắm đây

Cô bé thể hiện cá tính và suy nghĩ đúng lứa tuổi sinh viên rồi còn gì.
Đọc văn cô bé này + nhạc nền quick & snow show có vẻ rất hợp.
(Ngoài lề) Cô bé thường bị "thuyết phục" bởi những anh đứng tuổi, thành đạt và tinh tế.

SA_DQ · 12/6/22

Mình thì có chút xíu ngờ ngợ chưa chắc đấy là 1 cô bé. . . . .
Thời nay thấy còn chưa chắc nữa là . . . .
.
.
.

Maika8008 · 12/6/22

VetMini đã viết:
Tuổi mấy người thì được cái may mắn biết nhạc Trịnh qua tình ca.

Tuổi tôi thì còn phải chịu đựng "đàn bò vào thành phố...", "ghế đá công viên, dời ra đường phố...", "chiều đi trên đồi cao, hát trên những xác người..."

Huhu...! Tuổi tôi mà vẫn còn thấy mấy chuyện đó mà. Chỉ là từng độ tuổi có cảm nhận khác nhau thôi.

VetMini · 12/6/22

befaint đã viết:
...
(Ngoài lề) Cô bé thường bị "thuyết phục" bởi những anh đứng tuổi, thành đạt và tinh tế.

Hoàn toàn không đồng ý. Tôi thì thấy ngược lại.

Trừ một "anh đứng tuổi" mà cô ta khoe là một người "bác" rất được "ngưỡng mộ".
Mà phải nói, chính tôi cũng phục tài y luôn. Chỉ ngồi tự khoe tài mà chả buồn giúp cháu gái, để mặc đi nhờ thiên hạ. Vậy mà vẫn được cháu kính trọng và tôn sùng.

Tìm ra địa chỉ ô mà giá trị của ô đó đã bị trùng với giá trị ở ô dưới nó ?

Tất cả chỉ là đưa ra quyết định đúng đắn

File đính kèm

/(hông là gì!

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

Tất cả chỉ là đưa ra quyết định đúng đắn

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

Tất cả chỉ là đưa ra quyết định đúng đắn

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

Tất cả chỉ là đưa ra quyết định đúng đắn

Thành viên tích cực

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

Tất cả chỉ là đưa ra quyết định đúng đắn

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

Ăn cùng góc phố

/(hông là gì!

Thành viên gắn bó

Tất cả chỉ là đưa ra quyết định đúng đắn

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

/(hông là gì!

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

Ăn cùng góc phố