Kết quả tìm kiếm

File EXCEL của em bị tình trạng khi nhấn: "SAVE" thì sẽ bị UNDO 1 lần. Em ví dụ: Ô A1 = 1 Em thay đổi A1 = 2 Nhấn SAVE khi đó ô A1 lại bị UNDO giá trị về: A1 = 1 như trước đó ( giống như mình nhấn Ctrl + Z) Em không biết là do bị virus hay do tùy chỉnh nào đó mà em không biết. Mong anh/chị...

Khi muốn lấy data từ 1 trang web em sử dụng đoạn code tương tự như dươi, để lấy giá trị 1 cell : Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n) Range("A5").Value = Datas.innerText Nhưng em muốn upload dữ liệu lên cell đó và em thử làm: Set Datas =...

Mong cách anh giúp đỡ! Em có 11 sheet ( 01 - 11). em muốn copy dữ liệu 10 sheet đầu vào sheet11 + Sheet11 đag chứa dữ liệu ở cột E và G, em muốn dữ liệu copy vào sẽ nối tiếp theo dữ liệu cũ ở cột E và G + thứ tự copy giảm dần: sheet10 trước rồi sheet09,sheet08,sheet07,... + Em thử viết code...

Em cần lấy giá trị trong một cột ( >1000 hàng) bằng cách sử dụng VBA, mong các anh giúp đỡ! Qui luật để lấy như sau: Tai cột E - Giá trị đầu tiên > 50 lấy, gán giá trị ra ô excel cột G - Giá trị tiếp theo < 50 lấy, gán giá trị ra ô excel tiếp theo ô trên - Giá trị tiếp theo > 50 lấy...

sub down() Dim ChromeLocation As String ' Em muốn thay đổi đường dẫn trước khi save file download bằng chrome Linkurl ' là link down trực tiếp ChromeLocation = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" Shell (ChromeLocation & " -url Linkurl ) End sub Em download 1...

Em muốn lọc dữ liệu trong sheet : Data. - Em muốn lọc những người sẽ thi giữ bậc lần 1 ( GB1) trong năm 2017 ( là những người được đánh dấu "x"). Và thêm những người thi giữ bậc lần 2 (GB2) trong năm 2018. 1. Theo năm(hàng 6): Có cách nào để em có thể tùy chọn 1 năm, 2 năm gần nhau(2017,2018)...

Em tạo Pivot Chart theo thời gian: hour- day-Month, với 1 bảng Pivot table. Sau khi tạo xong ket hợp với slicer: - Slicer days : chọn các ngày để xem dữ liệu theo giờ ( Group: Days - hour) Em muốn hỏi: - Em có thể tạo slicer theo tháng- để khi xem theo tháng, đồ thị dữ liệu chỉ hiển thị theo...

Em có ô Excel D4 có giá trị : October/17/2017 12:00 AM Em dùng hàm Month(D4) = 10 tai ô D6, Nhưng khi em định dạng ô D6 là Custom: mmm ( em muốn lấy tháng số: October) thì nó ra là: Jan(tháng 1) Và em thử với tháng nào nó cũng ra tháng 1 Mong các anh chỉ giúp em để ra kết quả như ý là : Oct Em...

Em tạo Pivot Chart theo thời gian: hour- day-Month, với 1 bảng Pivot table. Sau khi tạo xong ket hợp với slicer: - Slicer days : chọn các ngày để xem dữ liệu theo giờ ( Group: Days - hour) Em muốn hỏi: - Em có thể tạo slicer theo tháng- để khi xem theo tháng...

Em cần tổng hợp công của công nhân từ nhiều sheet khác nhau( 3 sheet). Vì vậy em muốn có thể dùng mảng để so sánh tìm ra tên công nhân giống nhau từ 3 sheet rồi + số công lại. ( Em cũng không biết trường hợp này dùng mảng có đúng không ) Nhưng đến phần so sánh code báo lỗi do: Ubound(Arr3) = 0...

Sub NB() Dim wb As ThisWorkbook Dim ws As Worksheet Dim rg1 As Range Dim d As Date Dim WS_Count As Integer Dim b As Range Dim f As String On Error Resume Next Dim LastCol As Integer Dim i As Variant Dim j As Variant Dim Range1 As Range lcl = Cells(7...

Sub ngay() Dim Range1 as range Dim lr as interger lr = Cells(Rows.Count, "A").End(xlUp).Row For each Range1 in Range("A:A"&lr) Next Range1 End sub Range("A:A"&lr) gồm: Cells format kiểu Date(mm/dd/yy), cells chứa text, và cells rỗng. Em muốn lấy Range1 chỉ là các Cells format kiểu : Date thì...

Sub ChonSheets() Dim ws as worksheet For each ws in Worksheets Next ws End Sub Khi em chạy vòng For trên thì nó chọn cả các sheets hide để làm việc, Có cách nào chỉ cho nó chọn các Sheets hiện, mà không chọn sheets hide không các Anh! Mong các Anh giúp đỡ!

Sub TinhLai() Dim wb As ThisWorkbook Dim ws As Worksheet Dim Range_date_vay As Range Dim Range_date_tra As Range Dim Range1 As Range Dim Range2 As Range Dim d As Date Dim so_ngay As Integer Dim WS_Count As Integer 'For Each ws In ThisWorkbook WS_Count = ActiveWorkbook.Worksheets.Count...

Em có rất nhiều file thu chi đăt tên là : So1, So2……So15, Em dùng 1 file TONGKET.Sheet("TINHTONG") add marco để mở các file(So1,So2,….So15) tính toán chốt lời 12 tháng rồi lấy kp về Em chốt lời từng tháng ( = thu-chi), được kết quả add qua 1 file TONGKET Em muốn dùng for... Next để tính tổng...

Làm sao coppy được 2 file các Anh.... C:\file1 to C:\folfer1 C:\file2 to C:\folfer2 Mong Các anh giúp em với.... Code này em coppy 1 file thì chạy ngon Còn muon coppy 2 file tới 2 đích khác nhau, không biết làm thế nào Em tìm mãi không thấy chỗ nào có Sub Copy_Certain_Files_In_Folder()...

Em có đoan code...coppy/paste file.. Chay báo ok...nhưng không thấy file coppy đâu Sub Tao_file() Dim FSO As Object Dim sFile1 As String Dim From_path1 As String Dim To_path As String Dim path_name As String 'This is Your File Name which you want to Copy sFile1 = "abc.xlsx" 'Change...

Khi chúng ta chạy Marco, bằng nút nhấn, mỗi khi bị lỗi lại phại reset bằng tay( nhấn stop,bấm rest, hoặc đóng của sổ VBA) em không biết có đoạn code để add luôn vào đoạn code đang chạy nào kiểu như: Nếu bị lỗi khi chạy, tự động close của sổ VBA reset. Mong các Anh giúp!

Em có 2 mảng: Workbook1.Sheet1!range( A1:G1) Workbook2.Sheet1!range(A2:G2) Giúp em dùng For và Ubound để tính tổng 2 mảng trên! Em cảm ơn!

Em có tồng cộng 30 sheet đặt tên theo ngày, em cần lấy giá trị của ô trong sheet ngay hôm trước, và em viết 1 đoạn code: ' Sub TinhTong() Sheets("TinhTong").Select controlfile = ActiveWorkbook.Name ngay = Range("C3").Value If DatePart("d", ngay) < 10 Then ngay1 = "0" &...