Đổi vị trí các số trong 1 cell (1 người xem)

meacupa · 2/4/13

Hi all.
Mình có vấn đề rất mong được các bạn giúp đỡ. Mình cần đổi vị trí các số trong 1 cell.
VD như mình có 1 cell có giá trị là 28, mình muốn đổi thành 1 cell có giá trị là 82.
Thanks.
Mọi người giúp mình với, nếu trường hợp cell có giá trị là 00; 11; 22; 33; 44; ....chẳng hạn thì dùng công thức =--RIGHT(A1)&LEFT(A1) lại không được.
Rất mong mọi người giúp đỡ

hoamattroicoi · 2/4/13

meacupa đã viết:
Hi all.
Mình có vấn đề rất mong được các bạn giúp đỡ. Mình cần đổi vị trí các số trong 1 cell.
VD như mình có 1 cell có giá trị là 28, mình muốn đổi thành 1 cell có giá trị là 82.
Thanks.

Đơn giản thì thế này nè bạn,hihihi
=--RIGHT(A1)&LEFT(A1)
Với A1 chứa 28
Phức tạp chút thì thế này :

PHP:

Function ChangePos(cell As Range)
Dim myStr As String, i As Long, cH As String
myStr = cell.Value
    For i = 0 To Len(myStr) - 1
        cH = Mid(myStr, Len(myStr) - i, 1)
    ChangePos = ChangePos & cH
    Next
End Function

meacupa · 2/4/13

hoamattroicoi đã viết:
Đơn giản thì thế này nè bạn,hihihi
=--RIGHT(A1)&LEFT(A1)
Với A1 chứa 28
Phức tạp chút thì thế này :

PHP:

Function ChangePos(cell As Range) Dim myStr As String, i As Long, cH As String myStr = cell.Value For i = 0 To Len(myStr) - 1 cH = Mid(myStr, Len(myStr) - i, 1) ChangePos = ChangePos & cH Next End Function

Thanks bạn nhiều. Mình sẽ thử test coi

ndu96081631 · 2/4/13

hoamattroicoi đã viết:
Đơn giản thì thế này nè bạn,hihihi
=--RIGHT(A1)&LEFT(A1)
Với A1 chứa 28
Phức tạp chút thì thế này :

PHP:

Function ChangePos(cell As Range) Dim myStr As String, i As Long, cH As String myStr = cell.Value For i = 0 To Len(myStr) - 1 cH = Mid(myStr, Len(myStr) - i, 1) ChangePos = ChangePos & cH Next End Function

Nếu code VBA thì ta dùng StrReverse Hoa Còi à

Mã:

Function StrRev(ByVal Text As String) As String
  StrRev = StrReverse(Text)
End Function

Không vòng lập gì cả
Lưu ý: Biến đầu vào nên khai báo là String chứ không nên là Range nhé

hoamattroicoi · 2/4/13

ndu96081631 đã viết:
Nếu code VBA thì ta dùng StrReverse Hoa Còi à

Mã:

Function StrRev(ByVal Text As String) As String StrRev = StrReverse(Text) End Function

Không vòng lập gì cả
Lưu ý: Biến đầu vào nên khai báo là String chứ không nên là Range nhé

he he, thank sư phụ em cắm đầu viêt không để ý cái myStr em lỡ gán bằng cell.value rồi thì cell phải khai báo String, hix hix, hỏng sao sư phụ nhỉ, rút kinh nghiệm vậy. Em đang tư duy thuật toán bình thường thôi, duyệt chuỗi và tách....

ndu96081631 · 2/4/13

hoamattroicoi đã viết:
hỏng sao sư phụ nhỉ, rút kinh nghiệm vậy. Em đang tư duy thuật toán bình thường thôi, duyệt chuỗi và tách....

Vấn đề là sau khi viết xong phải dùng được! Lý nào 1 hàm chỉ tham chiếu với 1 vùng nó mới chạy?
Ví dụ =ChangePos("Anh Tuấn") thì.. nghỉ chạy à?

hoangvuluan · 2/4/13

