Lấy tên sheet hiện hành (tên trong VBA) (1 người xem)

[dtExcell]

Chào các bạn.
Xin các bạn chỉ giúp code lấy tên sheet hiện hành ở trong VBA
(TÊN LÀ TÊN TRONG VBA, VÍ DỤ BÊN NGOÀI EXCELL LÀ SHEET "KHỐI LƯỢNG" NHƯNG NAME BÊN TRONG VBA LA "S001"). XIN CẢM ƠN.

 

[ndu96081631]

Chào các bạn.
Xin các bạn chỉ giúp code lấy tên sheet hiện hành ở trong VBA
(TÊN LÀ TÊN TRONG VBA, VÍ DỤ BÊN NGOÀI EXCELL LÀ SHEET "KHỐI LƯỢNG" NHƯNG NAME BÊN TRONG VBA LA "S001"). XIN CẢM ƠN.

Code lấy tên sheet hiện hành là:
ActiveSheet.Name
Còn tên sheet trong VBA (ngừoi ta gọi là Sheet code name), bạn dùng code này:
ActiveSheet.CodeName

 

[dtExcell]

Cảm ơn ndu !
Với lại mấy bạn cho hỏi thêm một vấn đề nữa
VD: tên sheet là "KL", Sheet code name "S001"
Thay vì dùng câu lệnh:
Sheets("KL").Activate
Thì phải dùng câu lệnh như thế nào để thay tên sheet bằng tên Sheet code name
Rất mong được sự giúp đỡ của các bạn

 

[Po_Pikachu]

Bạn chạy thử Sub này xem!

 Sub thu() Sheets("KL").Name = ActiveSheet.CodeName End Sub

 

[Mr Okebab]

Cảm ơn ndu !
Với lại mấy bạn cho hỏi thêm một vấn đề nữa
VD: tên sheet là "KL", Sheet code name "S001"
Thay vì dùng câu lệnh:
Sheets("KL").Activate
Thì phải dùng câu lệnh như thế nào để thay tên sheet bằng tên Sheet code name
Rất mong được sự giúp đỡ của các bạn

Thế này bạn ạ :

S001.Active

Thân!

 

[dtExcell]

Thế này bạn ạ :

S001.Active

Thân!

Không được rồi bạn ơi.
Code như thế này chỉ chạy được trong trường hợp file đó có : code và sheet có codename trong cùng 1 file.
Có trường hợp bắt buộc do yêu cầu sử dụng:code nằm trong 1 file va sheet có codename nằm ở 1 file khác thì làm thế nào.
Mong các bạn chỉ giúp với.

 

[yeudoi]

Bạn đưa tên file vào

Workbooks("yeudoi").Sheets("doiyeu").Active

 

[ndu96081631]

Thế này bạn ạ :

S001.Active

Thân!

Bạn đưa tên file vào

Workbooks("yeudoi").Sheets("doiyeu").Active

Các đại ca cứ hay sơ ý: Đáng lý là... .Activate thì lại ghi là .Active
Em cháu nhắm mắt làm theo trật lất hết
Ẹc... Ẹc...

 

[dtExcell]

Bạn đưa tên file vào

Mình chưa chạy thử nhưng nghĩ đaọn code này không được.
Chọn như vậy hình như la chọn theo tên sheet (name) chứ không phải theo codename

 

[ndu96081631]

Mình chưa chạy thử nhưng nghĩ đaọn code này không được.
Chọn như vậy hình như la chọn theo tên sheet (name) chứ không phải theo codename

Thì bạn sửa lại chổ SheetName thành SheetCodeName... Có sao đâu!
Ví dụ:

Workbooks("yeudoi").Sheets("doiyeu").Activate

Là đang chọn theo sheet name, bạn sửa thành:

Workbooks("yeudoi").S001.Activate

Với S001 là Sheet Code name trong WorkBook yeudoi

 

[dtExcell]

Thì bạn sửa lại chổ SheetName thành SheetCodeName... Có sao đâu!
Ví dụ:
Là đang chọn theo sheet name, bạn sửa thành:
Với S001 là Sheet Code name trong WorkBook yeudoi

