Xin code tìm đến ô giao của hàng cuối cùng chứa dữ liệu và cột nằm khoảng gữa của vùng cột chứa dữ liệu (1 người xem)

[motphatlt]

Em xin được nhờ các thầy cô giúp đỡ đoạn code tìm giao nhau của ô:
Ô đó thỏa mãn điều kiện là ô giao nhau của hàng (hàng cuối có chứa dữ liệu tính từ trên xuống) và cột, cột này nằm trong khoảng cột giữa của vùng cột có chứa dữ liệu "áng chừng nằm trong khoảng giữa của vùng cột chứa dữ liệu chứ không nhất thiết là chính xác giữa"
Cụ thể ví dụ như trên hình là ô H21: chạy code tới được luôn ô H21.
Đoạn code này có tác dụng trên một Sheet bất kỳ trong file hiện hành khi chạy code trong sheet hiện hành đó.
Em xin cảm ơn!

 

[Phuocam]

Em xin được nhờ các thầy cô giúp đỡ đoạn code tìm giao nhau của ô:
Ô đó thỏa mãn điều kiện là ô chứa dữ liệu, là giao nhau của cột ( cột cuối cùng tính từ trái sang phải) giao với hàng (hàng cuối cùng tính từ trên xuống).
Cụ thể ví dụ như trên hình là ô N26: chạy code tới được luôn ô N26.
Em xin cảm ơn!

Trường hợp A30 có giá trị là "XYZ" thì kết quả là gì?

 

[befaint]

msgbox Sheet1.UsedRange.Address

 

[motphatlt]

Trường hợp A30 có giá trị là "XYZ" thì kết quả là gì?

Dạ vâng, sau khi thầy góp ý em đã chỉnh lại yêu cầu ở bài 1, xin được thầy giúp.

Bài đã được tự động gộp: 18/8/20

msgbox Sheet1.UsedRange.Address

Em cảm ơn thầy! sau khi thầy befaint góp ý em đã chỉnh lại yêu cầu ở bài #1.
Rất mong được thầy quan tâm và giúp!

 

[motphatlt]

Bạn có thể dùng code này. Hơi 2 lúa 1 chút

Sub adad()
d = Range("d100000").End(xlUp).Row + 1
e = Range("e100000").End(xlUp).Row + 1
f = Range("f100000").End(xlUp).Row + 1
g = Range("g100000").End(xlUp).Row + 1
h = Range("h100000").End(xlUp).Row + 1
i = Range("i100000").End(xlUp).Row + 1
j = Range("j100000").End(xlUp).Row + 1
k = Range("k100000").End(xlUp).Row + 1
l = Range("l100000").End(xlUp).Row + 1
a = Application.Max(d, e, f, g, h, i, j, k, l, 5)
Range("h" & a).Select
End Sub

Cảm ơn bạn!
Mình chạy thì thấy nó luôn nằm ở giao nhau ở ô trong cột H (chưa phải là cột giữa của cột chứa dữ liệu) và chưa nằm trong hàng cuối cùng có dữ liệu.

 

[huuthang_bd]

Dùng Find với các tham số SearchOrder và SearchDirection phù hợp để xác định các cạnh trái, phải, dưới của vùng chứa dữ liệu sau đó xác định ô cần tìm.

 

[motphatlt]

Dùng Find với các tham số SearchOrder và SearchDirection phù hợp để xác định các cạnh trái, phải, dưới của vùng chứa dữ liệu sau đó xác định ô cần tìm.

Thầy có thể bớt chút thời gian giúp em với được không ạ?
Em chưa hiểu được và làm như thầy nói, em mới biết excel
Xin cảm ơn thầy.

 

[huuthang_bd]

Thầy có thể bớt chút thời gian giúp em với được không ạ?
Em chưa hiểu được và làm như thầy nói, em mới biết excel
Xin cảm ơn thầy.

Mai đi bạn, giờ tối rồi.

 

[motphatlt]

Mai đi bạn, giờ tối rồi.

Vâng, lúc nào thầy có thời gian giúp em với ạ!
Cảm ơn thầy nhiều!

 

[VetMini]

Theo như cái hình ở bài #6 thì bạn muốn kết quả là gì?
Toi không hiểu yêu cầu. Bạn cần cho biết con số mong muốn của bạn, may ra thì tôi đoán được mình có khả năng viết code lấy ra con số ấy chăng.

 

[motphatlt]

Theo như cái hình ở bài #6 thì bạn muốn kết quả là gì?

