Xác định vị trí của cột (1 người xem)

[NguyenNgocSon]

Xin hỏi các bác, em có vấn đề sau
Em dùng VBA đã xác định được ô chứa dữ liệu ở cột 13 => Làm sao xác định được cột 13 nó tương ứng với chỉ số cột nào ?
Ví dụ cột 2 tương ứng với cột là B
Cám ơn !

 

[leonguyenz]

Xin hỏi các bác, em có vấn đề sau
Em dùng VBA đã xác định được ô chứa dữ liệu ở cột 13 => Làm sao xác định được cột 13 nó tương ứng với chỉ số cột nào ?
Ví dụ cột 2 tương ứng với cột là B
Cám ơn !

Thuộc tính Address, ví dụ: Cells(1, 13).Address(0, 0) cho kết quả M1.

 

[chuot0106]

Xin hỏi các bác, em có vấn đề sau
Em dùng VBA đã xác định được ô chứa dữ liệu ở cột 13 => Làm sao xác định được cột 13 nó tương ứng với chỉ số cột nào ?
Ví dụ cột 2 tương ứng với cột là B
Cám ơn !

Bạn nói rõ hơn mục đích của bạn xem nào. Chỉ đơn giản là xác định 1 số cho trước ứng với cột nào thôi, ví dụ: cột 1 ứng với cột A, cột 2 ứng với cột B,....hay còn dùng làm gì khác nữa. Nên đưa File nên(giả lập cũng được).

 

[chuot0106]

Thuộc tính Address, ví dụ: Cells(1, 13).Address(0, 0) cho kết quả M1.

Hình như tác giả muốn xác định mỗi tên cột thôi, trong trường hợp này là cột M.
Xin phép Mr.Bum tôi sửa lại chút:

left(Cells(1, 13).Address(0,0),1)

Sẽ cho kết quả là M.

 

[leonguyenz]

Hình như tác giả muốn xác định mỗi tên cột thôi, trong trường hợp này là cột M.
Xin phép Mr.Bum tôi sửa lại chút:

Sẽ cho kết quả là M.

Dùng Left(Cells(1, 13).Address(0,0),len(Cells(1, 13).Address(0,0))-1), vì cột có tới 2, 3 ký tự.
Hoặc dùng Replace cho gọn:
Replace(Cells(1, 13).Address(0, 0), 1, "")

 

[chuot0106]

Dùng Left(Cells(1, 13).Address(0,0),len(Cells(1, 13).Address(0,0))-1), vì cột có tới 2, 3 ký tự.

À ừ, tôi quên không lường trước trường hợp này!

 

[VetMini]

Hình như tác giả muốn xác định mỗi tên cột thôi, trong trường hợp này là cột M.
Xin phép Mr.Bum tôi sửa lại chút:

left(Cells(1, 13).Address(0,0),1)

Sẽ cho kết quả là M.

Trật lất:
left(Cells(1, 113).Address(0,0),1) sẽ cho kết quả là D

replace(...., "1", "") để xoá số 1 đi

 

[chuot0106]

Dùng Left(Cells(1, 13).Address(0,0),len(Cells(1, 13).Address(0,0))-1), vì cột có tới 2, 3 ký tự.
Hoặc dùng Replace cho gọn:
Replace(Cells(1, 13).Address(0, 0), 1, "")

Với trường hợp cells(1,113) như anh VietMini đưa ra thì cách 1 không chính xác.

 

[leonguyenz]

Với trường hợp cells(1,113) như anh VietMini đưa ra thì cách 1 không chính xác.

Không chính xác là sao nhỉ? Cũng ra kết quả là DI mà?

 

[chuot0106]

Không chính xác là sao nhỉ? Cũng ra kết quả là DI mà?

Tôi thử dòng lệnh này trong cửa sổ Immediate

? Left(Cells(1, 113).Address(0,0),len(Cells(1, 13).Address(0,0))-1)

nó ra kết quả là : D

 

[ndu96081631]

Tôi thử dòng lệnh này trong cửa sổ Immediate

? Left(Cells(1, 113).Address(0,0),len(Cells(1, 13).Address(0,0))-1)

nó ra kết quả là : D

Thì tại bạn gõ sai thôi

 

[chuot0106]

Thì tại bạn gõ sai thôi

Thầy ơi, tiện cho em hỏi trong VBA muốn xác định 1 vùng cho trước nằm ở dòng nào, cột nào thì viết lệnh như thế nào vậy ạ? Ví dụ em có code như thế này:

Option Explicit


Public Sub test()
Dim rng As Range, i As Long
Set rng = Sheet1.Range("B5:E10")
i = i + 1
'Gio em muon viet lenh gi o day de xac dinh xem,_
'vd: rng(i,1) no nam o dong nao? cot nao? khong phai trong vung mà trong Worksheet
End Sub

Ví dụ, với i=2 thì rng(i,1) sẽ nằm ở dòng 6 cột 3(cột B)

 

[ndu96081631]

Thầy ơi, tiện cho em hỏi trong VBA muốn xác định 1 vùng cho trước nằm ở dòng nào, cột nào thì viết lệnh như thế nào vậy ạ? Ví dụ em có code như thế này:

rng(i,1).Row để xác định vị trí dòng
rng(i,1).Column để xác định vị trí cột

 

[chuot0106]

rng(i,1).Row để xác định vị trí dòng
rng(i,1).Column để xác định vị trí cột

Chả trách được em viết:

Row(rng(1,1))

nó không ra. Em nhầm với CT trong Excel.
Em cảm ơn thầy nhiều lắm ạ!