[Bài tập VBA cho người rỗi rảnh] Hãy viết 1 macro tìm ra 3 số nguyên tố liên tiếp (3 người xem)

  • Thread starter Thread starter SA_DQ
  • Ngày gửi Ngày gửi
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)
SA_DQ

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia
8/6/06
Bài viết
14,637
Được thích
22,970
Nghề nghiệp
U80
Ba số nguyên tố liên tiếp này bé hơn con số 999 & lớn hơn 100. (đã sửa sau góp ý của các bài 2 - 5)

Chúc các bạn vui vẻ nhân dịp xuân về!
 
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Mình lập 1 bảng các số nguyên tố như dưới đây & mong các bạn góp ý thêm:

PHP: 
Sub BangSoNguyenTo111_999()
 Dim Rw As Integer, Col As Integer, Num As Integer, Cot As Integer, RwMax As Integer
 ReDim Arr(1 To 50, 1 To 9) As Integer

 [A1].Resize(50, 9).Value = Space(0)
 For Num = 101 To 999 Step 2
    If IsPrime(Num) Then
        Col = Num \ 100
        If Col > Cot Then
            If Rw > RwMax Then RwMax = Rw
            Cot = Col:                  Rw = 1
        Else
            Rw = Rw + 1
        End If
        Arr(Rw, Col) = Num
    End If
 Next Num
 [A1].Resize(RwMax, 9).Value = Arr()
End Sub
Mã: 
Function IsPrime(n As Integer) As Boolean
 Dim i As Integer
 For i = 2 To Sqr(n)
    If n Mod i = 0 Then
        IsPrime = False:            Exit Function
    End If
 Next i
 IsPrime = True
End Function
 
Upvote 0
Function IsPrime(n As Long) As Boolean
If n <= 1 Then
IsPrime = False
Exit Function
End If
If n = 2 Then
IsPrime = True
Exit Function
End If
If n Mod 2 = 0 Then
IsPrime = False
Exit Function
End If
For i = 3 To Int(Sqr(n)) Step 2
If n Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next i
IsPrime = True
End Function

Sub FindConsecutivePrimes()
Dim primes() As Long
Dim count As Long
Dim n As Long
Dim i As Long
Dim ws As Worksheet
Dim outputRow As Long

' Chuẩn bị trang tính để xuất kết quả
Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Cells.ClearContents
ws.Range("A1:C1") = Array("Prime 1", "Prime 2", "Prime 3")
outputRow = 2

' Tìm các số nguyên tố từ 101 đến 997
ReDim primes(1 To 1)
count = 0

For n = 101 To 997 Step 2
If IsPrime(n) Then
count = count + 1
If count > UBound(primes) Then ReDim Preserve primes(1 To count + 100)
primes(count) = n
End If
Next n

ReDim Preserve primes(1 To count)

' Kiểm tra và xuất các bộ ba số nguyên tố liên tiếp
If count < 3 Then
ws.Range("A2").Value = "Không tìm thấy bộ ba nào."
Exit Sub
End If

For i = 1 To count - 2
ws.Cells(outputRow, 1).Value = primes(i)
ws.Cells(outputRow, 2).Value = primes(i + 1)
ws.Cells(outputRow, 3).Value = primes(i + 2)
outputRow = outputRow + 1
Next i

MsgBox "Đã tìm thấy " & (count - 2) & " bộ ba số nguyên tố liên tiếp.", vbInformation
End Sub
 
Upvote 0
Function IsPrime(n As Long, ByRef primes As Collection) As Boolean
Dim i As Long
Dim sq As Double

' Kiểm tra nhanh các trường hợp cơ bản
If n <= 1 Then
IsPrime = False
Exit Function
End If
If n = 2 Then
IsPrime = True
Exit Function
End If
If n Mod 2 = 0 Then
IsPrime = False
Exit Function
End If

' Kiểm tra chia hết với các số nguyên tố đã lưu
sq = Sqr(n)
For Each i In primes
If i > sq Then Exit For
If n Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next i

