hiện số liệu ô khi đánh tên ô

[phamanhtuan_9914]

hi
chào các anh chị
em đang cần hiện số liệu ô khi đánh tên ô mà không biết làm thế nào mong các anh chị giúp sức với điều kiện:
khong dung ky tu &,",
khong dung cot phu
file dinh kem
thanks mọi người trước nha.

 

[TKT]

Bạn muốn như thế này phải không?!​

Tại ô H14 bạn vào công thức:​

=IF(G14<>"",GetFormular,"")

Với GetFormular trong Insert - Name - Define là:​

=FORMULA.CONVERT(GET.FORMULA(Sheet1!$G14),FALSE,TRUE,,Sheet1!$G14)

---------------------------------
PS: Học từ bác anhtuan1066

 

[Po_Pikachu]

Đề rất tuyệt! Mặc dù dùng cách cũ chuối nhưng chắc vừa ý bạn rồi! Thân.

 

[phamanhtuan_9914]

hàm của bạn rất tốt.
chỉ có điều nó gặp trục chặc với tên dài.
file đính kèm.
cảm ơn bạn trước nha.

 

[Po_Pikachu]

Vậy ngoài các tên dài trên bạn còn bao nhiêu loại nữa. Ví dụ như: MDB5-B1.2 hay DW.DA_D3A2 v..v.. Mình cần tìm công thức chung cho tất cả các tên đó thì mới đưa ra công thức đúng được. Bạn thông cảm nha! Thân.

 

[phamanhtuan_9914]

tên của các cấu kiện mình thường dùng là dầm(D),cột (C), vách(V), ngoài ra còn có cả cửa đi(Đ), mình thường đặt tên là( dd), vách kính(VK),DK,VKT,VKC,DKT,cửa sổ (S), ngoài tên của cấu kiện còn chỉ số của các cấu kiện đi kèm như.1,2,1.2,1.3,2.1...hoặc ký hiệu bằng chữ như A,B,.(VKA,VKB)...việc đặt tên cụ thể do người thiết kế quyết định,mình chỉ sử dụng lại tên của chúng và gán kích thước các tên của chúng để tính toán.
bạn cố gắng giúp mình nha.
thanks

 

[Po_Pikachu]

Không dùng công thức được thì dựa vào VBA vậy! Bạn xem file nha! Thử bấm vào nút "Chuyen doi du lieu" xem.

 

[phamanhtuan_9914]

mình đã thử rồi.
cách của bạn rất hay.
nhưng đối với tên có ký tự bằng chữ.A,B.. đằng sau lại không đúng.
bạn có thể sửa lỗi đó được không.
và thay bằng kích chuột bạn có thể dùng macro được không.
thanks bạn rất nhiều.

 

[Po_Pikachu]

Bạn nên đưa thêm các ví dụ cụ thể lên hết để dễ làm, còn dùng Macro thì chẳng qua là cố định vị trí chính xác luôn thôi! Bạn thay toàn bộ code sau:

Dim vung As Range [COLOR=red]Set vung = Application.InputBox("Chon o dau tien cua day can quet", "thong bao!", Type:=8) If vung = 0 Then Exit Sub Else[/COLOR] For ro = vung.Row To vung.End(xlDown).Row '... [COLOR=red]End IF[/COLOR] End Sub

Thành

Dim vung As Range [COLOR=red]Set vung = Range("G26")[/COLOR] For ro = vung.Row To vung.End(xlDown).Row '.... End Sub