ไม่สามารถเล่นวิดีโอนี้
ขออภัยในความไม่สะดวก
VBA Trong Excel Cơ Bản Đến Nâng Cao | Bài 01 VBA Trong Excel Là Gì
ฝัง
- เผยแพร่เมื่อ 8 พ.ย. 2022
- Đâ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
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.
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
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
Đã 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.
Yêu thầy gà nhiều lắm❤❤❤. Thực tế, xúc tích và dễ hiểu
Cảm ơn anh Gà Excel, mong chờ những video tiếp theo từ anh.
Cảm ơn bạn vì nhug clip có tâm này rẩ 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
Hay và rất dễ hiểu. Cảm ơn AD rất nhiều
Video hướng dẫn sử dụng excel hữu ích
quá tâm huyết, quá tuyệt vời
cảm ơn Gà nhiều, quá hữu ích và hay ạ
Đâ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
Biết ơn tâm huyết của anh Gà ạ 😊🎉
Cảm ơn gà nhé.
Bạn hướng dẫn đổi chữ thường thành chữ hoa trong excel sau khi nhập liệu.
Xem kênh của thầy gà mà mình tiến bộ excel rất nhiều. Cảm ơn thầy
Quá hay, quá tâm huyết gà ơi. Cám ơn Gà excel nhé.❤
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
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 A nhiều nha.😍🙏🙏🙏
Cảm ơn tâm huyết của thầy
Em cảm ơn Thầy Gà ạ
hóng video tiếp theo của bạn. Thân
Hay quá a ơi, e đang muốn học về vba thấy bài của a mừng quá
Cảm ơn anh Gà
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
Hay quá, cảm ơn bạn 🎉
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 .
Mong video tiếp theo quá thầy Gà ơi!
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?
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ỉ?
bài hd rất hay
tâm huyết quá anh ơi
Thầy gà số 1
thanks
thêm video vba đi anh đợi cả tuần mà anh chưa ra video mới
Cám ơn ad ạ
video phát hành trong tuần vào ngày nào ạ? hóng quá, đang cần luôn
Hoan hô Gà excel
Tuyệt vời gà
Cảm ơn bro
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.
tks ad nhiều
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 ?
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á Gà ơi 😘😘😘😘
Hay quá ạ ❤❤❤
mình mong ngày này lâu rồi :)
Hay quá ad
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
Để học được cái này thì mấy tính cài win bao nhiêu em
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!
anh ơi, sao của em nso k hiện modules ạ?
Anh có lớp đào tạo nào ko ạ
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
😍
😀😀
a oi sao e nhập code chữ nó hiện màu đen nhỉ? như vậy là ko đúng nhỉ
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