Có thể tạo chuỗi có chữ cố định còn số tăng theo quy luật được không?

[whitelight]

Mọi người xem có thể tạo được không chỉ mình với nhé

 

[SA_DQ]

Bạn xài hàm tự tạo này nha:

Option Explicit
Function TaoChuoiTT(StrC As String) As String
 Const C2 As String = ":":           Dim VTr As Byte
 Dim Ch1 As String, Ch2 As String
 
 VTr = InStr(StrC, C2):              If VTr < 1 Then Exit Function
 Ch1 = Left(StrC, VTr - 1):            Ch2 = Mid(StrC, VTr + 1, 9)
 TaoChuoiTT = Left(Ch1, 1) & CStr(CLng(Mid(Ch1, 2, 9)) + 44) & C2
 TaoChuoiTT = TaoChuoiTT & Left(Ch2, 1) & CStr(CLng(Mid(Ch2, 2, 9)) + 44)
End Function

Cú fáp hàm tại [A4] sẽ là =TaoChuoiTT(A3)

 

[Ba Tê]

Mọi người xem có thể tạo được không chỉ mình với nhé

Xài tạm cái này thử xem. Dài thoòng nhưng có còn hơn không.

 

[whitelight]

Cái chuỗi kia là chuỗi các bảng excel.Mình muốn hỏi nếu như bảng excel của mình thay đổi về số hàng số cột thì sao nói chung chữ thì chỉ có 1 chữ trước mỗi số.Rất khó có thể đưa hết được ví dụ vì mỗi 1 đại lượng của mình tính có 1 dạng bảng excel khác nhau.
Rất cám ơn mọi người đã giúp đỡ bài toán vừa rồi.

 

[Ba Tê]

Cái chuỗi kia là chuỗi các bảng excel.Mình muốn hỏi nếu như bảng excel của mình thay đổi về số hàng số cột thì sao nói chung chữ thì chỉ có 1 chữ trước mỗi số.Rất khó có thể đưa hết được ví dụ vì mỗi 1 đại lượng của mình tính có 1 dạng bảng excel khác nhau.
Rất cám ơn mọi người đã giúp đỡ bài toán vừa rồi.

Bạn có thử thay đổi các chữ cái trên dòng đầu chưa?
Thôi thì gởi Bạn một công thức dài thoòng (Nó là Name tên GPE) trong bài trước cho Bạn ngâm cứu rồi vận dụng tùy ý thích.

|

A​

​

|

B​

​

|

C​

​

|

D​

​

|

E​

​

|

1​

​

|

B885:M915​

​

|

A885:B915​

​

|

X123:Y234​

​

|

C123235​

​

|

F123:S236​

​

|

2​

​

|

B929:M959​

|

A929:B959​

|

X167:Y278​

|

C167279​

|

F167:S280​

|

3​

​

|

B973:M1003​

|

A973:B1003​

|

X211:Y322​

|

C211323​

|

F211:S324​

|

4​

​

|

B1017:M1047​

|

A1017:B1047​

|

X255:Y366​

|

C255367​

|

F255:S368​

|

5​

​

|

B1061:M1091​

|

A1061:B1091​

|

X299:Y410​

|

C299411​

|

F299:S412​

|

6​

​

|

B1105:M1135​

|

A1105:B1135​

|

X343:Y454​

|

C343455​

|

F343:S456​

|

 

[ndu96081631]

Cái chuỗi kia là chuỗi các bảng excel.Mình muốn hỏi nếu như bảng excel của mình thay đổi về số hàng số cột thì sao nói chung chữ thì chỉ có 1 chữ trước mỗi số.Rất khó có thể đưa hết được ví dụ vì mỗi 1 đại lượng của mình tính có 1 dạng bảng excel khác nhau.
Rất cám ơn mọi người đã giúp đỡ bài toán vừa rồi.

Đọc đến đây thì có vẽ như đang nói về việc xử lý VÙNG ĐỘNG thì phải
Cho hỏi: Mục đích cuối cùng của bạn là gì? Đừng đi lòng vòng thế
-------------------------------

Bạn có thử thay đổi các chữ cái trên dòng đầu chưa?
Thôi thì gởi Bạn một công thức dài thoòng (Nó là Name tên GPE) trong bài trước cho Bạn ngâm cứu rồi vận dụng tùy ý thích.

|

A​

|

B​

|

C​

|

D​

|

E​

|

1​

|

B885:M915​

|

A885:B915​

|

X123:Y234​

|

C123235​

|

F123:S236​

|

2​

|

B929:M959​

|

A929:B959​

|

X167:Y278​

|

C167279​

|

F167:S280​

|

3​

|

B973:M1003​

|

A973:B1003​

|

X211:Y322​

|

C211323​

|

F211:S324​

|

4​

|

B1017:M1047​

|

A1017:B1047​

|

X255:Y366​

|

C255367​

|

F255:S368​

|

5​

|

B1061:M1091​

|

A1061:B1091​

|

X299:Y410​

|

C299411​

|

F299:S412​

|

6​

|

B1105:M1135​

|

A1105:B1135​

|

X343:Y454​

|

C343455​

|

F343:S456​

|

Nếu các chuổi trên chính là ĐỊA CHỈ CỦA 1 VÙNG thì công thức của bạn e rằng không ổn ---> Column letter có thể 2 ký tự cơ mà, chẳng hạn AA885:IV915
Cũng chỉ đoán mò vì chưa biết mục đích của tác giả... Còn nếu thật sự các chuổi trên chính là ĐỊA CHỈ CỦA 1 VÙNG thì... ẹc... ẹc... QUÁ DỄ

Function NewAddress(ByVal OldAddress As String, Step As Long) As String
  On Error Resume Next
  NewAddress = Range(OldAddress).Offset(Step).Address(0, 0)
End Function

Dùng công thức được luôn (tương tự về thuật toán) ---> Đặt 1 name đại khái thế này:

=SUBSTITUTE(REFTEXT(OFFSET(INDIRECT(Sheet1!F2),44,),1),"$","")