Cách nào Khi "MouseMove" vào ô nào thì chính ô ấy tự phóng to nội dung bên trong? (1 người xem)

nqdn2010 · 19/4/13

Khi "MouseMove" vào ô nào thì chính ô ấy tự phóng to có thể đọc được nội dung bên trong. (Chỉ cần cột C thôi)
VD: Như minh họa ở trên khi "MouseMove" đến Ô C11 thì nội dung trong Ô C11 đã hiện lên là " CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM" trong Label. (Không nhất thiết sử dung Label, Miễn nội dung phóng to lên có thể đọc được là được)
Em có gởi tập tin đính kèm!
Xin cám ơn!

Hoàng Trọng Nghĩa · 19/4/13

nqdn2010 đã viết:
Khi "MouseMove" vào ô nào thì chính ô ấy tự phóng to có thể đọc được nội dung bên trong. (Chỉ cần cột C thôi)
VD: Như minh họa ở trên khi "MouseMove" đến Ô C11 thì nội dung trong Ô C11 đã hiện lên là " CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM" trong Label. (Không nhất thiết sử dung Label, Miễn nội dung phóng to lên có thể đọc được là được)
Em có gởi tập tin đính kèm!
Xin cám ơn!

"MouseMove" thì không được vì không có sự kiện đó đối với đối tượng Sheet. Tuy nhiên ta có thể dùng Selection Change để thực hiện nó. Có nghĩa rằng chọn vô ô nào, dù bằng con trỏ hay bằng các phím mũi tên thì nó thực hiện chức năng đó cho bạn.

Bạn đặt trong module của Sheet1 sự kiện sau:

Mã:

Private SelectCell As String  '<-- dòng này để trên cùng bạn nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("C8:C18"), Target) Is Nothing Then
        On Error Resume Next
        Range(SelectCell).ShrinkToFit = True
        Target.ShrinkToFit = False
        SelectCell = ActiveCell.Address
    End If
End Sub

Bạn thử đi, xem đã đúng ý chưa nhé!

Hoàng Trọng Nghĩa · 19/4/13

À bạn ơi, tôi cải tiến một chút cho bạn:

1) Thay ActiveCell thành Selection cho tổng quát, dù chọn 1 ô hay một khối ô cũng OK

2) Nếu đã chọn trong khu vực của cột C thì khi chọn ở vùng ngoài khu vực đó nó vẫn trở lại trạng thái ban đầu của ô, nhóm ô đã chọn.

Bạn xem code nhé:

Mã:

Private SelectCell As String, OutSide As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Range("C8:C18"), Target) Is Nothing Then
        If OutSide Then
            Range(SelectCell).ShrinkToFit = True
            OutSide = False
        End If
    Else
        Range(SelectCell).ShrinkToFit = True
        Target.ShrinkToFit = False
        SelectCell = Selection.Address
        OutSide = True
    End If
End Sub

nqdn2010 · 19/4/13

Hoàng Trọng Nghĩa đã viết:
À bạn ơi, tôi cải tiến một chút cho bạn:

1) Thay ActiveCell thành Selection cho tổng quát, dù chọn 1 ô hay một khối ô cũng OK

2) Nếu đã chọn trong khu vực của cột C thì khi chọn ở vùng ngoài khu vực đó nó vẫn trở lại trạng thái ban đầu của ô, nhóm ô đã chọn.

Bạn xem code nhé:

Mã:

Private SelectCell As String, OutSide As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Intersect(Range("C8:C18"), Target) Is Nothing Then If OutSide Then Range(SelectCell).ShrinkToFit = True OutSide = False End If Else Range(SelectCell).ShrinkToFit = True Target.ShrinkToFit = False SelectCell = Selection.Address OutSide = True End If End Sub

Cám ơn anh!
Tuy nhiên Khi Những ô ở cột D không rỗng thì nội dung cần hiện thị to vẫn bị che khuất.
Nhờ bạn hỗ trợ giúp.
Giúp tôi ý 2 với nhé!
Cám ơn anh nhiều!

Hoàng Trọng Nghĩa · 19/4/13

nqdn2010 đã viết:
Cám ơn anh!
Tuy nhiên Khi Những ô ở cột D không rỗng thì nội dung cần hiện thị to vẫn bị che khuất.
Nhờ bạn hỗ trợ giúp.
Giúp tôi ý 2 với nhé!
Cám ơn anh nhiều!

