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

[akayzai1]

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.

 

[fptph00858]

Ðề: 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?

 

[Wind_Flower]

Ðề: 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

 

[akayzai1]

Ðề: 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é

 

[Wind_Flower]

Ðề: 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

 

[akayzai1]

Ðề: 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é

 

[Wind_Flower]

Ðề: 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