' Nếu không chia hết thì là số nguyên tố
IsPrime = True
If IsPrime Then primes.Add n ' Thêm vào danh sách các số nguyên tố
End Function

Sub FindConsecutivePrimes()
Dim primes As New Collection
Dim n As Long
Dim i As Long
Dim ws As Worksheet
Dim outputRow As Long
Dim result As Variant
Dim idx As Long

' Chuẩn bị trang tính để xuất kết quả
Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Cells.ClearContents
ws.Range("A1:C1").Value = Array("Prime 1", "Prime 2", "Prime 3")
outputRow = 2

' Tìm các số nguyên tố từ 101 đến 997
For n = 101 To 997 Step 2
Call IsPrime(n, primes)
Next n

' Xuất các bộ ba số nguyên tố liên tiếp
If primes.Count < 3 Then
ws.Range("A2").Value = "Không tìm thấy bộ ba nào."
Exit Sub
End If

ReDim result(1 To primes.Count - 2, 1 To 3)
For i = 1 To primes.Count - 2
result(i, 1) = primes(i)
result(i, 2) = primes(i + 1)
result(i, 3) = primes(i + 2)
Next i

ws.Range(ws.Cells(outputRow, 1), ws.Cells(outputRow + UBound(result, 1) - 1, 3)).Value = result

MsgBox "Đã tìm thấy " & (primes.Count - 2) & " bộ ba số nguyên tố liên tiếp.", vbInformation
End Sub
Bài đã được tự động gộp:

Thử lại
PHP: 
Function GeneratePrimes(maxNumber As Long) As Long()
    ' Tạo sàng Eratosthenes để lọc số nguyên tố đến maxNumber
    Dim sieve() As Boolean
    Dim primes() As Long
    Dim i As Long, j As Long, count As Long
    
    ReDim sieve(2 To maxNumber)
    For i = 2 To maxNumber
        sieve(i) = True
    Next i
    
    For i = 2 To Int(Sqr(maxNumber))
        If sieve(i) Then
            For j = i * i To maxNumber Step i
                sieve(j) = False
            Next j
        End If
    Next i
    
    ' Đếm số nguyên tố trong khoảng 101-999
    count = 0
    For i = 101 To maxNumber - 2  ' Đảm bảo có 3 số liên tiếp
        If sieve(i) And sieve(i + 2) And sieve(i + 4) Then
            count = count + 1
        End If
    Next i
    
    ' Lưu các bộ ba số nguyên tố liên tiếp
    ReDim primes(1 To count, 1 To 3)
    count = 0
    For i = 101 To maxNumber - 2
        If sieve(i) And sieve(i + 2) And sieve(i + 4) Then
            count = count + 1
            primes(count, 1) = i
            primes(count, 2) = i + 2
            primes(count, 3) = i + 4
        End If
    Next i
    
    GeneratePrimes = primes
End Function


PHP: 
Sub FindConsecutivePrimesOptimized()
    Dim primes() As Long
    Dim ws As Worksheet
    Dim startTime As Double
    
    startTime = Timer
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Cells.ClearContents
    ws.Range("A1:C1") = Array("Prime 1", "Prime 2", "Prime 3")
    
    ' Tạo danh sách số nguyên tố và xuất kết quả
    primes = GeneratePrimes(999)
    
    If UBound(primes, 1) >= 1 Then
        ws.Range("A2").Resize(UBound(primes, 1), 3).Value = primes
        MsgBox "Tìm thấy " & UBound(primes, 1) & " bộ ba." & vbCrLf & _
               "Thời gian chạy: " & Format(Timer - startTime, "0.000") & " giây.", vbInformation
    Else
        MsgBox "Không tìm thấy bộ ba nào.", vbExclamation
    End If
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Thử lại lần cuối, tùy chọn vùng kiểm tra minNumber (>=2), maxNumber do người dùng tự quyết định, ví dụ này là minNumber = 101, maxNumber =999

