Chủ đề: Cho e hỏi bài này với
-
01-09-2014, 07:22 PM #1
Junior 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:
- Trong Excel làm cách nào đếm đươc tháng hiện tại có bao nhiêu ngày thứ hai,
- V/v xin giúp tạo menu form nhập liệu trong excel
- Tạo mã phiếu thu( hay chi,nhập,. . . .) có dạng MMDDYYxxx
- Xử lý giúp Lỗi 40040 trong Excel 2003
- CÁC ANH EM ƠI GIÚP MÌNH BÀI NÀY VỚI
- Các anh chị pro ơi!!!!!!!!!!!! help me!!!!!!!!
- Rút ngắn công đoạn Lọc này như thế nào?
- Giúp đỡ viết code trong excel
- Excel & kế toán
- Không lọc được hết dữ liệu.
-
01-10-2014, 05:18 AM #2
Junior 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 #3
Junior 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 #4
Junior 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 #5
Junior 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 #6
Junior 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 #7
Junior 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 #8
Junior 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
Sản phẩm đan lọc được sinh sản và thiết kế dùng cho cả các công trình bể lọc xây dựng mới lẫn các bể lọc hiện hữu. Đan lọc lovense domi giúp tăng khả năng phân phối gió và nước trong quá trình rửa...
Những đặc điểm vượt trội của đan lọc 2 tầng De Nora (8)