Giúp code thêm 1 ký tự và xóa đi 1 ký tự cho 1 vùng (1 người xem)

hondacrv2019 · 3/1/20

Chào cả nhà GPE ! em cần 2 đoạn code
-Thêm 1 ký tự vào bên trái ngoài cùng
- Xóa 1 ký tự bên trái ngoài cùng
Dữ liệu em tầm 2000 dòng. Mong mấy bác giúp code chạy nhanh nhanh tí. Hiện em đang dùng công thức thấy bảng tính chậm quá. Xin cảm ơn

SA_DQ · 4/1/20

Bài tập 1

PHP:

Sub Them01KyTuAVoDau()
Dim Cls As Range, Rng As Range:                    Dim Tmr As Double

Set Rng = Range([B1], [B65500].End(xlUp)):     Tmr = Timer()
For Each Cls In Rng
    If IsNumeric(Cls.Value) And Cls.Value <> "" Then
        Cls.Value = "A" & CStr(Cls.Value)
    End If
Next Cls
MsgBox Timer() - Tmr
End Sub

& buồn ngủ rồi, mai gặp lại & chúc ngủ ngon!

hondacrv2019 · 4/1/20

SA_DQ đã viết:
Bài tập 1

PHP:

Sub Them01KyTuAVoDau() Dim Cls As Range, Rng As Range: Dim Tmr As Double Set Rng = Range([B1], [B65500].End(xlUp)): Tmr = Timer() For Each Cls In Rng If IsNumeric(Cls.Value) And Cls.Value <> "" Then Cls.Value = "A" & CStr(Cls.Value) End If Next Cls MsgBox Timer() - Tmr End Sub

& buồn ngủ rồi, mai gặp lại & chúc ngủ ngon!

E cảm ơn bác nhiều. Em tự mò đoạn code Xóa 1 ký tự bên trái bác xem có chuẩn không

Mã:

Sub Them01KyTuAVoDau()
On Error Resume Next
Dim Cls As Range, Rng As Range
Set Rng = Range("b1:b3000")
For Each Cls In Rng
    If Cls.Value <> "" Then
        Cls.Value = "A" & CStr(Cls.Value)
    End If
Next Cls
End Sub


Sub xoa01KyTuAVoDau()
On Error Resume Next
Dim Cls As Range, Rng As Range
Set Rng = Range("b1:b3000")
For Each Cls In Rng
    If Cls.Value <> "" Then
        Cls.Value = Right(CStr(Cls.Value), Len(Cls.Value) - 1)
    End If
Next Cls
End Sub

Nhưng sao những ô ngày tháng năm sau khi em làm nó không lại giá trị như cũ
Ví dụ như thế này:
Dữ liệu ban đầu: ( từ 1/8/2020 đến 23/8/2020 )

Sau khi chạy code Them01KyTuAVoDau Nối chữ A vào thì nó Ok

và em muốn Xóa đi Chử A ( chạy code xoa01KyTuAVoDau) ban đầu để trở về giá trị ban đầu thì những ngày nào nhỏ hơn ngày 10 thì nó bị ngược ngày tháng năm. ( Ví dụ ban đầu 1/8/2020 thì sau thêm chử A thì nó thành --> A1/8/2020 và sau khi bỏ chữ A thì nó lại thành --> 8/1/2020. Mà đáng lý ra phải là 1/8/2020 )

bác xem giúp em với. Em xin cảm ơn nhiều

SA_DQ · 4/1/20

BT2: Bạn tham khảo thêm cái này:

PHP:

Sub Xoa01KyTuODauDeChuyenThanhSo()
Dim Cls As Range, Rng As Range:         Dim Tmp

Set Rng = Range([b2], [B2345].End(xlUp))
For Each Cls In Rng
    Tmp = Mid$(Cls.Value, 2, Len(Cls.Value))
    If IsNumeric(Tmp) Then
        Cls.Value = CLng(Tmp)
    Else
        Cls.Interior.ColorIndex = 38
    End If
Next Cls
End Sub

