Kết quả tìm kiếm

Xin chào các tiền bối! Em có câu hỏi về RegEx mong được trợ giúp ạ. Em có bảng dữ liệu nguồn tại cột "E:G", trong đó cột "E:F" là để mình quy định biểu mẫu (.Pattern) và cột G là cột giá trị trả về nếu so sánh khớp. Em đã tham khảo kiến thức từ linK...

Xin chào các anh/chị cao nhân, em đang gặp rắc rối với việc chạy ADODB.Command.Execute, em xin gửi code lên và mong mọi người chỉ giáo ạ. Set adoCn = New ADODB.Connection With adoCn .ConnectionString = "Provider=SQLOLEDB;Data Source=" & src & ";" & _ "Initial Catalog=" &...

Chào anh/chi! Em đang cố kết nối tới SQL Server và gặp lỗi Run-time error '-2147467259 (80004005): Cannot open database "mydatabase" repuested by the login. The login failed. Em đã sử dụng thư viện microsoft activex data objects 2.8 library và code như sau: Sub ConnectSqlServer() Dim conn...

Em chào mọi người. Em có vấn đề với VBA khi truy vấn SQL bị lỗi "Operation is not allowed when the object is closed." Câu truy vấn của em trên SQL như sau: DECLARE @AccountObjectTaxCode NVARCHAR(MAX) DECLARE @AccountObjectGroupList NVARCHAR(MAX) SELECT RefID, AccountObjectID...

Xin chào anh/chị, các tiền bối! Em có thủ thục sau trên SQL: ALTER PROC [dbo].[Invoices] @Ngay_ct1 DATETIME, @Ngay_ct2 DATETIME AS BEGIN DECLARE @InvNo NVARCHAR(40) DECLARE @InvTemplateNo NVARCHAR(25) DECLARE @InvSeries NVARCHAR(20) DECLARE @AccObID NVARCHAR(MAX)...

Em chào các thành viên trong diễn đàn. Em có 1 bài toán như sau mong muốn a/c cho em giải pháp ạ: Nhập vào các số A, B, C. Tìm tập D={d1, d2, ..., dn} sao cho: 1) các phần tử trong D đều chia hết A 2) d(n) <= B 3) C là giới hạn làm tròn nếu: 1. C thuộc tập từ 0,1 đến 0,9 thì lấy giá trị D có 1...

Tôi xin chào các thành viên trong diễn đàn. Tôi đang muốn dùng VBA để chỉ định 1 sheet nào đó không được phép xoá thì có khả thi không ạ, nếu có thì cách thực hiện như thế nào ạ. Rất mong nhận được sự giúp đỡ từ các thành viên trong diễn đàn. Tôi xin cảm ơn!

Em chào các anh/chị! Em có vấn đề với Shape, nhờ anh chị chỉ giáo ạ. A/C cho em hỏi làm sao để xác định được cái tên khi gọi Shape ạ. Em dùng tham khảo được cách này nhưng không biết cách xác định chính xác Shape trong file nếu tồn tại nhiều Shape. Cách đã tham khảo được...

Chào các A/C. Em có dùng VBA để format text "Ngày tháng năm" nhưng bị lỗi khi dùng WorksheetFunction.Text() mà biến truyền vào là kết quả từ 1 công thức Text trước đó thì kết quả trả về có dạng dd/mm/yyyy mà không có dạng như mong muốn "Ngày tháng năm". Em xin đính kèm file. Em cảm ơn A/C đã...

Xin chào các anh/chị. Em có file có khoảng 12k dòng được sắp xếp để dồn các dòng trùng nhau, em tự code để xoá các dòng trùng này bằng Do...While nhưng thời gian xử lý "Running" lâu quá. Nhờ a/c chỉ giáo ạ. Em cảm ơn! Sub DelDupRows() Dim i, Rng i = 4 Do If Cells(i...

Em chào các anh/chị! Em xin nhờ các anh/chị chỉ em cách nào để tối ưu đoạn code sau hay có giải pháp nào để giảm thời gian run với ạ. Em cảm ơn Sub ReplaceRng() Dim Sh, rng, Lr, i Set Sh = ActiveSheet Lr = Sh.Cells(Sh.Rows.Count, "B").End(xlUp).Row 'Lr = 80 Set rng = Sh.Range("B7:B" & Lr)...

Em chào các anh/chị! Anh/chị cho em hỏi VBA có thể xác định được Format hiện tại của windows không ạ? Format như trong ảnh dưới ạ : Nếu có thì code như thế nào ạ? Em cảm ơn!

Chào các anh/chị! Em gặp 1 vấn đề lỗi với font chữ mà không xử lý được, mong anh/chị nào biết chỉ giáo em với ạ. ví dụ: Chữ "ê" có code là 1, em dùng hàm Char(1) thì không trả về ê mà lại ra ký tự "?", em code trong vba dùng ChrW() cũng bị lỗi "?" như trên ạ. Máy em chạy win 10 home x64, đã cài...

Chào anh/chị! Anh/chị fix giúp em lỗi Run-time error '1004' Method 'Range' of object'_Global' failed trong đoạn code sau với ạ: Option Explicit Sub Macro2() 'Dim rngPrint As Range Dim rngPrint As String Dim rng As String Dim i, j As Integer Dim rngPr() As Variant 'Dim rng As Range...

Chào các anh/chị! Em có code sau, em dung bắt lỗi bang GoTo nhưng vẫn bị lỗi "Unable to get the Search property of the WorksheetFunction class" Sub CpySh7ToSh1() Dim LrSh7, LrSh1 As Long Dim tst Set Sh1 = Sheet1 Set Sh7 = Sheet7 LrSh1 = Sh1.Range("AL2").End(xlDown).Row LrSh7 =...

Em có đoạn mã bị lỗi ở dòng Sh1.Range("A" & i).Value = Format(StartDate, "dd-mm-yyyy") mà không biết cách sửa, anh/chị nào biết chỉ em với ạ. Giá trị trong ô A11: "Từ ngày 01-07-2019 đến ngày 05-08-2019" Đoạn mã của em ạ: Sub Calling() Dim test Dim StartDt, EndDt As String Dim...

Em chào các anh/chị! Em có 1 vấn đề, nhờ các anh/chị cho em gợi code vba cho vấn đề: Vấn đề: em có 1 cột số lượng, trong cột có những ô giá trị bang 0, em muốn xoá đi các hàng giá của ô có giá trị bang 0 đó nhưng không làm thay đổi thứ tự các ô có giá trị khác 0 (nghĩa là không dung các sort)...

em bị lỗi ở Phương thức Set c1 = .FindNext(c1) trong file dưới đây, anh/chị xem giúp em với ạ. File em đính kèm bên dưới ạ, các file *.txt là để gán dữ lieu vào file excel (Sub ImportTextFiles()) sau đó mới chạy Sub XuLy() - Sub bị lỗi Set FindNext Em cảm ơn!

Em có file dưới bị lỗi như trong mô tả trong sheet "Chitiet-STKH" liên, file em đính kèm bên dưới ạ, anh/chị nào chỉ giáo cho em với ạ. EM cảm ơn! 1562731912 Bác @leonguyenz chỉ giáo em với ạ. Em cảm ơn!

Xin chào tất cả anh/chị, em có 1 vấn đề mong được cao nhân chỉ giáo ạ. Em có vài file text là đơn đặt hàng, giờ em muốn lấy dữ liệu tất cả file text đó lên 1 sheet và trích rút được tên khách hàng, cột mã hàng, tên hàng, số lượng đơn giá sang sheet khác theo cấu trúc (hoặc có thể lấy luôn dữ...