Ghép dãy cố định và dãy số thường thay đổi (1 người xem)

[duynhatgpe]

Xin chào mọi người
Hiện tại mình có vấn đề cần sự giúp đỡ về code excel tách ghép số như sau
đầu tiên mình có A1 là một ô chứa mọt con số ,sau đó dùng hàm MID tách ra như hàng B còn hàng C là thứ tự mặc định (từ 0 đền 9), ở cột A là chỉ lấy đơn vị của tổng hai cột B+c, cuối cùng là kết quả ở ô F1 ....
Thàh thật cảm ơn !

 

[doveandrose]

Xin chào mọi người
Hiện tại mình có vấn đề cần sự giúp đỡ về code excel tách ghép số như sau
đầu tiên mình có A1 là một ô chứa mọt dãy số ,sau đó dùng hàm MID tách ra như hàng B còn hàng C là thứ tự mặc định (từ 0 đền 9), ở cột A là chỉ lấy đơn vị của tổng hai cột B+c, cuối cùng là kết quả ở ô F1 ....
Thàh thật cảm ơn !

trong file mình thấy ô A1 chỉ là 1 con số chớ đâu phải dãy số ? có nhầm lẫn gì hông bản ?

 

[duynhatgpe]

trong file mình thấy ô A1 chỉ là 1 con số chớ đâu phải dãy số ? có nhầm lẫn gì hông bản ?

cám ơn đã nhắc nhở ,đúng rồi một con số .

 

[HieuCD]

Dùng cột phụ B cho dể làm

 

[TheThienChu]

Xin chào mọi người
Hiện tại mình có vấn đề cần sự giúp đỡ về code excel tách ghép số như sau
đầu tiên mình có A1 là một ô chứa mọt con số ,sau đó dùng hàm MID tách ra như hàng B còn hàng C là thứ tự mặc định (từ 0 đền 9), ở cột A là chỉ lấy đơn vị của tổng hai cột B+c, cuối cùng là kết quả ở ô F1 ....
Thàh thật cảm ơn !

Bạn xem file đính kèm xem có được chưa
Nhấn vào TGS

Public Sub TachGhepSo()
Dim SBD, Ghep As String, i, TG() As String
SBD = Sheet1.Range("A1")
ReDim TG(1 To Len(SBD) * 10, 1 To 3)
For i = 1 To UBound(TG)
TG(i, 3) = (i - 1) Mod 10
TG(i, 2) = Mid(SBD, ((i - 1) \ 10) + 1, 1)
TG(i, 1) = Right(Val(TG(i, 3)) + Val(TG(i, 2)), 1)
Ghep = Ghep & TG(i, 1)
Next i
Sheet1.Range("A2", "C65000").ClearContents
Sheet1.Range("A2").Resize(UBound(TG), 3).Value = TG
Sheet1.Range("F1").NumberFormat = "@"
Sheet1.Range("F1").Value = Ghep
End Sub

 

[huuthang_bd]

Xin chào mọi người
Hiện tại mình có vấn đề cần sự giúp đỡ về code excel tách ghép số như sau
đầu tiên mình có A1 là một ô chứa mọt con số ,sau đó dùng hàm MID tách ra như hàng B còn hàng C là thứ tự mặc định (từ 0 đền 9), ở cột A là chỉ lấy đơn vị của tổng hai cột B+c, cuối cùng là kết quả ở ô F1 ....
Thàh thật cảm ơn !

Dùng hàm tự tạo nhé.

Function TachGhepSo(sNum As String) As String
Const Digits = "0123456789012345678"
Dim i As Long, j As Long, Digit As Long
For i = 1 To Len(sNum)
    Digit = CLng(Mid(sNum, i, 1))
    For j = Digit + 1 To Digit + 10
        TachGhepSo = TachGhepSo & Mid(Digits, j, 1)
    Next
Next
End Function

 

[doveandrose]

Dùng cột phụ B cho dể làm

giới bình dân tụi mình thì xài được công thức cứ xài đúng hông bạn ?
theo định nghĩa về cột phụ thì cột A cũng phải tính là cột phụ chứ , vì cột A đâu có trong đề bài , chỉ có A1 mà thôi
xài cột phụ cũng nên tiết kiệm đất đai quý báu chứ bạn . hi hi

 

[HieuCD]

giới bình dân tụi mình thì xài được công thức cứ xài đúng hông bạn ?
theo định nghĩa về cột phụ thì cột A cũng phải tính là cột phụ chứ , vì cột A đâu có trong đề bài , chỉ có A1 mà thôi
xài cột phụ cũng nên tiết kiệm đất đai quý báu chứ bạn . hi hi

Bạn quá giỏi, biết thêm chiêu mới

 

[Phuocam]

Góp vui thêm một cách không dùng cột phụ.

 

[duynhatgpe]

Mình rất cảm ơn mọingười về bài vừa qua ,giúp cho mình có thêm vốn từ VBA còn quá ít của mình . Bâygiờ mình có vấn đề cần sự giúp đỡ về code exceltách ghép số của bài trên nhưng lại có thêm 1 cột nữa , ở cột A là chỉ lấy đơn vị của tổng bacột B+C+D, cuối cùng là kết quả ở ô G1 ....

 

[duynhatgpe]

Mọi người ơi giúp bài này cho mình với....mình cần lắm !

 

[TheThienChu]

Mình rất cảm ơn mọingười về bài vừa qua ,giúp cho mình có thêm vốn từ VBA còn quá ít của mình . Bâygiờ mình có vấn đề cần sự giúp đỡ về code exceltách ghép số của bài trên nhưng lại có thêm 1 cột nữa ,ở cột A là chỉ lấy đơn vị của tổng bacột B+C+D, cuối cùng là kết quả ở ô G1 ....

Thêm 1 cột nữa là cột nào, bạn làm rõ hơn xem sao

 

[duynhatgpe]

hai cột B và c trên là do tách và ghép sô mà có từ A1(ở đây mình không ghép mà làm phép cộng )

 

[Ba Tê]

hai cột B và c trên là do tách và ghép sô mà có từ A1(ở đây mình không ghép mà làm phép cộng )

Công thức =GPE(A1)

Public Function GPE(Num As String) As String
Dim I As Long, J As Long, K As Long
For I = 1 To 3
    For J = 1 To 3
        For K = 0 To 9
            GPE = GPE & Right(Val(Mid(Num, I, 1)) + Val(Mid(Num, J, 1)) + K, 1)
        Next K
    Next J
Next I
End Function

 

[duynhatgpe]

Công thức =GPE(A1)

Public Function GPE(Num As String) As String
Dim I As Long, J As Long, K As Long
For I = 1 To 3
    For J = 1 To 3
        For K = 0 To 9
            GPE = GPE & Right(Val(Mid(Num, I, 1)) + Val(Mid(Num, J, 1)) + K, 1)
        Next K
    Next J
Next I
End Function

Xin cám ơn thật nhiều , bài thật dể hiểu ,dể thay đồi như ý muốn