Hỏi cách đổi dấu và vị trí các cụm số trong một dãy số trong cùng một ô tính

[tandinh_giahoa]

Chào các bác trên diễn đàn. Em cần thay đổi dấu và vị trí các cụm số của một dãy số ở trong một ô tính. Nhưng em làm hoài mà không được. Các bác có cách nào giúp em thay đổi với. Em xin cảm ơn.
(Em có thể lập được công thức để thay đổi, nhưng chỉ thay đổi dấu được thôi còn chiều của các cụm số thì chưa thay đổi được. Lập công thức để thay đổi như thế thì hơi bất tiện cho quá trình làm việc). Các bác có thể xem ở ví du 2.

 

[tigertiger]

Chào các bác trên diễn đàn. Em cần thay đổi dấu và vị trí các cụm số của một dãy số ở trong một ô tính. Nhưng em làm hoài mà không được. Các bác có cách nào giúp em thay đổi với. Em xin cảm ơn.

+ Oh, trong một ô sao lại có nhiều số
+ Bạn có thể bố trí số liệu mỗi ô 1 số k?
+ Bạn nên giải thích dữ liệu 1 chút?

và ..........

 

[anhtuan1066]

Ah... topic này đi đến đây thì tôi càng tò mò... Vì đễ ý xem tác giã đã post thêm 1 file... trong đó có công thức nữa chứ... Có điều nhìn vào tôi chẳng hiểu tí nào... ấy vậy mà cuối cùng vẫn ra dc kết quã như ý muốn... Hay thiệt...
Thú thật tôi cũng ko nghĩ ra dc mấy cái trò SUBSTITUTE(....) này... Vì thế mà cãm thấy hơi tiếc nếu bài bị xóa chứ ko phải là cố tình đùa giỡn đâu...

 

[tigertiger]

Ah... topic này đi đến đây thì tôi càng tò mò... Vì đễ ý xem tác giã đã post thêm 1 file... trong đó có công thức nữa chứ... Có điều nhìn vào tôi chẳng hiểu tí nào... ấy vậy mà cuối cùng vẫn ra dc kết quã như ý muốn... Hay thiệt...
Thú thật tôi cũng ko nghĩ ra dc mấy cái trò SUBSTITUTE(....) này... Vì thế mà cãm thấy hơi tiếc nếu bài bị xóa chứ ko phải là cố tình đùa giỡn đâu...

+ Được BQT chuyển rồi, atuan giúp bạn đó đi

+ Bạn ý dùng các công thức sub... để nhằm mục đích đổi dấu đó mà,

+ Công thức đó rút ngắn sẽ gộp lại là 1 như sau:

=TRIM(SUBSTITUTE(SUBSTITUTE(CHAR(10)&SUBSTITUTE(SUBSTITUTE(C4," ",""),CHAR(9)," "),CHAR(10),CHAR(10)&"-"),"--",""))

+ Nhưng chưa đảo ngược được các số -> chắc phải dùng UDF trong VBA đây / hoặc Name động (chắc cái này atuan phải ra tay thôi, chuyên gia công thức mà)
.

 

[Mr Okebab]

Dùng UDF thôi, vì nó là bài toán đảo ngược vị trí các phần tử trong mảng, nhưng dấu (âm, dương) tại các vị trí không thay đổi.

Vì kế quả cũng là một mảng nên ta phải dùng công thức mảng thôi (UDF). Còn nếu không thì dùng SUB.

Thân!

 

[anhtuan1066]

Trong file này đã có sẳn UDF rồi còn gì... sữa lại tí thôi...
Xem file đây
Cái này đâu phải là mãng Bắp ơi... chẳng qua là khi nhập liệu người ta Alt + Enter thôi...
ANH TUẤN

 

[tigertiger]

Đúng là trong file 1 đã có sẳn UDF rồi (nhưng lại để trong class -> kp chạy được),

Chuẩn bị post bài thì thấy bài của atuan

Nhưng đã làm rồi thì post lên lun,

nội dung như sau (bấm Alt+F11 -> rồi vào Insert\module rồi copy code sau vào):

Option Explicit

Public Function DaoTuInCell(strText As String)
    Dim aText() As String, strTemp As String, i As Integer
    strText = Replace(strText, " ", ""): strText = Replace(strText, Chr(9), "")
    strText = Replace(strText, Chr(10), Chr(10) & "-"): strText = Replace(strText, "--", "")
    strText = Right(strText, Len(strText) - 1): aText = Split(strText, Chr(10)): strTemp = ""
    For i = UBound(aText) To 0 Step -1: strTemp = strTemp & IIf(strTemp = "", "", Chr(10)) & aText(i): Next i
    DaoTuInCell = strTemp
End Function