be_09 · 4/1/20

hondacrv2019 đã viết:
Chào cả nhà GPE ! em cần 2 đoạn code
-Thêm 1 ký tự vào bên trái ngoài cùng
- Xóa 1 ký tự bên trái ngoài cùng
Dữ liệu em tầm 2000 dòng. Mong mấy bác giúp code chạy nhanh nhanh tí. Hiện em đang dùng công thức thấy bảng tính chậm quá. Xin cảm ơn
View attachment 230753

Tôi nghĩ có thể làm thủ công thế này:
1/ Chọn vùng chứa dữ liệu rồi click phải chọn Format Cells > Custom vào khung Type cho cái định dạng này vào

"A"dd"/"mm"/"yyyy

2/ Muốn bỏ chữ A thì chọn vùng chứa dữ liệu rồi click phải chọn Format Cells chọn thẻ Number > Date rồi làm như hình.

SA_DQ · 4/1/20

PHP:

Sub BienSoLieuNgayThanhChuoi()
Dim Rws As Long
Dim Rng As Range, Cls As Range

Set Rng = Range([B3], [B2345].End(xlUp))
For Each Cls In Rng
    If IsDate(Cls.Value) Then
        Cls.Value = "G" & DateToTxt(Cls.Value)
    Else
        Cls.Interior.ColorIndex = 38
    End If
Next Cls
End Sub

Mã:

Function DateToTxt(Dat As Date) As String
Const FC As String = "/"
Dim StrC As String

StrC = Right("0" & CStr(Day(Dat)), 2) & FC & Right("0" & CStr(Month(Dat)), 2) & FC & CStr(Year(Dat))
DateToTxt = StrC
End Function

hondacrv2019 · 4/1/20

SA_DQ đã viết:

BT2: Bạn tham khảo thêm cái này:

PHP:

Sub Xoa01KyTuODauDeChuyenThanhSo()
Dim Cls As Range, Rng As Range:         Dim Tmp

Set Rng = Range([b2], [B2345].End(xlUp))
For Each Cls In Rng
    Tmp = Mid$(Cls.Value, 2, Len(Cls.Value))
    If IsNumeric(Tmp) Then
        Cls.Value = CLng(Tmp)
    Else
        Cls.Interior.ColorIndex = 38
    End If
Next Cls
End Sub

Code không chạy được bác ơi

Bài đã được tự động gộp: 4/1/20

be09 đã viết:
Tôi nghĩ có thể làm thủ công thế này:
1/ Chọn vùng chứa dữ liệu rồi click phải chọn Format Cells > Custom vào khung Type cho cái định dạng này vào

"A"dd"/"mm"/"yyyy

2/ Muốn bỏ chữ A thì chọn vùng chứa dữ liệu rồi click phải chọn Format Cells chọn thẻ Number > Date rồi làm như hình.

