Gitiho contest

Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.

Chương trình hội viên Gitiho

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

480+ khóa học

15 Danh mục theo kỹ năng, ngành nghề

Năng lực Lõi, Năng lực Chuyên môn, Năng lực Bổ trợ, Năng lực Quản lý

Khám phá ngay

2000+ đã đăng ký

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

83 khóa học Tin học văn phòng

85 khóa học Kỹ năng mềm

29 khóa học Ngoại ngữ

Khám phá ngay

500+ đã đăng ký

Gitiho for leading business

Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.

Đã được tin tưởng sử dụng bởi các doanh nghiệp

  1. Trang chủ
  2. Hỏi đáp
  3. Trang chủ
  4. Hỏi đáp
Lâm Hoàng Phước
Lâm Hoàng Phước
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 264 lượt xem

Làm thế nào để kiểm tra Sheet Name trong VBA?

Mình muốn tạo 1 sheet có tên Sheets("ABC") xác định sheet có tồn tại trong Workbook hay không. Nếu có thì thoát Sub thì làm như nào vậy ad ?

Thảo luận 1 câu trả lời
Lượt xem 264 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Lâm Hoàng Phước 09:08 - Aug 31, 2022

Bạn có thể viết code như sau:

Dim i As Long

For i = 1 To Worksheets.Count
   If Worksheets(i).Name = "ABC" Then
       Exit Sub
   End If
Next i

Vỗ tay vỗ tay
Câu hỏi liên quan
Sub Dong_Cuoi() Dim Dongcuoi As Long Dim WB As Workbook Set WB = Workbooks.Open("D:\gia von\ret.xlsx") Dongcuoi = WB2.Sheet1.Range("A" & Rows.Count).End(xlUp).Row WB2.Sheet1.Range("H2").Value = Dongcuoi End Sub Thầy ơi em dùng code name như trên thì bị báo lỗi. dùng như phía dưới thì...
Ý nghĩa sử dụng của code name và name có khác gì nhau không ha thầy?
Thưa thầy! Tại sao trong phần code name, file VBA của tệp tin bài giảng lại có dấu gạch dưới _ ạ?
Nếu tên sheettab mà viết bằng Tiếng Việt có dấu thì khi gọi sheet trong VBA theo tên sheet tab thì em thấy bị lỗi ạ?!
Cái này để viết code ngắn gọn nên vào đặt lại tên sheet bằng cách nhấn Ctrl + F11 sau đó chọn sheet (cấn đặt lại tên) nhấn F4
Dim DongCuoi1 As Long Dim DongCuoi2 As Long Dim WB1 As Workbook Dim DL As Worksheets Set DL = ThisWorkbook.Sheets("Dulieu") Em chạy code đến dòng này đã bị lỗi "Subscrip out of range" là sao ạ
Normal 0 false false false EN-US X-NONE X-NONE /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin-top:0in;...
Sub MapDuLieu() Dim DongCuoi1 As Long Dim DongCuoi2 As Long Dim i As Integer Dim j As Integer DongCuoi1 = ThisWorkbook.Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row DongCuoi2 = ThisWorkbook.Sheets("Map").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To DongCuoi1 For j = 2 To DongCuoi2...
Mình muốn copy giá trị 1 ô từ Thisworkbook sang activeworkbook thì có thể dùng câu lệnh dưới không ? Thisworkbook.Sheet1.Range("H7").value =ActiveWorkbook.Sheet2.Range("H7").Value
tính giá trị trung bình của các giá trị vừa nhập vào tại một số ô bất kỳ thì có thể dùng “Dong Cuoi” được không ạ? Thanks!
Scroll Top Top

Hỗ trợ khách hàng

VỀ GITIHO

hợp tác và liên kết

Tải App Gitiho

Kết nối với chúng tôi

Địa chỉ văn phòng: Phòng 302, tầng 3, Tòa nhà Tây Hà, KĐT mới Phùng Khoang, Phường Trung Văn, Quận Nam Từ Liêm, Thành phố Hà Nội, Việt Nam
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông