VBA Trong Excel Cơ Bản Đến Nâng Cao | Bài 01 VBA Trong Excel Là Gì
Вставка
- Опубліковано 6 жов 2024
- Đây là khóa học lập trình VBA Trong Excel từ cơ bản dến nâng cao được phát miễn phí trên kênh youtube Gà Excel
Nội dung khóa học 10 bài gồm:
Bài 1: VBA trong Excel là gì
Bài 2: Các thành phần cơ bản của 1 chương trình
Bài 3: Record Macro
Bài 4: Cách truy cập vào File, Sheet, Range và Cells
Bài 5: Biến Trong Excel
Bài 6: Vòng lặp
Bài 7: Lập trình sự kiện
Bài 8: Sử dụng User Form
Bài 9: Tự tạo Function và cài đặt Add-ins cho nó
Bài 10: Tương tác bên ngoài Excel (như file txt, csv, folder,…)
-- Contact --
👉 Email: excel.chicken@gmail.com
-- Donate --
💸 Paypal: excel.chicken@gmail.com
💸 ViettinBank: 101871902505 Nguyễn Văn Trí
--------------
Link tải file thực hành: Bài này không có file thực hành
-----------------
#Gaexcel #Gà_excel #ExcelChicken #CungHocExcel #ExcelCoBan #ExcelNangCao
Đã xong bài tập về nhà, chờ thầy Gà ra bài tiếp theo quá đi!
Sub ChoSheet2 ()
Dim numb1 As Integer
Dim numb2 As Integer
numb1 = InputBox("Nhap so nguyen thu nhat ")
numb2 = InputBox("Nhap so nguyen thu hai ")
Cells (3, 1) = numb1
Cells (4, 1) = numb2
Cells(6, 1) "Tong 2 so la " & numbl + numb2
End Sub
Tuyệt bạn ơi.
Cám ơn anh, a dạy rất dễ hiểu. Em nộp bài nha a Gà:
Sub Tinhtong()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("Moi Nhap Gia Tri a: ")
Cells(3, 1) = a
b = InputBox("Moi Nhap Gia Tri b: ")
Cells(4, 1) = b
Cells(5, 1) = "Tong 2 gia tri la :"
c = a + b
Cells(5, 2) = c
MsgBox "Tong 2 gia tri la: " & c
End Sub
Chúc bạn thành công! Tuy nhiên chú ý là inputbox trả về kiểu chuỗi nên nếu bạn lấy c=a+b thì cẩn thận "1"+"1" = "11" nhé. c = int(a)+int(b) đi. Khi xuất thì dùng str(c). Khai báo Dim a,b,c as integer cho nhanh
Cảm ơn bạn đã có công chia sẻ kiến thức cho cộng đồng. Chúc bạn nhiều sức khỏe và gặp nhiều may mắn.
Mày mò lúc cũng tính ra, cảm ơn anh Gà excel, đang cần nhiều những kiến thức của anh
Yêu thầy gà nhiều lắm❤❤❤. Thực tế, xúc tích và dễ hiểu
Anh Gà ơi ! Tết này em chỉ học tin trên kênh . Biết ơn anh Gà lắm
Cảm ơn anh Gà Excel, mong chờ những video tiếp theo từ anh.
Hay và rất dễ hiểu. Cảm ơn AD rất nhiều
Đây là 1 kênh rất hữu ích. Tôi sẽ luôn ủng hộ kênh, mong kênh ngày càng phát triển
quá tâm huyết, quá tuyệt vời
Cảm ơn bạn vì nhug clip có tâm này rẩ dễ hiểu
cảm ơn Gà nhiều, quá hữu ích và hay ạ
Xem kênh của thầy gà mà mình tiến bộ excel rất nhiều. Cảm ơn thầy
Video hướng dẫn sử dụng excel hữu ích
Biết ơn tâm huyết của anh Gà ạ 😊🎉
Quá hay, quá tâm huyết gà ơi. Cám ơn Gà excel nhé.❤
Hay quá gà chờ mãi cũng ra. Mãi yêu món gà luộc chấm lá chanh muối tiêu ạ !
Cảm ơn gà nhé.
Hay quá a ơi, e đang muốn học về vba thấy bài của a mừng quá
Bạn hướng dẫn đổi chữ thường thành chữ hoa trong excel sau khi nhập liệu.
Cảm ơn tâm huyết của thầy
Em cảm ơn Thầy Gà ạ
thanks
Cảm ơn A nhiều nha.😍🙏🙏🙏
hóng video tiếp theo của bạn. Thân
video phát hành trong tuần vào ngày nào ạ? hóng quá, đang cần luôn
thêm video vba đi anh đợi cả tuần mà anh chưa ra video mới
Cảm ơn anh Gà
Em đang tìm hiểu về VBA,
Các bác cho em hỏi có cách nào đặt lệnh trong khoảng thời gian cài đặt ( ví dụ 30 ngày) thì sẽ xóa hết dữ liệu ở vùng chỉ định ( vùng này có thể là code VBA có thể là dữ liệu trong ô cell)
Điều kiện kích hoạt đoạn code xóa dữ liệu là mở file lên lần đầu tiên, trong quá trình đếm thời gian file vẫn hoạt động bình thường ạ.
Cảm ơn các bác đã chú ý bài viết .
Hay quá, cảm ơn bạn 🎉
Thầy gà số 1
Thầy ơi, giúp em giải bài này với: các a, b, c, d1, d2, d3 là các số tự nhiên, d1, d2, d3 là các số dư. Tìm số tự nhiên M, biết (M - d1) chia hết cho a, (M -d2) chia hết cho b, (M - d3) chia hết cho c. Ví dụ: (A -1) chia hết cho 3; (A - 2) chia hết cho 5 và (A - 4) chia hết cho 7. Tìm A? thi code VBA se viet nhu the nao?
tâm huyết quá anh ơi
bài hd rất hay
Mong video tiếp theo quá thầy Gà ơi!
cho mình hỏi sao file excel có chứa macro của mình cứ mỗi lần có thay đổi cần lưu lại nó lại bắt mình lưu thành file mới. có cách nào để lưu trên file cũ không, ? hay cứ phải lưu file mới hoài ?
Cảm ơn bro
Tuyệt vời gà
Cám ơn ad ạ
anh Gà ơi em xài macbook, khi mở visual basic ra nó không hiện thanh menu, làm sao để hiển thị thanh menu ạ, em cảm ơn nhiều ạ.
Hoan hô Gà excel
Sub tinhtong()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("Nhap gia tri so a: ")
Cells(3, 1) = a
b = InputBox("Nhap gia tri so b: ")
Cells(4, 1) = b
c = a + b
Cells(7, 1) = c
MsgBox ("Ket qua la ") & c
End Sub
mình mong ngày này lâu rồi :)
mình bị lỗi khi in hàng loạt, autofitrow dãn dòng k kịp lên in da toàn bị thiếu đầu mục công việc thực hiện. cho em hỏi có cách nào khắc phục k ạ, em cảm ơn.
sao mình gõ chữ gà excel vào inputbox lát ra cell với msgbox nó thành ga` Excel luôn vậy thầy, thầy hướng dẫn em gõ dấu với
Để học được cái này thì mấy tính cài win bao nhiêu em
Ad ơi cho hỏi tại sao mình làm theo video nó lại hiện bảng thông báo marcro là thế nào nhỉ?
add cho e hỏi: khi mình nhập văn bản vào phàn soạn thảo. màn hình lại hiển thị một hộp soạn thảo văn bản có mũi tên cuộn trọn màu xanh, khi nào mình ấn dấu cách thì nó mới cho văn bản xuất hiện trên vùng soạn thảo
e muốn bỏ cái hộp đó thì phải làm thê s nào ạ
Hay quá ạ ❤❤❤
Hay quá Gà ơi 😘😘😘😘
Hay quá ad
Anh có lớp đào tạo nào ko ạ
Thầy ơi, Excel trên Mac em thấy nó không có đường dẫn thẻ File => Options => Customize Ribbon => Developer. Mình có thể tìm thẻ Developer ở đâu ạ,
em cám ơn Thầy!
a oi sao e nhập code chữ nó hiện màu đen nhỉ? như vậy là ko đúng nhỉ
Chờ 1 ngày gà làm về vba. Giờ mới đc học.
Liệu 35 tuổi học có muộn quá k gà ơi.
cam thay muon thi dung hoc
anh ơi, sao của em nso k hiện modules ạ?
Sub tinhtong()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("Moi nhap gia tri a:")
Cells(3, 1) = a
b = InputBox("Moi nhap gia tri b:")
Cells(4, 1) = b
c = a + b
Cells(5, 1) = c
MsgBox "Tong 2 gia tri la:" & c
End Sub
😍
😀😀
Sub say_hi()
Dim a, b As Integer
Dim str As String
str = InputBox(" ho ten ban: ")
Cells(1, 2) = str
MsgBox "chao" & " " & str
a = InputBox(" Nhap a : ")
Cells(3, 2) = a
b = InputBox(" Nhap b : ")
Cells(4, 2) = b
Cells(5, 2) = a + b
MsgBox "Tong 2 so la" & a + b
End Sub
' xoa du lieu
Sub clear_data_2()
ThisWorkbook.Sheets("unit 2").Range("A1:B2") = ""
End Sub
tks ad nhiều