View attachment 230767
[/QUOTE

dạ em làm cái này để em quy đổi nó thành text để lưu vào bộ nhớ tạm với nhiều thành phần khác nữa bác. Còn cách của bác chỉ hiển thị cho ta thấy thôi chứ khi copy paste đi chổ khác thì chử A nó đâu có


Sub Them01KyTuAVoDau()
On Error Resume Next
Dim Cls As Range, Rng As Range
Set Rng = Range("b1:b3000")
For Each Cls In Rng
    If Cls.Value <> "" Then
        Cls.Value = "A" & CStr(Cls.Value)
    End If
Next Cls
End Sub


Sub xoa01KyTuAVoDau()
On Error Resume Next
Dim Cls As Range, Rng As Range
Set Rng = Range("b1:b3000")
For Each Cls In Rng
    If Cls.Value <> "" Then
        Cls.Value = DateToTxt(Right(CStr(Cls.Value), Len(Cls.Value) - 1))
    End If
Next Cls
End Sub

Cụ thể code chạy thêm chử A là OK. còn code xóa đi chữ A thì nó lại làm sai giá trị ( ví dụ A1/8/2019 thì sau khi bỏ chử A nó lại thành 8/1/2019 )

Bài đã được tự động gộp: 4/1/20

SA_DQ đã viết:

PHP:

Sub BienSoLieuNgayThanhChuoi()
Dim Rws As Long
Dim Rng As Range, Cls As Range

Set Rng = Range([B3], [B2345].End(xlUp))
For Each Cls In Rng
    If IsDate(Cls.Value) Then
        Cls.Value = "G" & DateToTxt(Cls.Value)
    Else
        Cls.Interior.ColorIndex = 38
    End If
Next Cls
End Sub

Mã:

Function DateToTxt(Dat As Date) As String
Const FC As String = "/"
Dim StrC As String

StrC = Right("0" & CStr(Day(Dat)), 2) & FC & Right("0" & CStr(Month(Dat)), 2) & FC & CStr(Year(Dat))
DateToTxt = StrC
End Function

Sub Them01KyTuAVoDau()
On Error Resume Next
Dim Cls As Range, Rng As Range
Set Rng = Range("b1:b3000")
For Each Cls In Rng
If Cls.Value <> "" Then
Cls.Value = "A" & CStr(Cls.Value)
End If
Next Cls
End Sub

Sub xoa01KyTuAVoDau()
On Error Resume Next
Dim Cls As Range, Rng As Range
Set Rng = Range("b1:b3000")
For Each Cls In Rng
If Cls.Value <> "" Then
Cls.Value = DateToTxt(Right(CStr(Cls.Value), Len(Cls.Value) - 1))
End If
Next Cls
End Sub

bác kiểm tra lại giúp em. Em cảm ơn nhiều
Cụ thể code chạy thêm chử A là OK. còn code xóa đi chữ A thì nó lại làm sai giá trị ( ví dụ A1/8/2019 thì sau khi bỏ chử A nó lại thành 8/1/2019 )

be_09 · 4/1/20

hondacrv2019 đã viết:
Code không chạy được bác ơi
.............................................................................
Cụ thể code chạy thêm chử A là OK. còn code xóa đi chữ A thì nó lại làm sai giá trị ( ví dụ A1/8/2019 thì sau khi bỏ chử A nó lại thành 8/1/2019 )
.............................................................................
bác kiểm tra lại giúp em. Em cảm ơn nhiều
Cụ thể code chạy thêm chử A là OK. còn code xóa đi chữ A thì nó lại làm sai giá trị ( ví dụ A1/8/2019 thì sau khi bỏ chử A nó lại thành 8/1/2019 )

Cụ thể bài 5 làm thủ công như vậy có đáp ứng yêu cầu không?
Nếu bạn thấy như vậy là áp dụng được thì mới tính đến code.

hondacrv2019 · 4/1/20

be09 đã viết:
Cụ thể bài 5 làm thủ công như vậy có đáp ứng yêu cầu không?
Nếu bạn thấy như vậy là áp dụng được thì mới tính đến code.

Dạ đã làm không đúng nhu cầu. Em cần dùng code. Mong bác hổ trợ. em cảm ơn bác

SA_DQ · 4/1/20

hondacrv2019 đã viết:
Code không chạy được bác ơi

Như thế nào là không chạy được?
(1) Mở Code ra, nhấn {F5} là nó chạy chứ sao không chạy được.
Tạm biệt bạn!

ongke0711 · 4/1/20

hondacrv2019 đã viết:
....

Sau khi chạy code Them01KyTuAVoDau Nối chữ A vào thì nó Ok
View attachment 230758

và em muốn Xóa đi Chử A ( chạy code xoa01KyTuAVoDau) ban đầu để trở về giá trị ban đầu thì những ngày nào nhỏ hơn ngày 10 thì nó bị ngược ngày tháng năm. ( Ví dụ ban đầu 1/8/2020 thì sau thêm chử A thì nó thành --> A1/8/2020 và sau khi bỏ chữ A thì nó lại thành --> 8/1/2020. Mà đáng lý ra phải là 1/8/2020 )

Tôi nghĩ bạn nên đưa bài toán tổng thể của bạn là gì rồi mọi người góp ý giải pháp xử lý khác có thể sẽ tốt hơn. Tôi thấy yêu cầu của bạn thêm ký tự gì đó vào nguồn dữ liệu có sẳn rồi sau đó lại xoá đi trả dữ liệu về như cũ để giải quyết một công việc tính toán gì đó của bạn nó sai với việc quản lý dữ liệu quá. Dữ liệu nguồn là không đổi, bạn chỉ có thể thêm các cột phụ để xử lý chứ ai đâu đi sửa dữ liệu nguồn rồi trả về như cũ, nếu trong quá trình chạy nó phát sinh lỗi gì đó thì dữ liệu nguồn bị hư, không còn tin cậy được nữa thì sao.

befaint · 4/1/20

ongke0711 đã viết:
Tôi nghĩ bạn nên đưa bài toán tổng thể của bạn là gì rồi mọi người góp ý giải pháp xử lý khác có thể sẽ tốt hơn. Tôi thấy yêu cầu của bạn thêm ký tự gì đó vào nguồn dữ liệu có sẳn rồi sau đó lại xoá đi trả dữ liệu về như cũ để giải quyết một công việc tính toán gì đó của bạn nó sai với việc quản lý dữ liệu quá. Dữ liệu nguồn là không đổi, bạn chỉ có thể thêm các cột phụ để xử lý chứ ai đâu đi sửa dữ liệu nguồn rồi trả về như cũ, nếu trong quá trình chạy nó phát sinh lỗi gì đó thì dữ liệu nguồn bị hư, không còn tin cậy được nữa thì sao.

Anh lại không để ý chủ thớt là ai rồi.

)

