Đã 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
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
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?
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 ạ
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 .
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.
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
Sub bt1() Dim soa, sob As Integer soa = InputBox("Moi nhap so a: ") sob = InputBox("Moi nhap so b: ") Cells(3, 1) = soa Cells(4, 1) = sob Cells(5, 1) = ("Tong cua 2 so la: ") & soa + sob End Sub
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 ?
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!
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
Đã 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.
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
Đâ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
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.
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
hay quá bác ơi .
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.
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 bạn vì nhug clip có tâm này rẩ dễ hiểu
Quá hay, quá tâm huyết gà ơi. Cám ơn Gà excel nhé.❤
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
Hay quá a ơi, e đang muốn học về vba thấy bài của a mừng quá
quá tâm huyết, quá tuyệt vời
Video hướng dẫn sử dụng excel hữu ích
Hay và rất dễ hiểu. Cảm ơn AD rất nhiều
Biết ơn tâm huyết của anh Gà ạ 😊🎉
Cảm ơn gà nhé.
hóng video tiếp theo của bạn. Thân
Cảm ơn A nhiều nha.😍🙏🙏🙏
Em cảm ơn Thầy Gà ạ
Hoan hô Gà excel
Thầy gà số 1
Cảm ơn tâm huyết của thầy
Cảm ơn anh Gà
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?
Bạn hướng dẫn đổi chữ thường thành chữ hoa trong excel sau khi nhập liệu.
Mong video tiếp theo quá thầy Gà ơi!
video phát hành trong tuần vào ngày nào ạ? hóng quá, đang cần luôn
Hay quá Gà ơi 😘😘😘😘
Tuyệt vời gà
tâm huyết quá anh ơi
Hay quá, cảm ơn bạn 🎉
thanks
Hay quá ạ ❤❤❤
thanks
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á ad
Cám ơn ad ạ
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 .
bài hd rất hay
thêm video vba đi anh đợi cả tuần mà anh chưa ra video mới
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 ạ.
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.
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ỉ?
Để học được cái này thì mấy tính cài win bao nhiêu em
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
tks ad nhiều
mình mong ngày này lâu rồi :)
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
Sub bt1()
Dim soa, sob As Integer
soa = InputBox("Moi nhap so a: ")
sob = InputBox("Moi nhap so b: ")
Cells(3, 1) = soa
Cells(4, 1) = sob
Cells(5, 1) = ("Tong cua 2 so la: ") & soa + sob
End Sub
Anh có lớp đào tạo nào ko ạ
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 ?
Bạn xem để định dạng Enable- macro chưa
a oi sao e nhập code chữ nó hiện màu đen nhỉ? như vậy là ko đúng nhỉ
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 ạ?
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
😍
😀😀
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
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
Cảm ơn bro