Cho e hỏi bài này với

[devico]

Tạo các sheet mới có tên tương ứng với giá trị của các ô trong vùng A1...F1 của sheet 1.

View more random threads:

• Sách Kinh nghiệm thực hành kế toán trên Excel
• Nhờ thiết lập VBA lấy dữ liệu tự động
• Lỗi khi save code!!
• Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp
• Form nhập liệu và bảng tổng hợp
• Không chạy được các addin trong exel
• Chỉnh Sửa Macro Tổ Hợp Giúp
• kế toán excel
• Giúp đỡ về gom các giá trị lại khi có cùng điều kiện
• Theo dõi dự án

[PhamQuangVinh]

Ðề: Cho e hỏi bài này với

Tạo các sheet mới có tên tương ứng với giá trị của các ô trong vùng A1...F1 của sheet 1.

Bạn có thể nói rõ hơn ko?

[embien12]

Ðề: Tiêu đề nên rõ ràng!

Tham khảo nha: :kinhhoang:

[COLOR=#000000]
Option ExplicitSub Macro1[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range On Error Resume Next  Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"S2"[/COLOR][COLOR=#007700]) For [/COLOR][COLOR=#0000BB]Each Cls In Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B1[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlToRight[/COLOR][COLOR=#007700]))    [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Add[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]After[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count[/COLOR][COLOR=#007700])).[/COLOR][COLOR=#0000BB]Name [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value Next ClsEnd Sub[/COLOR] 

[lamchuong95]

Ðề: Cho e hỏi bài này với

Tạo các sheet mới có tên tương ứng với giá trị của các ô trong vùng A1...F1 của sheet 1.

Hy vọng hiểu được ý

Giả sử trong Sheet1 có
A1= cuti
A2= cuteo
A3= cucu

Paste cái CODE này vào Module

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("Sheet1").Range("A1:A3")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) ' Tạo Sheet mới
Sheets(Sheets.Count).Name = MyCell.Value ' Tạo tên
Next MyCell
End Sub

Nó sẽ tạo 3 sheets theo thứ tự cuti , cuteo, cucu
:dotphao:

[linhnguyen]

Ðề: Cho e hỏi bài này với

1)Cho vùng bảng tính A1..G7 có chứa các số bất kỳ.Tìm giá trị nhỏ nhất và địa chỉ ô chứa giá trị đó .Thông báo bằng hàm Msgbox.
2)Kiểm tra font chữ của các ô trong vùng A1...F5 .Thông báo bằng msgbox
Giúp e 2 bài này nữa nhé

[tuanesport]

Ðề: Cho e hỏi bài này với

1)Cho vùng bảng tính A1..G7 có chứa các số bất kỳ.Tìm giá trị nhỏ nhất và địa chỉ ô chứa giá trị đó .Thông báo bằng hàm Msgbox.
2)Kiểm tra font chữ của các ô trong vùng A1...F5 .Thông báo bằng msgbox
Giúp e 2 bài này nữa nhé

Sub Smallest()

Dim rng As Range
Dim minValue As Double

Set rng = Sheet1.Range("A1:G7")

minValue = Application.WorksheetFunction.Min(rng)

MsgBox minValue

MsgBox ActiveCell.Font.Name & " " & ActiveCell.Font.Size

End Sub

[sevenup024]

Ðề: Cho e hỏi bài này với

Tìm và xóa các sheet không chứa dữ liệu trong file excel hiện hành.Giúp e nốt bài này với nhé

[longland]

Ðề: Cho e hỏi bài này với

Tìm và xóa các sheet không chứa dữ liệu trong file excel hiện hành.Giúp e nốt bài này với nhé

Sub DelBlankSheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If Application.CountA(ws.Cells) = 0 Then ws.Delete
Next ws
Application.DisplayAlerts = True​End Sub