[Cần giúp] Cần giúp dùng VBA viết hàm tách số Công văn

[meonhoc8888]

Chào các bạn,

Nhờ các bạn biết về VBA viết dùm mình hàm tách số công văn trong chuổi.

Các bạn xem trong file dử liệu mẫu nha:
Trong đó:

-Công văn 3601/VPCP-KTN về bổ sung khu vực quặng sa khoáng titan tỉnh Quảng Trị vào quy hoạch thăm dò, khai thác, chế biến và sử dụng quặng titan do Văn phòng Chính phủ ban hành

Tách số công văn thành: 3601/VPCP-KTN.

Mình đã tham khảo qua hàm tách họ tên nhưng do không hiểu về VBA nên không thực hiện được.

Cám ơn các bạn.

 

[ndu96081631]

Chào các bạn,
Nhờ các bạn biết về VBA viết dùm mình hàm tách số công văn trong chuổi.
Các bạn xem trong file dử liệu mẫu nha:
Trong đó:
-Công văn 3601/VPCP-KTN về bổ sung khu vực quặng sa khoáng titan tỉnh Quảng Trị vào quy hoạch thăm dò, khai thác, chế biến và sử dụng quặng titan do Văn phòng Chính phủ ban hành
Tách số công văn thành: 3601/VPCP-KTN.
Mình đã tham khảo qua hàm tách họ tên nhưng do không hiểu về VBA nên không thực hiện được.
Cám ơn các bạn.

- Đâu tiên bạn vào menu Tools\Options... chuyển sang tab Calculation và check vào mục Automatic
- Xong, gõ vào cell F7 công thức sau:

=TRIM(MID(SUBSTITUTE(D7," ",REPT(" ",LEN(D7))),2*LEN(D7),LEN(D7)))

Kéo fill xuống
Chú ý: Công thức này dựa trên các đặc điểm sau của chuổi:
- Chuổi luôn bắt đầu bằng từ "Công văn"
- Từ cần tách nằm sau từ "Công văn" đến khoảng trắng tiếp theo
Nếu chuổi không có các đặc điểm như thế thì công thức sẽ sai

 

[meonhoc8888]

Quá tuyệt lun, chính xác những gì mình cần. Cám ơn ndu96081631 nhiều nhiều.

 

[concogia]

- Đâu tiên bạn vào menu Tools\Options... chuyển sang tab Calculation và check vào mục Automatic
- Xong, gõ vào cell F7 công thức sau:

=TRIM(MID(SUBSTITUTE(D7," ",REPT(" ",LEN(D7))),2*LEN(D7),LEN(D7)))

Kéo fill xuống
Chú ý: Công thức này dựa trên các đặc điểm sau của chuổi:
- Chuổi luôn bắt đầu bằng từ "Công văn"
- Từ cần tách nằm sau từ "Công văn" đến khoảng trắng tiếp theo
Nếu chuổi không có các đặc điểm như thế thì công thức sẽ sai

Nếu các điều kiện trên mà Ok. cũng có thể "chơi nó" như thế này:

=MID(D7,10,FIND(" ",D7,10)-10)

 

[TrungChinhs]

Bạn thử công thức này xem có được không ?
=LEFT(D7;SEARCH("về";D7)-2)