Mọi người chỉ có thể làm đúng yêu cầu đã đưa, không ý kiến ý cò anh ơi.

hondacrv2019 · 4/1/20

SA_DQ đã viết:
Như thế nào là không chạy được?
(1) Mở Code ra, nhấn {F5} là nó chạy chứ sao không chạy được.
Tạm biệt bạn!

Code chạy được nhưng nó sai , nó vẫn 1/8/2019 sau khi bỏ ký tự bên trái nó lại 8/1/2019

Bài đã được tự động gộp: 4/1/20

ongke0711 đã viết:
Tôi nghĩ bạn nên đưa bài toán tổng thể của bạn là gì rồi mọi người góp ý giải pháp xử lý khác có thể sẽ tốt hơn. Tôi thấy yêu cầu của bạn thêm ký tự gì đó vào nguồn dữ liệu có sẳn rồi sau đó lại xoá đi trả dữ liệu về như cũ để giải quyết một công việc tính toán gì đó của bạn nó sai với việc quản lý dữ liệu quá. Dữ liệu nguồn là không đổi, bạn chỉ có thể thêm các cột phụ để xử lý chứ ai đâu đi sửa dữ liệu nguồn rồi trả về như cũ, nếu trong quá trình chạy nó phát sinh lỗi gì đó thì dữ liệu nguồn bị hư, không còn tin cậy được nữa thì sao.

Tôi không có bài toán gì hết anh. Tôi muốn thêm 1 chữ A vào Phía trái ngoài cùng bằng code. Việc nối chữ A vào đằng trước để làm gì thì chuyện đó của tôi khó nói lắm. rồi sau khi nối chử A xong tôi muốn 1 đoạn code Xóa chử A đi để nó trở về giá trị ban đầu thế thôi

SA_DQ · 4/1/20

hondacrv2019 đã viết:
Code chạy được nhưng nó sai , nó vẫn 1/8/2019 sau khi bỏ ký tự bên trái nó lại 8/1/2019

(1) Chạy được mà sai khác hoàn toàn với không chạy được.

(2) Đừng cố thử với 1/8/20.. Mà nên thử chí ít với 1/13/2019 Hay 18/10/2019
Thử như bạn thì đến mùng thất cũng cho là người khác sai, còn bản thân mình thì chưa được thỏa iêu cầu đề ra!

Tệ quá xá & chắc đây là bài cuối của mình với bạn!

