Cát Lượng
Thành viên tiêu biểu

- Tham gia
- 14/11/18
- Bài viết
- 403
- Được thích
- 66
Theo mình hiểuEm xin được hỏi, trong file excel (file đính kèm):
1/ Công thức =”B”&Row() tương ứng ở các dòng trong cột AP có tác dụng gì?
2/ Các ô ở cột AP có dữ liệu các dòng tương ứng: B1, B3.... không thể chỉnh sửa được (nhấn vào đó không có tác động) là do thuộc tính, định dạng gì ạ?
Em Xin cám ơn!
View attachment 213844
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Set myRange = Intersect(Range("AP1:AP650"), Target)
If Not myRange Is Nothing Then
Range("A1").Select
End If
End Sub
[ATTACH type="full" alt="213858"]213858[/ATTACH]
Cám ơn anh! rất chi tiết và dễ hiểu ạ!Theo mình hiểu
1/ Công thức =”B”&Row() tương ứng ở các dòng trong cột AP có tác dụng gì? => Tạo địa chỉ tham chiếu chạy code sẽ điền kết quả
Ví dụ: dòng B1 ở cột AP khi chạy code kết quả sẽ điền ở ô B1 với kết quả là "CÔNG TY CỔ PHẦN SHOME" tương tự B13 cột AP13 sẽ là địa chỉ điền kết quả khi chạy code copy địa chỉ ở D3 sheet DM_HD "104 Chung cư 15 tầng Quang Minh - đường Đào Sư Tích - p. Hoàng Văn Thụ - Tp. Bắc Giang - tỉnh Bắc Giang".
2/ Các ô ở cột AP có dữ liệu các dòng tương ứng: B1, B3.... không thể chỉnh sửa được (nhấn vào đó không có tác động) là do thuộc tính, định dạng gì ạ? => Có đọn code bên dưới trong Sheet được hiểu là khi ta click chuột vào vùng AP1 đến AP650 thì code sẽ thực hiện lệnh chọn tới ô A1 bạn xóa nó đi sẽ chọn được vùng AP1 đến AP650
Mã:Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Set myRange = Intersect(Range("AP1:AP650"), Target) If Not myRange Is Nothing Then Range("A1").Select End If End Sub [ATTACH type="full" alt="213858"]213858[/ATTACH]
Anh ơi, cho em hỏi thêm chút nữa ạ!:Theo mình hiểu
1/ Công thức =”B”&Row() tương ứng ở các dòng trong cột AP có tác dụng gì? => Tạo địa chỉ tham chiếu chạy code sẽ điền kết quả
Ví dụ: dòng B1 ở cột AP khi chạy code kết quả sẽ điền ở ô B1 với kết quả là "CÔNG TY CỔ PHẦN SHOME" tương tự B13 cột AP13 sẽ là địa chỉ điền kết quả khi chạy code copy địa chỉ ở D3 sheet DM_HD "104 Chung cư 15 tầng Quang Minh - đường Đào Sư Tích - p. Hoàng Văn Thụ - Tp. Bắc Giang - tỉnh Bắc Giang".
2/ Các ô ở cột AP có dữ liệu các dòng tương ứng: B1, B3.... không thể chỉnh sửa được (nhấn vào đó không có tác động) là do thuộc tính, định dạng gì ạ? => Có đọn code bên dưới trong Sheet được hiểu là khi ta click chuột vào vùng AP1 đến AP650 thì code sẽ thực hiện lệnh chọn tới ô A1 bạn xóa nó đi sẽ chọn được vùng AP1 đến AP650
Mã:Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Set myRange = Intersect(Range("AP1:AP650"), Target) If Not myRange Is Nothing Then Range("A1").Select End If End Sub [ATTACH type="full" alt="213858"]213858[/ATTACH]
À em thấy rồi, ở cột đã bị ẩn đi trong sheet "HD_LD".Anh ơi, cho em hỏi thêm chút nữa ạ!:
"Sheet được hiểu là khi ta click chuột vào vùng AP1 đến AP650 thì code sẽ thực hiện lệnh chọn tới ô A1 bạn xóa nó đi sẽ chọn được vùng AP1 đến AP650"
* Cho em hỏi vấn đề để liên kết ô A1 trong sheet "HD_LD" và các ô chứa dữ liệu ở sheet nào đó, mà ở đây cụ thể là sheet "DM_HD" thì làm thế nào ạ? có đoạn code nào trong file trên có tác dụng liên kết từ ô A1 đến các ô chứa dữ liệu ở sheet"DM_HD" không ạ?, em chưa hiểu về cách lấy dữ liệu từ sheet "DM_HD" sang ô A1 ở sheet "HD_LD".
Em chưa biết về excel nhiều, cảm ơn anh !