Giúp tạo Msgbox hiển thị ô đầu tiên và ô cuối cùng của nhóm ô có hình dạng ngẫu nhiên để chạy Conditional Formatting

[hktanh]

Chào các bạn. Mình đang có một vấn đề về việc tô màu ô theo điều kiện Condition Formatting, đó là vùng mà mình muốn áp dụng Conditional Formatting là một vùng ghép của nhiều mảng rời rạc, chẳng hạn như trong file thì mình chọn vùng áp dụng condition là B3 , E1:J11 với điều kiện là ô nào khác rỗng sẽ được tô màu, thì khi đó hàm điều kiện của mình phải mà =B1<>"" trong đó B là cột ngoài cùng của vùng chọn và 1 là dòng trên cùng của vùng chọn. Tuy nhiên đối với những vùng phức tạp hơn hoặc thậm chí có ô bị ẩn, hoặc ghép của nhiều vùng lớn nhỏ với nhau thì mình rất khó xác định được ô đầu tiên trong điều kiện conditional formatting là gì. Tương tự với ô cuối cùng của nhóm. Vậy mình muốn nhờ các bạn tạo giúp macro Msgbox hiển thị ô đầu tiên và ô cuối cùng của nhóm Conditional Formatting sao cho nó có thể được tích hợp vào cái nút trên thanh Ribbon mà mình đã để ở trong file để dùng cho tiện đối với tất cả các sheet, tức là macro này dùng chung được cho tất cả các sheet. Mình cảm ơn
Cấu trúc của Msgbox mình mong muốn: Ví dụ vùng chọn của mình là B3 , E1:J11 , L6 thì kết quả hiển thị của Msgbox sẽ là
Ô đầu tiên: B1
Ô cuối cùng: L11

 

[ppc0312]

Chào các bạn. Mình đang có một vấn đề về việc tô màu ô theo điều kiện Condition Formatting, đó là vùng mà mình muốn áp dụng Conditional Formatting là một vùng ghép của nhiều mảng rời rạc, chẳng hạn như trong file thì mình chọn vùng áp dụng condition là B3 , E1:J11 với điều kiện là ô nào khác rỗng sẽ được tô màu, thì khi đó hàm điều kiện của mình phải mà =B1<>"" trong đó B là cột ngoài cùng của vùng chọn và 1 là dòng trên cùng của vùng chọn. Tuy nhiên đối với những vùng phức tạp hơn hoặc thậm chí có ô bị ẩn, hoặc ghép của nhiều vùng lớn nhỏ với nhau thì mình rất khó xác định được ô đầu tiên trong điều kiện conditional formatting là gì. Tương tự với ô cuối cùng của nhóm. Vậy mình muốn nhờ các bạn tạo giúp macro Msgbox hiển thị ô đầu tiên và ô cuối cùng của nhóm Conditional Formatting sao cho nó có thể được tích hợp vào cái nút trên thanh Ribbon mà mình đã để ở trong file để dùng cho tiện đối với tất cả các sheet, tức là macro này dùng chung được cho tất cả các sheet. Mình cảm ơn
Cấu trúc của Msgbox mình mong muốn: Ví dụ vùng chọn của mình là B3 , E1:J11 , L6 thì kết quả hiển thị của Msgbox sẽ là
Ô đầu tiên: B1
Ô cuối cùng: L11

Ô đầu tiên là ô có
- chỉ số cột column nhỏ nhất (min)
- chỉ số hàng row nhỏ nhất (min)

Ô cuối cùng thì ngược lại, là xong

 

[hktanh]

Ô đầu tiên là ô có
- chỉ số cột column nhỏ nhất (min)
- chỉ số hàng row nhỏ nhất (min)

Ô cuối cùng thì ngược lại, là xong

bạn viết hộ mình code với

 

[ppc0312]

bạn viết hộ mình code với

trong file của bạn có code nào đâu mà sửa với viết
Bạn chọn vùng chọn theo cách nào thì viết code vào đi, rồi mới sửa tiếp

 

[SA_DQ]

Thử xem sao nha bạn, sau đó chế tiếp:

Sub SelectRanges()
 Dim Rng As Range, Cls As Range
 Dim W As Long
 Dim fAdd As String, lAdd As String
 
 Set Rng = Union([b3], [E1:J11], [L6])
 For Each Cls In Rng
    W = W + 1:                  If W = 1 Then fAdd = Cls.Address
    If W = Rng.Cells.Count Then lAdd = Cls.Address
 Next Cls
 MsgBox lAdd, , fAdd
End Sub

 

[hktanh]

Thử xem sao nha bạn, sau đó chế tiếp:

Sub SelectRanges()
Dim Rng As Range, Cls As Range
Dim W As Long
Dim fAdd As String, lAdd As String

Set Rng = Union([b3], [E1:J11], [L6])
For Each Cls In Rng
    W = W + 1:                  If W = 1 Then fAdd = Cls.Address
    If W = Rng.Cells.Count Then lAdd = Cls.Address
Next Cls
MsgBox lAdd, , fAdd
End Sub

à thế là mình phải gõ hẳn vùng đó vào trong vba thì sub mới chạy được à bạn, mình cứ nghĩ là vùng mình chọn là ngẫu nhiên

Bài đã được tự động gộp: 30/10/19

trong file của bạn có code nào đâu mà sửa với viết
Bạn chọn vùng chọn theo cách nào thì viết code vào đi, rồi mới sửa tiếp