Dạ em muốn kết quả nằm ở hàng = hàng cuối cùng có dữ liệu hàng 24
Cột nằm trong vùng cột giữa của vùng cột có dữ liệu = cột L (bao gồm cả cột trống trong vùng )
Ô muốn con trỏ khi chạy code = giao cột L với dòng 24 (ô tô nền xanh)
Mong thầy giúp em với ạ!

 

[HieuCD]

Em xin được nhờ các thầy cô giúp đỡ đoạn code tìm giao nhau của ô:
Ô đó thỏa mãn điều kiện là ô giao nhau của hàng (hàng cuối có chứa dữ liệu tính từ trên xuống) và cột, cột này nằm trong khoảng cột giữa của vùng cột có chứa dữ liệu "áng chừng nằm trong khoảng giữa của vùng cột chứa dữ liệu chứ không nhất thiết là chính xác giữa"
Cụ thể ví dụ như trên hình là ô H21: chạy code tới được luôn ô H21.
Đoạn code này có tác dụng trên một Sheet bất kỳ trong file hiện hành khi chạy code trong sheet hiện hành đó.
Em xin cảm ơn!

View attachment 243414

Thử
dim Rng as range
set rng = Sheet1.UsedRange
rng(rng.rows.count,(rng.columns.count+1)\2).select

 

[motphatlt]

Thử
dim Rng as range
set rng = Sheet1.UsedRange
rng(rng.rows.count,(rng.columns.count+1)\2).select

Sử dụng thế nào vậy thầy ơi? có thể có tác dụng trên sheet bất kỳ được không ạ?
Em thấy có sheet1?
Cảm ơn thầy

 

[Phuocam]

Thay sheet1. bằng ActiveSheet.

 

[motphatlt]

Thay sheet1. bằng ActiveSheet.

Cho em hỏi đoạn code sử dụng thế nào vậy ạ?
em cho vào modeule nhưng không được ạ?

 

[huuthang_bd]

UsedRange tính cả ô không có dữ liệu nhưng có định dạng và ô đã từng dùng tính từ khi file được lưu.

 

[motphatlt]

UsedRange tính cả ô không có dữ liệu nhưng có định dạng và ô đã từng dùng tính từ khi file được lưu.

Cho em hỏi Đoạn code bài 13 sử dụng sao vậy thầy?

 

[SA_DQ]

Bạn thử chạy macro này trên trang tính "GPE" có dữ liệu:

Sub DongCuoi_CotGiua()
Dim Rng As Range
Dim LastRowCell As Long, LastColCell As Integer

With Sheets("GPE")
    Set Rng = .UsedRange
    LastRowCell = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    MsgBox "Dòng cuôi: " & LastRowCell, , "1"
    LastColCell = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    MsgBox "Côt Cuôi: " & LastColCell, , "2"
    MsgBox "Côt Dâu: " & Rng(1).Column, , "3"
End With
End Sub

 

[motphatlt]

Bạn thử chạy macro này trên trang tính "GPE" có dữ liệu:

Sub DongCuoi_CotGiua()
Dim Rng As Range
Dim LastRowCell As Long, LastColCell As Integer

With Sheets("GPE")
    Set Rng = .UsedRange
    LastRowCell = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    MsgBox "Dòng cuôi: " & LastRowCell, , "1"
    LastColCell = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    MsgBox "Côt Cuôi: " & LastColCell, , "2"
    MsgBox "Côt Dâu: " & Rng(1).Column, , "3"
End With
End Sub

Em cảm ơn thầy.
Em chạy code nó cứ xoay xoay rồi hiện ra mấy bảng thông báo ạ!
thầy sửa giúp em đẻ có tác dụng trên sheet bất kỳ và đến được luôn ô mong muốn mà không cần hiện lên thông báo không ạ?

 

[SA_DQ]

Thông báo thứ nhất là dòng cuối;
Thông báo thứ 2 là cột cuối
Thông báo thứ 3 là cột đầu (Cần thẩm tra lại)

Vậy ô thuộc dòng cuối của cột giữa sẽ phải làm phép tính để tìm cột giữa
1 khi ta có dòng cuối & cột 'giữa' rồi thì xác định ô đó theo tọa độ dòng & cột thôi.

Ví dụ cột cuối là 12 & cột đầu là 3 thì cột giữa sẽ là (? tự tính d8i bạn)

 

[motphatlt]

