Hỏi Về Vấn Đề Tạo bảng trong excel..!

[nvtiepit]

Em xin hỏi các pro về một vấn đề mà em thắc mắc như sau>
Một hôm em tự thấy một ông anh làm một bảng tính rất nhanh. nhưng hỏi nhưng ông ấy không nói. híc híc. nay đưa lên đây để mọi người tham khảo và giải giùm em với nhé.

VD mình có một bảng như sau

A2 B2 C2 D2 E2
A3 B3 C3 D3 E3
A4 B4 C4 D4 E4
A5 B5 C5 D5 E5
A6 B6 C6 D6 E6

Ông ấy quét từ A2 : E6 rồi ấn phím gì đó thế là tự động kẻ bảng nhưng cái bảng đó như sau:

[TABLE="width: 500"]
[TR]
[TD="align: center"]A3
A4
A5
A6[/TD]
[TD="align: center"]B3
B4
B5
B6[/TD]
[TD="align: center"]
C3
C4
C5
C6

[/TD]
[TD="align: center"]D3
D4
D5
D6[/TD]
[TD="align: center"] E3
E4
E5
E6[/TD]
[/TR]
[/TABLE]

có bao nhiêu cột nó tự sinh ra cái bảng có từng ấy cột, vào có đường bao vòng quanh.
bác nào biết chia sẻ anh em với nhé...!
thank alot...!

 

[nhat chi mai]

Do file bạn gửi bị lỗi, nên không biết, nhưng tôi nghĩ người đó dùng Pivot table.

 

[Luc Van]

Em xin hỏi các pro về một vấn đề mà em thắc mắc như sau>
Một hôm em tự thấy một ông anh làm một bảng tính rất nhanh. nhưng hỏi nhưng ông ấy không nói. híc híc. nay đưa lên đây để mọi người tham khảo và giải giùm em với nhé.

VD mình có một bảng như sau

A2 B2 C2 D2 E2
A3 B3 C3 D3 E3
A4 B4 C4 D4 E4
A5 B5 C5 D5 E5
A6 B6 C6 D6 E6

Ông ấy quét từ A2 : E6 rồi ấn phím gì đó thế là tự động kẻ bảng nhưng cái bảng đó như sau:


có bao nhiêu cột nó tự sinh ra cái bảng có từng ấy cột, vào có đường bao vòng quanh.
bác nào biết chia sẻ anh em với nhé...!
thank alot...!

Cài này chắc chắn là chèn excel trong word rồi. Bạn có ông anh hay nhỉ?

 

[vu_tuan_manh_linh]

Thử đoạn code này:

Sub TTH()
On Error Resume Next
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
End Sub

Sau đó gán cho nó phím tắt, giả sử là Ctrl + Shift + A. Bạn chỉ cần quét vùng chọn, bấm phím Ctrl + Shift + A là ok. Cái này chắc là họ tự viết một add-ins tiện ích để dùng thôi.

 

[ndu96081631]

Sau đó gán cho nó phím tắt, giả sử là Ctrl + Shift + A. Bạn chỉ cần quét vùng chọn, bấm phím Ctrl + Shift + A là ok. Cái này chắc là họ tự viết một add-ins tiện ích để dùng thôi.

Cái vụ phím tắt để border nhớ có lần tôi làm rồi
- Quét chọn vùng dữ liệu
- Bấm giữ 2 phím Ctrl + Shift
- Bấm số 7 rồi dấu chấm (.) rồi dấu phẩy (,) rồi lại số 7 (tay vẫn đang giữ Ctrl + Shift)
Xong

 

[vanle33]

Cái vụ phím tắt để border nhớ có lần tôi làm rồi
- Quét chọn vùng dữ liệu
- Bấm giữ 2 phím Ctrl + Shift
- Bấm số 7 rồi dấu chấm (.) rồi dấu phẩy (,) rồi lại số 7 (tay vẫn đang giữ Ctrl + Shift)
Xong

Em nghĩ cách của bác mới đúng ý của chủ topic (là hỏi dùng phím tắt để tạo khung kẻ bảng)
Em không hiểu 3 bài trả lời ở trên, hii
Bác có những phím tắt nào nữa a. Bác tổng hợp lại cho em học hỏi với!

 

[ndu96081631]

Em nghĩ cách của bác mới đúng ý của chủ topic (là hỏi dùng phím tắt để tạo khung kẻ bảng)
Em không hiểu 3 bài trả lời ở trên, hii
Bác có những phím tắt nào nữa a. Bác tổng hợp lại cho em học hỏi với!

- Khởi động Excel
- Bấm F1
- Gõ vào từ khóa Keyboard Shortcut rồi Enter
Cả 1 "rừng" các shortcut, tha hồ cho bạn tổng hợp

 

[nvtiepit]

anh lỏm thôi. hôm sang công ty ông ấy thấy ông ấy làm thế thấy nhanh nhanh hỏi thì không nói :T

 

[nvtiepit]

Cái vụ phím tắt để border nhớ có lần tôi làm rồi
- Quét chọn vùng dữ liệu
- Bấm giữ 2 phím Ctrl + Shift
- Bấm số 7 rồi dấu chấm (.) rồi dấu phẩy (,) rồi lại số 7 (tay vẫn đang giữ Ctrl + Shift)
Xong

Rất cảm ơn bạn mình làm theo cách này và đã đc...

 

[nvtiepit]

Cái vụ phím tắt để border nhớ có lần tôi làm rồi
- Quét chọn vùng dữ liệu
- Bấm giữ 2 phím Ctrl + Shift
- Bấm số 7 rồi dấu chấm (.) rồi dấu phẩy (,) rồi lại số 7 (tay vẫn đang giữ Ctrl + Shift)
Xong

hì hì vẫn có vấn đề nếu trong bảng có tài liệu thì sẽ bị giống ô đầu tiên hết ông bạn à

 

[nvtiepit]

Thử đoạn code này:

Sub TTH()
On Error Resume Next
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
End Sub

Sau đó gán cho nó phím tắt, giả sử là Ctrl + Shift + A. Bạn chỉ cần quét vùng chọn, bấm phím Ctrl + Shift + A là ok. Cái này chắc là họ tự viết một add-ins tiện ích để dùng thôi.

Cách của bác đúng ý của em rồi nhưng em muốn những dấu chấm chấm nó là đường kẻ mạc định được không ạ
cho nó đỡ rối mắt
thì phải sửa code ở đoạn nào...
thank bác nhiều lắm..!!

 

[ndu96081631]

Cách của bác đúng ý của em rồi nhưng em muốn những dấu chấm chấm nó là đường kẻ mạc định được không ạ
cho nó đỡ rối mắt
thì phải sửa code ở đoạn nào...
thank bác nhiều lắm..!!

Vầy thôi:

Selection.Borders.LineStyle = 1

 

[vu_tuan_manh_linh]

Cách của bác đúng ý của em rồi nhưng em muốn những dấu chấm chấm nó là đường kẻ mạc định được không ạ
cho nó đỡ rối mắt
thì phải sửa code ở đoạn nào...
thank bác nhiều lắm..!!

Bạn thay đoạn .Weight = xlHairline bằng .Weight = xlThin