Chủ đề: Cho e hỏi bài này với
-
01-09-2014, 07:22 PM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 5
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.
View more random threads:
- giúp minh kê khai hang tồn kho tính theo phương pháp bình quân
- Hàm tách họ tên trong Excel
- Tạo ngày và thời gian chạy trên Excel
- LỊCH VÀ ĐỒNG HỒ
- Khắc phục sự cố của chương trình ( chạy chậm và công thức bị thay đổi )
- Code lọc dữ liệu trong excel
- CÁCH NÀO ĐỂ TỚI 1FILE MINH MUỐN
- Sao chép dữ liệu từ file đến file
- copy dữ liệu sang các sheet tương ứng
- Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn
-
01-10-2014, 05:18 AM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: 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.
-
01-10-2014, 03:01 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 4
Ðề: Tiêu đề nên rõ ràng!
Tham khảo nha: :kinhhoang:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit Sub 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 Cls End Sub [/COLOR]
-
01-10-2014, 04:00 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho e hỏi bài này với
Gửi bởi akayzai1
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:
-
01-10-2014, 05:40 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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é
-
01-10-2014, 07:06 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho e hỏi bài này với
Gửi bởi akayzai1
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
-
01-10-2014, 11:51 PM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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é
-
01-11-2014, 01:20 PM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho e hỏi bài này với
Gửi bởi akayzai1
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 = TrueEnd Sub
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng Đá mỹ nghệ Tài Tuệ là đơn vị hàng đầu trong lĩnh vực điêu khắc chế tác các sản phẩm, công trình tâm linh bằng đá tại làng đá truyền...
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng năm 2024