batman1 · 5/1/20

hondacrv2019 đã viết:
Code chạy được nhưng nó sai , nó vẫn 1/8/2019 sau khi bỏ ký tự bên trái nó lại 8/1/2019

1. Không dùng nối chuỗi, và không dùng mặc định "/" vì khi chạy code trên máy có thiết lập khác thì sẽ sai.

2. Khi đã thêm "A" ở đầu thì phải chấp nhận là dạng kết quả sẽ tùy thuộc system. Bạn có thiết lập trong CP là dd/MM/yyyy thì bạn nhìn thấy ngày tháng là 01/08/2020, và khi thêm A thì có A01/08/2020. Nhưng tôi có thiết lập yyyy-MM-dd thì tôi mong đợi phải có 2020-08-01, và khi thêm A tôi mong đợi có A2020-08-01.

Nếu bạn muốn khi chạy code1 thì từ 01/08/2020 (2020-08-01) sẽ có A01/08/2020 (A2020-08-01), và khi chạy code2 thì lại có 01/08/2020 (2020-08-01) - tức ngày tháng thực sự và không bị đảo lộn, thì hãy sửa code của bác SA_DQ thành

Mã:

Sub Them01KyTuAVoDau()
Dim Cls As Range, Rng As Range
    Set Rng = Range("b3:b3000")
    For Each Cls In Rng
        If Cls.Value <> "" Then
            Cls.Value = "A" & Cls.Value
        End If
    Next Cls
End Sub


Sub xoa01KyTuAVoDau()
Dim Cls As Range, Rng As Range
    Set Rng = Range("b3:b3000")
    For Each Cls In Rng
        If Len(Cls.Value) > 1 Then
            Cls.Value = CDate(Mid(Cls.Value, 2))
        End If
    Next Cls
End Sub

hondacrv2019 · 5/1/20

batman1 đã viết:
1. Không dùng nối chuỗi, và không dùng mặc định "/" vì khi chạy code trên máy có thiết lập khác thì sẽ sai.

2. Khi đã thêm "A" ở đầu thì phải chấp nhận là dạng kết quả sẽ tùy thuộc system. Bạn có thiết lập trong CP là dd/MM/yyyy thì bạn nhìn thấy ngày tháng là 01/08/2020, và khi thêm A thì có A01/08/2020. Nhưng tôi có thiết lập yyyy-MM-dd thì tôi mong đợi phải có 2020-08-01, và khi thêm A tôi mong đợi có A2020-08-01.

Nếu bạn muốn khi chạy code1 thì từ 01/08/2020 (2020-08-01) sẽ có A01/08/2020 (A2020-08-01), và khi chạy code2 thì lại có 01/08/2020 (2020-08-01) - tức ngày tháng thực sự và không bị đảo lộn, thì hãy sửa code của bác SA_DQ thành

Mã:

Sub Them01KyTuAVoDau() Dim Cls As Range, Rng As Range Set Rng = Range("b3:b3000") For Each Cls In Rng If Cls.Value <> "" Then Cls.Value = "A" & Cls.Value End If Next Cls End Sub Sub xoa01KyTuAVoDau() Dim Cls As Range, Rng As Range Set Rng = Range("b3:b3000") For Each Cls In Rng If Len(Cls.Value) > 1 Then Cls.Value = CDate(Mid(Cls.Value, 2)) End If Next Cls End Sub

Code bác thật sự nó chuẩn chính xác 100% theo nhu cầu của em. Em xin chân thành cảm ơn bác

Bài đã được tự động gộp: 5/1/20

SA_DQ đã viết:
(1) Chạy được mà sai khác hoàn toàn với không chạy được.

(2) Đừng cố thử với 1/8/20.. Mà nên thử chí ít với 1/13/2019 Hay 18/10/2019
Thử như bạn thì đến mùng thất cũng cho là người khác sai, còn bản thân mình thì chưa được thỏa iêu cầu đề ra!

Tệ quá xá & chắc đây là bài cuối của mình với bạn!