Lẽ ra bản chất của cells là như vậy, nếu ô không có wraptext và bị tràn dòng thì ô kế bên phải nếu không có dữ liệu thì text sẽ tràn qua ô này, còn ngược lại sẽ bị che khuất.

Tôi lại nghĩ nếu bạn "rờ" vào cột C thì cột này tự động nới rộng ra để dễ đọc, xong thì trở về như cũ là được.

Mã:

Private OutSide As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Range("C:C"), Target) Is Nothing Then
        If OutSide Then
            Range("C:C").ColumnWidth = [COLOR=#ff0000][B]6.2[/B][/COLOR]
            OutSide = False
        End If
    Else
        If OutSide = False Then
            Target.EntireColumn.AutoFit
            OutSide = True
        End If
    End If
End Sub

Xin lưu ý cho số 6.2, bạn có thể thay đổi tùy theo độ rộng của cột mà bạn định dạng nhé.

nqdn2010 · 19/4/13

Hoàng Trọng Nghĩa đã viết:
Lẽ ra bản chất của cells là như vậy, nếu ô không có wraptext và bị tràn dòng thì ô kế bên phải nếu không có dữ liệu thì text sẽ tràn qua ô này, còn ngược lại sẽ bị che khuất.

Tôi lại nghĩ nếu bạn "rờ" vào cột C thì cột này tự động nới rộng ra để dễ đọc, xong thì trở về như cũ là được.

Khi tôi thực hiện chế độ "Protect Sheet" thì "phá sản".
Vả lại em chỉ muốn phóng to dòng nào khi mouse vào thôi. Mình có thể hiện thị lên Label được không anh.
Cám ơn anh!

Hoàng Trọng Nghĩa · 19/4/13

nqdn2010 đã viết:
Khi tôi thực hiện chế độ "Protect Sheet" thì "phá sản".
Vả lại em chỉ muốn phóng to dòng nào khi mouse vào thôi. Mình có thể hiện thị lên Label được không anh.
Cám ơn anh!

Tôi bắt đầu thấy bực mình rồi đó. Tại sao ngay lúc đầu bạn không nói rõ như vậy luôn đi!

nqdn2010 · 19/4/13

Xin lỗi, tôi không cố ý. Tôi có gởi tập tin dính kèm ở #1 và đã thể hiện rõ yêu cầu. Anh thông cảm!

Hoàng Trọng Nghĩa · 19/4/13

nqdn2010 đã viết:
Xin lỗi, tôi không cố ý. Tôi có gởi tập tin dính kèm và đã thể hiện rõ yêu cầu. Anh thông cảm!

Hình như bạn gõ bằng Unicode Tổ hợp phải vậy không? Hàm chuyển chữ HOA, chữ Thường cho Unicode thì đầy trên diễn đàn, nhưng chuyển trên mã Unicode Tổ hợp thì tôi chưa được biết, có thể Thầy Siwtom sẽ viết hàm đó cho bạn vì Thầy ấy thường xài loại mã này.

Cái hay của mã này thì hiển thị dấu tiếng Việt trên ActiveX Controls dễ dàng, còn Unicode dựng sẳn lại không thực hiện được.

nqdn2010 · 19/4/13

Hoàng Trọng Nghĩa đã viết:
Hình như bạn gõ bằng Unicode Tổ hợp phải vậy không? Hàm chuyển chữ HOA, chữ Thường cho Unicode thì đầy trên diễn đàn, nhưng chuyển trên mã Unicode Tổ hợp thì tôi chưa được biết, có thể Thầy Siwtom sẽ viết hàm đó cho bạn vì Thầy ấy thường xài loại mã này.

Cái hay của mã này thì hiển thị dấu tiếng Việt trên ActiveX Controls dễ dàng, còn Unicode dựng sẳn lại không thực hiện được.

Đúng rồi tôi đang sử dụng Unicode Tổ hợp. Anh giúp tôi "việc phóng to nhé"!
Cám ơn anh!

Hoàng Trọng Nghĩa · 19/4/13

nqdn2010 đã viết:
Đúng rồi tôi đang sử dụng Unicode Tổ hợp. Anh giúp tôi "việc phóng to nhé"!
Cám ơn anh!

Tôi chẳng giúp phóng to gì được, tôi chỉ giúp nó hiện lên trên Label mà thôi.

Code rất đơn giản:

Mã:

Private OutSide As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Range("C8:C18"), Target) Is Nothing Then
        If OutSide Then
            Label1.Visible = False
            OutSide = False
        End If
    Else
        If Application.CutCopyMode Then Exit Sub
        If Selection.Count = 1 Then
            With Label1
                .Visible = True
                .Caption = Selection.Value
                .Top = Selection.Top
                .Left = Selection.Offset(, 1).Left
            End With
            OutSide = True
        End If
    End If
