Kết quả tìm kiếm

Cái này nó đã xắp xếp rồi cần gì dùng Dictionary nhỉ.Cứ chạy từ trên xuống dưới 1 lần là xong à.

Máy của em đôi lúc nó bị ngáo.Có đôi lúc trên Web lại bị mất dấu.Không biết lỗi này là lỗi gì anh nhỉ.Ở các chỗ khác vẫn dùng được ạ.

Tim tren nay thieu gi bai.

Nghiên cứu mở file bằng ADO.Nó sẽ mở ở dạng khác.Và nhanh hơn.

Bạn biết viết code VBA không.

Cao nhân là những ai bạn định nghĩa xem nào.Bạn cứ hỏi bình thường thôi không cần hỏi cao nhân đâu.Mà hỏi thì cũng đưa file của bạn lên để còn xem chứ.Mà mình cũng không biết đâu.

Tại sao không lấy luôn danh sách tên sheet bằng cách duyệt qua các sheets rồi đưa vào listbox.Nó không bị sai tên bạn đặt trên sheets sai tên khi chọn đến nó sẽ báo lỗi.Mà cài đặt thêm cái phím tắt để mở form cần gì cứ phải về sheets 1 rồi mở cho mất công.

Bác Sa ơi không biết có đúng ý bác không nhưng cháu thấy kết quả đúng bác có thưởng gì cho học sinh mới ăn tết không ạ. Sub abc() Dim i As Long, arr, kq, a As Integer, b As Integer arr = Array(3, 1, 6, 4, 2, 7, 5) ReDim kq(1 To 4, 1 To 7) For i = 1 To 25 a = (i - 1) Mod 7...

Thử code sau. Private Sub btnTaoMoiThang_TX_Click() Dim lr As Long, lr1 As Long With Sheets("dulieu") lr = .Range("B" & Rows.Count).End(xlUp).Row lr1 = .Range("D" & Rows.Count).End(xlUp).Row + 1 If lr = 2 Then Exit Sub If lr1 >= lr Then lr1 = lr...

Chắc cái này cần viết code VBA

Bạn viết code ở Google sheet hay là ở excel nhỉ.

Cái này phải có đủ dữ liệu xem có viết được code VBA không.Còn công thức thì chịu.

Nó báo lỗi gì bạn.

Cho cái file lên và xóa thế nào.

Người ta hỏi kết quả bạn muốn như thế nào.Làm cái kết quả mẫu đưa lên xem nào.Mà bạn nói mục đích làm gì vậy ta.

Thử cái cùi này xem.=MID(B5,2,5) & "/" & (YEAR(TODAY())-1)

Viết các tên ra excel rồi gọi vào code có vẻ phù hợp với bạn.

Sửa bừa trúng thì thôi.File sẽ được lưu vào cùng file excel của bạn.Khả năng lần 2 của bạn không phải là chọn đường link mà nó báo có file tên vậy rồi có lưu không. Sub TaoFile() Application.DisplayAlerts = False 'khai bao bien Dim wb As Workbook Dim ws As Worksheet Dim mypath As String...

Thử code này đặt vào trong Thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheet1.Range("A2:O10000").ClearContents Workbooks("TEST.xlsm").Save End Sub

Được nhưng mà cái chi phí gián tiếp không biết tính à.Nếu bạn nói rõ cách tính thì có thể làm được bằng VBA.Còn ai làm thì chưa biết.