Ý em nói code chạy sai 1/8 thì thành 8/1 thì nó sai thì em báo cho bác biết thôi. Chứ nó đã sai rồi cần gì các Ngày khác đâu bác. Dù sao em cũng cảm ơn bác . CHúc bác năm mới sức khỏe dồi dào rực rỡ

VetMini · 5/1/20

SA_DQ đã viết:
...
Tệ quá xá & chắc đây là bài cuối của mình với bạn!

Các bạn kiên nhẫn thật.

- Thớt này, đúng như lời ở bài #12, đang làm một (hoặc vài) dự án có liên quan đến VBA.
- Những gì thớt hỏi chỉ là vấn đề giả định và nhất thời (nông nổi). Vì nó giả định và nhất thời cho nên thớt không thể lường trước những kết quả, chỉ thấy không giống ý mình thì la lên "không chạy, sai,..."
- Thớt không bao giờ giải thích rõ ràng vấn đề của mình. Bởi vì theo thớt, các vấn đề này là nhạy cảm, là sở hữu trí tuệ của thớt, một khi trình bày rõ ra sẽ bị người khác "ăn cắp".
- Thớt không bao giờ có kiên nhẫn để lý luận với bạn. Chỉ có đúng/sai, đúng 100%, sai 100%. Hay thỉnh thoảng đúng 90% (chả biết chỉ tiêu lấy ở đâu ra).

Kết luận, tôi thì gặp mấy bài này thích thì làm chơi cho vui thôi chứ không không buồn chỉnh sửa. Các yêu cầu của thớt nó đặc thù quá, chả giúp ích gì cho người khác. (và cũng có thể đó là chủ đích của thớt)

hondacrv2019 · 5/1/20

VetMini đã viết:
Các bạn kiên nhẫn thật.

- Thớt này, đúng như lời ở bài #12, đang làm một (hoặc vài) dự án có liên quan đến VBA.
- Những gì thớt hỏi chỉ là vấn đề giả định và nhất thời (nông nổi). Vì nó giả định và nhất thời cho nên thớt không thể lường trước những kết quả, chỉ thấy không giống ý mình thì la lên "không chạy, sai,..."
- Thớt không bao giờ giải thích rõ ràng vấn đề của mình. Bởi vì theo thớt, các vấn đề này là nhạy cảm, là sở hữu trí tuệ của thớt, một khi trình bày rõ ra sẽ bị người khác "ăn cắp".
- Thớt không bao giờ có kiên nhẫn để lý luận với bạn. Chỉ có đúng/sai, đúng 100%, sai 100%. Hay thỉnh thoảng đúng 90% (chả biết chỉ tiêu lấy ở đâu ra).

Kết luận, tôi thì gặp mấy bài này thích thì làm chơi cho vui thôi chứ không không buồn chỉnh sửa. Các yêu cầu của thớt nó đặc thù quá, chả giúp ích gì cho người khác. (và cũng có thể đó là chủ đích của thớt)

Quán Tự Tại thực hành trí tuệ,

Bát-nhã ba-la-mật sáng ngời,

Bấy giờ Bồ-tát quán soi,

Thấy rằng năm uẩn ba đời đều không. O

Vượt tất cả các vòng khổ ách,

Hãy nghe này, Xá-lợi-phất ông!

SA_DQ · 5/1/20

