Xóa từ trong chuỗi theo điều kiện (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)
hongphuong1997 đã viết:
Hi hi..... hum nay bị cách ly rùi
Anh rảnh viết giúp em với anh snow25
Nhấp chuột vào đây để mở rộng...
Trích yếu một số nội dung trong file Excel bạn đính kèm :
yêu cầu : chuỗi "Việt Nam không có ổ dịch virut" nhờ các bạn trên diễn đàn xóa chữ "ô" và chữ "u" và móng muốn kết quả "Việt Nam có dịch" sau khi xem xét tôi có mấy ý kiến sau:
1. Kết quả với yêu cầu không phù hợp,
2. Nội dung nhạy cảm liên quan đến vấn đề thời cuộc và chính trị, phải có động cơ mục địch tích cực mới giúp được !
 
hungpecc1 đã viết:
Trích yếu một số nội dung trong file Excel bạn đính kèm :
yêu cầu : chuỗi "Việt Nam không có ổ dịch virut" nhờ các bạn trên diễn đàn xóa chữ "ô" và chữ "u" và móng muốn kết quả "Việt Nam có dịch" sau khi xem xét tôi có mấy ý kiến sau:
1. Kết quả với yêu cầu không phù hợp,
2. Nội dung liên quan đến vấn đề thời cuộc và chính trị, phải có động cơ mục địch tích cực mới giúp được !
Nhấp chuột vào đây để mở rộng...
Xóa từ có chữ "ô" hoặc chữ "u" anh oi
Bài đã được tự động gộp:

hungpecc1 đã viết:
Trích yếu một số nội dung trong file Excel bạn đính kèm :
yêu cầu : chuỗi "Việt Nam không có ổ dịch virut" nhờ các bạn trên diễn đàn xóa chữ "ô" và chữ "u" và móng muốn kết quả "Việt Nam có dịch" sau khi xem xét tôi có mấy ý kiến sau:
1. Kết quả với yêu cầu không phù hợp,
2. Nội dung nhạy cảm liên quan đến vấn đề thời cuộc và chính trị, phải có động cơ mục địch tích cực mới giúp được !
Nhấp chuột vào đây để mở rộng...
Anh đọc kỹ lại trong bài em nói rõ rùi mà
(Nhờ các bạn trên diễn đàn xóa giúp từ nào có chữ "Ô" hoặc "u")
 
hongphuong1997 đã viết:
Nhờ các anh chị và các thầy giúp bài như file đính kèm ạ
Nhấp chuột vào đây để mở rộng...
Thử công thức với Code của Thầy @ndu96081631
Công thức hơi dài
Mã: 
=JoinText(" ",IFERROR(TRIM(MID(SUBSTITUTE(" "&C6," ",REPT(" ",999)),AGGREGATE(15,6,ROW($1:$50)/(1-MMULT(N(ISNUMBER(SEARCH({"ô","ố","ồ","ổ","ỗ","ộ","u","ú","ù","ủ","ũ","ụ"},TRIM(MID(SUBSTITUTE(" "&C6," ",REPT(" ",999)),ROW($1:$50)*999,999))))),ROW($1:$12)^0)),ROW($1:$50))*999,999)),""))
 

File đính kèm

hocexcel_1991 đã viết:
Thử công thức với Code của Thầy @ndu96081631
Công thức hơi dài
Mã: 
=JoinText(" ",IFERROR(TRIM(MID(SUBSTITUTE(" "&C6," ",REPT(" ",999)),AGGREGATE(15,6,ROW($1:$50)/(1-MMULT(N(ISNUMBER(SEARCH({"ô","ố","ồ","ổ","ỗ","ộ","u","ú","ù","ủ","ũ","ụ"},TRIM(MID(SUBSTITUTE(" "&C6," ",REPT(" ",999)),ROW($1:$50)*999,999))))),ROW($1:$12)^0)),ROW($1:$50))*999,999)),""))
Nhấp chuột vào đây để mở rộng...
ui, ui!
Em cảm ơn anh ạ!
Công thức quá vĩ đại
Anh oi, có cách nào để công thức ngắn gọn không hở anh?
 