Hic , không biết bạn có chạy thử đoạn code nào giống như vậy chưa.
Chứ mình làm như vậy không thể chạy được.
Bạn nào biết giúp mình với.
Cảm ơn mấy bạn trước.

 

[cadafi]

Không được rồi bạn ơi.
Code như thế này chỉ chạy được trong trường hợp file đó có : code và sheet có codename trong cùng 1 file.
Có trường hợp bắt buộc do yêu cầu sử dụng:code nằm trong 1 file va sheet có codename nằm ở 1 file khác thì làm thế nào.
Mong các bạn chỉ giúp với.

Tôi dùng cách này, giống với Anh OKBắp, chép vào Module chạy vô tư:

Sub Test()
S001.Activate      ''Activate chứ không phải là Active
End Sub

Còn cụ thể file của bạn chính xác là cần thêm gì nữa thì chuyển file lên để mọi người giúp. Nhìn chung mình cũng bắt đầu khó hiểu ý của bạn rồi.

 

[dtExcell]

Tôi dùng cách này, giống với Anh OKBắp, chép vào Module chạy vô tư:

Sub Test()
S001.Activate      ''Activate chứ không phải là Active
End Sub

Có lẽ bạn chưa hiểu hết ý mình ( có thể bạn chưa đọc từ đầu)
Mình viết code ở 1 file (file này không có sheet mình cần thao tác chỉ chứa code)
Còn file chứa sheet codename ở 1 file khác thì dùng code trên không thực hiện được
Nếu có thể bạn gởi 2 file tương tự như vậy được không.

 

[dtExcell]

Để mình up file lên
Bạn xem giúp.

 

[Po_Pikachu]

Vậy bạn dùng code sau nha!

Sub Test() Dim sh As Worksheet Workbooks("Book1.xls").Activate For Each sh In ThisWorkbook.Worksheets     If sh.CodeName = "S001" Then         sh.Select     End If Next End Sub

 

[ndu96081631]

Vậy bạn dùng code sau nha!

Sub Test()
Dim sh As Worksheet
Workbooks("Book1.xls").Activate
For Each sh In ThisWorkbook.Worksheets
    If sh.CodeName = "S001" Then
        sh.Select
    End If
Next
End Sub

Cần gì phải For nhỉ? Cứ S001.Select hoặc S001.Activate là được rồi...
Nếu sợ báo lổi vì S001 không tồn tại thì thêm On Error Resume Next vào

 

[pmhoang]

Có lẽ bạn chưa hiểu hết ý mình ( có thể bạn chưa đọc từ đầu)
Mình viết code ở 1 file (file này không có sheet mình cần thao tác chỉ chứa code)
Còn file chứa sheet codename ở 1 file khác thì dùng code trên không thực hiện được
Nếu có thể bạn gởi 2 file tương tự như vậy được không.

Minh đã kiểm tra theo ý của bạn, bạn dùng code này sẽ Acti Sheet 1 trong Book1.xls, Code lưu ở bất cứ file nào cũng được.

Sub Test_pmh()
Workbooks("Book1.xls").Sheets("Sheet1").Activate
End Sub

 

[pmhoang]

Làm sao de 2 code cùng Run OK

Mình có 2 Code sử dụng NameSheet Và NameVBSheet cùng thực hiện công việc tương tự nhau, Nhưng tại sao cái 1 Run OK, còn cái 2 thì Run Error, Mong bác bạn sửa lại code 2 giúp.

''-- Chuyen qua lai giua 2 Sheet
Sub Sh1_Shbandau1()
  Dim NameSh As String
  
  NameSh = ActiveSheet.Name
  MsgBox "Ten Sheet hien hanh trong Excel la: " & NameSh

  Sheet1.Activate
  MsgBox "Da chuyen qua Sheet dau tien"
  
  Sheets(NameSh).Activate
  MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & NameSh
End Sub

''-- Chuyen qua lai giua 2 Sheet??? Khong duoc??? GPE???
Sub Sh1_Shbandau2()
  Dim NameShVB As String
  
  NameShVB = ActiveSheet.CodeName
  MsgBox "Ten Sheet hien hanh trong VB la: " & NameShVB

  Sheet1.Activate
  MsgBox "Da chuyen qua Sheet dau tien"
  
  Sheets(NameShVB).Activate ''-- Dong Code nay bi Error mong cac ban gop y???
  MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & NameShVB
End Sub

 

[cadafi]

''-- Chuyen qua lai giua 2 Sheet??? Khong duoc??? GPE???
Sub Sh1_Shbandau2()
  Dim NameShVB As String
  
  NameShVB = ActiveSheet.CodeName
  MsgBox "Ten Sheet hien hanh trong VB la: " & NameShVB

  Sheet1.Activate
  MsgBox "Da chuyen qua Sheet dau tien"
  
  Sheets(NameShVB).Activate ''-- Dong Code nay bi Error mong cac ban gop y???
  MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & NameShVB
End Sub

Đoạn code này tôi không thấy có vấn đề gì cả, đã chạy thử, không báo lỗi gì cả! Bạn có thể nói rõ thông báo lỗi bạn gặp đó là gì không?

 

[ndu96081631]

Mình có 2 Code sử dụng NameSheet Và NameVBSheet cùng thực hiện công việc tương tự nhau, Nhưng tại sao cái 1 Run OK, còn cái 2 thì Run Error, Mong bác bạn sửa lại code 2 giúp.

''-- Chuyen qua lai giua 2 Sheet
Sub Sh1_Shbandau1()
  Dim NameSh As String
  
  NameSh = ActiveSheet.Name
  MsgBox "Ten Sheet hien hanh trong Excel la: " & NameSh

  Sheet1.Activate
  MsgBox "Da chuyen qua Sheet dau tien"
  
  Sheets(NameSh).Activate
  MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & NameSh
End Sub

''-- Chuyen qua lai giua 2 Sheet??? Khong duoc??? GPE???
Sub Sh1_Shbandau2()
  Dim NameShVB As String
  
  NameShVB = ActiveSheet.CodeName
  MsgBox "Ten Sheet hien hanh trong VB la: " & NameShVB

  Sheet1.Activate
  MsgBox "Da chuyen qua Sheet dau tien"
  
  Sheets(NameShVB).Activate ''-- Dong Code nay bi Error mong cac ban gop y???
  MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & NameShVB
End Sub

Thử sửa lại thành:

Sub Sh1_Shbandau2()
  Dim NameShVB As Worksheet
  
  Set NameShVB = ActiveSheet
  MsgBox "Ten Sheet hien hanh trong VB la: " & NameShVB.CodeName

  Sheet1.Activate
  MsgBox "Da chuyen qua Sheet dau tien"
  
  NameShVB.Activate
  MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & NameShVB.CodeName
End Sub

Lúc đầu tôi chạy code cũng báo lỗi đúng ngay dòng mà bạn nói ---> Giờ chạy lại thì bình thường ---> Chẳng hiểu nữa
---------------------
Bạn lưu ý: Sheet1 không phải là Sheet đầu tiên đâu nha
Sheets(1) mới là sheet đầu tiên nè

 

[pmhoang]

Đoạn code này tôi không thấy có vấn đề gì cả, đã chạy thử, không báo lỗi gì cả! Bạn có thể nói rõ thông báo lỗi bạn gặp đó là gì không?

Lỗi xẫy ra khi bạn Rename Tên Sheet (không còn là tên mặcđịnh nữa)
Và bạn chạy Code ở nhưng Sheet đã sửa tên đó.

Minh hoa file goi kem

 

[ndu96081631]

Lỗi xẫy ra khi bạn Rename Tên Sheet (không còn là tên mặcđịnh nữa)
Và bạn chạy Code ở nhưng Sheet đã sửa tên đó.

Minh hoa file goi kem

Vậy thì sửa như tôi đã nói ở trên là OK ngay

Sub Sh1_Shbandau2()
  With ActiveSheet
    MsgBox "Ten Sheet hien hanh trong VB la: " & .CodeName
    Sheets(1).Activate
    MsgBox "Da chuyen qua Sheet dau tien"
    .Activate
    MsgBox "Da chuyen ve Sheet hien hanh ban dau la: " & .CodeName
  End With
End Sub

Nói thêm vể Sheets Properties
Theo tôi biết thì ở bên trong Sheets(???) phải là SheetName chứ không thể là SheetCodeName
Bạn cứ thử 1 file có 2 sheet
Sheet1 có SheetName là ndu1
Sheet2 có SheetName là ndu2
Dùng đoạn code dưới đây:

Sub Test()
 Sheets("ndu2").Activate
End Sub

thì nó hoạt động bình thường
Còn nếu bạn sửa lại:

Sub Test()
 Sheets("Sheet2").Activate
End Sub

hoặc

Sub Test()
 Sheets(Sheet2).Activate
End Sub

thì ... quên đi ---> Không bao giờ chạy được

 

[pmhoang]

Vậy thì sửa như tôi đã nói ở trên là OK ngay

2 Đoạn Code của bạn trong 2 bài Run rất OK. Thanks bạn nhiều.

Giả sử mình không đùng Sheet.Name va Sheet.CodeName mà mình sử dụng thứ thự của Sheet có được hông?
Mình không biết lệnh nào để lấy số thứ tự của ActiSheet???

Bạn hãy thay số thứ tự của Sheet vào 1 trong các Code chuyển sheet giúp mình với.

 

[cadafi]

Giả sử mình không đùng Sheet.Name va Sheet.CodeName mà mình sử dụng thứ thự của Sheet có được hông?
Mình không biết lệnh nào để lấy số thứ tự của ActiSheet???

Bạn dùng code sau:

Activesheet.Index

 

[ndu96081631]

2 Đoạn Code của bạn trong 2 bài Run rất OK. Thanks bạn nhiều.

Giả sử mình không đùng Sheet.Name va Sheet.CodeName mà mình sử dụng thứ thự của Sheet có được hông?
Mình không biết lệnh nào để lấy số thứ tự của ActiSheet???

Bạn hãy thay số thứ tự của Sheet vào 1 trong các Code chuyển sheet giúp mình với.

Như Ca_dafi nói, đó là .Index ---> Lấy thứ tự sheet
Lưu ý: Thứ tự ở đây là vị trí, tính từ trái sang phải, không liên quan gì đến SheetName và SheetCodeName cả ---> Dời sheet sang nơi khác thì thứ tự của nó cũng thay đổi theo
----> Ở mấy bài trước tôi có nói với bạn Sheets(1) là sheet đầu tiên đấy thôi

 

[Mr Okebab]

Minh đã kiểm tra theo ý của bạn, bạn dùng code này sẽ Acti Sheet 1 trong Book1.xls, Code lưu ở bất cứ file nào cũng được.

Sub Test_pmh()
Workbooks("Book1.xls").Sheets("Sheet1").Activate
End Sub

Chú ý bẫy lỗi :

Trước hết phải kiểm tra có File Book1.xls hay không ??
Sau đó xem nó có đang được mở hay không ??
Và xem nó có chứa Sheet1 hay không ??

Thân!

 

[dungkhmt]

Các bạn cho mình hỏi là:
mình dùng hàm lấy codename bị lỗi hàm lấy name thì ok.
Mình viết như thế này


sub layten()
dim rec as string
rec= activesheet.codename// báo lỗi dòng này
msgbox rec

end sub

 

[sealand]