Thông báo thứ nhất là dòng cuối;
Thông báo thứ 2 là cột cuối
Thông báo thứ 3 là cột đầu (Cần thẩm tra lại)

Vậy ô thuộc dòng cuối của cột giữa sẽ phải làm phép tính để tìm cột giữa
1 khi ta có dòng cuối & cột 'giữa' rồi thì xác định ô đó theo tọa độ dòng & cột thôi.

Khi chạy code có thể con trỏ chuột đi tới luôn ô đó ạ!
Không cần hiện ra thông báo ạ!

 

[SA_DQ]

Cells(DongCuoi, (CotCuoi + CotDau)/2).Select

 

[motphatlt]

Cells(DongCuoi, (CotCuoi + CotDau)/2).Select

Thêm dòng code này vào đoạn code trên à thầy?
Em thêm vào chạy nó vẫn hiện ra bảng thông báo

 

[SA_DQ]

Thì vô hiệu hóa những dòng lệnh có lênh MsgBox đi; bằng 1 trong các cách:
Thêm nháy đơn đầu dòng lệnh;
Xóa nguyên dòng lệnh đó đi
. . . .

 

[motphatlt]

Thì vô hiệu hóa những dòng lệnh có lênh MsgBox đi; bằng 1 trong các cách:
Thêm nháy đơn đầu dòng lệnh;
Xóa nguyên dòng lệnh đó đi
. . . .

thầy xem giúp em lỗi ở đau ạ

 

[SA_DQ]

Lúc đó phải là Cells( LastRowCell, (LastColCell + Rng(1).Row)/2).Select

 

[motphatlt]

Lúc đó phải là Cells( LastRowCell, (LastColCell + Rng(1).Row)/2).Select

Thầy ơi, em chạy code: ô nằm dòng cuối và cột giữa là ô tô nền xanh, em chạy code tới ô nền vàng.

 

[SA_DQ]

Bạn phải xem lại lệnh Msgbox Rng(1).Row đã đúng thực tế chưa. Điều này chỉ có thể xác định trên thực địa mà thôi; Code dùng vô chổ này chưa chắn đúng, như HuuThang đã nêu ở bài trên.

 

[motphatlt]

Bạn phải xem lại lệnh Msgbox Rng(1).Row đã đúng thực tế chưa. Điều này chỉ có thể xác định trên thực địa mà thôi; Code dùng vô chổ này chưa chắn đúng, như HuuThang đã nêu ở bài trên.

Dạ vâng! em cảm ơn thầy!

 

[Quang_Hải]

Thu

Em xin được nhờ các thầy cô giúp đỡ đoạn code tìm giao nhau của ô:
Ô đó thỏa mãn điều kiện là ô giao nhau của hàng (hàng cuối có chứa dữ liệu tính từ trên xuống) và cột, cột này nằm trong khoảng cột giữa của vùng cột có chứa dữ liệu "áng chừng nằm trong khoảng giữa của vùng cột chứa dữ liệu chứ không nhất thiết là chính xác giữa"
Cụ thể ví dụ như trên hình là ô H21: chạy code tới được luôn ô H21.
Đoạn code này có tác dụng trên một Sheet bất kỳ trong file hiện hành khi chạy code trong sheet hiện hành đó.
Em xin cảm ơn!

View attachment 243414

Thử code này. Hên xui nha
*********
Chú ý là phải xóa cái dòng có dãy số phía trên nha. Xóa hẳn dòng luôn

Sub Tim_DongCuoi_CotGiua()

Dim dongdau As Long, sArr(), cotdau As Long, tongsocot As Long
dongdau = ActiveSheet.UsedRange.Row
cotdau = ActiveSheet.UsedRange.Column
sArr = ActiveSheet.UsedRange.Value
tongsocot = UBound(sArr, 2)
If tongsocot Mod 2 <> 0 Then tongsocot = tongsocot + 1
Cells(dongdau + UBound(sArr) - 1, tongsocot / 2 + cotdau - 1).Select
MsgBox Cells(dongdau + UBound(sArr) - 1, tongsocot / 2 + cotdau - 1).Address

End Sub

 

[motphatlt]

Thu

Thử code này. Hên xui nha
*********
Chú ý là phải xóa cái dòng có dãy số phía trên nha. Xóa hẳn dòng luôn

Sub Tim_DongCuoi_CotGiua()

Dim dongdau As Long, sArr(), cotdau As Long, tongsocot As Long
dongdau = ActiveSheet.UsedRange.Row
cotdau = ActiveSheet.UsedRange.Column
sArr = ActiveSheet.UsedRange.Value
tongsocot = UBound(sArr, 2)
If tongsocot Mod 2 <> 0 Then tongsocot = tongsocot + 1
Cells(dongdau + UBound(sArr) - 1, tongsocot / 2 + cotdau - 1).Select
MsgBox Cells(dongdau + UBound(sArr) - 1, tongsocot / 2 + cotdau - 1).Address

End Sub

Em cảm ơn thầy!
Nhờ Thầy xem giúp em xem sao nó đến tận dòng 65536 vậy ạ!

 

[Quang_Hải]

Em cảm ơn thầy!
Nhờ Thầy xem giúp em xem sao nó đến tận dòng 65536 vậy ạ!

View attachment 243434

Phần này bạn phải tự xử lý thôi. Vốn file của bạn nó là vậy mà. Ctrl+End thì nó đã chạy tuốt tới dòng cuối rồi, nên code cũng sẽ tìm đúng dòng đó. Lỗi này mình cũng bị và bó tay với nó. Mình chỉ biết tạo sheet trắng mới rồi copy dữ liệu sang thôi bạn ạ. Hy vọng có ai đó giúp được lỗi này cho mình học luôn. Excel đôi lúc nó điên điên sao ấy. Hức

 

[befaint]

65536

 

[SA_DQ]

Tìm dòng cuối hay cột cuối có dữ liệu là phải xài phương thức FIND()
Vấn đề còn lại ở đây là ô đầu tiên chứa dữ liệu là khó làm bằng VBA, mà phải xem trang tính trên thực tế mà thôi.

 

[motphatlt]

Tìm dòng cuối hay cột cuối có dữ liệu là phải xài phương thức FIND()
Vấn đề còn lại ở đây là ô đầu tiên chứa dữ liệu là khó làm bằng VBA, mà phải xem trang tính trên thực tế mà thôi.

Phần này bạn phải tự xử lý thôi. Vốn file của bạn nó là vậy mà. Ctrl+End thì nó đã chạy tuốt tới dòng cuối rồi, nên code cũng sẽ tìm đúng dòng đó. Lỗi này mình cũng bị và bó tay với nó. Mình chỉ biết tạo sheet trắng mới rồi copy dữ liệu sang thôi bạn ạ. Hy vọng có ai đó giúp được lỗi này cho mình học luôn. Excel đôi lúc nó điên điên sao ấy. Hức

Em cảm ơn thầy

 

[huuthang_bd]

Bạn dùng code này

Sub ABC()
Dim Trai As Range, Phai As Range, Duoi As Range
Set Phai = Cells.Find(what:="*", After:=Cells(1, 1), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, SearchFormat:=False)
If Phai Is Nothing Then
    MsgBox "Sheet nay khong co du lieu"
Else
    Set Duoi = Cells.Find(what:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False)
    Set Trai = Cells.Find(what:="*", After:=Phai, SearchOrder:=xlByColumns, SearchDirection:=xlNext, SearchFormat:=False)
    Cells(Duoi.Row, (Trai.Column + Phai.Column) / 2).Select
End If
End Sub

 

[motphatlt]

Bạn dùng code này

Sub ABC()
Dim Trai As Range, Phai As Range, Duoi As Range
Set Phai = Cells.Find(what:="*", After:=Cells(1, 1), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, SearchFormat:=False)
If Phai Is Nothing Then
    MsgBox "Sheet nay khong co du lieu"
Else
    Set Duoi = Cells.Find(what:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False)
    Set Trai = Cells.Find(what:="*", After:=Phai, SearchOrder:=xlByColumns, SearchDirection:=xlNext, SearchFormat:=False)
    Cells(Duoi.Row, (Trai.Column + Phai.Column) / 2).Select
End If
End Sub

Vâng, em cảm ơn thầy!

 

[motphatlt]

cái hình bạn hỏi 1 nẻo. bạn trả lời lại 1 nẻo

Mình đã đính chính lại ở bài 4 sau khi có các thầy trên diễn đàn góp ý mà bạn!

 

[be_09]

Mình đã đính chính lại ở bài 4 sau khi có các thầy trên diễn đàn góp ý mà bạn!

Chẳng hiểu bạn hỏi như thế mục đích để làm gì?

 

[motphatlt]

Chẳng hiểu bạn hỏi như thế mục đích để làm gì?

Mục đích của em là đến cuối bảng tính có dữ liệu cho nhanh thôi ạ!