Kết quả tìm kiếm

Viết đại code thế này: Sub Test() Dim arr Dim idx As Long Dim lPos As Long Dim lNewTop As Long Dim lR As Long Dim lC As Long arr = Sheet1.Range("A2:B12").Value ReDim aDes(1 To 10, 1 To 10) lNewTop = 11 Randomize Do lPos = Int(Rnd() * lNewTop)...

Chính xác là cách này... Nhưng nhiều khi mở GA lên cũng không biết nói gì. Loanh quanh lại hỏi ba cái câu vớ vẩn như "How are you?"; "Do you know who I am?"... rồi nín luôn. Quan trọng là khi thằng GA nó nghe rồi trả lời lại một tràng dài, mình lại đực ra, hổng biết nó nói giống gì. Tuy vậy...

Sao em không hẹn gặp anh @vu_tuan_manh_linh để được mau lên xe? Thấy người ta không? Dù chưa quen biết mà chỉ hẹn gặp ảnh một lần là đổi đời rồi đó thấy chưa?

Bài toán kỳ cục! Nếu người ta không nhập mà xóa B8 thì G7 có tăng lên 1 không? Hoặc như người ta nhập vào B8 nhưng thấy sai, sửa lại phát thì G7 tăng thêm 1 luôn à?

Tự nhiên quên mất hàm BASE. Dù bài toán đã được dẫn đi hướng khác như vẫn cứ đưa lên, ai áp dụng được gì thì áp dụng: =SUBSTITUTE(SUBSTITUTE(BASE(ROW(A1),2,20),0,"A"),1,"B") Số 20 là chiều dài chuỗi, thay nó thành bao nhiêu tùy ý

Viết hàm tự tạo Dec2Bin, ví dụ: Function D2B(ByVal Num As Long, Optional ByVal Places As Long = 1) As String Dim qt As Long, rd As Long, Tmp As String qt = Num Do rd = qt Mod 2 qt = Int(qt / 2) Tmp = rd & Tmp Loop Until qt = 0 D2B = Format(Val(Tmp), String(Places, "0"))...

Sai thì thử tiếp: =SUBSTITUTE(REPLACE(SUBSTITUTE(A1,0," "),1,FIND(LEFT(TRIM(SUBSTITUTE(A1,0," ")),1),A1)-1,"")," ",0) ----------------------------------- Làm xong mới thấy bài 14, thôi bỏ luôn cho rồi

- Biến số 0 thành dấu cách - Dùng Trim để bỏ khoảng trắng thừa - Cuối cùng biến dấu cách thành số 0 =SUBSTITUTE(TRIM(SUBSTITUTE(A1,0," "))," ",0)

Đại khái vầy: Function ExtractNum(ByVal Text As String) Dim sTmp As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\D+" sTmp = .Replace(Text, Space(1)) ExtractNum = Split(Trim(sTmp), Space(1)) End With End Function

Dùng RegExp rồi còn for next gì nữa?

Hàm COUNT có 1 tính chất là không đếm giá trị lỗi, mình lợi dụng tính chất này để "chơi chiêu" như sau: =COUNT(1/(A1>={90,150,250}))

Biến loaitru phải nên là dạng Optional (có hoặc không cũng được). Ví dụ: =zzz(1,10,{2,4},5) Có nghĩa là lấy 5 phần tử ngẫu nhiên từ 1 đến 10, loại trừ số 2 và số 4 nhưng nếu là vầy =zzz(1,10,,5) thì có nghĩa là lấy 5 phần tử ngẫu nhiên từ 1 đến 10, không loại trừ gì cả Ngoài ra nếu loaitru chi...

Trường hợp số loại trừ không nằm trong khoảng dau - cuoi thì sao? Ví dụ: =xxx(1,10,{1,3,5,7,9,11}) Không có thì bỏ qua chứ sao lại lỗi? Tôi nghĩ là vậy!

Hệ gì thì tụi nó vẫn bắt khao và ta vẫn tốn tiền

Ngày của ai thì mình vẫn tốn tiền _)()(-

Nhân tiện up file này lên luôn. Trong file có một trò vui nho nhỏ, ai cảm thấy thích thì "lượm" xài

Có hàng đống cách để làm chẳng hạn như viết code để tự động hóa: https://www.giaiphapexcel.com/diendan/threads/code-t%E1%BB%B1-%C4%91%E1%BB%99ng-vi%E1%BA%BFt-hoa-%C4%91%E1%BA%A7u-m%E1%BB%97i-t%E1%BB%AB.92280/ Tuy nhiên tôi chỉ bạn cách đơn giản nhất: - Copy dữ liệu dán vào Microsoft Word - Dùng...

Cách của tôi cũng gần giống vậy: 1> Đếm dòng Function RowsCount(ByVal SourceRange As Range) As Long Dim rng As Range Dim lCount As Long For Each rng In Intersect(SourceRange.EntireRow, Columns(1)).Areas lCount = lCount + rng.Rows.Count Next RowsCount = lCount End Function...

Biết là vậy nhưng nếu cả 2 code cùng cho kết quả đúng thì ta có nên ưu tiên chọn dùng code chạy nhanh hơn không?

Chưa bàn chuyện đúng sai, mình chỉ xin góp ý nhỏ: Khi viết code các bạn nhớ khai báo biến đầy đủ và rõ ràng nhé ------------------------------------------------------------------------------------------------------------------ For Next kiểu này mà duyệt qua 1 triệu dòng chắc.. mệt à nha