Cách tách phần chữ và số ? (1 người xem)

[LinDan]

- Giả sử tại cell A1 có chuổi chứa biểu thức (20*3+12*2)/4 (hoặc là bất cứ biểu thức nào miễn là 1 biểu thức toán học)
- Ta đặt con trỏ chuột tại dòng 1, vào menu Insert\Name\Define, đặt name có tên là Eval, có công thức tại Refers to =Evaluate($A1)
- Tại cell B1, gõ công thức =Eval

Xin thày chỉ cho cách làm bài này bằng VBA (sử dụng vòng lặp For) như thế nào?

 

[ndu96081631]

Xin thày chỉ cho cách làm bài này bằng VBA (sử dụng vòng lặp For) như thế nào?

Trong VBA cũng y chang vậy... cũng dùng EVALUATE luôn, khỏi phải For... Next gì ráo

 

[trungvdb]

Em xin góp thêm 1 cách nữa

Tmp=IF(MID(Sheet1!$A1;ROW(INDIRECT("1:"&LEN(Sheet1!$A1)));1)=":";ROW(INDIRECT("1:"&LEN(Sheet1!$A1)));"")

Pos=EVALUATE(IF(COUNT(Tmp)>0;TRIM(MID(Sheet1!$A1;SMALL(Tmp;1)+1;LEN(Sheet1!$A1)));Sheet1!$A1))

Công thức tách tại ô B1=Pos

 

[trungvdb]

Xin các thày cho em hỏi: EVALUATE có được coi là hàm không? Nếu là hàm tại sao đánh trực tiếp nó không được ah?

 

[ndu96081631]

Xin các thày cho em hỏi: EVALUATE có được coi là hàm không? Nếu là hàm tại sao đánh trực tiếp nó không được ah?

Nó là hàm nhưng thuộc bộ hàm MACRO 4
Gõ trực tiếp được nhưng phải gõ vào Macro sheet, còn với Worksheet thông thường, 1 vài hàm của bộ hàm macro 4 này có thể dùng thông qua Define name
Về cách dùng macro 4 thông qua define name, có thể tham khảo bài này:
http://www.giaiphapexcel.com/forum/showthread.php?7613-Thủ-thuật-DefineName-cho-macro-4