Chèn tiều đề cho nhiều vị trí trên bảng tính ẽxcel( nhờ giải thích giùm code)

[queen98]

Mọi người giải thích giùm code chèn thêm tiêu đề trong file mình gời lên đây dùm.tác dụng của code là thao tác chuyển từ sheet Luu sang sheet TDe.Mình áp dụng code với file khac thì không được.

Sub Macro1()
Dim Rng As Range, Cls As Range
Dim MyColor As Byte

Sheets("TDe").Select: Randomize
Columns("A:J").Delete: MyColor = 34 + 9 * Rnd() \ 1
Sheets("Luu").Columns("A:J").Copy Destination:=[A1]
Set Rng = Columns("A:A").SpecialCells(xlCellTypeConstants, 2)

For Each Cls In Rng
If Cls.Row = 1 Then
Cls.Resize(2).EntireRow.Insert Shift:=xlDown
Else
Cls.Resize(5).EntireRow.Insert Shift:=xlDown
Cls.Offset(-5).Value = Range("NLap").Value
Cls.Offset(-5, 5).Value = Range("Duyet").Value
Cls.Offset(-3).Value = " - - - - -"
Cls.Offset(-3, 4).Value = " - - - - - - - - - -"
End If
Cls.Interior.ColorIndex = MyColor
Cls.Offset(-2).Value = Range("SYT").Value
Cls.Offset(-2, 4).Value = Range("TTT").Value
Cls.Offset(-1).Value = " - - - - -"
Next Cls
End Sub

View more random threads:

• Tạo chỉ mục sheet và liên kết sheet
• tự nhảy dữ liệu từ sheet này sang sheet khác có đk
• Lấy tự động các quy cách từ sheet khác vào bảng tính
• Giúp đỡ về tạo form, liên kết sheet
• Sửa lỗi công thức mảng
• Trợ giúp lỗi Excel
• [Cần giúp đỡ] Bar chart chèn trực tiếp vào excel
• Cách lấy dữ liệu so le theo từng dòng
• Cho em hỏi làm cách nào tự động thay đổi bộ lọc filter theo một điều kiện nào đó
• cách bỏ nhiều header section trong 1 văn bản.

[hocon84]

Lí ra bạn cần hỏi tiếp bài mà bạn đã hỏi.

Ở file khác không chạy được vì bạn không/chưa có 4 vùng gán tên trong trang tính lưu;
Đó là:

Cls.Offset(-5).Value = "Nguòi Lap"
Cls.Offset(-5, 5).Value = "Duyet"
' . . . . . . . . . . . '
Cls.Offset(-2).Value = "So Y Té"
Cls.Offset(-2, 4).Value = "Thong Tin Thuóc"

(Nhớ chép đè í xì vậy mới hiện ra vấn đề đó nha.)

[hoangyenchipi]

[QUOTE="HYen17"]Lí ra bạn cần hỏi tiếp bài mà bạn đã hỏi.

Ở file khác không chạy được vì bạn không/chưa có 4 vùng gán tên trong trang tính lưu;
Đó là:

Cls.Offset(-5).Value = "Nguòi Lap"
Cls.Offset(-5, 5).Value = "Duyet"
' . . . . . . . . . . . '
Cls.Offset(-2).Value = "So Y Té"
Cls.Offset(-2, 4).Value = "Thong Tin Thuóc"

(Nhớ chép đè í xì vậy mới hiện ra vấn đề đó nha.)</div>

</div>
</div>
</div>
Cảm ơn bạn.mình đỏi lâu không thấy bạn trả lòi.vì nhu cầu công việc nên mình đặt thêm câu hỏi.nhủ bạn nói tui chỉ cần coppy mấy dòng lệnh đó thay vào code là dc pải hok bạn.

[dangban321]

Nếu chép đè & cho chạy macro; Sau đó từ kết quả macro rút cho mình kết luận cần thiết.

Rõ hơn sẽ là: VBA không hỗ trợ Font UniKey, nên có chí ít 2 cách lách qua chuyện này;
Cách trên là giành cho người không biết VBA cũng ra tiếng Việt có dấu được.

[txluyen]

Chạy được code đó ùi.
Giờ mình muốn bỏ lưới đính kèm với phần mình đã thêm vào thì có làm được không hay làm thủ công jậy bạn?

Mình đề xuất fương án bán tự động như sau:

(1) Bạn chép macro này vô dưới macro hiện tại:

Sub FormatLine() Dim J As Long For J = 5 To 12    Selection.Borders(J).LineStyle = xlNone  '5' Next J Selection(1).Resize(, 9).Borders(xlEdgeTop).LineStyle = 1      '8' Selection(1).Offset(4).Resize(, 9).Borders(xlEdgeBottom).LineStyle = 1   '9'End Sub  

Sau đó bạn gán cho nó 1 tổ hợp fím tắt như {CTRL}+{SHIFT}+F

Bạn lấy chuột tô chọn vùng gồm 5 hàng & 9 cột nào đó trong vùng tiêu đề & bấm tổ hợp 3 fím nêu trên; kết quả sẽ chỉ cho bạn những việc còn lại

[truongson]

Nếu chép đè & cho chạy macro; Sau đó từ kết quả macro rút cho mình kết luận cần thiết.

Rõ hơn sẽ là: VBA không hỗ trợ Font UniKey, nên có chí ít 2 cách lách qua chuyện này;
Cách trên là giành cho người không biết VBA cũng ra tiếng Việt có dấu được.

Cảm ơn bạn.Mình tạo vùng và chạy được code đó ùi.jờ mình muốn bỏ lưới đính kèm với phần mình đã thêm vào thì có làm được không hay làm thủ công jậy bạn?

[nguyenngoc20]

Như jậy là làm thủ công hả bạn?cho nó tự chạy luôn được hok?

/(/ếu không muốn xài bán tự động thì xài tự động, bằng cách kết hợp 2 macro đó lại như dưới đây:

Sub FormatLine(sRng)
 Dim J As Long
 For J = 5 To 12
    sRng.Borders(J).LineStyle = xlNone
 Next J
 sRng(1).Resize(, 9).Borders(xlEdgeTop).LineStyle = 1
 sRng(1).Offset(4).Resize(, 9).Borders(xlEdgeBottom).LineStyle = 1
End Sub

[xuyenchi05]

[QUOTE="SA_DQ"]/(/ếu không muốn xài bán tự động thì xài tự động, bằng cách kết hợp 2 macro đó lại như dưới đây:

Sub FormatLine(sRng)
 Dim J As Long
 For J = 5 To 12
    sRng.Borders(J).LineStyle = xlNone
 Next J
 sRng(1).Resize(, 9).Borders(xlEdgeTop).LineStyle = 1
 sRng(1).Offset(4).Resize(, 9).Borders(xlEdgeBottom).LineStyle = 1
End Sub

</div>

</div>
</div>
</div>
Cám ơn ban.kết hợp 2 code đã chạy được

[nguyenvinh16121993]

Mình đề xuất fương án bán tự động như sau:

(1) Bạn chép macro này vô dưới macro hiện tại:

<div class="bbcode_container">
<div class="bbcode_description">PHP Code:

</div>
</div>
</div>
Như jậy là làm thủ công hả bạn?cho nó tự chạy luôn được hok?