To: Homattroicoi, nếu duyệt chuỗi thì cũng chỉ duyệt đến gần 1/2 độ dài chuỗi thôi nhé!

meacupa · 3/4/13

Cảm ơn mọi người nhé, mình không biết về VBA nên đã dùng công thức của Excel.

meacupa · 21/3/14

Hix. Hôm nay mình lại gặp phải một vấn đề mới không biết xử lý thế nào nên lại phải lên đây nhờ mọi người giúp đỡ.
Mọi người giúp mình với, nếu trường hợp cell có giá trị là 00; 11; 22; 33; 44; ....chẳng hạn thì dùng công thức =--RIGHT(A1)&LEFT(A1) lại không được.
Rất mong mọi người giúp đỡ

nghiaphuc · 21/3/14

meacupa đã viết:
Hix. Hôm nay mình lại gặp phải một vấn đề mới không biết xử lý thế nào nên lại phải lên đây nhờ mọi người giúp đỡ.
Mọi người giúp mình với, nếu trường hợp cell có giá trị là 00; 11; 22; 33; 44; ....chẳng hạn thì dùng công thức =--RIGHT(A1)&LEFT(A1) lại không được.
Rất mong mọi người giúp đỡ

Tôi đang thắc mắc các số 00, 11, 22,... nằm trên các ô khác nhau hay là cả một dãy số như vậy nằm trong 1 ô.
- Nếu nằm trên các ô khác nhau thì có đảo ngược lại thì kết quả vẫn vậy chứ có khác gì?
- Nếu cả chuỗi số đó nằm trên 1 ô thì vấn đề ở chỗ ký tự đầu và cuối chuỗi có phải là số không (hay là các ký tự ; hoặc " ").

lamk_kute · 21/3/14

meacupa đã viết:
Hi all.
Mình có vấn đề rất mong được các bạn giúp đỡ. Mình cần đổi vị trí các số trong 1 cell.
VD như mình có 1 cell có giá trị là 28, mình muốn đổi thành 1 cell có giá trị là 82.
Thanks.
Mọi người giúp mình với, nếu trường hợp cell có giá trị là 00; 11; 22; 33; 44; ....chẳng hạn thì dùng công thức =--RIGHT(A1)&LEFT(A1) lại không được.
Rất mong mọi người giúp đỡ

Bác này tính xác xuất lô đề à =]] nếu thế thì pm mình gửi cho bản hoàn thiện 40ngày luôn train 3 đêm mới xong...
Email: lamk92nb@gmail.com

meacupa · 23/3/14

nghiaphuc đã viết:
Tôi đang thắc mắc các số 00, 11, 22,... nằm trên các ô khác nhau hay là cả một dãy số như vậy nằm trong 1 ô.
- Nếu nằm trên các ô khác nhau thì có đảo ngược lại thì kết quả vẫn vậy chứ có khác gì?
- Nếu cả chuỗi số đó nằm trên 1 ô thì vấn đề ở chỗ ký tự đầu và cuối chuỗi có phải là số không (hay là các ký tự ; hoặc " ").

Các số 00; 11... nằm trên các ô khác nhau, trên cùng một cột.
Mình có gửi file đính kèm up ở bên trên, bạn xem giúp mình nhé.
Thanks

nghiaphuc · 23/3/14

meacupa đã viết:
Các số 00; 11... nằm trên các ô khác nhau, trên cùng một cột.
Mình có gửi file đính kèm up ở bên trên, bạn xem giúp mình nhé.
Thanks

Ý của bạn là con số 11 sẽ đổi thành con số 66 à? Vậy thì quy luật gì để biến số này thành số kia? Nó đâu trùng với quy luật đảo 2 chữ số của các hàng phía trên.

chuot0106 · 23/3/14

meacupa đã viết:
Các số 00; 11... nằm trên các ô khác nhau, trên cùng một cột.
Mình có gửi file đính kèm up ở bên trên, bạn xem giúp mình nhé.
Thanks

11 thành 66, thế còn 00-->?; 22--??; 33--???; .......???????

meacupa · 23/3/14