Tôi khẳng định code này không lỗi trừ phi bạn vẫn để đoạn ghi chú sau 2 gạch chéo.
Lần sau tất cả các ghi chú nên kèm theo 1 nháy đơn ( ' ) . Kể cả có để trong code khi chạy không lỗi, khi soạn thảo VBA không bị báo lỗi.

 

[dungkhmt]

mình biết tại sao rồi, thanks b! mình tạo sheet macro4 nên nó không có code name

 

[ndu96081631]

mình biết tại sao rồi, thanks b! mình tạo sheet macro4 nên nó không có code name

Nhân tiện đố mọi người biết làm cách nào xác định được 1 sheet là Worksheet hay Macro Sheet hay.... vân vân ---> Đại khái xác định kiểu của 1 sheet nào đó
Ẹc... Ẹc...

 

[Hoàng Trọng Nghĩa]

Nhân tiện đố mọi người biết làm cách nào xác định được 1 sheet là Worksheet hay Macro Sheet hay.... vân vân ---> Đại khái xác định kiểu của 1 sheet nào đó
Ẹc... Ẹc...

Lâu lâu lôi bài cũ lên trả lời chơi.

Chọn vào sheet hiện hành, trong Immediate, gõ câu lệnh

?ActiveSheet.Type

Kết quả ra giá trị (Value) nào thì tra tại bảng này:

 

[Hoàng Trọng Nghĩa]

Sẳn đây tôi muốn hỏi:

Tôi có 2 file đang mở, tạm gọi File1 và File2, code từ File1 muốn ghi gì đó cho File2.

Giả sử File2 có 2 sheet lần lượt có tên là "HoangTrongNghia_1", "HoangTrongNghia_2", còn SheetCodeName lần lượt là "Nghia_1", "Nghia_2"

Tôi muốn lấy giá trị của Range("A1") của File1 gán cho ô B1 của sheet1 và C5 của sheet2 của File2

Tôi làm như sau:

Tại File1 tôi viết code:

Sub Test()
    Dim GiaTriFile1 As Long
    GiaTriFile1 = Sheet4.Range("A1").Value
    With Workbooks("File2")
[COLOR=#ff0000]        .Sheets("HoangTrongNghia_1").Range("B1") = GiaTriFile1[/COLOR]
[COLOR=#ff0000]        .Sheets("HoangTrongNghia_2").Range("C5") = GiaTriFile1[/COLOR]
    End With
End Sub

Nếu tôi đổi 2 dòng màu đỏ với tên là CodeName, tức "Nghia_1" và "Nghia_2" thì tôi phải viết như thế nào? Tức không động chạm gì đến Name của Sheet hết?

 

[khuongvietphong]

Các đại ca cứ hay sơ ý: Đáng lý là... .Activate thì lại ghi là .Active
Em cháu nhắm mắt làm theo trật lất hết
Ẹc... Ẹc...

Con đang đọc cuốn sách" Lập trình VBA cho người mới bắt đầu" của tác giả Phan Tự Hướng và sau khi đọc qua bài viết này bây giờ con mới để ý có chỗ thì tác giả dùng Active có chỗ thì tác giả lại dùng Activate nhưng không biết phân biệt 2 cái này khác nhau như thế nào. Con đã thử tìm trên diễn đàn nhưng không tìm thấy đề tài nào nói về sự khác nhau giữa cái này. Mong chú Ndu giải thích giùm con với ạ, khi nào thì ta dùng Active và khi nào thì ta lại dùng Activate.

 

[doveandrose]

Con đang đọc cuốn sách" Lập trình VBA cho người mới bắt đầu" của tác giả Phan Tự Hướng và sau khi đọc qua bài viết này bây giờ con mới để ý có chỗ thì tác giả dùng Active có chỗ thì tác giả lại dùng Activate nhưng không biết phân biệt 2 cái này khác nhau như thế nào. Con đã thử tìm trên diễn đàn nhưng không tìm thấy đề tài nào nói về sự khác nhau giữa cái này. Mong chú Ndu giải thích giùm con với ạ, khi nào thì ta dùng Active và khi nào thì ta lại dùng Activate.

dùng activate khi bạn muốn chọn sheet hoặc range nào đó
dùng active khi bạn muốn nhận được thông báo "Object doesnt support this property" hoặc "method or data member not found"

 

[khuongvietphong]

dùng activate khi bạn muốn chọn sheet hoặc range nào đó
dùng active khi bạn muốn nhận được thông báo "Object doesnt support this property" hoặc "method or data member not found"

Câu trên thì em có thể hiểu được chứ câu dưới thì em chịu thua, anh có thể giải thích dễ hiểu hơn một chút được không.
Em mới bập bẹ với VBA được mấy bữa mà anh đã phang những từ ngữ chuyên sâu : "Object doesnt support this property" hoặc "method or data member not found" thế thì quả thực hơi khó hiểu.

 

[doveandrose]

Câu trên thì em có thể hiểu được chứ câu dưới thì em chịu thua, anh có thể giải thích dễ hiểu hơn một chút được không.
Em mới bập bẹ với VBA được mấy bữa mà anh đã phang những từ ngữ chuyên sâu : "Object doesnt support this property" hoặc "method or data member not found" thế thì quả thực hơi khó hiểu.

đôi khi với người nghiêm túc quá nói chơi cũng kì .
activate là tên chính xác
active là do nhầm lẫn trong đánh máy . không có phương thức nào có tên này khi áp dụng trên các sheet hoặc range .

 

[Hau151978]

Câu trên thì em có thể hiểu được chứ câu dưới thì em chịu thua, anh có thể giải thích dễ hiểu hơn một chút được không.
Em mới bập bẹ với VBA được mấy bữa mà anh đã phang những từ ngữ chuyên sâu : "Object doesnt support this property" hoặc "method or data member not found" thế thì quả thực hơi khó hiểu.

Activate là phương thức tương tự như động từ, ví dụ lệnh Sheet1.Activate sẽ làm sheet1 thành sheet hiện hành (ActiveSheet).
Active tương tự như tính từ, không dùng đơn độc mà phải ghép với đối tượng như ActiveSheet là sheet hiện hành, ActiveCell là ô hiện hành. Lệnh ActiveSheet.Name sẽ trả về tên hoặc gán tên mới của sheet hiện hành.

 

[VetMini]

... có chỗ thì tác giả dùng Active có chỗ thì tác giả lại dùng Activate nhưng không biết phân biệt 2 cái này khác nhau như thế nào...

Trong tiếng Anh
Activate là động từ (verb), có nghĩa là "đưa vào trạng thái hoạt động"
Active là tĩnh từ (adjective), có nghĩa là "đang trong trạng thái hoạt động"
Lưu ý từ "trạng thái"
Trong lập trình, trạng thái là thuộc tính (attribute) của cá thể/đối tượng (object). Động tác là phuơng thức (method) của đối tượng/lớp.

Phương thức có thể có tác dụng nội (thay đổi thuộc tính của chính đối tượng), hay tác dụng ngoại (thay đổi thuộc tính của môi trường hoặc đối tượng khác); hay cả nội lẫn ngoại; hay không thay đổi gì cả (loại hàm chỉ đưa về thông tin)

Ví dụ điển hình là đối tượng của lớp Sheet. Active là một thuộc tính kín (code không thấy được) của từng đối tượng Sheet. Activate là phương thức mà lúc gọi lên thì nó chuyển Active của sheet gọi nó là true và Active của các sheets khác là false.

 

[duyanhhcm]

Bạn dùng code sau:

Activesheet.Index

cảm ơn bạn, đúng ý mình đang tìm hiểu. đổi tên kiểu gì cũng chạy
Thay bằng trước đây phải gõ (Worksheets("VLXD").Activate) với điều kiện tên sheet đúng là "VLXD", lệch sẽ ko chạy
Giờ thay code bằng (Worksheets(Activesheet.Index).Activate) là ok, đổi tên sheet tẹt, chỉ cần là sheet hiện hành là ok

 

[batman1]

Giờ thay code bằng (Worksheets(Activesheet.Index).Activate) là ok,

Mình tầm thường quá nên không hiểu ý lớn vĩ đại

Worksheets(Activesheet.Index).Activate

Tức là đưa Activesheet vào trạng thái hoạt động? Nếu sheet đang đeo huy hiệu "Activesheet" thì sao lại đưa nó vào trạng thái hoạt động? Nếu sheet đang Active - đang trong trạng thái hoạt động thì tại sao lại phải đưa nó vào trạng thái hoạt động? Để cho chắc chắn 200% là sheet ấy sẽ ở trong trạng thái hoạt động?

 

[huuthang_bd]

Mình tầm thường quá nên không hiểu ý lớn vĩ đại

Worksheets(Activesheet.Index).Activate

Tức là đưa Activesheet vào trạng thái hoạt động? Nếu sheet đang đeo huy hiệu "Activesheet" thì sao lại đưa nó vào trạng thái hoạt động? Nếu sheet đang Active - đang trong trạng thái hoạt động thì tại sao lại phải đưa nó vào trạng thái hoạt động? Để cho chắc chắn 200% là sheet ấy sẽ ở trong trạng thái hoạt động?

Chưa kể còn bị sai nếu có sheet không phải là worksheet đứng trước Activesheet