Xin code duyệt qua mỗi sheet từ danh sách tên sheet có trước (1 người xem)

[qazxsw]

chào các anh,
em có một vấn đề mong được các anh giúp đỡ,
Đó là em có một file excell với nhiều sheet, tên mỗi sheet được để trong sheet danh sách.
em muốn mình viết code ghi vào ô D7 của mỗi sheet có trong danh sách với nội dung GPE thì làm thế nào.
em dùng lệnh for to để duyệt qua list ở sheet danh sách nhưng chưa được.

 

[quanluu]

chào các anh,
em có một vấn đề mong được các anh giúp đỡ,
Đó là em có một file excell với nhiều sheet, tên mỗi sheet được để trong sheet danh sách.
em muốn mình viết code ghi vào ô D7 của mỗi sheet có trong danh sách với nội dung GPE thì làm thế nào.
em dùng lệnh for to để duyệt qua list ở sheet danh sách nhưng chưa được.

Đại loại như thế này

Dim sh As Object
For Each sh In ThisWorkbook.Sheets
    If sh.Name <> "danh sach" Then
' code here
    End If
Next

 

[qazxsw]

Dear anh Quanluu1989
ý em là chỉ thực hiện hành động với những sheet có tên trong cột B của sheet Danh sach thôi.

 

[quanluu]

Dear anh Quanluu1989
ý em là chỉ thực hiện hành động với những sheet có tên trong cột B của sheet Danh sach thôi.

thế thì dùng mảng lưu các tên sheet rùi dùng For Next
Arr = Range(cột B)
for i = 1 to ubound(arr)
sheets(arr(i,1)).Range(vùng càn thao tác) = .....
next

 

[qazxsw]

thế thì dùng mảng lưu các tên sheet rùi dùng For Next
Arr = Range(cột B)
for i = 1 to ubound(arr)
sheets(arr(i,1)).Range(vùng càn thao tác) = .....
next

Nhờ anh Quanluu1989 viết cho e đầy đủ câu lệnh, vì em chưa biết nhiều về vb.
Mong a giúp đỡ để em tham khảo học hỏi.

 

[be_09]

Nhờ anh Quanluu1989 viết cho e đầy đủ câu lệnh, vì em chưa biết nhiều về vb.
Mong a giúp đỡ để em tham khảo học hỏi.

File của bạn với tiêu đề và nội dung không đầy đủ, cũng chẳng có ví dụ cụ thể thì dựa vào cái gì để viết đầy đủ câu lệnh, ít ra bạn cũng có đưa ra kết quả để xem kết quả mà còn suy luận.

 

[Hoang2013]

. . . Em có một file excell với nhiều sheet, tên mỗi sheet được để trong sheet danh sách.
em muốn mình viết code ghi vào ô D7 của mỗi sheet có trong danh sách với nội dung GPE thì làm thế nào.
em dùng lệnh for to để duyệt qua list ở sheet danh sách nhưng chưa được.

[TABLE="width: 140"]
[TR]
[TD]No[/TD]
[TD]Ten sheet[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]c[/TD]
[/TR]
[TR]
[TD].[/TD]
[TD][SIZE=7].[/SIZE][/TD]
[/TR]
[TR]
[TD].[/TD]
[TD][SIZE=7].[/SIZE][/TD]
[/TR]
[TR]
[TD].[/TD]
[TD][SIZE=7].
[/SIZE][/TD]
[/TR]
[/TABLE]

Tên trang tính không thể chỉ là dấu . như vậy!

 

[qazxsw]

[TABLE="width: 140"]
[TR]
[TD]No[/TD]
[TD]Ten sheet[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]c[/TD]
[/TR]
[TR]
[TD].[/TD]
[TD][SIZE=7].[/SIZE][/TD]
[/TR]
[TR]
[TD].[/TD]
[TD][SIZE=7].[/SIZE][/TD]
[/TR]
[TR]
[TD].[/TD]
[TD][SIZE=7].
[/SIZE][/TD]
[/TR]
[/TABLE]

Tên trang tính không thể chỉ là dấu . như vậy!

Dear Hoang2013,
mình lấy ví dụ có một file 4 sheet a,b,c,d
tại cột B của sheet danh sách có tên các sheet a,b,c,
dấu . là : là do các sheet a,b,c,d là sheet mẫu, thực tế file có rất nhiều sheet.
Bạn bỏ dấu chấm (.) trong cột A, B của sheet danh sách đi cho mình.

 

[befaint]

Dear Hoang2013,
mình lấy ví dụ có một file 4 sheet a,b,c,d
tại cột B của sheet danh sách có tên các sheet a,b,c,
dấu . là : là do các sheet a,b,c,d là sheet mẫu, thực tế file có rất nhiều sheet.
Bạn bỏ dấu chấm (.) trong cột A, B của sheet danh sách đi cho mình.

.
Hình như thành viên "Hoang2013" nhiều tuổi nhất gpe á...
-------
Bạn thử gửi file đang làm lên xem nào, dữ liệu có thể xóa, ghi linh tinh gì đó vài dòng, nêu yêu cầu cuối cùng làm gì (chắc không chỉ nhập vào mỗi cell D7 thôi)...

 

[HieuCD]

chào các anh,
em có một vấn đề mong được các anh giúp đỡ,
Đó là em có một file excell với nhiều sheet, tên mỗi sheet được để trong sheet danh sách.
em muốn mình viết code ghi vào ô D7 của mỗi sheet có trong danh sách với nội dung GPE thì làm thế nào.
em dùng lệnh for to để duyệt qua list ở sheet danh sách nhưng chưa được.

dùng thử 2 code

Sub DonGian()
  Dim i As Integer, LastR As Integer, Tmp As String
  LastR = Sheets("danh sach").Range("B2").End(xlDown).Row
  If LastR > 1 Then
    On Error Resume Next
    For i = 2 To LastR
      Tmp = Sheets("danh sach").Cells(i, 2)
      Sheets(Tmp).Range("D7") = "GPE"
    Next i
  End If
End Sub


Sub RacRoi()
  Dim Sh As Worksheet, i As Integer, LastR As Integer
  LastR = Sheets("danh sach").Range("B2").End(xlDown).Row
  If LastR > 1 Then
    For i = 2 To LastR
      Tmp = Tmp & "#" & Sheets("danh sach").Cells(i, 2)
    Next i
    For Each Sh In ThisWorkbook.Sheets
      If InStr(Tmp, Sh.Name) Then
        Sh.Range("D7") = "GPE"
      End If
    Next Sh
  End If
End Sub

 

[qazxsw]

dùng thử 2 code

Sub DonGian()
  Dim i As Integer, LastR As Integer, Tmp As String
  LastR = Sheets("danh sach").Range("B2").End(xlDown).Row
  If LastR > 1 Then
    On Error Resume Next
    For i = 2 To LastR
      Tmp = Sheets("danh sach").Cells(i, 2)
      Sheets(Tmp).Range("D7") = "GPE"
    Next i
  End If
End Sub


Sub RacRoi()
  Dim Sh As Worksheet, i As Integer, LastR As Integer
  LastR = Sheets("danh sach").Range("B2").End(xlDown).Row
  If LastR > 1 Then
    For i = 2 To LastR
      Tmp = Tmp & "#" & Sheets("danh sach").Cells(i, 2)
    Next i
    For Each Sh In ThisWorkbook.Sheets
      If InStr(Tmp, Sh.Name) Then
        Sh.Range("D7") = "GPE"
      End If
    Next Sh
  End If
End Sub

Cảm ơn HieuCD, mình đã làm được như code của bạn.