PHP: 
Function GeneratePrimes(minNumber as Long, maxNumber As Long) As Long()
    ' Tạo sàng Eratosthenes để lọc số nguyên tố đến maxNumber
    Dim sieve() As Boolean
    Dim primesList() As Long
    Dim tripletArray() As Long
    Dim i As Long, j As Long
    Dim primeCount As Long, tripletCount As Long
   
    ' Khởi tạo sàng
    ReDim sieve(2 To maxNumber)
    For i = 2 To maxNumber
        sieve(i) = True
    Next i
   
    For i = 2 To Int(Sqr(maxNumber))
        If sieve(i) Then
            For j = i * i To maxNumber Step i
                sieve(j) = False
            Next j
        End If
    Next i
   
    ' Lọc các số nguyên tố trong khoảng minNumber-maxNumber
    primeCount = 0
    For i = minNumber To maxNumber
        If sieve(i) Then primeCount = primeCount + 1
    Next i
   
    If primeCount = 0 Then
        GeneratePrimes = Array()
        Exit Function
    End If
   
    ' Lưu vào mảng primesList
    ReDim primesList(1 To primeCount)
    primeCount = 0
    For i = minNumber To maxNumber
        If sieve(i) Then
            primeCount = primeCount + 1
            primesList(primeCount) = i
        End If
    Next i
   
    ' Tìm các bộ ba liên tiếp trong danh sách
    tripletCount = 0
    For i = 1 To primeCount - 2
        tripletCount = tripletCount + 1
    Next i
   
    If tripletCount = 0 Then
        GeneratePrimes = Array()
        Exit Function
    End If
   
    ' Lưu kết quả vào mảng 2D
    ReDim tripletArray(1 To tripletCount, 1 To 3)
    For i = 1 To tripletCount
        tripletArray(i, 1) = primesList(i)
        tripletArray(i, 2) = primesList(i + 1)
        tripletArray(i, 3) = primesList(i + 2)
    Next i
   
    GeneratePrimes = tripletArray
End Function

'---------------------------------------------------------

Sub FindConsecutivePrimesOptimized()
    Dim primes() As Long
    Dim ws As Worksheet
    Dim startTime As Double
   
    startTime = Timer
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Cells.ClearContents
    ws.Range("A1:C1") = Array("Prime 1", "Prime 2", "Prime 3")
   
    primes = GeneratePrimes(101,999)   '****
   
    If Not IsEmpty(primes) Then
        ws.Range("A2").Resize(UBound(primes, 1), 3).Value = primes
        MsgBox "Tìm thấy " & UBound(primes, 1) & " bộ ba." & vbCrLf & _
               "Thời gian chạy: " & Format(Timer - startTime, "0.000") & " giây.", vbInformation
    Else
        MsgBox "Không tìm thấy bộ ba nào.", vbExclamation
    End If
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0


TẠO BẢNG 100 SỐ NGUYÊN TỐ GỒM 3 KÝ SỐ LỚN NHẤT.​


PHP: 
Sub TaoBang100SoNguyenTo3ChuSoLonNhat()
 Dim Num As Integer, Col As Integer, Cot As Integer, Rw As Integer, Dem As Integer
 ReDim Arr(1 To 30, 1 To 9) As String:              Dim RwMax As Integer
 
 Sheet2.Select
 [B2].Resize(30, 9).Value = Arr():                  Cot = 9
 For Num = 999 To 101 Step -2
    If IsPrime(Num) Then
        Col = Num \ 100
        If Col < Cot Then
            If Rw > RwMax Then RwMax = Rw
            Cot = Col:                              Rw = 1
        Else
            Rw = Rw + 1
        End If
        Arr(Rw, Col) = CStr(Num):                   Dem = Dem + 1
        If Dem = 100 Then
            [B2].Resize(RwMax, 9).Value = Arr():    Exit Sub
        End If
    End If
 Next Num
End Sub

Hàm IsPrime(Num) đã có ở #21.
 
Lần chỉnh sửa cuối:
Upvote 0
Thêm giải pháp Query:
1. Tạo 1 function để kiếm tra 1 số xem có thỏa là số nguyên tố không? --> True/false
Mã: 
//fNguyenTo
(so as number) as logical =>

let
   kq=  List.Count(List.Select({2..Number.RoundDown(Number.Sqrt(so))}, each Number.Mod(so, _) = 0 )) = 0
in
   kq

2. Dùng List.Generate ( tương tự vòng lặp for trong vba ) để duyệt từ 997 xuống mỗi lần trừ 2, nếu true thì gán vào List,
3. Lấy n số từ đầu danh sách bằng List.FirstN
Mã: 
let
    // thay vong lap FOR
    a = List.Generate(
        () => 997,
        each _ > 100,
        each _ - 2,
        each if fNguyenTo(_) then _ else null),
  
    // Lay 20 ket qua dau tien
    kq = List.FirstN(List.RemoveNulls(a), 20)

in
    kq
 

File đính kèm

  • Untitled.png
    Untitled.png
    19.2 KB · Đọc: 4
Lần chỉnh sửa cuối:
Upvote 0
Góp vui code tìm số nguyên tố
Mã: 
Sub xyz()
  Dim a(1 To 1000), res(1 To 1000, 1 To 1)
  Dim xMin&, xMax&, xU, i&, j&, k&, n&
 
  xMin = 100: xMax = 9999
  For i = xMin To 2
    n = n + 1:      res(n, 1) = i
  Next i
'Tao mang cac so nguyen to lam co so so sanh
  xU = Int(Sqr(xMax))
  For i = 3 To xU Step 2
    For j = 1 To k
      If i Mod a(j) = 0 Then Exit For
    Next j
    If j > k Then
      k = k + 1:  a(k) = i
      If i >= xMin Then n = n + 1:  res(n, 1) = i
    End If
  Next i

  If n > 0 Then
    If xMin < res(n, 1) Then xMin = res(n, 1) + 1
  End If
  xMin = ((xMin \ 2) * 2 + 1) 'Lay gia tri le
 
  For i = xMin To xMax Step 2
    For j = 1 To k
      If i Mod a(j) = 0 Then Exit For
    Next j
    If j > k Then n = n + 1: res(n, 1) = i
  Next i
  Range("B2").Resize(UBound(res), 1) = res
End Sub
 
Upvote 0
Có VBA, có Query rồi. Bi giờ ai xung phong viết hàm Lambda hôn?
 
