Xin code thay thế công thức IF (1 người xem)

Elx Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
P

pinklove

Thành viên thường trực
Tham gia
21/1/08
Bài viết
336
Được thích
42
Em có file như file đính kèm theo.
Ở cột B em có dùng công thức IF. Nhưng nếu như ở cột C và D em delete và đánh số mới thì giá trị cột B mới thay đổi đúng theo công thức, còn nếu em Cut và Paste thì giá trị nó không thay đổi. Nhờ các bác sửa lỗi này giúp em.
Ngoài ra, File của em có gần 50 sheet như thế này nên em muốn nhờ các bác viết cho em cái code thay thế để nó xử lý file được nhanh hơn có được không ạ.
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Tại C191 và D191, số liệu như bên dưới thì kết quả tại cột trạng thái là thế nào?
c1616367 1795173
---
Chớ quá lâu, viết đại đoạn code
Mã: 
Public Sub Thay_The()
Dim DL, kq(), r As Long
DL = Sheet1.Range("A9", "D" & Sheet1.Range("A1000000").End(xlUp).Row)
ReDim kq(1 To UBound(DL), 1 To 1)

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[a-z]+"
For r = 1 To UBound(DL)

If DL(r, 3) <> "" Then
If .test(DL(r, 3)) Then
kq(r, 1) = UCase(.Execute(DL(r, 3))(0))
Else
DL(r, 3) = 1
End If
End If

If DL(r, 4) <> "" Then
If .test(DL(r, 4)) Then
kq(r, 1) = UCase(.Execute(DL(r, 4))(0))
Else
DL(r, 4) = 2
End If
End If

If .test(DL(r, 3)) = 0 And .test(DL(r, 4)) = 0 Then
kq(r, 1) = DL(r, 3) + DL(r, 4)

Select Case kq(r, 1)
Case Is = 1
kq(r, 1) = "A"
Case Is = 2
kq(r, 1) = "M"
Case Is = 3
kq(r, 1) = "A" & "+" & "M"
Case Is = 0
kq(r, 1) = "T"
End Select

End If
Next r
End With

Sheet1.Range("B9").Resize(UBound(kq), 1).ClearContents
Sheet1.Range("B9").Resize(UBound(kq), 1).Value = kq
End Sub
---
Chúc may mắn!
 
Lần chỉnh sửa cuối:
Upvote 0
Cảm ơn bạn. Tại C191 và D191 như thế thì kết quả cột trạng thái là M. Còn nếu như là
1616367 c1795173 thì kết quả là A.
Còn nếu c1616367 c1795173 thì mới ra kết quả là C.
Nhờ bạn xem lại cái đó.

Còn 1 vấn đề nữa:
Khi mình paste code này vào modun thì nó không tự chạy để thay đổi kq cột trạng thái mà mỗi lần thay đổi số liệu mình lại phải chọn Run Macros nó mới thay đổi. Bạn chỉ giúp mình cách khắc phục với.
 
Upvote 0
pinklove đã viết:
Cảm ơn bạn. Tại C191 và D191 như thế thì kết quả cột trạng thái là M. Còn nếu như là
1616367 c1795173 thì kết quả là A.
Còn nếu c1616367 c1795173 thì mới ra kết quả là C.
Nhờ bạn xem lại cái đó.

Còn 1 vấn đề nữa:
Khi mình paste code này vào modun thì nó không tự chạy để thay đổi kq cột trạng thái mà mỗi lần thay đổi số liệu mình lại phải chọn Run Macros nó mới thay đổi. Bạn chỉ giúp mình cách khắc phục với.
Nhấp chuột vào đây để mở rộng...
1. Thêm một vòng lặp xóa các ô có chứa chữ "C" sẽ đạt yêu cầu của bạn.
( code hơi dài nhưng chưa nghĩ được cách tuốt lại )
Mã: 
Public Sub Thay_The()
Dim DL, kq(), r As Long
DL = Sheet1.Range("A9", "D" & Sheet1.Range("A1000000").End(xlUp).Row)
ReDim kq(1 To UBound(DL), 1 To 1)

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[a-z]+"

