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:
- Hàm SumPower nhiều tính năng mới
- Hỏi cách thiết lập nut enter và tab
- Hàm tính tổng cò điều kiện trong excel
- Nhập dữ liệu Sheet B,C,D thì tự động điền vào Sheet tổng hợp A
- hàm tính đếm và tính tổng nhiều điều kiện
- Hướng dẫn Lập Công Thức Tách Dòng
- Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn
- Mong các bạn giúp đỡ : Lập trình VBA cho excel " lọc danh sách nhân viện có cùng độ tuổi "
- Chuyển một chuỗi dạng công thức
- Giúp đỡ về gom các giá trị lại khi có cùng điều kiệ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
Trứng rung Private Massager hay còn được gọi với cái tên trứng rung cá heo là sản phẩm nức danh giờ. Công dụng chính là giúp massage “cô bé”, hỗ trợ tạo cảm giác hưng phấn, mới lạ cho chị em “tự...
Các cặp đôi hoàn toàn có thể sử dụng chày rung điều khiển từ xa ở nơi công cộng