End Sub

Thử coi trong cái file có đúng ý bạn chưa.

Hoàng Trọng Nghĩa · 19/4/13

Ngoài vấn đề dùng Label (không hỗ trợ font Unicode dựng sẳn) thì chúng ta cũng có một cách khác, đó là chèn chữ vào một Shape. Dù cho là font gì đi chăng nữa thì Shape vẫn chấp nhận tất cả, mặt khác nó cân đối chuỗi luôn luôn nằm giữa tâm của nó và nó có thể được định dạng của mình theo ý thích. Bạn có thể protect sheet, nhưng nhớ là phải check vào mục Edit Ojects là được.

Code sẽ như sau:

Mã:

Private OutSide As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Range("C8:C18"), Target) Is Nothing Then
        If OutSide Then
            With Shapes("Rectangle 1")
                .Visible = msoFalse
            End With
            OutSide = False
        End If
    Else
        If Application.CutCopyMode Then Exit Sub
        If Selection.Count = 1 Then
            With Shapes("Rectangle 1")
                .Top = Selection.Top
                .Left = Selection.Offset(, 1).Left
                .TextFrame.Characters.Text = Selection.Value
                .Visible = msoCTrue
            End With
            OutSide = True
        End If
    End If
End Sub

Bạn thử kiểm tra nhé!

nqdn2010 · 19/4/13

Hoàng Trọng Nghĩa đã viết:
Ngoài vấn đề dùng Label (không hỗ trợ font Unicode dựng sẳn) thì chúng ta cũng có một cách khác, đó là chèn chữ vào một Shape. Dù cho là font gì đi chăng nữa thì Shape vẫn chấp nhận tất cả, mặt khác nó cân đối chuỗi luôn luôn nằm giữa tâm của nó và nó có thể được định dạng của mình theo ý thích. Bạn có thể protect sheet, nhưng nhớ là phải check vào mục Edit Ojects là được.

Thật như ý! Cám ơn Anh nhiều!
Hồi trưa đi vui với bạn ngày lễ. Trả lời an muộn, mong anh thông cảm! Chúc anh cuối tuần vui vẻ!

siwtom · 20/4/13

Hoàng Trọng Nghĩa đã viết:
Hình như bạn gõ bằng Unicode Tổ hợp phải vậy không? Hàm chuyển chữ HOA, chữ Thường cho Unicode thì đầy trên diễn đàn, nhưng chuyển trên mã Unicode Tổ hợp thì tôi chưa được biết, có thể Thầy Siwtom sẽ viết hàm đó cho bạn vì Thầy ấy thường xài loại mã này.được.

Vì hàng ngày tôi gõ tiếng Việt bằng bàn phím của Windows - tôi thường viết toàn bộ bài trong notepad sau đó mới copy --> paste vào GPE.
Chúng ta làm việc trong môi trường Windows, tôi dùng đồ của Windows thì rõ ràng tôi không sai, Windows không sai. Nếu tôi dùng mã của anh Việt Nam thì rõ ràng không ai hỗ trợ nhưng nếu tôi dùng unicode tổ hợp cũng là chuẩn quốc tế thì rõ ràng tôi không sai.
Nếu Firefox không hiển thị unicode tổ hợp chuẩn thì rõ ràng lỗi là do firefox. Tại sao cùng 1 trang GPE mà ở đó tôi dùng unicode tổ hợp thì IE hiển thị chuẩn trong khi firefox hiển thị không chuẩn? Rõ ràng vấn về không phải do tôi dùng unicode tổ hợp mà là do firefox không hiển thị chuẩn.

@ nqdn2010

Tôi đính kèm module vietnamese_convert trong tập tin

code Sheet1:

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Union(Range("B8:B57"), Range("E8:H57")), Target) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = [COLOR=#ff0000]Dautu_Hoa_Thuong[/COLOR](Target.Value)
        Application.EnableEvents = True
    End If
End Sub

siwtom · 20/4/13

Hoàng Trọng Nghĩa đã viết:
Ngoài vấn đề dùng Label (không hỗ trợ font Unicode dựng sẳn) thì chúng ta cũng có một cách khác, đó là chèn chữ vào một Shape. Dù cho là font gì đi chăng nữa thì Shape vẫn chấp nhận tất cả, mặt khác nó cân đối chuỗi luôn luôn nằm giữa tâm của nó và nó có thể được định dạng của mình theo ý thích. Bạn có thể protect sheet, nhưng nhớ là phải check vào mục Edit Ojects là được.

Nếu tôi không lầm thì hàm FontChange không hỗ trợ unicode tổ hợp. Tức nếu tôi có công thức trong B1 là =FontChange(A1;3) và trong A1 tôi gõ unicode tổ hợp "NGUYỄN THÀNH DANH" thì trong B1 tôi có "NguyễN ThàNh Danh"

ndu96081631 · 20/4/13

siwtom đã viết:
Chúng ta làm việc trong môi trường Windows, tôi dùng đồ của Windows thì rõ ràng tôi không sai, Windows không sai. Nếu tôi dùng mã của anh Việt Nam thì rõ ràng không ai hỗ trợ nhưng nếu tôi dùng unicode tổ hợp cũng là chuẩn quốc tế thì rõ ràng tôi không sai.
Nếu Firefox không hiển thị unicode tổ hợp chuẩn thì rõ ràng lỗi là do firefox. Tại sao cùng 1 trang GPE mà ở đó tôi dùng unicode tổ hợp thì IE hiển thị chuẩn trong khi firefox hiển thị không chuẩn? Rõ ràng vấn về không phải do tôi dùng unicode tổ hợp mà là do firefox không hiển thị chuẩn.

Cái này là anh đang "giả định" hay thực tế vậy?
Vì nếu đó là thực tế trên máy anh thì chắc anh phải cài lại FF bản mới nhất quá (vì em dùng firefox và chưa bị vụ này bao giờ)
(Em đang gõ bằng Unicode tổ hợp trên FF đây)

ptm0412 · 20/4/13

ndu96081631 đã viết:
Cái này là anh đang "giả định" hay thực tế vậy?
Vì nếu đó là thực tế trên máy anh thì chắc anh phải cài lại FF bản mới nhất quá (vì em dùng firefox và chưa bị vụ này bao giờ)
(Em đang gõ bằng Unicode tổ hợp trên FF đây)

ndu xem lại nha, anh siwtom gõ tiếng Việt bằng cách gõ của window, không dùng Unikey hoặc Vietkey (tức là không gõ kiểu telex hoặc VNI)

Hoàng Trọng Nghĩa · 20/4/13

siwtom đã viết:
Nếu tôi không lầm thì hàm FontChange không hỗ trợ unicode tổ hợp. Tức nếu tôi có công thức trong B1 là =FontChange(A1;3) và trong A1 tôi gõ unicode tổ hợp "NGUYỄN THÀNH DANH" thì trong B1 tôi có "NguyễN ThàNh Danh"

Thì sau khi em dùng hàm FontChange để chuyển đổi nên mới phát hiện ra rằng hàm đó không dùng tốt với unicode tổ hợp vì thế em mới viết bài này đó thôi:

Hoàng Trọng Nghĩa đã viết:
Hình như bạn gõ bằng Unicode Tổ hợp phải vậy không? Hàm chuyển chữ HOA, chữ Thường cho Unicode thì đầy trên diễn đàn, nhưng chuyển trên mã Unicode Tổ hợp thì tôi chưa được biết, có thể Thầy Siwtom sẽ viết hàm đó cho bạn vì Thầy ấy thường xài loại mã này.

Cái hay của mã này thì hiển thị dấu tiếng Việt trên ActiveX Controls dễ dàng, còn Unicode dựng sẳn lại không thực hiện được.

ndu96081631 · 20/4/13

ptm0412 đã viết:
ndu xem lại nha, anh siwtom gõ tiếng Việt bằng cách gõ của window, không dùng Unikey hoặc Vietkey (tức là không gõ kiểu telex hoặc VNI)

Ủa! Bộ gõ gì đâu có quan trọng chứ sư phụ
Nếu đó là Unicode tổ hợp (hoặc dựng sẵn) thì dù gõ bằng cái gì nó vẫn là "nó" thôi

ptm0412 · 20/4/13

ndu96081631 đã viết:
Ủa! Bộ gõ gì đâu có quan trọng chứ sư phụ
Nếu đó là Unicode tổ hợp (hoặc dựng sẵn) thì dù gõ bằng cái gì nó vẫn là "nó" thôi

Khác ở chỗ là nếu dùng cách gõ của window, thì chỉ cái gì của window mới chịu xơi, thí dụ notepad, IE, ...

ndu96081631 · 20/4/13

ptm0412 đã viết:
Khác ở chỗ là nếu dùng cách gõ của window, thì chỉ cái gì của window mới chịu xơi, thí dụ notepad, IE, ...

Nhưng ở chổ này:

siwtom đã viết:
Chúng ta làm việc trong môi trường Windows, tôi dùng đồ của Windows thì rõ ràng tôi không sai, Windows không sai. Nếu tôi dùng mã của anh Việt Nam thì rõ ràng không ai hỗ trợ nhưng nếu tôi dùng unicode tổ hợp cũng là chuẩn quốc tế thì rõ ràng tôi không sai.
Nếu Firefox không hiển thị unicode tổ hợp chuẩn thì rõ ràng lỗi là do firefox. Tại sao cùng 1 trang GPE mà ở đó tôi dùng unicode tổ hợp thì IE hiển thị chuẩn trong khi firefox hiển thị không chuẩn? Rõ ràng vấn về không phải do tôi dùng unicode tổ hợp mà là do firefox không hiển thị chuẩn.

Em thấy anh siwtom đâu có nói gì liên quan đến BỘ GÕ. Chỉ nói về BẢNG MÃ và việc HIỂN THỊ thôi
(bởi vậy em tình nghi rằng anh siwtom đang xài đồ cổ)

Hoàng Trọng Nghĩa · 20/4/13

ndu96081631 đã viết:
Nhưng ở chổ này:

Em thấy anh siwtom đâu có nói gì liên quan đến BỘ GÕ. Chỉ nói về BẢNG MÃ và việc HIỂN THỊ thôi
(bởi vậy em tình nghi rằng anh siwtom đang xài đồ cổ)

Thật ra cái này cũng đã nói từ lâu rồi, chỉ có WinXP trở về trước là bị vụ lỗi mã font thôi, các hệ điều hành sau không bị lỗi này nữa.

ptm0412 · 20/4/13

ndu96081631 đã viết:
Nhưng ở chổ này:

Em thấy anh siwtom đâu có nói gì liên quan đến BỘ GÕ. Chỉ nói về BẢNG MÃ và việc HIỂN THỊ thôi
(bởi vậy em tình nghi rằng anh siwtom đang xài đồ cổ)

Ẹc ẹc, ndu tô đậm không đúng chỗ đoạn trích dẫn thôi:

siwtom đã viết:
Chúng ta làm việc trong môi trường Windows, tôi dùng đồ của Windows thì rõ ràng tôi không sai, Windows không sai.

Theo tôi biết và nhớ, thì anh siwtom không xài bộ gõ nào, và dùng cách gõ của window cho Vn language. VN language thì anh siwtom set trong control panel. Tôi không rành cách gõ tiếng Việt của window, máy cũng không set VN language nên không kiểm chứng được, có điều căn cứ vào trí nhớ và các bài viết trên đây của anh siwtom (gõ vào notepad rồi copy sang, hoặc dùng IE không bị lôi), thì nó là như thế như thế

ptm0412 · 20/4/13

Tìm ra rồi, bàn phím tiếng Việt của window như thế này:

1 = ă, 2 = â, ...

siwtom · 20/4/13

ptm0412 đã viết:
Tìm ra rồi, bàn phím tiếng Việt của window như thế này:

View attachment 100627

1 = ă, 2 = â, ...

Đúng là bàn phím này.
Không phải dùng nó chỉ gõ được trên IE, notepad đâu nhé.
Bình thường khi không "bật" bàn phím Việt thì khi gõ "1" thì drive của Windows sẽ "nhận" mã &H31 là mã của ký tự "1". Khi tôi bật bàn phím Việt thì dù gõ phím "1" ở đâu thì drive của Windows cũng biến nó thành mã &H103 là mã của ký tự "ă". Vì drive nó trực mà. Mà đã là mã &H103 thì phông chữ (hiển thị là việc của phông chữ) nó sẽ "chọn" ký tự có mã là &H103 để hiển thị. Tức chọn ký tự "ă".
Tôi viết xong trong notepad rồi mới dán vào GPE vì lẽ khác. Nhiều khi viết rất lâu do vừa viết vừa cà phê, thuốc lá, làm việc khác, sau khi quay lại viết tiếp thì không gửi được vì GPE đá "out" tôi rồi. Phải đăng nhập lại, rất khó chịu.
Về chuyện hiển thị thì chính Nghĩa hồi xưa kêu là do tôi viết unicode tổ hợp nên firefox hiển thị không chuẩn.
Bài này tôi gõ trực tiếp trên GPE mở bằng firefox

solomon2211 · 20/4/13

Xin góp thêm ý kiến, không chỉ cho cột C mà cho cả bảng tính.

siwtom · 20/4/13

ndu96081631 đã viết:
Cái này là anh đang "giả định" hay thực tế vậy?
Vì nếu đó là thực tế trên máy anh thì chắc anh phải cài lại FF bản mới nhất quá (vì em dùng firefox và chưa bị vụ này bao giờ)
(Em đang gõ bằng Unicode tổ hợp trên FF đây)

À, cái này là do Nghĩa nói mà. Đại loại là: Nghĩa nhìn phông chữ không hiển thị chuẩn là Nghĩa biết ngay là người gõ dùng unicode tổ hợp. Khi đó tôi còn dùng IE thì cũng text ấy nhưng hiển thị chuẩn, mà mở bằng Firefox thì không chuẩn. Thực ra chuyện đó tôi không quan tâm vì tôi vẫn dùng IE là chủ yếu. Text thì vẫn đọc được như thường chỉ đôi lúc dấu chậm được hiển thị không đúng chỗ mà thôi.

ptm0412 · 20/4/13

solomon2211 đã viết:
Xin góp thêm ý kiến, không chỉ cho cột C mà cho cả bảng tính.

Ơ, solomon viết code VBA từ khi nào nhỉ?

nqdn2010 · 24/4/13

Hoàng Trọng Nghĩa đã viết:
Ngoài vấn đề dùng Label (không hỗ trợ font Unicode dựng sẳn) thì chúng ta cũng có một cách khác, đó là chèn chữ vào một Shape. Dù cho là font gì đi chăng nữa thì Shape vẫn chấp nhận tất cả, mặt khác nó cân đối chuỗi luôn luôn nằm giữa tâm của nó và nó có thể được định dạng của mình theo ý thích. Bạn có thể protect sheet, nhưng nhớ là phải check vào mục Edit Ojects là được.

Code sẽ như sau:

Mã:

Private OutSide As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Intersect(Range("C8:C18"), Target) Is Nothing Then If OutSide Then With Shapes("Rectangle 1") .Visible = msoFalse End With OutSide = False End If Else If Application.CutCopyMode Then Exit Sub If Selection.Count = 1 Then With Shapes("Rectangle 1") .Top = Selection.Top .Left = Selection.Offset(, 1).Left .TextFrame.Characters.Text = Selection.Value .Visible = msoCTrue End With OutSide = True End If End If End Sub

Bạn thử kiểm tra nhé!

Xin lỗi khi chen ngang vào ý kiến mọi người! Tôi xin quay lại #1, Anh Trọng Nghĩa giải quyết rất hay!, tôi xin "tham" một chút, Khi ô rỗng thì không phóng to được không các thầy!

Hoàng Trọng Nghĩa · 24/4/13

nqdn2010 đã viết:
Xin lỗi khi chen ngang vào ý kiến mọi người! Tôi xin quay lại #1, Anh Trọng Nghĩa giải quyết rất hay!, tôi xin "tham" một chút, Khi ô rỗng thì không phóng to được không các thầy!

Sửa câu này:

If Selection.Count = 1 Then

Thành câu này:

If Selection.Count = 1 And Selection <> "" Then

Cách nào Khi "MouseMove" vào ô nào thì chính ô ấy tự phóng to nội dung bên trong? (1 người xem)

Người dùng đang xem chủ đề này

Optimal Сasual Dating - Actual Girls

File đính kèm

Chuyên gia GPE

Chuyên gia GPE

Optimal Сasual Dating - Actual Girls

Chuyên gia GPE

Optimal Сasual Dating - Actual Girls

Chuyên gia GPE

Optimal Сasual Dating - Actual Girls

File đính kèm

Chuyên gia GPE

Optimal Сasual Dating - Actual Girls

Chuyên gia GPE

File đính kèm

Chuyên gia GPE

File đính kèm

Optimal Сasual Dating - Actual Girls

Thành viên gắn bó

File đính kèm

Thành viên gắn bó

Huyền thoại GPE

Bad Excel Member

Chuyên gia GPE

Huyền thoại GPE

Bad Excel Member

Huyền thoại GPE

Chuyên gia GPE

Bad Excel Member

Bad Excel Member

Thành viên gắn bó

Thành viên tích cực

File đính kèm

Thành viên gắn bó

Bad Excel Member

Optimal Сasual Dating - Actual Girls

Chuyên gia GPE

Thời gian đếm ngược.