Upvote 0
VetMini đã viết:
Có VBA, có Query rồi. Bi giờ ai xung phong viết hàm Lambda hôn?
Nhấp chuột vào đây để mở rộng...
Định hướng các bước:
- Viết thử bằng let
- Tạo dãy số từ 997 xuống 101 (a)
- Tạo dãy số 11 số nguyên tố đầu tiên (nhỏ hơn căn bậc 2 của 997 (b)
- Tạo ma trận là mod (a, b) (c)
- HStack a và c

1738466572145.png

- tìm zero trong từng dòng. Nếu không có con nào thì lấy cột đầu. Bước này chưa tìm được công thức phù hợp, các hàm CountIf, SumIf, lookup, Match chỉ làm việc với range, không làm việc với mảng ảo
- Sort kết quả Descending
- Lấy 10 giá trị đầu tiên.

Nếu làm trên sheet:

1738466638814.png

Nhưng chưa làm hoàn toàn bằng 1 công thức duy nhất.
 
Lần chỉnh sửa cuối:
Upvote 0
SA_DQ đã viết:
Ba số nguyên tố liên tiếp này bé hơn con số 999 & lớn hơn 100. (đã sửa sau góp ý của các bài 2 - 5)

Chúc các bạn vui vẻ nhân dịp xuân về!
Nhấp chuột vào đây để mở rộng...
Thử lại, dùng công thức, không cần VBA hay Query
PHP: 
=LET(
    IsPrime, 
    LAMBDA(n, 
        IF(n < 2, FALSE, 
            IF(n = 2, TRUE, 
                IF(n = 3, TRUE, 
                    IF(MOD(n, 2) = 0, FALSE, 
                        LET(
                            maxDiv, SQRT(n),
                            floorMaxDiv, ROUNDDOWN(maxDiv, 0),
                            divs, SEQUENCE((floorMaxDiv - 1)/2, 1, 3, 2),
                            IFERROR(AND(MOD(n, divs) <> 0), TRUE)
                        )
                    )
                )
            )
        )
    ),
    nums, SEQUENCE(899, 1, 101, 1),
    isPrimeArray, MAP(nums, LAMBDA(x, IsPrime(x))),
    primes, FILTER(nums, isPrimeArray),
    count, ROWS(primes),
    IF(count < 3, "Không tìm thấy bộ ba nào",
        HSTACK(
            INDEX(primes, SEQUENCE(count - 2)),
            INDEX(primes, SEQUENCE(count - 2) + 1),
            INDEX(primes, SEQUENCE(count - 2) + 2)
        )
    )
)
 
Upvote 0
ptm0412 đã viết:
....
Nhưng chưa làm hoàn toàn bằng 1 công thức duy nhất.
Nhấp chuột vào đây để mở rộng...
Hàm Lambda dùng đệ quy để thay thế vòng lặp.

Viết hàm VBA đệ quy để xét tính chất nguyên tố. Dựa vào đó mà viết công thức.

Mã: 
Function DeQuyNT(ByVal So As Long, Optional Kd As Long = 3) As Boolean
DeQuyNT = False
Select Case So
  Case 0, 1: Exit Function
  Case 2: DeQuyNT = True: Exit Function
  Case Else
    If (So And 1) = 0 Then Exit Function
    DeQuyNT = True
    If Kd > Sqrt(So) Then Exit Function
    If So Mod Kd = 0 Then DeQuyNT = False: Exit Function
    DeQuyNT = DeQuyNT(So, Kd + 2)
End Select
End Function
 
Upvote 0
SA_DQ đã viết:


TẠO BẢNG 100 SỐ NGUYÊN TỐ GỒM 3 KÝ SỐ LỚN NHẤT.​
Nhấp chuột vào đây để mở rộng...

Thử lấy 50 số nguyên tố lớn nhất trong khoản 100 - 999, sắp xếp theo thứ tự từ lớn đến nhỏ, dùng công thức
PHP: 
=SORT(
      LET(
          IsPrime,
          LAMBDA(n,
                 IF(n < 2, FALSE,
                   IF(n = 2, TRUE,
                     IF(n = 3, TRUE,
                        IF(MOD(n, 2) = 0, FALSE,
                           LET(
                               maxDiv, SQRT(n),
                               floorMaxDiv, ROUNDDOWN(maxDiv, 0),
                               divs, SEQUENCE((floorMaxDiv - 1)/2, 1, 3, 2),
                               IFERROR(AND(MOD(n, divs) <> 0), TRUE)
                               )
                           )
                         )
                       )
                    )
                 ),
                 nums, SEQUENCE(900, 1, 100, 1),
                 isPrimeArray, MAP(nums, LAMBDA(x, IsPrime(x))),
                 primes, FILTER(nums, isPrimeArray),
                 top50Primes, INDEX(primes, SEQUENCE(50, 1, ROWS(primes) - 49, 1)),
                 top50Primes
             )
               ,,-1
           )
 
Lần chỉnh sửa cuối:
Upvote 0
SA_DQ đã viết:
Function IsPrime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n) If n Mod i = 0 Then IsPrime = False: Exit Function End If Next i IsPrime = True End Function
Nhấp chuột vào đây để mở rộng...
Nếu dùng vùng là từ 0 đến 100 thì sao anh nhỉ ?
Theo định nghĩa thì cần loại 0-1 ra khỏi dãy vì không phải số nguyên tố, nhưng hàm IsPrime vẫn trả về TRUE
1738553652841.png
 
Upvote 0
Copilot:
Bạn đã viết một macro VBA để tìm số hoàn hảo. Đây là cách hoạt động của macro:
Hàm IsPrime(n As Integer): Kiểm tra xem một số n có phải là số nguyên tố hay không.
Nếu n là số nguyên tố, hàm trả về True, ngược lại, trả về False.
Sub TimSoHoanHao():
Tạo một mảng Arr để lưu các số hoàn hảo.
Duyệt qua các giá trị của J từ 2 đến 10.
Kiểm tra nếu J và (2^J)-1 đều là số nguyên tố.
Nếu điều kiện trên đúng, tính số hoàn hảo dựa trên công thức
(2^(J−1))×((2^J−1) và lưu nó vào mảng Arr.
Sau khi hoàn thành, điền các giá trị của mảng Arr vào trang tính "GPE" từ ô A2 trở xuống.

Một số hoàn hảo là một số nguyên dương mà tổng các ước số của nó (trừ bản thân nó) bằng chính nó.
Ví dụ: 6 là số hoàn hảo vì các ước số của nó là 1, 2 và 3, và 1 + 2 + 3 = 6.

[Hãy viết một macro có nội dung như Copilot đã nhìn thấy!]
 
Lần chỉnh sửa cuối:
Upvote 0
Viết 1 hàm Lambda đệ quy cũng được, nhưng không hiệu quả lắm. Con toán xét Nguyên Tố có một vài công việc ưu hóa cho nên nếu đệ quy thì những công việc này cứ phải lặp lại.
Dùng 2 hàm, một hàm dọn trước, sau đó mới gọi hàm chia thử (đệ quy)

Name SoNTchiaThu
=Lambda(x, y, z, If(z > y, True, If(Mod(x, z)=0, False, SoNTchiaThu(x, y, z+2))))
Name SoNT
=Lambda(x, Switch(x, 0, False, 1, False, 2, True, If(IsEven(x), False, SoNTchiaThu(x, Trunc(Sqrt(x)), 3)))

Sử dụng: =SoNT(số)
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục (1 người xem)
Trả lời
3
Đọc
174
Hoàng Tuấn 868
H
F
  • Question Question
Tự động Merge Mail bằng VBA (1 người xem)
Trả lời
1
Đọc
81
Hoàng Tuấn 868
H
L
Lỗi font khi convert từ pdf (1 người xem)
Trả lời
2
Đọc
69
DeTong
D
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA (1 người xem)
Trả lời
2
Đọc
609
tranduc36
T
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
13
Đọc
117
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô (1 người xem)
Trả lời
7
Đọc
179
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu (1 người xem)
    • Buồn
2
Trả lời
26
Đọc
528
Phạm Trường 80
P
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
80
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup (1 người xem)
Trả lời
2
Đọc
83
DeTong
D
H
Đổi số thành chữ trong office 365 (6 người xem)
Trả lời
19
Đọc
1K
HoangTan891026
H
Gà Công Nghệ
Lấy dữ liệu file excel từ sheet này sang sheet khác
Trả lời
4
Đọc
132
Gà Công Nghệ
Gà Công Nghệ
N
Mong mọi người giúp đỡ
Trả lời
1
Đọc
61
minhminh27
minhminh27
minhduc1o2
Excel lỗi font Time New Roman+
Trả lời
7
Đọc
116
minhduc1o2
minhduc1o2
H
Lọc dữ liệu trong XL
    • Cười
Trả lời
0
Đọc
48
huong.dinh
H
giaiphap
Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau.
    • Thích
    • Yêu thích
    • Cảm ơn
2
Trả lời
39
Đọc
9K
fujishima
F
K
xin file excel bảng đấu bóng đá
    • Yêu thích
2 3
Trả lời
40
Đọc
25K
subin1905
S
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
24
Đọc
7K
chihuumvc
C
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
1
Đọc
66
bebo021999
B
G
Hướng dẫn Lập danh sách File
    • Không thích
Trả lời
16
Đọc
272
thanhhuy_hvnh
thanhhuy_hvnh
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

  • Không tìm thấy.

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom