Công ty TNHH Đào tạo Tư vấn và Đầu tư AFTC
Trang 1/3 1 2 3 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 23
  1. #1
    Tham gia ngày
    11 2009
    Bài gởi
    1
    Cảm ơn
    0
    Được cảm ơn 0 lần trong 0 bài viết

    Hỏi cách kẻ bảng tự động trong Excel có điều kiện

    Xin kính chào các bác!
    Em học Excel hơi kém nên muốn nhờ các bác chỉ giúp một tý
    Các bác làm ơn cho em hỏi làm thế nào để Excel tạo bảng có đường kẻ theo điều kiện được không? và khi thay đổi điều kiện thì các hàng đó có tự động kẻ theo không?
    Điều kiện ở đây là khi mình nhập vào một ô số học sinh thì Excel sẽ tự động kẻ bảng với số dòng đúng bằng giá trị số học sinh ta nhập vào ở trên.
    Cụ thể là: Mình có một bảng gồm các cột như sau:
    A4 là cột thứ tự
    B4 là cột Họ Và Tên
    C4 là cột Lớp
    D4 là cột ghi chú
    Ví dụ: Ở ô C2 ta nhập số học sinh là 10
    Thì Excel sẽ tự động kẻ bảng có 10 dòng kể từ ô A5 đến ô D14
    Và khi thay số Học sinh là 5 thì Excel cũng tự động xóa bảng cũ và kẻ bảng mới với 5 dòng tương ứng.
    Em có kèm tập tin minh họa. Xin các bác giúp đỡ em.
    Em xin chân thành cảm ơn!
    thay đổi nội dung bởi: pvtka, 09-11-09 lúc 05:43 PM

  2. #2
    Tham gia ngày
    08 2009
    Bài gởi
    117
    Cảm ơn
    19
    Được cảm ơn 82 lần trong 56 bài viết
    Chép code này vào Sheet cần thực hiện kẻ dòng

    PHP Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If 
    Range("C2") > 0 Then
            m 
    Sheet1.Rows("5:100").Delete
            n 
    Range("C2") + 4
            With Sheet1
    .Range("A5:D" n)
                .
    Borders(xlEdgeBottom).LineStyle xlContinuous
                
    .Borders(xlEdgeLeft).LineStyle xlContinuous
                
    .Borders(xlEdgeRight).LineStyle xlContinuous
                
    .Borders(xlEdgeTop).LineStyle xlContinuous
                
    .Borders(xlInsideHorizontal).LineStyle xlContinuous
                
    .Borders(xlInsideVertical).LineStyle xlContinuous
            End With
        End 
    If
    End Sub 

    Thay Sheet1 bằng cái mà bạn muốn
    Xem file kèm theo
    Thân
    Tập tin đính kèm Tập tin đính kèm

  3. Có 4 thành viên cảm ơn ThanhPhương về bài viết này:


  4. #3
    Tham gia ngày
    08 2008
    Nơi Cư Ngụ
    hà nội
    Bài gởi
    3
    Cảm ơn
    0
    Được cảm ơn 2 lần trong 2 bài viết

    Smile Thanh Phương

    mình nghĩ bạn nên đổi sự kiện Selectionchange =>change kết hợp điều kiện target.address= range("c2").address =>tránh trường hợp excel sẽ phải thực hiện bài toán mỗi khi có thay đổi lựa chọn.
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("c2").Address Then
    If Range("C2") > 0 Then
    m = Sheet1.Rows("5:100").Delete
    n = Range("C2") + 4
    With Sheet1.Range("A5:D" & n)
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With
    End If
    End If
    End Sub

  5. Thành viên sau cảm ơn buivanhoa về bài viết này:


  6. #4
    Tham gia ngày
    05 2009
    Nơi Cư Ngụ
    An Giang
    Bài gởi
    5,426
    Cảm ơn
    7,133
    Được cảm ơn 8,353 lần trong 4,393 bài viết
    Trích Nguyên văn bởi ThanhPhương View Post
    Chép code này vào Sheet cần thực hiện kẻ dòng
    Thay Sheet1 bằng cái mà bạn muốn
    Xem file kèm theo
    Thân
    Tôi không biết về VBA, nhưng thử nhập số 1 thì báo lỗi, không biết tại sao.
    ------------------------


    --Bể dốt mênh mông, quay đầu... là bờ ?!

    Tra Cứu Hàm Excel
    Kỷ niệm Hà Nội 16/01/2010

  7. #5
    Tham gia ngày
    06 2008
    Bài gởi
    23,748
    Cảm ơn
    13,608
    Được cảm ơn 42,257 lần trong 19,143 bài viết
    Sao không ai làm bài này bằng Conditional Formating thế nhỉ? ---> Quá dể để thực hiện (sao phải code)

  8. Có 7 thành viên cảm ơn ndu96081631 về bài viết này:


  9. #6
    Tham gia ngày
    05 2009
    Nơi Cư Ngụ
    An Giang
    Bài gởi
    5,426
    Cảm ơn
    7,133
    Được cảm ơn 8,353 lần trong 4,393 bài viết
    Trích Nguyên văn bởi ndu96081631 View Post
    Sao không ai làm bài này bằng Conditional Formating thế nhỉ? ---> Quá dể để thực hiện (sao phải code)
    Hoan hô ý kiến của ndu, tôi làm được rồi.
    Tập tin đính kèm Tập tin đính kèm
    ------------------------


    --Bể dốt mênh mông, quay đầu... là bờ ?!

    Tra Cứu Hàm Excel
    Kỷ niệm Hà Nội 16/01/2010

  10. Có 4 thành viên cảm ơn Ba Tê về bài viết này:


  11. #7
    Tham gia ngày
    10 2007
    Nơi Cư Ngụ
    Lại Yên - Hoài Đức - Hà Nội
    Bài gởi
    518
    Cảm ơn
    414
    Được cảm ơn 413 lần trong 196 bài viết
    Trích Nguyên văn bởi ndu96081631 View Post
    Sao không ai làm bài này bằng Conditional Formating thế nhỉ? ---> Quá dể để thực hiện (sao phải code)
    dùng bằng Conditional Formating thì làm như thế nào bạn hướng dẫn giúp được không?

  12. #8
    Tham gia ngày
    08 2006
    Nơi Cư Ngụ
    TP.HCM
    Bài gởi
    1,870
    Cảm ơn
    2,100
    Được cảm ơn 2,337 lần trong 1,112 bài viết
    Trích Nguyên văn bởi ndu96081631 View Post
    Sao không ai làm bài này bằng Conditional Formating thế nhỉ? ---> Quá dể để thực hiện (sao phải code)
    Em chưa thử, nhưng em nghĩ vài chục dòng thì CF được nhưng data nhiều thì file có lẽ nặng và chậm.

    TDN

  13. Thành viên sau cảm ơn tedaynui về bài viết này:


  14. #9
    Tham gia ngày
    03 2008
    Nơi Cư Ngụ
    Đồng ruộng Long An
    Bài gởi
    5,471
    Cảm ơn
    8,537
    Được cảm ơn 9,610 lần trong 4,324 bài viết
    Trích Nguyên văn bởi yeuthamhangxom View Post
    dùng bằng Conditional Formating thì làm như thế nào bạn hướng dẫn giúp được không?
    Bạn mở file đó ra, vào Format\Conditional formating, hộp thoại hiện ra là thấy liền.
    Già của tuổi trẻ, trẻ của tuổi già.

  15. #10
    Tham gia ngày
    10 2010
    Bài gởi
    1
    Cảm ơn
    1
    Được cảm ơn 0 lần trong 0 bài viết
    Trích Nguyên văn bởi ndu96081631 View Post
    Sao không ai làm bài này bằng Conditional Formating thế nhỉ? ---> Quá dể để thực hiện (sao phải code)
    em làm rồi sao nó hiện khung ra nhưng em không biết làm như thế nào mong bác chỉ kỹ hơn đuợc không ạ!

