Tác giả: conghoa Thời gian: 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 đơ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
3000-tu-vung-tieng-anh-thong-dung-nhat_code.xlsx
(237.26 KB, Lượt tải về: 581)
1/11/2022 09:48 Tải lên
Click to download
vTác giả: d.x.hieu2010 Thời gian: 1/11/2022 14:01
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
Tác giả: tranhoe Thời gian: 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ạ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ề: 468)
3/11/2022 13:21 Tải lên
Click to download
Tác giả: tranhoe Thời gian: 3/11/2022 18:56
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!
Tác giả: d.x.hieu2010 Thời gian: 4/11/2022 10:49
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
Tác giả: tranhoe Thời gian: 5/11/2022 05:33
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é.
Tác giả: tranhoe Thời gian: 5/11/2022 10:02
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ề: 561)
6/11/2022 05:33 Tải lên
Click to download
| Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/) | Powered by Discuz! X3.2 |