Lấy tên các sheet điền vào cột MÔN HỌC (Cột A)

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Chào cả nhà! Chúc cả nhà một buổi tối vv&hp.
Loay hoay làm hoài không được. Xin cả nhà giúp đỡ "Lấy tên sheet điền vào cột MÔN HỌC (Cột A)
Em xin cảm ơn.
Bài đã được tự động gộp:
 

File đính kèm

Lần chỉnh sửa cuối:

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,255
Được thích
8,050
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
Chào cả nhà! Chúc cả nhà một buổi tối vv&hp.
Loay hoay làm hoài không được. Xin cả nhà giúp đỡ "Lấy tên các xin điền vào cột MÔN HỌC (Cột A)
Em xin cảm ơn.
Bài đã được tự động gộp:
Có đính kèm File mà giải thích không rỏ ràng, cụ thể và không có ví dụ thì chưa chắc có ai hiểu để mà giúp.
Đằng này, không đính kèm File thì lấy cái gì để làm và làm cách nào để thử.
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Dạ em đăng lộn vào mục này cho nên đang loay hoay xóa đi để đăng vào mục khác mà không biết làm
Xin thông cảm ạ
Bài đã được tự động gộp:

Nhờ các Bác chỉ em cách đăng bài vào khu vực đăng bài chung ạ
Bài đã được tự động gộp:

Chào cả nhà! Chúc cả nhà một buổi tối vv&hp.
Loay hoay làm hoài không được. Xin cả nhà giúp đỡ "Lấy tên sheet vào cột MÔN HỌC (Cột A)
Em xin cảm ơn.
 

File đính kèm

Lần chỉnh sửa cuối:

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,202
Được thích
10,245
Điểm
1,860
Bạn cần có danh mục giáo viên dạy các môn của mình mới làm được
Cái danh sách đó bạn cất đâu rồi, bới tìm & đưa vô file đi
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Dạ em cảm ơn Bác SA_DQ rất nhiều
Em sẽ post lên nhờ Bác giúp em
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Bạn cần có danh mục giáo viên dạy các môn của mình mới làm được
Cái danh sách đó bạn cất đâu rồi, bới tìm & đưa vô file đi
Dạ danh sách em đã đưa vào file, ở sheet PHANCONG
Nhờ Bác giúp em
Em cảm ơn Bác nhiều ạ.
Bài đã được tự động gộp:

Bạn cần có danh mục giáo viên dạy các môn của mình mới làm được
Cái danh sách đó bạn cất đâu rồi, bới tìm & đưa vô file đi
Lang thang trên GPE em tìm được file "T00_gammaTN_pho..." bên dưới không biết của tác giả nào, xin mạn phép được mượn để mô tả.
------------
Nhưng sau khi em copy đoạn code này và chỉnh sửa thêm chút xíu thì kết quả không như mong muốn.
Ở file này sau khi nhấn vào nút Gộp thì tên của tất cả các sheet sẽ hiển thị tại cột A đồng thời tất cả các dữ liệu ở các sheet cũng hiện ra theo thứ tự tên của các sheet.
------------
Ở file này em thấy không có danh sách hoặc một danh mục nào.
Vậy Bác có thể lấy file ở bài #1 làm giống như file này giúp em với nhé.
Bởi vì nếu đưa danh sách hoặc danh mục vào file nữa thì em thấy hơi mất công.
------------
Vậy em muốn thực hiện và làm giống như file này mong Bác SA_DQ giúp em.
 

File đính kèm