Mô phật, cha mẹ của thầy tu cũng không ăn chay mới có thầy đó ạ!
/(/ếu ngược lại thì thầy sao tồn tại trên đời để đi tu (?)

hondacrv2019 · 5/1/20

SA_DQ đã viết:
Mô phật, cha mẹ của thầy tu cũng không ăn chay mới có thầy đó ạ!
/(/ếu ngược lại thì thầy sao tồn tại trên đời để đi tu (?)

A-di-đà Phật sắc thân vàng,

Tướng tốt không gì thể sánh ngang.

Mắt biếc lắng trong trùm bốn biển,

Tu-di rực rỡ ngập hào quang.

Trong ánh quang minh vô số Phật,

Ứng thân Bồ-tát hiện vô vàn.

Bài đã được tự động gộp: 5/1/20

batman1 đã viết:
1. Không dùng nối chuỗi, và không dùng mặc định "/" vì khi chạy code trên máy có thiết lập khác thì sẽ sai.

2. Khi đã thêm "A" ở đầu thì phải chấp nhận là dạng kết quả sẽ tùy thuộc system. Bạn có thiết lập trong CP là dd/MM/yyyy thì bạn nhìn thấy ngày tháng là 01/08/2020, và khi thêm A thì có A01/08/2020. Nhưng tôi có thiết lập yyyy-MM-dd thì tôi mong đợi phải có 2020-08-01, và khi thêm A tôi mong đợi có A2020-08-01.

Nếu bạn muốn khi chạy code1 thì từ 01/08/2020 (2020-08-01) sẽ có A01/08/2020 (A2020-08-01), và khi chạy code2 thì lại có 01/08/2020 (2020-08-01) - tức ngày tháng thực sự và không bị đảo lộn, thì hãy sửa code của bác SA_DQ thành

Mã:

Sub Them01KyTuAVoDau() Dim Cls As Range, Rng As Range Set Rng = Range("b3:b3000") For Each Cls In Rng If Cls.Value <> "" Then Cls.Value = "A" & Cls.Value End If Next Cls End Sub Sub xoa01KyTuAVoDau() Dim Cls As Range, Rng As Range Set Rng = Range("b3:b3000") For Each Cls In Rng If Len(Cls.Value) > 1 Then Cls.Value = CDate(Mid(Cls.Value, 2)) End If Next Cls End Sub

Code chạy chính xác 100%. cảm ơn bác

Bài đã được tự động gộp: 5/1/20

VetMini đã viết:
Các bạn kiên nhẫn thật.

- Thớt này, đúng như lời ở bài #12, đang làm một (hoặc vài) dự án có liên quan đến VBA.
- Những gì thớt hỏi chỉ là vấn đề giả định và nhất thời (nông nổi). Vì nó giả định và nhất thời cho nên thớt không thể lường trước những kết quả, chỉ thấy không giống ý mình thì la lên "không chạy, sai,..."
- Thớt không bao giờ giải thích rõ ràng vấn đề của mình. Bởi vì theo thớt, các vấn đề này là nhạy cảm, là sở hữu trí tuệ của thớt, một khi trình bày rõ ra sẽ bị người khác "ăn cắp".
- Thớt không bao giờ có kiên nhẫn để lý luận với bạn. Chỉ có đúng/sai, đúng 100%, sai 100%. Hay thỉnh thoảng đúng 90% (chả biết chỉ tiêu lấy ở đâu ra).

Kết luận, tôi thì gặp mấy bài này thích thì làm chơi cho vui thôi chứ không không buồn chỉnh sửa. Các yêu cầu của thớt nó đặc thù quá, chả giúp ích gì cho người khác. (và cũng có thể đó là chủ đích của thớt)

Với nhửng câu hỏi của e. 1 là Đúng 2 là Sai không có vụ lương ương đâu. Test rất kỷ 3 ngày 3 đêm trong phòng thí nghiệm

Giúp code thêm 1 ký tự và xóa đi 1 ký tự cho 1 vùng (1 người xem)

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

Thành viên bị đình chỉ hoạt động

/(hông là gì!

Thành viên bị đình chỉ hoạt động

/(hông là gì!

Biên Hòa, Đồng Nai

/(hông là gì!

Thành viên bị đình chỉ hoạt động

Biên Hòa, Đồng Nai

Thành viên bị đình chỉ hoạt động

/(hông là gì!

Thành viên gắn bó

|||||||||||||

Thành viên bị đình chỉ hoạt động

/(hông là gì!

Thành viên gạo cội

Thành viên bị đình chỉ hoạt động

Ăn cùng góc phố

Thành viên bị đình chỉ hoạt động

/(hông là gì!

Thành viên bị đình chỉ hoạt động

Đếm ngược thời gian