Hàm Pascal cho dãy số 123456789

[ChanhTQ@]

Hiện tại có 9 bộ số nhưng em cần 30 bộ số anh ạ anh có thể hoàn chỉnh giúp em không ạ hoặc nếu hoàn chỉnh rồi thì em thêm các bộ số khác nhau thế nào ạ

Bạn muốn có số Pascal nào từ bộ số của bạn, thì bạn thêm hay ghi vô cột [A] & cho macro PSC1() chạy nha!

Chúc thành công

 

[befaint]

em cám ơn ạ , hiện tại có 9 bộ số nhưng em cần 30 bộ số anh ạ anh có thể hoàn chỉnh giúp em không ạ hoặc nếu hoàn chỉnh rồi thì em thêm các bộ số khác nhau thế nào ạ

Bạn gửi file lên xem nào?
-----------
Bạn xem file đính kèm. Nhập bộ số vào cột A, từ A2 trở xuống. Sau đó click nút màu xanh.

 

[VetMini]

Dùng hàm tự tạo:

' hàm công Pascal 1 chuỗi
' hàm đệ quy duyệt chuỗi, cộng mói ký tự với ký tự tiếp theo nó.
' tiép tục làm chgo đến khi đạt độ dài quy định
Public Function CongPas(ByVal chuoi As Variant) As Variant
chuoi = CStr(chuoi)
If Len(chuoi) <= 2 Then ' xong, khi chuỗi còn 2 ký tự
  CongPas = chuoi
  Exit Function
End If
Dim i As Integer, chuoi1 As String
For i = 1 To Len(chuoi) - 1
' duyệt chuỗi, cộng mói ký tự với ký tự tiếp theo nó. Nếu lớn hơn 10 thì chỉ lấy ký tự cuối
  chuoi1 = chuoi1 & CStr((CInt(Mid(chuoi, i, 1)) + CInt(Mid(chuoi, i + 1, 1))) Mod 10)
Next i
CongPas = CongPas(chuoi1)
End Function

Cách dùng:
=CongPas(A1)

 

[ddung9a]

anh giúp em với nhé . em cảm ơn ạ

 

[ddung9a]

anh befaint giúp em vơi ạ
1. em có thêm 1 dãy số gồm 2 ký tự
tất cả các kết quả ở cột C đều so sánh với dãy số này ( cột E ) nếu khớp thì tại cột D hiện lên các cặp được ghép với nhau ( như A2&A2 chẳng hạn )
2. em cần nhiều Sheet cùng công thức như file anh làm
3. tạo 1 Sheet thống kế sự trùng lặp của các Sheet cụ thể là Xuất hiện tại cột C

Hị vọng được anh giúp đỡ ạ