Lần chỉnh sửa cuối:

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,167
Được thích
8,083
Điểm
860
Nơi ở
TP.HCM
Chào cả nhà! Chúc cả nhà một buổi tối vv&hp.
Loay hoay làm hoài không được. Xin cả nhà giúp đỡ "Lấy tên sheet điền vào cột MÔN HỌC (Cột A)
Em xin cảm ơn.
Bài đã được tự động gộp:
Sao những chủ đề như thế này không được admin vào giúp nhỉ.
Nhờ bạn ké ở chủ đề này nên tôi mới thấy :D
Mã:
Const FirstRow As Long = 11, EndCol As Long = 17, sShTongHop As String = "TONG HOP"
Sub ChayCaiNay()
Dim ShTongHop As Worksheet, Sh As Worksheet, NextRow As Long, EndRow As Long, Rng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set ShTongHop = Sheets(sShTongHop)
If ShTongHop Is Nothing Then
    Worksheets.Add Worksheets(1)
    Set ShTongHop = Worksheets(1)
    ShTongHop.Name = sShTongHop
End If
With ShTongHop
    .Range(.Cells(FirstRow, 1), .Cells(65536, EndCol)).Clear
End With
NextRow = FirstRow
For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name <> sShTongHop Then
        Set Rng = Sh.Cells(65536, 1).End(xlUp)
        If Rng.Row >= FirstRow Then
            Set Rng = Rng.MergeArea
            Set Rng = Range(Rng.Cells(Rng.Rows.Count, 2), Sh.Cells(FirstRow, EndCol))
            Rng.Copy ShTongHop.Cells(NextRow, 2)
            With ShTongHop.Cells(NextRow, 2).Resize(Rng.Rows.Count)
                .Copy .Offset(, -1)
                .Offset(, -1).Value = Sh.Name
            End With
            NextRow = NextRow + Rng.Rows.Count
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,202
Được thích
10,245
Điểm
1,860
Mình chỉ biết làm thế này thôi; Bạn xem tạm:
PHP:
Sub DienMonHocVoCotATrangTongHop()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 
 Sheets("PHAN CONG").Select
 Set Sh = ThisWorkbook.Worksheets("TONG HOP")
 Set Rng = Sh.Range(Sh.[B10], Sh.[B65500].End(xlUp).Offset(9))
