Chào anh/chị, em có tạo file yêu cầu đăng nhập bằng username với password. Trong đó: "costing" cho phép chỉnh sửa data nhưng "purchase" chỉ được đọc.
Nay em muốn cấp thêm quyền cho "purchase" có thể sort/filter để tìm kiếm theo keyword nhanh hơn thì làm cách nào ạ?
Em gửi file của em cho anh/chị...
Em có file excel này sử dụng công thức và marco, nhưng em muốn khi em chọn tháng và năm thì sau khi save nó sẽ lưu lại trên file luôn và khi chọn tháng khác làm thì dữ liệu của tháng cũ vẫn còn lưu ở đó luôn.
VD: em đang làm ở tháng 01/2023 khi em làm tháng 02/2023 xong khi chọn lại tháng...
Em chào mọi người ạ ! Cho e hỏi có ai biết gõ code VBA trong word không ạ giúp em với ( em định chèn mỗi đáp án A.,B.,C.,D. Vào từng dòng do phải chuyển tài liệu để tạo quizz nên e không sử dụng numbering , không chèn vào dòng có chứa kí tự "Câu")
chào các anh chị, em có một file cần nhờ anh chị giúp viết hộ em code VBA do em không biết gì về viết code ạ,
em có 2 sheet dữ liệu là data và đm em muốn hiện thời gian từ cột C ở data vào cột A với điều kiện nếu thời gian xuất hiện nhiều lần Ở SHEET DATA thì chỉ Cần xuất hiện 1 lần tại sheet...
Hi mọi người
Hôm trước e có nhờ các anh/em ở diễn đàn mình làm giúp file lọc dữ liệu ở VBA
Hôm nay e xào nướng lại mà đang mắc lỗi 400 khi nhập điều kiện lọc ở vị trí ô F1 & F2 Sheet INNTCV
Mong các anh đi trước giải giúp lỗi này với ạ
Em muốn hộp input số thứ tự chỉ hiện 1 lần với điều kiện không điền gì thì sẽ dừng vòng lặp= cách hỏi lại nhờ msgbox như trên; còn nếu điền thì nó sẽ in giá trị vào ô A,i ạ( như code trên là phải nhập input số thứ tự 2 lần rồi ạ đó em chưa tối ưu được ) . Cảm ơn các cao nhân
Em muốn tạo một đoạn code VBA để khi thêm dữ liệu tĩnh mới vào bảng thì nó sẽ tự động tính toán dữ liệu động. Em dùng vòng lặp For next chạy hộp thoại input để nhập dữ liệu tĩnh, nhưng em không biết cách để dữ liệu được thêm vào bảng chạy từ dòng cuối+1 đến vô cùng ạ
Xin chào mọi người, em có một vấn đề mà tìm mãi không biết giải kiểu gì,
Đây là danh mục sản phẩm nhà em (tầm 700sp), có đvt_min và đvt_max, bây giờ em muốn đưa phần đvt này thành list, khi mình chọn sản phẩm thì list này sẽ thay đổi tương ứng theo hàng dữ liệu.
Mong mọi người hộ trợ ạ
Em đang có 1 VBA tô màu nền xen kẽ đen- trắng , viết dữ liệu cột B xong thì sẽ tự tô màu các dòng chẵn. Nhưng với các dòng đã viết dữ liệu rồi, xóa dữ liệu thì các dòng tô màu không tự xóa theo. Các bác chỉ giúp cách sửa code
Sub ToMau1()
Dim ws As Worksheet
Dim lastRowA As Long
Dim...
Dear Anh Chị Em team.
Em cần code VBA tự động gửi email đến địa chỉ email cụ thể (ví dụ như: vinh.truonglns@gmail.com, vinh.staff@gmail.com) thỏa mãn :
1- Cột M, những giá trị nào lớn hơn 70.
2- Mỗi lần gửi email thì gửi lại toàn bộ giá trị >70. (Có nghĩa : Cứ >70days là gửi email, không cần...
Sub a()
Dim chrt As Chart, i As Long
For i = 1 To 5
Set chrt = ActiveSheet.Shapes.AddChart2(201, xlColumnClustered, 100 + (i - 1) * 500, 50, 400, 300).Chart
With chrt
.SetSourceData Source:=Range("a1:b10")
.SeriesCollection(1).ChartType = xlLine
.SeriesCollection(1).AxisGroup = 1
With...
Em có tầm 50 nhà cung cấp, hàng tuần e đều phải gửi mail cho từng nhà cung cấp, trong mail phải đính kèm 2 file excel + 1 file PDF.
Anh/chị cho em xin code VBA để nén 2 file excel + 1 file pdf ở trên thành 1 file rar. để e gửi mail hàng loạt được không ạ?
Các file của em đang lưu ntn rồi ạ, tên...
IF(AA10>1,IF(Y10>0,AB10+IF(ISTEXT(X9)=TRUE,0,X9),0),AB10)
Mình có công thức như trên, bây giờ muốn viết 1 hàm trong VBA, nhưng không biết các viết thế nào. Các bạn hỗ trợ giúp mình nhé. Xin cám ơn rất nhiều ạ.
Em chào các bác, hiện e đang dùng hàm này để mở cửa sổ chọn file
Dim MyFile As String
MyFile = Application.GetOpenFilename()
Workbooks.Open (MyFile)
Nhưng cửa sổ Open luôn hiển thị tại thư mục C/Document,
liệu có cách nào thay đổi để...
Chào mọi người ! Mình có một sheets excle cần tách ra thành nhiều sheets nhưng gặp lỗi "that name is already taken. try a different one"
Chỉ tạo ra 1 sheet đầu tiên và báo lỗi như vậy . Nhờ anh em xem code và chỉ giáo ạ !
Public Sub GPE()
Dim I, Arr, Dic As Object, Tem, Item As String, Wb...