Trang 1/3 1 2 3 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Hỏi về sự khác nhau giữa Macro, code và hàm trong excel. Excel và VBA
    Viết bởi vdtam_08 trong chuyên mục Lập Trình với Excel
    Trả lời: 4
    Bài mới gởi: 12-07-11, 10:22 PM
  2. Tạo một form trong word sử dụng data trong file excel 2007
    Viết bởi wwwgiaiphapexcelcom trong chuyên mục Phần mềm xử lý văn bản và chế bản điện tử
    Trả lời: 0
    Bài mới gởi: 09-09-10, 01:09 AM
  3. Export tung sheets trong 1 file Excel vào thành từng bảng trong ACCESS
    Viết bởi hoquang1987 trong chuyên mục Ứng dụng Quản trị cơ sở dữ liệu
    Trả lời: 4
    Bài mới gởi: 30-11-09, 04:36 PM
  4. Excel Custom Number Format - Tùy biến định dạng số trong Excel (Sưu tầm)
    Viết bởi QuocPhong trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 1
    Bài mới gởi: 21-05-09, 09:40 AM
  5. Bo Password khởi động Excel và Pass Readonly trong Excel 2007
    Viết bởi luong_xuangiang trong chuyên mục Excel 2007, 2010 & 2013
    Trả lời: 1
    Bài mới gởi: 29-04-09, 11:03 AM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]