Kết quả tìm kiếm

Em muốn tận dụng sự kiện selection change của worksheet để tính toán giá trị tự động cho bảng dữ liệu nhưng khi em thực hiện việc chuyển dữ liệu từ bảng dữ liệu này sang bảng có liên quan thì phát sinh vấn đề: mỗi lần di chuyển con trỏ hoặc click chuột vào vùng giao với target của sự kiện...

chào các bác, khi tôi ghi lại macro đặt tên cho một vùng thì câu lệnh VBA như sau: ActiveWorkbook.Names.Add Name:="abcde", RefersToR1C1:="=Sheet8!R3C1:R202C5" trường hợp để excel tự động đặt tên cho vùng, nếu sử dụng câu lệnh này thì sẽ bị sai nếu vùng dữ liệu mới nhiều hơn hoặc ít hơn vùng...

các bác giúp em xem tại sao cái đoạn code này lại báo lỗi với rivate Sub CommandButton1_Click() Dim data As Range Dim ctn As String Set data = Application.Range("du_lieu") ctn = Application.WorksheetFunction.VLookup(TextBox1.Text, data, 3, 0) =======> báo lỗi ở dòng này Label1.Caption = ctn...

em có một số báo cáo định dạng *.xlsx trích xuất từ chương trình crystal report bị tình trạng dữ liệu nằm trong một ô trộn, xung quạnh có nhiều ô trống. Các bác chỉ giúp em cách khắc phục với, thanks các bác Em gửi 1 file VD, các bác xem giúp em với. Có cách nào bỏ trộn và loại bỏ được các ô...

Em sử dụng đoạn code này để mở một folder ra: Sub Open_folder() Dim str_folder As String str_folder = "E:\folder Name" Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub !$@!! nhưng không biết cách để đóng folder vừa mở ra này, các bác chỉ em cách đóng nó lại với...

Khi cập nhật cơ sở dữ liệu access đến 2gb em thấy access không làm việc nữa. Các bác chỉ em cách khắc phục với. Em dùng access 2007

Các bác chỉ giúp em cách so sánh để tìm ra dữ liệu khác biệt giữa hai vùng trong 1 sheet với. Thanks các bác. to bác Sa_DQ: file e2K3 là cái gì hả bác. (From Sa_DQ: Ý mình muốn bạn đưa thêm 1 file excel 2003 ấy mà!) đây, em gửi lại file excel 2003 các bác xem giúp em với. -\\/.

Nhờ sự trợ giúp của bác ndu, em đã làm ra cái file này, chức năng chia dữ liệu trong sheet thành các book theo mã hàng hóa. Nhưng có vấn đề phát sinh là khi tạo workook mới thì cứ 1 wb có tên đặt theo mã hàng hóa lại phát sinh thêm 1 book trắng. Các bác chỉ giúp em cách khắc phục vấn đề này và...

Sub SaveOneFile() Dim fn As Variant fn = Application.GetSaveAsFilename(wbName, "Excel files,*.xls", 2, "E:\") If TypeName(fn) = "Boolean" Then Exit Sub ActiveWorkbook.SaveAs fn End Sub Mỗi lần em sử dụng đoạn code này đều phải nhấn nút ok để save (em save as để lưu file có data ở...

Không biết VBA có thể duyệt các file excel (cùng định dạng) có trong một thư mục chỉ định để cập nhật dữ liệu từ các file này vào một file tổng hợp không. Các bác chỉ em với. Thanks.

Sub xu_ly_data() Dim i, j, x As Integer Dim dc, SR Dim wsh As Worksheet Set SR = Sheets("DATA").Range("A1:C4") i = 2 j = 1 Application.ScreenUpdating = False For x = 2 To ThisWorkbook.Worksheets.Count Set wsh = Sheets(x)...

Nhờ các bác giải quyết giúp vấn đề này: tôi muốn cập nhật các thông tin về loại hàng từ sheet data vào các sheet tương ứng (gà vào gà, thỏ vào thỏ). Đối với những mặt hàng mới, nếu chưa có sheet tương ứng thì excel tự tạo ra một sheet mới với tên tương ứng để cập nhật Tại các sheet dữ liệu mới...

nhờ các bác giải thích giúp em dấu ^ trong công thức sau có tác dụng như thế nào =B2*(1+B4)^-B3+(B2*B5/B4)*(1-(1+B4)^-B3) thanks các bác

Các bác hướng dẫn em làm thế nào để đánh dấu X vào bên cạnh những dòng có dữ liệu trùng nhau, sau đó chọn và xóa cả dòng có đánh dấu X đi. em chỉ có thể đánh dấu X vào 2 dòng có dữ liệu giống nhau, còn 3 dòng liên tiếp trở lên thì chịu. hix em gửi kèm file theo, mong các bác giúp đỡ

Các bác làm ơn chỉ giúp cách lọc dữ liệu trùng nhau trong một bảng dữ liệu có khoảng 500.000 dòng. Em đã dùng công cụ remove duplicate có sẵn nhưng khi kiểm tra lại thấy vẫn còn trùng. Với bảng lớn như vậy mà phải kiểm tra từng dòng thì khó quá. Mong các bác giúp đỡ. Có đoạn code nào thì càng...

Em muốn đếm xem trong cột a có bao nhiêu người (loại trừ những tên trùng nhau), các bác giúp em với. Hiện tại em phải sort dữ liệu trước, sau đó dùng vòng foreach .....next để đếm vì cách này chỉ phân biệt được dữ liệu của dòng trên và dòng dưới có khác nhau hay không thôi.

Các bác giúp em giải thích tại sao đoạn code này cứ báo lỗi ở dòng chữ đỏ với, Sub NHAP_TEXT() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\nguon.txt" , Destination:=Range("A2")) .Name = "New Text Document" .FieldNames = True...

em dùng vòng lặp for....next để duyệt qua các sheet trong workbook, sau đó tạo 01 form (có 1 textbox) để hiển thị đang ở sheet nào: code như sau: Private Sub UserForm_Activate() Dim i As Integer Dim wsh As Worksheet For i = 1 To ThisWorkbook.Worksheets.Count Set wsh = Sheets(i)...

Các bác giúp em cách sử dụng vòng: do....while.....loop để hiển thị tên của các sheet. giả sử em có một workbook (bao gồm 20 sheet). em muốn sử dụng vòng lặp để hiện tên của các sheet từ sheet 2 đến sheet 20. cách sử dụng tên sheet theo kiểu sheet.name và sheet1, sheet2 có gì khác nhau không...

các bác giải thích giúp em tại sao dòng lệnh này Range("B12").End(xlDown).Row lúc thì cho ra kết quả là 65.... (dòng cuối cùng của bảng) lúc lại cho ra kết quả là số thứ tự dòng cuối cùng của vùng dữ liệu. em muốn tìm ra dòng cuối cùng của vùng dữ liệu để đưa dữ liệu vào dòng tiếp theo thì...