For r = 1 To UBound(DL) 'Thêm để xóa ô có chứa chữ "C"
If .test(DL(r, 3)) Then
If .Execute(DL(r, 3))(0) = "c" Then
DL(r, 3) = "c"
End If
End If

If .test(DL(r, 4)) Then
If .Execute(DL(r, 4))(0) = "c" Then
DL(r, 4) = "c"
End If
End If
Next r

For r = 1 To UBound(DL)
If DL(r, 3) <> "" Then
If .test(DL(r, 3)) Then
kq(r, 1) = UCase(.Execute(DL(r, 3))(0))
Else
DL(r, 3) = 1
End If
End If

If DL(r, 4) <> "" Then
If .test(DL(r, 4)) Then
kq(r, 1) = UCase(.Execute(DL(r, 4))(0))
Else
DL(r, 4) = 2
End If
End If

If .test(DL(r, 3)) = 0 And .test(DL(r, 4)) = 0 Then
kq(r, 1) = DL(r, 3) + DL(r, 4)

Select Case kq(r, 1)
Case Is = 1
kq(r, 1) = "A"
Case Is = 2
kq(r, 1) = "M"
Case Is = 3
kq(r, 1) = "A" & "+" & "M"
Case Is = 0
kq(r, 1) = "T"
End Select

End If
Next r
End With

Sheet1.Range("B9").Resize(UBound(kq), 1).ClearContents
Sheet1.Range("B9").Resize(UBound(kq), 1).Value = kq
End Sub

2.Bạn thông báo xem dữ liệu nhập tay vào vùng nào mới tính được
 
Lần chỉnh sửa cuối:
Upvote 0
Vẫn chưa được bạn ạ. Ví dụ ở C26 và D26 nhập vào c1616281 và 1795051 nhưng trạng thái vẫn là C trong khi đúng phải là M.
Dữ liệu nhập tay của mình là vào các cột A,C,D từ dòng 9 đến dòng 840.
 
Lần chỉnh sửa cuối:
Upvote 0
pinklove đã viết:
Vẫn chưa được bạn ạ. Ví dụ ở C26 và D26 nhập vào c1616281 và 1795051 nhưng trạng thái vẫn là C trong khi đúng phải là M.
Dữ liệu nhập tay của mình là vào các cột A,C,D từ dòng 9 đến dòng 840.
Nhấp chuột vào đây để mở rộng...

Bạn dán lại code của bài 4 rồi kiểm tra lại kết quả xem sao ( Đã sửa lại: Đổi Empty---> "c". )
Có lẽ là bạn đính kèm file giả định gần như thật để tính một thể
---
Cũng cần làm cụ thể các trường hợp tính toán vì như trường hợp "- Thuê bao bị cắt thì ghi "C" phía trước số thuê bao, đóng lại thì xóa" ghi trong file đính kèm không nói rõ là cắt cả 2 thuê bao hay còn giữ lại một phần
 
Lần chỉnh sửa cuối:
Upvote 0
Mình thử lại rồi vẫn ko được bạn à. File mình đính kèm ở bài 1 là file thật đó. Mình copy nguyên một sheet trong file của mình đó. Tất cả các sheet giống nhau mà. Chỉ có số liệu mỗi trạm khác nhau thôi. Nếu có thể bạn nt vào số điện thoại mình gửi cho bạn trong tin nhắn. Mình sẽ gọi lại nói rõ hơn ý của mình cho bạn. Thanks bạn nhiều.
 