Mình chọn ngẫu nhiên các vùng rời rạc bằng phím Ctrl nhé, mình muốn là sau khi ấn cái nút đó thì nó tự động trả về kết quả lại cho mình như kiểu thế này, tại là mình không biết viết code :"))
Ví dụ vùng chọn của mình là B3 , E1:J11 , L6 thì kết quả hiển thị của Msgbox sẽ là
Ô đầu tiên: B1
Ô cuối cùng: L11

 

[ppc0312]

Mình chọn ngẫu nhiên các vùng rời rạc bằng phím Ctrl nhé, mình muốn là sau khi ấn cái nút đó thì nó tự động trả về kết quả lại cho mình như kiểu thế này, tại là mình không biết viết code :"))
Ví dụ vùng chọn của mình là B3 , E1:J11 , L6 thì kết quả hiển thị của Msgbox sẽ là
Ô đầu tiên: B1
Ô cuối cùng: L11

Không biết viết code, thì hỏi code làm chi?

 

[hktanh]

Không biết viết code, thì hỏi code làm chi?

cái bạn này lạ nhỉ, không biết thì càng phải hỏi chứ, ít ra nếu áp dụng được cái code đó vào việc của mình không phải tốt à

 

[ppc0312]

cái bạn này lạ nhỉ, không biết thì càng phải hỏi chứ, ít ra nếu áp dụng được cái code đó vào việc của mình không phải tốt à

ý tôi là không biết code, mà nhờ người khác viết thì sai sao biết, nên tốt nhất học lái xe trước khi ra đường cầm lái

 

[SA_DQ]

Bạn chủ bài đăng tìm trên diễn đàn cách mà ta có thể dùng chuột chọn các ô trong 1 vùng & đưa vô biến 1 cách lần luợt

 

[VetMini]

ý tôi là không biết code, mà nhờ người khác viết thì sai sao biết, nên tốt nhất học lái xe trước khi ra đường cầm lái

Bạn chủ bài đăng tìm trên diễn đàn cách mà ta có thể dùng chuột chọn các ô trong 1 vùng & đưa vô biến 1 cách lần luợt

Kiểu này là thớt hồi nào giờ có một tên lính chuyên code cho mình. Bây giờ tên lính ấy nghỉ việc (hay bị đuổi) cho nên mới phải lên đây xin code.

 

[SA_DQ]

Cách này có thể xài được nè:

Sub SelectRanges()
 Dim Rng As Range, Cls As Range, Tmp As Range
 Dim W As Long
 Dim fAdd As String, lAdd As String
 
 Set Rng = Selection
 MsgBox Rng.Cells.Count
 For Each Cls In Rng
    W = W + 1:                  If W = 1 Then fAdd = Cls.Address
    If W = Rng.Cells.Count Then lAdd = Cls.Address
 Next Cls
 MsgBox lAdd, , fAdd
End Sub

 

[hktanh]

Cách này có thể xài được nè:

Sub SelectRanges()
Dim Rng As Range, Cls As Range, Tmp As Range
Dim W As Long
Dim fAdd As String, lAdd As String

Set Rng = Selection
MsgBox Rng.Cells.Count
For Each Cls In Rng
    W = W + 1:                  If W = 1 Then fAdd = Cls.Address
    If W = Rng.Cells.Count Then lAdd = Cls.Address
Next Cls
MsgBox lAdd, , fAdd
End Sub

Bạn ơi bạn xem kỹ lại giúp mình nhé
*** Mong muốn của mình:
Ví dụ vùng chọn của mình là B3 , E1:J11 , L6 thì kết quả hiển thị của Msgbox sẽ là
Ô đầu tiên: B1 (vì B là cột ngoài cùng của nhóm, 1 là dòng trên cùng của nhóm)
Ô cuối cùng: L11 (vì L là cột cuối cùng của nhóm, 11 là dòng cuối cùng của nhóm)
*** Kết quả code của bạn:
Ô đầu tiên: B3
Ô cuối cùng: L6
Không đúng rồi bạn nhé

 

[SA_DQ]

Nếu chỉ chọn 2 ô B2 & C1 thì bạn kết luận sao?

 

[hktanh]

Nếu chỉ chọn 2 ô B2 & C1 thì bạn kết luận sao?

Nếu là B2 và C1 thì sẽ trả về ô đầu tiên là B1 còn ô cuối là C2 bạn nhé

 

[SA_DQ]

Thế thì mình xin đầu hàng rồi, tạm biệt bạn nhé!

 

[hktanh]

Thế thì mình xin đầu hàng rồi, tạm biệt bạn nhé!

hí hí, khó lắm bạn ạ ^^ lần tới nếu bạn gặp mình trong một bài viết khác thì mong bạn giúp đỡ nhé

 

[SA_DQ]

(hắc gì mình sống tới khi đó để giúp hay được bạn giúp!
Thôi thì vĩnh biệt tại đây cho nhẹ người!

 

[hktanh]

(hắc gì mình sống tới khi đó để giúp hay được bạn giúp!
Thôi thì vĩnh biệt tại đây cho nhẹ người!

bạn cứ nói quá ^^ chúc sức khỏe bạn nhé, bye bye ^^

 

[hktanh]

ý tôi là không biết code, mà nhờ người khác viết thì sai sao biết, nên tốt nhất học lái xe trước khi ra đường cầm lái

Tôi chả bao giờ giấu dốt như cậu cả mà đòi học lái xe, không biết thì hỏi chứ cậu nghĩ vba dễ học lắm hả, nực cười