nghiaphuc đã viết:
Ý của bạn là con số 11 sẽ đổi thành con số 66 à? Vậy thì quy luật gì để biến số này thành số kia? Nó đâu trùng với quy luật đảo 2 chữ số của các hàng phía trên.

Vì đây là trường hợp đặc biệt, nếu dùng quy luật đảo 2 chữ số như ở trên thì không giải quyết được nên mình mới đưa ra nhờ mọi người giúp, có thể tự tạo một hàm mới cho nó được không bạn?

meacupa · 23/3/14

chuot0106 đã viết:
11 thành 66, thế còn 00-->?; 22--??; 33--???; .......???????

00 <-> 55; 11 <-> 66; 22 <-> 77; 33 <-> 88; 44 <-> 99.

chuot0106 · 23/3/14

meacupa đã viết:
00 <-> 55; 11 <-> 66; 22 <-> 77; 33 <-> 88; 44 <-> 99.

Đã rõ, lần sau nhớ viết rõ ràng ra bạn nhé. Mình đi hỏi cho mình cơ mà.

chuot0106 · 23/3/14

meacupa đã viết:
00 <-> 55; 11 <-> 66; 22 <-> 77; 33 <-> 88; 44 <-> 99.

Bạn xem thử đã đúng ý chưa?
Mình làm thêm bảng phụ và dùng vlookup.

chuot0106 · 23/3/14

meacupa đã viết:
00 <-> 55; 11 <-> 66; 22 <-> 77; 33 <-> 88; 44 <-> 99.

Thêm hàm value để chuyển sang định dạng số!

hngiatuong · 23/3/14

meacupa đã viết:
Hi all.1 cell có giá trị là 28, muốn đổi thành giá trị là 82. nếu trường hợp cell có giá trị là 00; 11; 22; 33; 44; ....

Thử Ct này xem: B1=IF(RIGHT(A1)<>LEFT(A1),RIGHT(A1)&LEFT(A1),IF(A1=55,"00",A1+55))

khoavnvn · 23/3/14

Góp chút

=IF(LEFT(A1,1)=RIGHT(A1,1),IF(A1<50,(LEFT(A1,1)+5)&(RIGHT(A1,1)+5),(LEFT(A1,1)-5)&(RIGHT(A1,1)-5)),RIGHT(A1,1)&LEFT(A1,1))

voquangsu · 24/3/14

hngiatuong đã viết:
Thử Ct này xem: B1=IF(RIGHT(A1)<>LEFT(A1),RIGHT(A1)&LEFT(A1),IF(A1=55,"00",A1+55))

Nếu A1>55 sẽ không đúng, nên phải thế này:
B1=VALUE(IF(RIGHT(A1)<>LEFT(A1),RIGHT(A1)&LEFT(A1),RIGHT(A1+5)&RIGHT(A1+5)))

meacupa · 25/3/14

voquangsu đã viết:
Nếu A1>55 sẽ không đúng, nên phải thế này:
B1=VALUE(IF(RIGHT(A1)<>LEFT(A1),RIGHT(A1)&LEFT(A1),RIGHT(A1+5)&RIGHT(A1+5)))

Đây là cái mình cần.
Rất cảm ơn sự nhiệt tình của các bạn.
Thankssssssssssssssssssssssssssss

Đổi vị trí các số trong 1 cell (1 người xem)

Người dùng đang xem chủ đề này

Thành viên chính thức

File đính kèm

Thành viên gắn bó

Thành viên chính thức

Huyền thoại GPE

Thành viên gắn bó

Huyền thoại GPE

Thành viên tích cực

Thành viên chính thức

Thành viên chính thức

Thành viên gạo cội

Thành viên hoạt động

Thành viên chính thức

Thành viên gạo cội

Thành viên gắn bó

Thành viên chính thức

Thành viên chính thức

Thành viên gắn bó

Thành viên gắn bó

File đính kèm

Thành viên gắn bó

File đính kèm

CMC

Thành viên mới

Thành viên chính thức

Thành viên chính thức

Thời gian đếm ngược.