Upvote 0
gtri đã viết:
Cũng cần làm cụ thể các trường hợp tính toán vì như trường hợp "- Thuê bao bị cắt thì ghi "C" phía trước số thuê bao, đóng lại thì xóa" ghi trong file đính kèm không nói rõ là cắt cả 2 thuê bao hay còn giữ lại một phần
Nhấp chuột vào đây để mở rộng...
Ý mình là nếu thuê bao bị cắt thì ghi C trước số, đóng lại thì xóa chữ C đi, nên nếu như cổng đang sử dụng 2 dịch vụ là A+M mà A bị cắt thì còn lại M và ngược lại chứ không phải cổng cắt "C". Khi cắt cả 2 dịch vụ, tức là có C trước cả 2 số của A và M thì khi đó nó mới là "C"
 
Upvote 0
Thêm một vấn đề nữa là nó code vẫn chưa tự chạy được mà sau mỗi lần mình thay đổi số liệu thì phải chọn Run Macros bạn ạ.

Nếu không sử dụng VBA mà để nguyên công thức, khi mình xóa dữ liệu ở cột C và D rồi nhập lại thủ công thì trạng thái chuyển đúng, nhưng khi mình CUT và PASTE, ví dụ cổng 1 hỏng nên chuyển sang cổng 2, CUT số PASTE sang thì trạng thái nó không đổi được, nhờ bạn chỉ giúp cách sửa luôn.
 
Lần chỉnh sửa cuối:
Upvote 0
pinklove đã viết:
Thêm một vấn đề nữa là nó code vẫn chưa tự chạy được mà sau mỗi lần mình thay đổi số liệu thì phải chọn Run Macros bạn ạ.

Nếu không sử dụng VBA mà để nguyên công thức, khi mình xóa dữ liệu ở cột C và D rồi nhập lại thủ công thì trạng thái chuyển đúng, nhưng khi mình CUT và PASTE, ví dụ cổng 1 hỏng nên chuyển sang cổng 2, CUT số PASTE sang thì trạng thái nó không đổi được, nhờ bạn chỉ giúp cách sửa luôn.
Nhấp chuột vào đây để mở rộng...
Việc sử dụng công thức với nhiều điều kiện như của bạn có lẽ là chờ cao thủ trên diễn đàn giúp đỡ vậy.
Gửi bạn file đính kèm dùng vba, bạn kiểm tra các yêu cầu xem sao.
 

File đính kèm

Upvote 0
pinklove đã viết:
Thêm một vấn đề nữa là nó code vẫn chưa tự chạy được mà sau mỗi lần mình thay đổi số liệu thì phải chọn Run Macros bạn ạ.

Nếu không sử dụng VBA mà để nguyên công thức, khi mình xóa dữ liệu ở cột C và D rồi nhập lại thủ công thì trạng thái chuyển đúng, nhưng khi mình CUT và PASTE, ví dụ cổng 1 hỏng nên chuyển sang cổng 2, CUT số PASTE sang thì trạng thái nó không đổi được, nhờ bạn chỉ giúp cách sửa luôn.
Nhấp chuột vào đây để mở rộng...
Nút bấm không đk à bác.
 
Upvote 0
Vấn đề của bạn nằm ở chỗ có một số hàm bị mất điểm mốc khi dùng cut/paste - Excel đếm cells theo điểm mốc.

Để giải quyết, ở các nơi COUNT, COUNTIF, nếu ô tham chiếu có khả năng bị cut (tức là các cột C, D), bạn dùng hàm Offset để tham chiếu.
Muốn tham chiếu C9 thì dùng OFFSET(A9,,2).Muốn tham chiếu D9 thì dùng OFFSET(A9,,3).Muốn tham chiếu C9:D9 thì dùng OFFSET(A9,,2,,2)

Tính tôi chỉ đưa ra giải pháp thôi chứ rất lười làm A đến Z. Bạn chịu khó tự sửa công thức của mình.
 