Trước sau gì cũng phải xài UDF. Thôi viết đại cái hàm mới cho rồi.
 
hongphuong1997 đã viết:
ui, ui!
Em cảm ơn anh ạ!
Công thức quá vĩ đại
Anh oi, có cách nào để công thức ngắn gọn không hở anh?
Nhấp chuột vào đây để mở rộng...
Dùng code củ chuối này thử.
Mã: 
Public Function GPE_Filter(sValue As String) As String
    Dim Arr, i%, s$
    Arr = Split(sValue, " ")
    s = ""
    For i = 0 To UBound(Arr)
        If (Check_Value(CStr(Arr(i)))) Then
            If s = "" Then
                s = Arr(i)
            Else
                s = s & " " & Arr(i)
            End If
        End If
    Next i
    GPE_Filter = s
End Function

Public Function Check_Value(s As String) As Boolean
    Dim Arr, i%
    Arr = Array("ô", ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), "u", "ú", "ù", ChrW(7911), ChrW(361), ChrW(7909))
    For i = LBound(Arr) To UBound(Arr)
        If (InStr(1, s, Arr(i)) > 0) Or (InStr(1, s, UCase(Arr(i))) > 0) Then
            Check_Value = False
            Exit Function
        End If
    Next
    Check_Value = True
End Function
Hàm dùng như sau:
Mã: 
=GPE_Filter(C6)
 
Dùng Regex, chỉ cần tìm từ có chứa ký tự, replace nó, trim là xong.
 
Tôi nhắc cho bạn ở bài số #6. Hình như bạn này cũng đang học về Regex.
 
giaiphap đã viết:
Dùng code củ chuối này thử.
Mã: 
Public Function GPE_Filter(sValue As String) As String
    Dim Arr, i%, s$
    Arr = Split(sValue, " ")
    s = ""
    For i = 0 To UBound(Arr)
        If (Check_Value(CStr(Arr(i)))) Then
            If s = "" Then
                s = Arr(i)
            Else
                s = s & " " & Arr(i)
            End If
        End If
    Next i
    GPE_Filter = s
End Function

Public Function Check_Value(s As String) As Boolean
    Dim Arr, i%
    Arr = Array("ô", ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), "u", "ú", "ù", ChrW(7911), ChrW(361), ChrW(7909))
    For i = LBound(Arr) To UBound(Arr)
        If (InStr(1, s, Arr(i)) > 0) Or (InStr(1, s, UCase(Arr(i))) > 0) Then
            Check_Value = False
            Exit Function
        End If
    Next
    Check_Value = True
End Function
Hàm dùng như sau:
Mã: 
=GPE_Filter(C6)
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh nhiều ạ
Chúc anh ngủ ngon và có nhiều giấc mơ anh nhé
Bài đã được tự động gộp:

VetMini đã viết:
Tôi có code, nhưng đợi thớt sửa ví dụ của mình cho hợp lệ đã.
Nhấp chuột vào đây để mở rộng...
Cháu cảm ơn bác đêm khuya mà bác vẫn quan tâm đến chúng cháu ạ
Cháu gửi lại file bác xem giúp cháu bác nhé.
 

File đính kèm

Không biết tác giả bài đăng muốn ra kết quả làm sao với mệnh đề: "Ông Không Có 'Ù' à?"
 
Function XoaTu(ByVal chuoi As String, ByVal kytu As String)
' code xoa nhung tu trong chuoi co chua ky tu kytu
Static rx As Object
Dim i As Integer
If rx Is Nothing Then
Set rx = CreateObject("vbscript.regexp")
rx.ignorecase = True
rx.Global = True
End If
rx.Pattern = Replace(" [^p ]*[p].*? ", "p", kytu)
XoaTu = Application.Trim(rx.Replace(" " & Replace(chuoi, " ", " ") & " ", " "))
' chú ý: phải chỉnh dấu cách ở chuỗi thành 2 dấu cách vì regex sẽ match từ trước và nuốt mất dấu cách từ kế tiếp
End Function

1585618317822.png
 
Lần chỉnh sửa cuối:
hongphuong1997 đã viết:
Nhờ các anh chị và các thầy giúp bài như file đính kèm ạ
Nhấp chuột vào đây để mở rộng...
Nếu có hàm Textjoin có thể dùng công thức này:
Mã: 
=TEXTJOIN("",TRUE,IF(ISERROR(MATCH(FIND(" ",C6&" ",ROW(1:1000)),IF(MATCH(MID(C6,ROW(1:1000),1),{"ô","ố","ồ","ổ","ỗ","ộ","u","ú","ù","ủ","ũ","ụ"},),FIND(" ",C6&" ",ROW(1:1000))),)),MID(C6,ROW(1:1000),1),""))
Ctrl+Shift+Enter
 
VetMini đã viết:
Function XoaTu(ByVal chuoi As String, ByVal kytu As String)
' code xoa nhung tu trong chuoi co chua ky tu kytu
Static rx As Object
Dim i As Integer
If rx Is Nothing Then
Set rx = CreateObject("vbscript.regexp")
rx.ignorecase = True
rx.Global = True
End If
rx.Pattern = Replace(" [^p ]*[p].*? ", "p", kytu)
XoaTu = Application.Trim(rx.Replace(" " & Replace(chuoi, " ", " ") & " ", " "))
' chú ý: phải chỉnh dấu cách ở chuỗi thành 2 dấu cách vì regex sẽ match từ trước và nuốt mất dấu cách từ kế tiếp
End Function

View attachment 234381
Nhấp chuột vào đây để mở rộng...
Pattern này có vẻ chưa đúng, do macth có khoảng trắng đầu và cuối chuỗi nên replace sẽ bị mất khoảng trắng của từ tiếp theo, nên 2 từ gần nhau sẽ replace được 1 từ, bạn thử với chuỗi "u u u u u"
 
excel_lv1.5 đã viết:
Pattern này có vẻ chưa đúng, do macth có khoảng trắng đầu và cuối chuỗi nên replace sẽ bị mất khoảng trắng của từ tiếp theo, nên 2 từ gần nhau sẽ replace được 1 từ, bạn thử với chuỗi "u u u u u"
Nhấp chuột vào đây để mở rộng...
VetMini đã viết:
...
XoaTu = Application.Trim(rx.Replace(" " & Replace(chuoi, " ", " ") & " ", " "))
' chú ý: phải chỉnh dấu cách ở chuỗi thành 2 dấu cách vì regex sẽ match từ trước và nuốt mất dấu cách từ kế tiếp
End Function
...
Nhấp chuột vào đây để mở rộng...
Cái phần "chú ý" tôi mới thêm để giải thích. Nhưng cái phần replace môt space thành hai spaces đã có từ trước rồi.
Trong kết quả thử ở bài trên. Nếu space bị nuốt thì "cuối phố" phải còn lại "phố"
cụm từ "chẳng hiểu vì sao không đóng bao giờ" phải còn lại "chẳng vì không bao giờ"
Bài thử của tôi cho ra không có "phố", và "chẳng vì giờ"
 
VetMini đã viết:
Cái phần "chú ý" tôi mới thêm để giải thích. Nhưng cái phần replace môt space thành hai spaces đã có từ trước rồi.
Trong kết quả thử ở bài trên. Nếu space bị nuốt thì "cuối phố" phải còn lại "phố"
cụm từ "chẳng hiểu vì sao không đóng bao giờ" phải còn lại "chẳng vì không bao giờ"
Bài thử của tôi cho ra không có "phố", và "chẳng vì giờ"
Nhấp chuột vào đây để mở rộng...
Có thể nó bị lỗi khác , bạn thử =XoaTu("u u u u","ôốồổỗộuúùủũụ") đúng ra nó phải trả về empty, nhưng kết quả là "u u"
 
Để xem lại.

Đã thử:
1585623085428.png

Hay là code tôi đang chạy nó khác version? Dò không thấy, để post lại đúng code đang chạy:

Function XoaTu(ByVal chuoi As String, ByVal kytu As String)
' code xoa nhung tu trong chuoi co chua ky tu kytu
Static rx As Object
Dim i As Integer
If rx Is Nothing Then
Set rx = CreateObject("vbscript.regexp")
rx.ignorecase = True
rx.Global = True
End If
rx.Pattern = Replace(" [^p ]*[p].*? ", "p", kytu)
XoaTu = Application.Trim(rx.Replace(" " & Replace(chuoi, " ", " ") & " ", " "))
End Function
 
Lần chỉnh sửa cuối:
VetMini đã viết:
Để xem lại.

Đã thử:
View attachment 234383

Hay là code tôi đang chạy nó khác version? Dò không thấy, để post lại đúng code đang chạy:

Function XoaTu(ByVal chuoi As String, ByVal kytu As String)
' code xoa nhung tu trong chuoi co chua ky tu kytu
Static rx As Object
Dim i As Integer
If rx Is Nothing Then
Set rx = CreateObject("vbscript.regexp")
rx.ignorecase = True
rx.Global = True
End If
rx.Pattern = Replace(" [^p ]*[p].*? ", "p", kytu)
XoaTu = Application.Trim(rx.Replace(" " & Replace(chuoi, " ", " ") & " ", " "))
End Function
Nhấp chuột vào đây để mở rộng...
Có lẽ khác version , tôi vẫn chạy ra "u u" cả 2019 và 365
 
của tôi là 2016, 64bit
 
excel_lv1.5 đã viết:
Có thể nó bị lỗi khác , bạn thử =XoaTu("u u u u","ôốồổỗộuúùủũụ") đúng ra nó phải trả về empty, nhưng kết quả là "u u"
Nhấp chuột vào đây để mở rộng...
bạn có thể dùng code này để cắt dấu tiềng việt. Sau đó dùng SUBSTITUTE để loại bỏ chữ U đi là xong
Mã: 
Function TV(ByVal Text As String) As String
    On Error Resume Next
    Dim CharCode, ResText As String, i As Long, tmp As String
    tmp = Text
    CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
                     ChrW(7849), ChrW(7851), ChrW(7853), ChrW(225), ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), _
                     ChrW(259), ChrW(226), ChrW(273), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
                     ChrW(233), ChrW(232), ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), _
                     ChrW(7881), ChrW(297), ChrW(7883), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), _
                     ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(243), ChrW(242), ChrW(7887), _
                     ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), _
                     ChrW(7921), ChrW(250), ChrW(249), ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), _
                     ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
    ResText = "aaaaaaaaaaaaaaaaadeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyy"
    For i = 0 To UBound(CharCode)
        tmp = Replace(tmp, CharCode(i), Mid(ResText, i + 1, 1))
        tmp = Replace(tmp, UCase(CharCode(i)), UCase(Mid(ResText, i + 1, 1)))
    Next
    TV = tmp
End Function
 
hunglam123 đã viết:
bạn có thể dùng code này để cắt dấu tiềng việt. Sau đó dùng SUBSTITUTE để loại bỏ chữ U đi là xong
Mã: 
Function TV(ByVal Text As String) As String
    On Error Resume Next
    Dim CharCode, ResText As String, i As Long, tmp As String
    tmp = Text
    CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
                     ChrW(7849), ChrW(7851), ChrW(7853), ChrW(225), ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), _
                     ChrW(259), ChrW(226), ChrW(273), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
                     ChrW(233), ChrW(232), ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), _
                     ChrW(7881), ChrW(297), ChrW(7883), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), _
                     ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(243), ChrW(242), ChrW(7887), _
                     ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), _
                     ChrW(7921), ChrW(250), ChrW(249), ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), _
                     ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
    ResText = "aaaaaaaaaaaaaaaaadeeeeeeeeeeeiiiiiooooooooooooooooouuuuuuuuuuuyyyyy"
    For i = 0 To UBound(CharCode)
        tmp = Replace(tmp, CharCode(i), Mid(ResText, i + 1, 1))
        tmp = Replace(tmp, UCase(CharCode(i)), UCase(Mid(ResText, i + 1, 1)))
    Next
    TV = tmp
End Function
Nhấp chuột vào đây để mở rộng...
Đâu cần xóa dấu làm gì bạn, nếu code dùng Regexp vẫn có thể nhận dạng được, mà cái trên chỉ là ví dụ thôi chứ mục đích của bài replace cả cụm từ chứa kí tự đó bạn ạ.
 
excel_lv1.5 đã viết:
Có lẽ khác version , tôi vẫn chạy ra "u u" cả 2019 và 365
Nhấp chuột vào đây để mở rộng...
Chú ý cái phần ".*?", với dấu hỏi để buộc nó không tham lam (non greedy).
Có thể do cái cỗ máy VBScript.Regexp của bạn nó thuộc version khác, và code "không tham lam" khác.
Tôi không thử trên Mac được vì Mac không có VBScript. Mấy cái máy chạy Unix chắc cũng chịu thua thôi.
 
VetMini đã viết:
Chú ý cái phần ".*?", với dấu hỏi để buộc nó không tham lam (non greedy).
Có thể do cái cỗ máy VBScript.Regexp của bạn nó thuộc version khác, và code "không tham lam" khác.
Tôi không thử trên Mac được vì Mac không có VBScript. Mấy cái máy chạy Unix chắc cũng chịu thua thôi.
Nhấp chuột vào đây để mở rộng...
Có lẽ do khác version, chỗ greedy tôi bỏ "?" nó vẫn lấy dài nhất, tôi không hiểu chỗ "[^p ]*" nếu mặc định là lấy dài nhất tức là có khoảng trắng.
nếu tôi viết theo regexp thì :
rx.Pattern = Replace("\S*[p]\S*", "p", kytu)
XoaTu = Application.Trim(rx.Replace(chuoi, " "))

2020-03-31_11-45-14.png
 
"[^p ]*" phần này được dùng để buộc * không chứa luôn ký tự cần tìm
Nếu không có phần này, tôi bị nó xoá không hết. Nhưng chắc \S* cũng chả sao.
Tuy nhiên phần chống tham lam (?) thì không thể thiếu, vì nó dùng để chóng xoá nhiều hơn mong muốn. Muốn thử phần này, bạn phải thử câu có nhiều từ khác nhau.
 
VetMini đã viết:
"[^p ]*" phần này được dùng để buộc * không chứa luôn ký tự cần tìm
Nếu không có phần này, tôi bị nó xoá không hết. Nhưng chắc \S* cũng chả sao.
Tuy nhiên phần chống tham lam (?) thì không thể thiếu, vì nó dùng để chóng xoá nhiều hơn mong muốn. Muốn thử phần này, bạn phải thử câu có nhiều từ khác nhau.
Nhấp chuột vào đây để mở rộng...
Đây anh ơi. Khoẳng trắng lấy vào từ trước rồi.

1585634041396.png
 
Regexp của VBScript hơi khác với JavaScript một chút. Nhưng chắc trường hợp này không sao. Tôi nhớ hầu hết các chỗ khác nhau nằm ở chỗ "ngó trước dòm sau"

Thử với không có ? rồi. Và cũng đúng. Bây giờ thì quên mất tại sao tối qua mình phải có nó (lúc ấy thử, không có nó clear một hơi cả đống).
 
Lần chỉnh sửa cuối:
giaiphap đã viết:
Dùng code củ chuối này thử.
Mã: 
Public Function GPE_Filter(sValue As String) As String
    Dim Arr, i%, s$
    Arr = Split(sValue, " ")
    s = ""
    For i = 0 To UBound(Arr)
        If (Check_Value(CStr(Arr(i)))) Then
            If s = "" Then
                s = Arr(i)
            Else
                s = s & " " & Arr(i)
            End If
        End If
    Next i
    GPE_Filter = s
End Function

Public Function Check_Value(s As String) As Boolean
    Dim Arr, i%
    Arr = Array("ô", ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), "u", "ú", "ù", ChrW(7911), ChrW(361), ChrW(7909))
    For i = LBound(Arr) To UBound(Arr)
        If (InStr(1, s, Arr(i)) > 0) Or (InStr(1, s, UCase(Arr(i))) > 0) Then
            Check_Value = False
            Exit Function
        End If
    Next
    Check_Value = True
End Function
Hàm dùng như sau:
Mã: 
=GPE_Filter(C6)
Nhấp chuột vào đây để mở rộng...
mục đích của cstr làm gì vậy, hỏi ngơ tí nhé
 

File đính kèm

  • screenshot_1585642172.png
    screenshot_1585642172.png
    18.5 KB · Đọc: 8
excel_lv1.5 đã viết:
Có lẽ do khác version, chỗ greedy tôi bỏ "?" nó vẫn lấy dài nhất, tôi không hiểu chỗ "[^p ]*" nếu mặc định là lấy dài nhất tức là có khoảng trắng.
nếu tôi viết theo regexp thì :
rx.Pattern = Replace("\S*[p]\S*", "p", kytu)
XoaTu = Application.Trim(rx.Replace(chuoi, " "))
...
Nhấp chuột vào đây để mở rộng...
Tôi nhớ ra rồi. Lỗi do tôi có thành kiến với các ký hiệu "word boundary" khi áp dụng cho unicode tiếng Việt. Có một số regex engines hoạtn động chập choạng chỗ này.
Vì mang thành kiến cho nên lúc đụng vào unicode là tôi dùng các kiểu hết sức cổ điển. Và bỏ qua \S, đó là điều mà tôi nhìn nhận thẳng là sai lầm nghiêm trọng. Nó gây sự rắc rối cho pattern tham lam và không tham lam.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
16
Đọc
315
Phan Thế Hiệp
Phan Thế Hiệp
Y
Lấy dữ liệu từ sheet chi tiết sang sheet tổng hợp hàng dọc
Trả lời
5
Đọc
517
SA_DQ
SA_DQ
N
Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả.
Trả lời
2
Đọc
91
minhminh27
minhminh27
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
382
Đọc
45K
TomRuoi
TomRuoi
NguyenthiH
Mở file Excel có Pass Open
Trả lời
39
Đọc
3K
Hoàng Tuấn 868
H
M
Tách dữ liệu trong 1 file thành nhiều sheet theo số lượng dòng
    • Ngạc nhiên
Trả lời
25
Đọc
3K
Hoàng Tuấn 868
H
T
Tìm số hóa đơn trong chuỗi
Trả lời
11
Đọc
419
thao nguyen01
T
T
  • Question Question
Nhờ ACE cao thủ hỗ trợ mình có một chương trình EXCEL về phân công lớp cho giáo viên (3 người xem)
Trả lời
6
Đọc
317
DeTong
D
T
Nhờ các anh chị sửa dùm công thức ạ.
Trả lời
10
Đọc
206
trantrungvinh1989
T
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
24
Đọc
2K
phuongdaik98
P
Phan Thế Hiệp
Quy đổi từ Thu nhập sau thuế (TNCN) ra Thu nhập tính thuế
    • Yêu thích
    • Thích
Trả lời
1
Đọc
337
Phan Thế Hiệp
Phan Thế Hiệp
V
Quên mật khẩu file excel
Trả lời
25
Đọc
2K
YêuCN
Y
Nguyen Rem
  • Question Question
Lỗi "User-defined type not defined" khi khai báo biến
Trả lời
28
Đọc
2K
nguyendang95
N
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
longlacda
L
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
5
Đọc
293
vietvanyen
V
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel (1 người xem)
Trả lời
3
Đọc
117
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính (1 người xem)
Trả lời
16
Đọc
349
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++ (1 người xem)
    • Thích
Trả lời
7
Đọc
703
nguyendang95
N
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng (1 người xem)
Trả lời
2
Đọc
152
Nga1852k
Nga1852k
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom