formmat ẩn hiện số trong Excel

Liên hệ QC

trithanh

Thành viên mới
Tham gia
5/4/07
Bài viết
25
Được thích
1
Chào các bạn,
Mình muốn cho Chữ hoặc số trong Cell ẩn đi khi nào đưa chỏ chuột đến mới xuất hiện Chữ hoặc số đó lên. vậy mình có làm được trong excel khong ? và xin hướng dẫn cách làm.

cám ơn các Bạn
 
Ko biết VBA có làm dc ko chứ tôi nghĩ chức năng Excel ko thể làm điều này... Nhưng mà bạn cho hỏi: bạn muốn vậy đễ làm gì?
ANH TUẤN
 
Upvote 0
hình như excel ko có tính năng đó - muốn có phải viết VBA bạn ơi (phức tạp nhỉ)

Còn muốn ẩn thông thường bạn cho nó Font có màu trắng là OK
.
 
Upvote 0
Ẫn thì chả biết làm thế nào.. nhưng tôi xài 1 mẹo nhỏ sau đây:
Bình thường chử sẽ dc format màu trắng, nếu chọn vào cell thì cell ấy sẽ dc format màu đen..
Bạn xem thử file củ chuối này... he.. he..
Làm xong nhưng cảm thấy hơi buồn cười
ANH TUẤN
 

File đính kèm

Upvote 0
anhtuan1066 đã viết:
Ẫn thì chả biết làm thế nào.. nhưng tôi xài 1 mẹo nhỏ sau đây:
Bình thường chử sẽ dc format màu trắng, nếu chọn vào cell thì cell ấy sẽ dc format màu đen..
Bạn xem thử file củ chuối này... he.. he..
Làm xong nhưng cảm thấy hơi buồn cười
ANH TUẤN

Bác xem nhé.

Thân!
 

File đính kèm

Upvote 0
trithanh đã viết:
Chào các bạn,
Mình muốn cho Chữ hoặc số trong Cell ẩn đi khi nào đưa chỏ chuột đến mới xuất hiện Chữ hoặc số đó lên. vậy mình có làm được trong excel khong ? và xin hướng dẫn cách làm.

cám ơn các Bạn

Bạn thử cách này xem sao nha:
Đứng ngay ô bạn muốn chú thích
- Chọn Insert / Comment
- Muốn chỉnh sửa thì Edit Comment
 
Upvote 0
OKBap có thể chú giải từ từ từng hàng một cái ni không:
PHP:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Static OldCell As Range
    If Not OldCell Is Nothing Then
        OldCell.Font.ColorIndex = 2
    End If
    Target.Font.ColorIndex = 1
    Set OldCell = Target
End Sub
Cảm ơn nhiều. (Nói thiệt tớ nhìn vào, nhìn mãi, mà hổng hiểu... thông cảm)

 
Upvote 0
ở đây chỉ có mẹo nhỏ đó là khai báo Static đó bác BNTT - khai báo static gần giống khai báo public là khai báo tĩnh có nghĩa là biến đó luôn giữ giá trị k khai báo lại khi đã tồn tại vì thế oldcell sẽ lưu được vị trí target trước đó (trước khi con trở sang vị trí mới) - giúp ta chuyển font vùng đó sang màu 2 (trắng)

, còn lại tất cả chắc bác hiểu ngay mà

ko biết thế có đúng ý tưởng OB k nữa?
 
Upvote 0
tigertiger đã viết:
ở đây chỉ có mẹo nhỏ đó là khai báo Static đó bác BNTT - khai báo static gần giống khai báo public là khai báo tĩnh có nghĩa là biến đó luôn giữ giá trị k khai báo lại khi đã tồn tại vì thế oldcell sẽ lưu được vị trí target trước đó (trước khi con trở sang vị trí mới) - giúp ta chuyển font vùng đó sang màu 2 (trắng)

, còn lại tất cả chắc bác hiểu ngay mà

ko biết thế có đúng ý tưởng OB k nữa?

Dòng code thật ngắn, thực ra cái này em sưu tầm trên http://www.cpearson.com/excel/MainPage.aspx (của họ là tô màu nền), sau đó em biến đổi chút cho giống cái của mình thôi.
Hai điều lưu ý :
1. Static OldCell As Range
Dòng này dùng để lưu giữ địa chỉ của Cell cũ (Để còn cho ẩn đi khi tiếp tục di chuyển mouse). Biến này gọi là OldCell
2. If Not OldCell Is Nothing Then
Khi ô được chọn không phải là OldCell thì sẽ thực hiện dòng lệnh dưới.
OldCell.Font.ColorIndex = 2
Còn mấy dòng dòng dưới bác hiểu rồi phải không.

Đây phải nói là một tiểu xảo rất hay của họ.
Vì thế mới nói, code thì ai cũng biết, tuy nhiên việc kết hợp chúng lại (giải thuật) mới khẳng định trình độ của người viết. Khâm phục.

Thân!
 
Upvote 0
Hi Mr OKebab,
Minh muốn cho số nào trong Cell là 0 thì ẩn đi và khi đưa trỏ chuột đến thì nó hiện ra, mình muốn ẩn con số theo ý muốn,

cám ơn Mr Okebab nhieu
 
Upvote 0
trithanh đã viết:
Minh muốn cho số nào trong Cell là 0 thì ẩn đi và khi đưa trỏ chuột đến thì nó hiện ra, mình muốn ẩn con số theo ý muốn,

Nếu ẩn/hiện số 0 thì thế này:
PHP:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Static OldCell As Range
    If OldCell = 0 Then
            OldCell.Font.ColorIndex = 2
        End If
    If Target.Cells.Count = 1 Then
      If Target.Value = 0 Then
        
        Target.Font.ColorIndex = 1
        Set OldCell = Target
      End If
    End If
End Sub
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom