VBA Nâng cao: Ứng dụng Mảng, SQL trong Excel và VBA

nntien

Ad có thể làm video chia sẻ cách tạo form đăng nhập và phân quyền vào SQL sever ko?

Tuấn Ba [Chuyên gia]

Phân quyền vba với trường hợp này hơi khó, cái này phải sử dụng cách tạo db trong sqlsever rồi mới sử lý được.

Nguyễn Minh Hào

Thầy hướng dẫn cho em đặt pas cho file access và lấy dữ liệu từ file access đang khoá ạ

Tuấn Ba [Chuyên gia]

Sub RunSQLQuery()
Dim SQLQuyery As String, dc As Long, kq As Variant
dc = TEAMCDPS.Range("A" & TEAMCDPS.Rows.Count).End(xlUp).Row
If dc >= 2 Then TEAMCDPS.Range("A2:ADO" & dc).ClearContents
kq = QuerySQL("select * from data", "D:\desktop C\Phammemketoan\Proexcel\Bunoca\Bunoca.ACCDB", True, "LUONGGIAMINH")
If IsArray(kq) Then
TEAMCDPS.Range("A3").Resize(UBound(kq, 1), UBound(kq, 2) + 1) = kq
Else
TEAMCDPS.Range("A3").Value = kq
End If
End Sub
bạn làm như sâu nhé.

Nguyễn Minh Hào

Thầy hướng dẫn em code đặt mất khẩu cho file access và lấy dữ liệu từ file access đang khoá với ạ. em cảm ơn

Tuấn Ba [Chuyên gia]

Nguyen Dinh Chieu

Sub RenameShape()

Dim objName

On Error GoTo CheckErrors

If ActiveWindow.Selection.ShapeRange.Count = 0 Then

Exit Sub

End If

objName = ActiveWindow.Selection.ShapeRange(1).Name

objName = InputBox$("Đổi tên cho Shape bằng tên mới", "Rename Shape", objName)

If objName <> "" Then

ActiveWindow.Selection.ShapeRange(1).Name = objName

End If

Exit Sub

CheckErrors:

MsgBox Err.Description

End Sub

Trợ Giảng Gitiho

Dạ vâng Anh/Chị tham khảo mã code này ạ.

Sub RenameShapes()
Dim shp As Shape
Dim i As Integer

' Khởi tạo bộ đếm
i = 1

' Duyệt qua từng shape trên sheet hiện tại
For Each shp In ActiveSheet.Shapes
' Đổi tên shape
shp.Name = "Shape" & i
' Tăng bộ đếm lên
i = i + 1
Next shp

' Thông báo hoàn thành
MsgBox "Đã đổi tên xong toàn bộ các shape trên sheet.", vbInformation
End Sub

Nguyen Dinh Chieu

Em muốn đổi tên tự động toàn bộ các shape trong 1 sheet bằng chương trình vba thì có code nào để đổi được không ạ. Xin cảm ơn

Trợ Giảng Gitiho

Dạ vâng Anh/Chị tham khảo mã code này ạ.

Sub RenameShapes()
Dim shp As Shape
Dim i As Integer

' Khởi tạo bộ đếm
i = 1

' Duyệt qua từng shape trên sheet hiện tại
For Each shp In ActiveSheet.Shapes
' Đổi tên shape
shp.Name = "Shape" & i
' Tăng bộ đếm lên
i = i + 1
Next shp

' Thông báo hoàn thành
MsgBox "Đã đổi tên xong toàn bộ các shape trên sheet.", vbInformation
End Sub

Đánh giá của học viên

5/5

3 Đánh giá và nhận xét

100 %
0 %
0 %
0 %
0 %

Nguyen thi huyen trang

09:41 12/11/2021

Khóa học hay và bổ ích, giúp cho công việc của mình rất nhiều ạ. Phần array giúp mình có thể làm việc được với dữ liệu và các điều kiện trong nhiều cột. Có thể thay thế một số công thức advanced filter hay sumifs với các điều kiện về thời gian!, nhóm hàng khi sử dụng dictionary

Duc Anh Nguyen

04:39 25/08/2021

Khóa học rất hữu ích.

IT_9

12:46 06/08/2021

Khoá học rất hay và ý nghĩa, phục vụ nhiều những vấn đề mở rộng của VBA, Excel để xử lý các bài toán thực tế. Giảng viên Thầy Tuấn Ba rất nhiệt tình và hỗ trợ học viên. Mình xin gửi lời cảm ơn tới khoá học, giảng viên của Gitiho đặc biệt là Thầy Tuấn Ba. Trân trọng!

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

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

VBAG02 - Ứng dụng Mảng, SQL và các Công cụ Nâng cao khác trong Excel và VBA

Phần 1: Ứng dụng SQL trong Excel và VBA

Phần 2: Ứng dụng Mảng trong VBA và Excel

Phần 3: Kết hợp Mảng, Function để tạo Function cho SQL trên Excel

Phần 4: Các Ứng dụng Nâng cao khác bằng việc sử dụng Dictionary trong VBA

Phần 5: Sử dụng SQL

Tại sao bạn nên chọn khóa học tại Gitiho?

Mục tiêu khi tham gia khóa học?

Ai có thể tham gia khóa học?