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:
- Tạo Form nhập dữ liệu.
- Kiểm tra giá trị trong ô
- Xin file maro excel kế toán trường học!!
- Đọc số thành chữ tự động nhận dạng bảng mã
- cách sổ danh sách trong combobox
- Xin mọi người giúp đỡ em về liệt kê số hóa đơn
- Xin giúp code nhập, chỉnh sửa, liên kết dữ liệu từ excel với form
- PIVOT TABLE Bảng tổng hợp 3 chiều
- Không chạy được các addin trong exel
- Excel & kế toá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
Đó là mục tiêu cố gắng của tỉnh từ nay đến năm 2020 để góp phần phát triển kinh tế, xã hội và chuyển dịch cơ cấu kinh tế theo hướng tăng dần tỷ trọng tour du lịch, Trung tâm, tạo ra nhiều việc làm,...
Đưa Đắk Nông phát triển thành nơi đến quyến rũ của bạn