Upvote 0
Bổ xung:
Mình cứ tưởng là chủ thớt tự làm công thức mà bị kẹt. Xem kỹ lại thì bài này chủ thớt đã hỏi ở thớt khác. Bây giờ lại mở thêm thớt này để hỏi.
Kiểu này thì để cho tác giả công thức giải quyết. Tôi không xía vào nữa.
 
Upvote 0
pinklove đã viết:
Ý mình là nếu thuê bao bị cắt thì ghi C trước số, đóng lại thì xóa chữ C đi, nên nếu như cổng đang sử dụng 2 dịch vụ là A+M mà A bị cắt thì còn lại M và ngược lại chứ không phải cổng cắt "C". Khi cắt cả 2 dịch vụ, tức là có C trước cả 2 số của A và M thì khi đó nó mới là "C"
Nhấp chuột vào đây để mở rộng...
Bạn dùng thử cách này xem sao.
 

File đính kèm

Upvote 0
Mình đã áp dụng tốt code của bạn. Bạn có thể cho mình hỏi thêm nếu mình muốn áp dụng code này cho riêng từng sheet trong file chứ không phải với tất cả các sheets thì mình phải làm thế nào không????
 
Upvote 0
pinklove đã viết:
Mình đã áp dụng tốt code của bạn. Bạn có thể cho mình hỏi thêm nếu mình muốn áp dụng code này cho riêng từng sheet trong file chứ không phải với tất cả các sheets thì mình phải làm thế nào không????
Nhấp chuột vào đây để mở rộng...
PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, Cll As Range, j As Long
If Not Intersect(Target, [A9:A65000,C9:D65000]) Is Nothing Then
For Each Cll In Intersect(Target, [A9:A65000,C9:D65000])
i = Cll.Row
    If Cells(i, 1) = Empty Then
        Cells(i, 2) = Empty
    ElseIf IsNumeric(Cells(i, 3)) And IsNumeric(Cells(i, 4)) And Cells(i, 3) > 0 And Cells(i, 4) > 0 Then
       Cells(i, 2) = "A+M"
    ElseIf IsNumeric(Cells(i, 3)) And Cells(i, 3) > 0 Then
       Cells(i, 2) = "A"
    ElseIf IsNumeric(Cells(i, 4)) And Cells(i, 4) > 0 Then
       Cells(i, 2) = "M"
    ElseIf UCase(Cells(i, 3)) Like "*MW*" Or UCase(Cells(i, 4)) Like "*MW*" Then
       Cells(i, 2) = "MW"
    ElseIf UCase(Cells(i, 3)) Like "*H*" Or UCase(Cells(i, 4)) Like "*H*" Then
       Cells(i, 2) = "H"
    ElseIf UCase(Cells(i, 3)) Like "*C*" Or UCase(Cells(i, 4)) Like "*C*" Then
       Cells(i, 2) = "C"
    Else
       Cells(i, 2) = "T"
    End If
Next Cll
End If
End Sub
Bạn chếp đoạn này vào thẳng sheet nhé, vẫn code của bác Phuocam
 
Upvote 0
comet_1701 đã viết:
PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, Cll As Range, j As Long
If Not Intersect(Target, [A9:A65000,C9:D65000]) Is Nothing Then
For Each Cll In Intersect(Target, [A9:A65000,C9:D65000])
i = Cll.Row
    If Cells(i, 1) = Empty Then
        Cells(i, 2) = Empty
    ElseIf IsNumeric(Cells(i, 3)) And IsNumeric(Cells(i, 4)) And Cells(i, 3) > 0 And Cells(i, 4) > 0 Then
       Cells(i, 2) = "A+M"
    ElseIf IsNumeric(Cells(i, 3)) And Cells(i, 3) > 0 Then
       Cells(i, 2) = "A"
    ElseIf IsNumeric(Cells(i, 4)) And Cells(i, 4) > 0 Then
       Cells(i, 2) = "M"
    ElseIf UCase(Cells(i, 3)) Like "*MW*" Or UCase(Cells(i, 4)) Like "*MW*" Then
       Cells(i, 2) = "MW"
    ElseIf UCase(Cells(i, 3)) Like "*H*" Or UCase(Cells(i, 4)) Like "*H*" Then
       Cells(i, 2) = "H"
    ElseIf UCase(Cells(i, 3)) Like "*C*" Or UCase(Cells(i, 4)) Like "*C*" Then
       Cells(i, 2) = "C"
    Else
       Cells(i, 2) = "T"
    End If
