Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Chào bạn bạn sử dụng như hàm trong excel bạn có thể ghi lại macro để xem Nhưng lời khuyên không nên lấy dữ liệu từ workbook khác vì khi chuyển file hay máy sẽ dẫn đến lỗi dữ liệu
vỗ tay
Nguyễn Hữu Thương09:07 - Jul 16, 2020
Dạ!.nếu mình không dùng record macro thì viết code ở dạng tổng quát sao ạ
vỗ tay
Nguyễn Hữu Thương10:07 - Jul 16, 2020
chào bạn bạn cần viết hàm dạng như sau: Option Explicit Sub GITIHOVLOOKUP() Dim kq As String, dulieu As String dulieu = Sheet1.Range("E2").Value kq = Application.WorksheetFunction.VLookup(dulieu, Sheet1.Range("C2:D3"), 2, 0) Sheet1.Range("f2").Value = kq End Sub
vỗ tay
Nguyễn Hữu Thương10:07 - Jul 16, 2020
Dạ!.Em cảm ơn ạ
vỗ tay
Nguyễn Hữu Thương07:07 - Jul 17, 2020
Dạ!.thầy cho em hỏi code tách dữ liệu trong 1 ô ở dạng tổng quát viết sao ạ
vỗ tay
Nguyễn Hữu Thương08:07 - Jul 17, 2020
Chào bạn bạn phải có dữ liệu mẫu mới biết được phương pháp tách ra sao.
vỗ tay
Nguyễn Hữu Thương09:07 - Jul 17, 2020
Ví dụ: ô A1 có dữ liệu như sau: P1-abc.Em muốn tách đữ liệu sau dấu "-" thì làm sao ạ
vỗ tay
Nguyễn Hữu Thương10:07 - Jul 17, 2020
Chào bạn bạn làm theo cách sau: Option Explicit Function TachChuoi(chuoi As String, kytu As String, Optional So As Byte = 0) As String Dim Tam As Variant Tam = Split(chuoi, kytu) TachChuoi = Tam(So) End Function Sub tachchuoikytu() Dim chuoi As String chuoi = "P1-abc" Sheet1.Range("A1").Value = TachChuoi(chuoi, "-", 1) End Sub Hoặc Sub tachchuoi2() Dim chuoi As String, kytu As String kytu = "[^\-\P\d{*}]" chuoi = "P1-abc" Sheet1.Range("A2").Value = RegxFunc(chuoi, kytu) End Sub Function RegxFunc(strInput As String, regexPattern As String) As String Dim regEx As Object, matches As Object, Arr As Variant, i As Long Set regEx = CreateObject("vbscript.regexp") With regEx .Global = True .MultiLine = True .IgnoreCase = False .Pattern = regexPattern End With If regEx.Test(strInput) Then Set matches = regEx.Execute(strInput) ReDim Arr(0 To matches.Count - 1) As Variant For i = 0 To matches.Count - 1 Arr(i) = matches.Item(i) Next i
RegxFunc = Join(Arr, "") Else RegxFunc = "Không có k" & ChrW(7871) & "t qu" & ChrW(7843) End If End Function
vỗ tay
Nguyễn Hữu Thương10:07 - Jul 17, 2020
Dạ em cảm ơn ạ
vỗ tay
Nguyễn Hữu Thương11:07 - Jul 20, 2020
Dạ thưa thầy!.em có record macro cho lệnh tách chuỗi này..nhưng nó lại hiện ra thông báo có muốn replace data không.Làm sao để tắt thông báo đó ạ