Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

hôm nay đi vô có 1 sinh viên hỏi một bài toán về biển số xe, thấy cũng hay hay

PhamMinhTung

hôm nay đi vô có 1 sinh viên hỏi một bài toán về biển số xe, thấy cũng hay hay nên post lên cho các bạn mới tập tành VBA thử sức và đo tốc độ xem thuật toán nào nhanh hơn
- các bạn khi đi lấy biển số xe thì thích tổng của nó 9 nút, nhưng các số trong đó càng lớn càng tốt, nhưng giả dụ là biển số có loại có 4 và 5 số vậy yêu cầu là hãy tạo ra 1 hàm nhận vô 2 đối số
+ đối số thứ nhất là số con số trên biển số xe ( có thể là 4 hoặc 5, cái này có thể mở rộng lên nhưng không vượt quá giới hạn xử lý)
+ đối số thứ 2 là tổng của các số kia theo kiểu đánh bài cào ấy nhé ( ví dụ 36 thì đối số này nhập là 6)
- ví dụ tôi nhập =bienso(4,6) thì kết quả là 9,9,9,9

SonDoan

Cái này nó fix hết giá trị rồi mà. Ví dụ n số thì có (n-1) số 9. Số còn lại chính là đối số thứ 2 trừ đi cho đủ tổng.

PhamMinhTung

Thì vẫn phải tính chứ a ví dụ e muốn 9 nút và có 4 số

SonDoan

Chưa nhất quán. Đối số thứ 2 chính là số nút luôn mà

PhamMinhTung

Thì 9 nút có nghĩa là 09,19,29 tuy nhiên ở bài này thì chắc chắn nó là 29

SonDoan

Function bienso(sochuso As Integer, sonut As Integer)
For i = 1 To sochuso - 1
bienso = bienso & "9,"
Next
bienso = bienso & sonut - Mid((sochuso - 1) * 9, 2, 1)
End Function

SonDoan

Function bienso(sochuso As Integer, sonut As Integer)
For i = 1 To sochuso - 1
bienso = bienso & "9,"
Next
If sonut > mid((sochuso-1)9,2,1) then
bienso = bienso & sonut - Mid((sochuso - 1) 9, 2, 1)
Else bienso = bienso @ sonut +10 - mid((sochuso -1)*9,2,1)
End if
End Function

PhamMinhTung

(y), hầu như thấy mấy bài VBA chỉ có mình anh Son Nhat Doan làm thì phải, nhưng bài toán này có thể mở rộng thêm tí là các số trong đó >5,

SonDoan

Vẫn ưu tiên số lớn và các số phải >5 hả @Tùng Gấm

PhamMinhTung

Ok anh chính xác là như vậy, nhưng ko phải để làm khó nhau mà giải quyết những bài toán mới thì ta mới tiến bộ phải ko anh, em thì ko dc như a làm trong môi trường phù hợp, công việc của em thì ko liên quan gì đến excel hết nên tự tìm bài toán để kien thức ko bị mai mọt

SonDoan

Function BienSo(SoChuSo As Integer, SoNut As Integer) As String
If SoNut = 0 Or SoChuSo < 3 Then
BienSo = "Bai toan khong bao gom truong hop nay"
Exit Function
End If

Select Case 10 - SoChuSo - SoNut
'(10-SoChuSo) chinh la so nut cua SoChuSo x 9

Case 5, 6, -2, -3, -4, -5, -6
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 2) & 17 - SoChuSo - SoNut & "," & "5"

Case 1, 2, 3, 4
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 1) & SoChuSo + SoNut - 1

Case 0
BienSo = WorksheetFunction.Rept("9,", SoChuSo)

Case -1
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 3) & "8,5,5"

Case -7, -8
BienSo = WorksheetFunction.Rept(9, SoChuSo - 1) & SoChuSo + SoNut - 11
End Select
End Function

SonDoan

Hix, bài toán khó quá. Nghĩ mãi mới giải quyết được. bài này chủ yếu là giải toán. Còn cú pháp thì không có gì. Mình giải từ thực nghiệm: Tính toán A = số nút khi toàn bộ là 9 - số nút yêu cầu. Khảo sát giá trị đó:

Với hiệu = 0 thì toàn bộ là số 9.

Với các mốc từ 1 đến 4 và < -6 là giải quyết bằng chữ số cuối cùng được (vì thay 1 số 9 bằng 1 số >5 thì dễ đoán nó giải quyết được sai lệch trong khoảng 1 đến 4; trường hợp số âm thì phải bù 10 vào để trừ sẽ có mốc -6)

Các mốc còn lại giải quyết bằng 2 chữ số cuối cùng được.

Riêng trường hợp hiệu = -1 (Khi bỏ 2 số cuối thì hiệu sẽ là +1) Nghĩa là tổ hợp 2 số cuối phải ra 09 hoặc 19 sẽ không được. Vì vậy riêng trường hợp này phải xứ lý bằng 3 số và để đảm bảo nguyên tắc số lớn ưu tiên thì 3 số đó là 8,5,5.

SonDoan

Một cách làm khác
Function BienSo(SoChuSo As Integer, SoNut As Integer) As String
If SoChuSo < 3 Then
BienSo = "Bai toan khong bao gom truong hop nay"
Exit Function
End If
If SoChuSo > 3 Then Nut = 13 - SoChuSo
For i = 9 To 5 Step -1
For j = i To 5 Step -1
For k = j To 5 Step -1
If Mid(Nut + i + j + k, 2, 1) = SoNut Then
BienSo = WorksheetFunction.Rept("9,", SoChuSo - 3) & i & "," & j & "," & k
Exit Function
End If
Next
Next
Next
End Function

hỏi về ghép số trong ex VBA các bác cho hỏi sao cái hộp textbox của em nó k xoay được ạ, Tức là nó k hiện Dùng hàm IF và hàm Vlookup ??Chia sẻ File Excel kế toán nội bộ miễn phí Hỏi đáp về cách làm Hỏi tí về sum if Mn ơi, có nhóm nào về kế toán ở zalo thì add e vs ạ ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- Hàm tìm ngày trong khoảng thời gian xác định Không thể copy paste dữ liệu do sub Worksheet_DeActivate() Xem thêm