Next Cll
End If
End Sub
Bạn chếp đoạn này vào thẳng sheet nhé, vẫn code của bác Phuocam
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn. Mình đã thử nhưng khi thay đổi các giá trị cột C và D thì cột B ko tự động nhảy như khi làm với cả file mà phải click chuột vào ô mới thay đổi giá trị một lần nữa thì cột B mới thay đổi. Xem lại hộ mình được không ạ
 
Lần chỉnh sửa cuối:
Upvote 0
pinklove đã viết:
Cảm ơn bạn. Mình đã thử nhưng khi thay đổi các giá trị cột C và D thì cột B ko tự động nhảy như khi làm với cả file mà phải click chuột vào ô mới thay đổi giá trị một lần nữa thì cột B mới thay đổi. Xem lại hộ mình được không ạ
Nhấp chuột vào đây để mở rộng...
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, Cll As Range, j As Long
If Not Intersect(Target, [A9:A65000,C9:D65000]) Is Nothing Then
For Each Cll In Intersect(Target, [A9:A65000,C9:D65000])
i = Cll.Row
    If Cells(i, 1) = Empty Then
        Cells(i, 2) = Empty
    ElseIf IsNumeric(Cells(i, 3)) And IsNumeric(Cells(i, 4)) And Cells(i, 3) > 0 And Cells(i, 4) > 0 Then
       Cells(i, 2) = "A+M"
    ElseIf IsNumeric(Cells(i, 3)) And Cells(i, 3) > 0 Then
       Cells(i, 2) = "A"
    ElseIf IsNumeric(Cells(i, 4)) And Cells(i, 4) > 0 Then
       Cells(i, 2) = "M"
    ElseIf UCase(Cells(i, 3)) Like "*MW*" Or UCase(Cells(i, 4)) Like "*MW*" Then
       Cells(i, 2) = "MW"
    ElseIf UCase(Cells(i, 3)) Like "*H*" Or UCase(Cells(i, 4)) Like "*H*" Then
       Cells(i, 2) = "H"
    ElseIf UCase(Cells(i, 3)) Like "*C*" Or UCase(Cells(i, 4)) Like "*C*" Then
       Cells(i, 2) = "C"
    Else
       Cells(i, 2) = "T"
    End If
Next Cll
End If
End Sub
Bạn thử lại xem
 
Upvote 0
comet_1701 đã viết:
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, Cll As Range, j As Long
If Not Intersect(Target, [A9:A65000,C9:D65000]) Is Nothing Then
For Each Cll In Intersect(Target, [A9:A65000,C9:D65000])
i = Cll.Row
    If Cells(i, 1) = Empty Then
        Cells(i, 2) = Empty
    ElseIf IsNumeric(Cells(i, 3)) And IsNumeric(Cells(i, 4)) And Cells(i, 3) > 0 And Cells(i, 4) > 0 Then
       Cells(i, 2) = "A+M"
    ElseIf IsNumeric(Cells(i, 3)) And Cells(i, 3) > 0 Then
       Cells(i, 2) = "A"
    ElseIf IsNumeric(Cells(i, 4)) And Cells(i, 4) > 0 Then
       Cells(i, 2) = "M"
    ElseIf UCase(Cells(i, 3)) Like "*MW*" Or UCase(Cells(i, 4)) Like "*MW*" Then
       Cells(i, 2) = "MW"
    ElseIf UCase(Cells(i, 3)) Like "*H*" Or UCase(Cells(i, 4)) Like "*H*" Then
       Cells(i, 2) = "H"
    ElseIf UCase(Cells(i, 3)) Like "*C*" Or UCase(Cells(i, 4)) Like "*C*" Then
       Cells(i, 2) = "C"
    Else
       Cells(i, 2) = "T"
    End If
Next Cll
End If
End Sub
Bạn thử lại xem
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, đã ngon lành rồi. Bây giờ vẫn code đó nhưng mình muốn đổi sang vùng làm việc khác như trong file kèm theo. Mình đã thử đổi range nhưng không được. Bạn xem hộ mình với.
 
Upvote 0
pinklove đã viết:
Cảm ơn bạn, đã ngon lành rồi. Bây giờ vẫn code đó nhưng mình muốn đổi sang vùng làm việc khác như trong file kèm theo. Mình đã thử đổi range nhưng không được. Bạn xem hộ mình với.
Nhấp chuột vào đây để mở rộng...
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, Cll As Range, j As Long
If Not Intersect(Target, [C10:C65000,E10:F65000]) Is Nothing Then
For Each Cll In Intersect(Target, [C10:C65000,E10:F65000])
i = Cll.Row
    If Cells(i, 3) = Empty Then
        Cells(i, 4) = Empty
    ElseIf IsNumeric(Cells(i, 4)) And IsNumeric(Cells(i, 5)) And Cells(i, 4) > 0 And Cells(i, 5) > 0 Then
       Cells(i, 3) = "A+M"
    ElseIf IsNumeric(Cells(i, 4)) And Cells(i, 4) > 0 Then
       Cells(i, 3) = "A"
    ElseIf IsNumeric(Cells(i, 5)) And Cells(i, 5) > 0 Then
       Cells(i, 3) = "M"
    ElseIf UCase(Cells(i, 4)) Like "*MW*" Or UCase(Cells(i, 5)) Like "*MW*" Then
       Cells(i, 3) = "MW"
    ElseIf UCase(Cells(i, 4)) Like "*TB*" Or UCase(Cells(i, 5)) Like "*TB*" Then
       Cells(i, 3) = "TB"
    ElseIf UCase(Cells(i, 4)) Like "*H*" Or UCase(Cells(i, 5)) Like "*H*" Then
       Cells(i, 3) = "H"
    ElseIf UCase(Cells(i, 4)) Like "*C*" Or UCase(Cells(i, 5)) Like "*C*" Then
       Cells(i, 3) = "C"
    Else
       Cells(i, 3) = "T"
    End If
Next Cll
End If
End Sub
Bạn thay số cột cells(i, số cột phù hợp là được thôi) . Ko biết mình đã thay hết chưa,c ó gì bạn check lại nhé
 
Lần chỉnh sửa cuối:
Upvote 0
comet_1701 đã viết:
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, Cll As Range, j As Long
If Not Intersect(Target, [C10:C65000,E10:F65000]) Is Nothing Then
For Each Cll In Intersect(Target, [C10:C65000,E10:F65000])
i = Cll.Row
    If Cells(i, 3) = Empty Then
        Cells(i, 4) = Empty
    ElseIf IsNumeric(Cells(i, 4)) And IsNumeric(Cells(i, 5)) And Cells(i, 4) > 0 And Cells(i, 5) > 0 Then
       Cells(i, 3) = "A+M"
    ElseIf IsNumeric(Cells(i, 4)) And Cells(i, 4) > 0 Then
       Cells(i, 3) = "A"
    ElseIf IsNumeric(Cells(i, 5)) And Cells(i, 5) > 0 Then
       Cells(i, 3) = "M"
    ElseIf UCase(Cells(i, 4)) Like "*MW*" Or UCase(Cells(i, 5)) Like "*MW*" Then
       Cells(i, 3) = "MW"
    ElseIf UCase(Cells(i, 4)) Like "*TB*" Or UCase(Cells(i, 5)) Like "*TB*" Then
       Cells(i, 3) = "TB"
    ElseIf UCase(Cells(i, 4)) Like "*H*" Or UCase(Cells(i, 5)) Like "*H*" Then
       Cells(i, 3) = "H"
    ElseIf UCase(Cells(i, 4)) Like "*C*" Or UCase(Cells(i, 5)) Like "*C*" Then
       Cells(i, 3) = "C"
    Else
       Cells(i, 3) = "T"
    End If
Next Cll
End If
End Sub
Bạn thay số cột cells(i, số cột phù hợp là được thôi) . Ko biết mình đã thay hết chưa,c ó gì bạn check lại nhé
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhé. Bạn đổi có sai về số cột nhưng bạn chỉ như vậy mình đã hiểu và đã sửa lại được rồi.
 
Upvote 0
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

L
Tính thời gian làm việc thực tế
Trả lời
66
Đọc
14K
YenTon
Y
H
Chia sẻ file in Phiếu điều tra PCGD
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
13
Đọc
626
Phuong7686
P
GPE-Trợ Lý
  • Dán lên cao
[KHẨN] HƯỚNG VỀ ĐỒNG BÀO CHỊU ẢNH HƯỞNG CỦA BÃO YAGI - BẢO YÊN, LÀO CAI
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
91
Đọc
14K
SA_DQ
SA_DQ
SA_DQ
Copilot bình luận về một ván cờ vua
    • Thích
Trả lời
6
Đọc
409
SA_DQ
SA_DQ
92nguyenthanh
  • Question Question
Vba cho file nhập xuất kho (1 người xem)
Trả lời
4
Đọc
106
HUONGHCKT
H
C
Fix lỗi Application.InputBox Type:=8
    • Cười
Trả lời
25
Đọc
617
ptm0412
ptm0412
GPE-Trợ Lý
[GPE] TALK SHOW 08: GIẢI QUYẾT VẤN ĐỀ TỐI ƯU HÓA TRONG EXCEL VỚI CÔNG CỤ SOLVER
    • Thích
    • Cảm ơn
Trả lời
4
Đọc
3K
DuongLeHung
D
Gà Công Nghệ
Chế độ chính sách cho giáo viên mầm non giữ trẻ khuyết tật
Trả lời
1
Đọc
56
vanle33
vanle33
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
22K
dunghtgiga
dunghtgiga
L
  • Question Question
Viết code tìm kiếm các file trong Folder
Trả lời
40
Đọc
12K
lan nguyen0987
L
P
Hyperlink_Cách chuyển cả thư mục và file tổng hợp sang máy khác không bị lỗi
Trả lời
5
Đọc
107
phongvanvu
P
HeSanbi
Tiện ích Web: Tự động nhấn nút "Bỏ qua" quảng cáo Youtube
    • Thích
    • Yêu thích
Trả lời
14
Đọc
1K
ongke0711
ongke0711
ptm0412
Quá tin tưởng vào AI các thể loại
    • Cười
Trả lời
4
Đọc
218
Maika8008
Maika8008
A
  • Question Question
Không tìm được lỗi code
Trả lời
6
Đọc
158
ptm0412
ptm0412
W
Tham chiếu theo chuỗi ký tự
Trả lời
8
Đọc
312
dungpham01
D
tritv.dad
Lấy dữ liệu từ folder các tờ khai thông quan để theo dõi hiệu suất công việc.
Trả lời
8
Đọc
284
BlueSphere
B
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11 (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
SA_DQ
Xin chúc mừng các thầy cô giáo trên cộng đồng nhân 20/11
    • Thích
    • Yêu thích
Trả lời
1
Đọc
134
BuiQuangThuan
B
M
chuyển đổi số thành chữ
Trả lời
15
Đọc
369
dungpham01
D
V
Lỗi copy sheet: the name already exists.
Trả lời
7
Đọc
702
nghiabros
N
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