' Rng.Offset(, -1).Value = ""                               '
  For Each Cls In Range([B9], [B9].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        Cls.Interior.ColorIndex = 38
    Else
        sRng.Offset(, -1).Value = Cls.Offset(, 1).Value
    End If
 Next Cls
End Sub
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Mình chỉ biết làm thế này thôi; Bạn xem tạm:
PHP:
Sub DienMonHocVoCotATrangTongHop()
Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range

Sheets("PHAN CONG").Select
Set Sh = ThisWorkbook.Worksheets("TONG HOP")
Set Rng = Sh.Range(Sh.[B10], Sh.[B65500].End(xlUp).Offset(9))
' Rng.Offset(, -1).Value = ""                               '
  For Each Cls In Range([B9], [B9].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        Cls.Interior.ColorIndex = 38
    Else
        sRng.Offset(, -1).Value = Cls.Offset(, 1).Value
    End If
Next Cls
End Sub
Dạ cảm ơn Bác SA_DQ rất nhiều ạ.
Đúng như ý tưởng của em rồi hay quá Bác ơi.
Nhưng em còn vấn đề này muốn hỏi Bác nữa xin Bác giúp em luôn nhé.
Ở file trên em xóa đi sheet PHANCONG thì phải làm sao để bên sheet TONGHOP tại cột (A)
là cột MÔN HỌC lấy được dữ liệu ạ. Giống yêu cầu ở bài #1 ạ
Làm sao tương tự như file "T00_gammaTN_pho..." này được không Bác.
Em post file lên lại mong Bác giúp ạ
Em cảm ơn Bác.
Bài đã được tự động gộp:

Sao những chủ đề như thế này không được admin vào giúp nhỉ.
Nhờ bạn ké ở chủ đề này nên tôi mới thấy :D
Mã:
Const FirstRow As Long = 11, EndCol As Long = 17, sShTongHop As String = "TONG HOP"
Sub ChayCaiNay()
Dim ShTongHop As Worksheet, Sh As Worksheet, NextRow As Long, EndRow As Long, Rng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set ShTongHop = Sheets(sShTongHop)
If ShTongHop Is Nothing Then
    Worksheets.Add Worksheets(1)
    Set ShTongHop = Worksheets(1)
    ShTongHop.Name = sShTongHop
End If
With ShTongHop
    .Range(.Cells(FirstRow, 1), .Cells(65536, EndCol)).Clear
End With
NextRow = FirstRow
For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name <> sShTongHop Then
        Set Rng = Sh.Cells(65536, 1).End(xlUp)
        If Rng.Row >= FirstRow Then
            Set Rng = Rng.MergeArea
            Set Rng = Range(Rng.Cells(Rng.Rows.Count, 2), Sh.Cells(FirstRow, EndCol))
            Rng.Copy ShTongHop.Cells(NextRow, 2)
            With ShTongHop.Cells(NextRow, 2).Resize(Rng.Rows.Count)
                .Copy .Offset(, -1)
                .Offset(, -1).Value = Sh.Name
            End With
            NextRow = NextRow + Rng.Rows.Count
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub
Dạ em cảm ơn Bác huuthang_bd rất nhiều ạ.
Nhưng mà Bác ơi khi đưa đoạn code vào và chạy thì nó lại dồn tất cả dữ liệu xuống phía dưới ạ không đúng với ý tưởng của em ạ.
Mong Bác chỉnh sửa lại đúng với yêu cầu nội dung ở bài #1 được không ạ.
Em cảm ơn Bác trước nhé
Bài đã được tự động gộp:
 

File đính kèm

Lần chỉnh sửa cuối:

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,167
Được thích
8,083
Điểm
860
Nơi ở
TP.HCM
Dạ em cảm ơn Bác huuthang_bd rất nhiều ạ.
Nhưng mà Bác ơi khi đưa đoạn code vào và chạy thì nó lại dồn tất cả dữ liệu xuống phía dưới ạ không đúng với ý tưởng của em ạ.
Mong Bác chỉnh sửa lại đúng với yêu cầu nội dung ở bài #1 được không ạ.
Em cảm ơn Bác trước nhé
Vậy chứ ý bạn là sao? Gửi kết quả mẫu lên.
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Vậy chứ ý bạn là sao? Gửi kết quả mẫu lên.
Em chào Bác huuthang_bd xin cảm ơn Bác rất nhiều ạ.
Sau khi chạy code của Bác bấm vào nút GPE ở sheet TONGHOP thì kết quả như HÌNH 1
Kết quả của em mong muốn như HÌNH 2 Bác ạ.
Ý tưởng của em như bài #1 "Lấy tên sheet điền vào cột MÔN HỌC (Cột A) nhưng không cần phải dựa vào sheet PHANCONG, sheet này em đã xóa đi. Cách làm tương tự như file "T00_gammaTN_pho..." này. Nhưng chỉ "Lấy tên sheet điền vào cột MÔN HỌC (Cột A). Em post file lên lại mong Bác giúp em ạ.
(chú ý đã xóa sheet PHANCONG)
 

File đính kèm

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,167
Được thích
8,083
Điểm
860
Nơi ở
TP.HCM
Em chào Bác huuthang_bd xin cảm ơn Bác rất nhiều ạ.
Sau khi chạy code của Bác bấm vào nút GPE ở sheet TONGHOP thì kết quả như HÌNH 1
Kết quả của em mong muốn như HÌNH 2 Bác ạ.
Ý tưởng của em như bài #1 "Lấy tên sheet điền vào cột MÔN HỌC (Cột A) nhưng không cần phải dựa vào sheet PHANCONG, sheet này em đã xóa đi. Cách làm tương tự như file "T00_gammaTN_pho..." này. Nhưng chỉ "Lấy tên sheet điền vào cột MÔN HỌC (Cột A). Em post file lên lại mong Bác giúp em ạ.
(chú ý đã xóa sheet PHANCONG)
Bạn đưa file đã copy code của tôi vào rồi mà chạy ra kết quả như hình 1 tôi xem. Code của tôi không thể nào ra kết quả như hình 1.
 

tam888

Thành viên tích cực
Tham gia ngày
22 Tháng tám 2013
Bài viết
840
Được thích
498
Điểm
435
Lấy tên sheet dựa vào cái gì?
Nếu đơn giản dựa vào địa chỉ ô của sheet đó thì bạn tìm hiểu hàm CELL
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Bạn đưa file đã copy code của tôi vào rồi mà chạy ra kết quả như hình 1 tôi xem. Code của tôi không thể nào ra kết quả như hình 1.
Dạ chào Bác
Đây là file kết quả em đã đưa code của Bác vào ạ.
Mong Bác xem giúp đỡ.

Lấy tên sheet dựa vào cái gì?
Nếu đơn giản dựa vào địa chỉ ô của sheet đó thì bạn tìm hiểu hàm CELL
Dạ chào Bác.
Đơn giản như file "T00_gammaTN_pho.xlsm" này ạ
 

File đính kèm

Lần chỉnh sửa cuối:

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,167
Được thích
8,083
Điểm
860
Nơi ở
TP.HCM
Dạ chào Bác
Đây là file kết quả em đã đưa code của Bác vào ạ.
Mong Bác xem giúp đỡ.
Bài đã được tự động gộp:

Bài đã được tự động gộp:


Dạ chào Bác.
Đơn giản như file "T00_gammaTN_pho.xlsm" này ạ
Ở đâu ra cái sheet PHAN CONG vậy? Hỏi cái nào áp dụng cho cái đấy. Bạn thử tải file bài 1 của bạn về rồi copy code vào chạy xem nó ra cái gì.
Hỏi file A mang áp dụng cho file B rồi bảo là không đúng thì tôi có là thánh cũng không biết tại sao không đúng.
 

tanthanhkg

Thành viên thường trực
Tham gia ngày
16 Tháng tám 2008
Bài viết
213
Được thích
27
Điểm
685
Tuổi
40
Ở đâu ra cái sheet PHAN CONG vậy? Hỏi cái nào áp dụng cho cái đấy. Bạn thử tải file bài 1 của bạn về rồi copy code vào chạy xem nó ra cái gì.
Hỏi file A mang áp dụng cho file B rồi bảo là không đúng thì tôi có là thánh cũng không biết tại sao không đúng.
U cha ơi thật là có lỗi với Bác "huuthang_bd". Thành thật xin lỗi Bác nhá.
Do sai lầm chỗ Bác SA_DQ mà không để ý.
Xin cảm ơn Bác đoạn code quá tuyệt vời đúng ý tưởng như bài #1 rồi. Thành thật xin lỗi mong Bác Thông cảm và bỏ qua nhá. Em làm mất thời gian của Bác quá (nếu Bác không nhắc nhở thì em không nhớ)
Em xin cảm ơn Bác.
Chúc sức khỏe Bác.
Bài đã được tự động gộp:

Ở đâu ra cái sheet PHAN CONG vậy? Hỏi cái nào áp dụng cho cái đấy. Bạn thử tải file bài 1 của bạn về rồi copy code vào chạy xem nó ra cái gì.
Hỏi file A mang áp dụng cho file B rồi bảo là không đúng thì tôi có là thánh cũng không biết tại sao không đúng.
Vậy mà lòng vòng loay hoay cả ngày cứ trách Bác "huuthang_bd" hoài.
Thành thật xin lỗi Bác, mong Bác bỏ qua nhé.
Cảm ơn đoạn code của Bác rất nhiều
chúc Bác cuối tuần vv&hp.
Bài đã được tự động gộp:

Lấy tên sheet dựa vào cái gì?
Nếu đơn giản dựa vào địa chỉ ô của sheet đó thì bạn tìm hiểu hàm CELL
Dựa vào đoạn code bài #7 của Bác "huuthang_bd" đó....
Đã có kết quả rồi...
Cảm ơn bạn nhiều
 
Lần chỉnh sửa cuối:
Top Bottom