{Hỏi} về macro tra từ tiếng anh

Nhờ các bác giúp mình viết 1 macro Tra từ trong tiếng anh

1. Dữ liệu ban đầu

B9(what); C9(book); D9(you); E9(read); F9(these); G9(day)

B9(cái gì); C9(quyển sách); D9(bạn); E9(đọc); F9(kia); G9(ngày)

Lúcđầu ô B11-G11 ẩn giá trị

2. Yêu cầu

Tích chuột vào ô B9, chạy macro, kết quả ô B11 hiện ra còn các ô khác không hiện kết quả

Tích chuột vào ô C9, chạy macro, kết quả ô C11 hiện ra còn các ô khác không hiện kết quả

Tương tự đối với các ô khác

Mình xin gửi 1 ít chi phí hậu tạ

Đăng nhập/Đăng ký mở rộng

Chào bạn,
Mình không biết lập trình nên có cóp nhặt dc dòng cốt để làm 1 cái file đơn giản này, bạn dựa vào đây để làm cái bạn cần nhé.
Lưu ý khi điền từ thì nên có dấu cách đằng sau từ để lệch chạy đúng.
Ví dụ: Hello mà không có dấu cách sau cùng thì nó sẽ hiển thị nội dung của Hell

                               
Đăng nhập/Đăng ký mở rộng

3000-tu-vung-tieng-anh-thong-dung-nhat_code.xlsx (237.26 KB, Lượt tải về: 207)

1/11/2022 09:48 Tải lên

Click to download v

conghoa gửi lúc 1/11/2022 09:44
Chào bạn,
Mình không biết lập trình nên có cóp nhặt dc dòng cốt để làm 1 cái file  ...

cái này chỉ là hàm lấy dữ liệu chứ không phải macro, cảm ơn bạn về kho từ điển tuyệt vời này

Lần sau bạn đưa file lên (vài dòng cũng được) ngồi gõ lại rất nhác.
Không rõ ý bạn nhưng cũng viết:

[Visual Basic] 纯文本查看 复制代码

Sub Tratu()
    Range("B11:G11").Font.ThemeColor = xlThemeColorDark1
    ActiveCell.Offset(2, 0).Font.ColorIndex = xlAutomatic
End Sub

File: Tra tu.xlsm (14.57 KB, Lượt tải về: 114)

3/11/2022 13:21 Tải lên

Click to download

Mấy cái trò VBA này cũng chẵng cao cấp lắm đâu. Bạn có thể đưa file lên, rút gọn vài dòng, và nói yêu cầu. sẽ có  người giúp. Kể cả file của @conghoa đưa lên nếu biến tấu 1 tí cũng rất tốt đó.Đừng nói thù lao lằng nhằng hì!
Trân trọng!

tranhoe gửi lúc 3/11/2022 13:22
Lần sau bạn đưa file lên (vài dòng cũng được) ngồi gõ lại rất nhác.
Không rõ ý b ...

cod Tratu e copy và lưu không được nhờ anh xem hộ e với (em có chụp lại trên bài gốc), còn bản a làm e cũng ko chạy được

d.x.hieu2010 gửi lúc 4/11/2022 10:49
cod Tratu e copy và lưu không được nhờ anh xem hộ e với (em có chụp lại trên bài gố ...

Để file Excel chứa được macro thì phải lưu với định dạng *.xlsm. Bạn lưu định dạng *.xlsx thì sẽ không còn dòng code nào.Đồng thời trong Excel cũng phải cho phép chạy (enable) macro.
Đây là kiến thức cơ bản.

File Tratu vẫn chạy tốt nhé.

Nhân cơ hội có dữ liệu của @conghoa Tôi viết một đoạn code để tra từ.
Gõ từ cần tra vào ô B1. Nhấn Tra từ sẽ được nghĩa của từ ở ô B2

[Visual Basic] 纯文本查看 复制代码

Sub Tratu()    Dim Mycell As Range
    Dim TuCanTra As String, NghiaCuaTu As String
    Dim Kq As Boolean
    TuCanTra = Range("B1").Formula
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Mycell In Sheets("data").Range("B3:B3399")
        If Mycell.Formula = TuCanTra Then
            Kq = True
            NghiaCuaTu = Mycell.Offset(0, 3).Formula
            Exit For
        End If
    Next
    If Kq Then
        Range("B2").Formula = NghiaCuaTu
    Else
        Range("B2").Formula = ""
        MsgBox "Tu can tra khong co trong CSDL"
    End If
    Application.ScreenUpdating = True
    On Error GoTo 0
End Sub

Tra tu Tieng Anh.xlsm (230.42 KB, Lượt tải về: 127)

6/11/2022 05:33 Tải lên

Click to download