Kết quả tìm kiếm

Chào các anh chị GPE! Em sưu tầm được đoạn code để form luôn cố định ở thanh công cụ bên trái khi ta di chuyển hoặc phóng to thu nhỏ bảng tính Excel. Giờ em muốn form luôn cố định ở cạnh Thanh cuộn dọc bên phải Excel thì sửa code thế nào ạ! Em xin cảm ơn ! Option Explicit #If VBA7 Then #If...

Chào các anh chị GPE! Trong file em đính kèm có dữ liệu về thời gian gồm ngày và giờ. Để đánh số thứ tự theo thời gian em đã sử dụng hàm COUNTIFS nhưng lại phải tạo thêm cột phụ. Em muốn các anh chị giúp em đánh số TT mà không cần tạo thêm cột phụ ạ! Em xin cảm ơn

Chào các anh chị GPE! Hiện tại em đang sử dụng code dưới đây để xác định vị trí khi hiện Form: Sub ViTriForm(ByVal frm As Object) With frm .StartUpPosition = 0 .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width) - 1 .Top = Application.Top + (0.5 *...

Public Type var64 #If Win64 Then Long As LongPtr #Else Long As Long #End If End Type #If VBA7 Then 'Office 64-bit Public Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Public Declare Function...

Chào các anh chị GPE! Em có một câu hỏi muốn các anh chị hỗ trợ giúp trong trường hợp này ạ: Giả sử em đang chạy một thủ tục trên Sheet1. Khi thủ tục chạy chưa kết thúc nếu em chuyển sang sheet khác sẽ gây ra một số lỗi không mong muốn. Vậy em muốn hỏi các anh chị có cách gì để hoàn thành xong...

Xin chào các anh chị GPE. Em dùng code này để hiện FileDialog Sub Test() Dim fldr, xlApp Dim foldername On Error Resume Next Set xlApp = CreateObject("Excel.Application") Set fldr = xlApp.FileDialog(4) With fldr .Title = "Select a Folder" .AllowMultiSelect = False...

Kính chào các Anh Chị GPE ! Em muốn hỏi các Anh Chị một vấn đề: Giả sử Em có 1 UserForm có tên Form1. Khi em chạy code "Form1.Show 0" thì Form xuất hiện và phải kích chuột vào 1 ô bất kỳ trên trang tính mới nhập dữ liệu được. Giờ em muốn các Anh Chị giúp em có cách gì khi Form xuất hiện xong...

Kính chào các Anh/Chị trên GPE. Em có bài toán này mong các Anh/Chị giúp đỡ ! Em có bảng tính gồm Cột A (Là mã hiệu theo nhóm), cột B (Nội dung), cột C (ngày tháng, xắp sếp không theo quy luật). Em muốn các Anh/Chị giúp em đánh số thứ tự tại cột D theo 2 điều kiện: * ĐK1: Đánh số thứ tự theo...

Xin chào các anh chị GPE! Em muốn tạo 1 Function không có tham số và trả về địa chỉ của ô chứa nó. Hiện tại, em chỉ biết dùng code này: Function LayDiaChi() As String LayDiaChi = ActiveCell.Address End Function[/ CODE] Tuy nhiên, khi dùng code này phải kích hoạt từng ô thì hàm mới trả về...

Xin chào các anh chị trên GPE. Em có đoạn code thế này: Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindowHW Lib "user32" Alias "FindWindowW" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Private Declare Function FindWindowHW Lib...

Chào các anh chị GPE! Em muốn nhờ các anh chị tạo giúp em 1 tìm số thứ tự của nó trong vùng dữ liệu cho trước. Cụ thể yêu cầu em đã nêu rõ trong file đính kèm. Mong các anh chị giúp đỡ, em xin cảm ơn

Kính chào các anh chị GPE Em thấy trong Excel có sự kiện: Private Sub Workbook_WindowResize(ByVal Wn As Window) Sự kiện này bắt được khi ta phóng to, thu nhỏ, kéo thả kích thước nhưng không thực hiện được khi di chuyển cửa sổ Excel từ vị trí X sang vị trí Y . Vậy giờ em muốn bắt sự kiện này thì...

Xin chào các chị trên GPE! Em có số dãy trong ô A2:A11 là: 1, 3, 6, 7, 12, 13, 14, 15, 17, 18 Em muốn tạo hàm trả về các số không theo dãy số trên, kết quả là: 2, 4, 5, 6, 8, 9, 10, 11, 16 Cụ thể như file excel đính kèm Mong các anh chị giúp đỡ, em xin cảm ơn!

Kính chào các anh chị GPE Em có dòng tiêu đề của bảng tính (Gồm cả Merge cột và dòng). Điều kiện biết trước chỉ là 1 ô có Merge Em muốn tìm cột cuối cùng chứa dữ liệu và Insert Copied để tự động kẻ viền. Vì khó diễn đạt ở đây nên câu hỏi em để trong file excel đính kèm. Mong các anh chị thông...

E dùng đoạn code này Dim wb As Workbook Dim Duongdan As String Duongdan = "D:\Tong hop\Linh tinh\Bang ke chi tiet.xls" Set wb = Workbooks.Open(Duongdan, True, True) Khi em chạy code này thì báo lỗi "Office has detected a problem with this file" Nếu em mở file đó ra và nhấn phím F2 rồi click...

Em muốn viết 1 hàm bằng VBA khác với hàm Replace trong VBA về tìm và thay thế ký tự đầu tiên tìm thấy, còn lại giữ nguyên. Ví dụ em đặt tên hàm là RepVBA: RepVBA("Giải pháp Excel là diễn đàn về Excel" , "Excel" , "EX") = "Giải pháp EX là diễn đàn về Excel" Tức là nó chỉ tìm và thay thế chuỗi...

Mong các anh chị giúp em sửa code để khi kích chuột vào Label ở trên Frame bất kỳ nào thì đều chạy được code trong Class Module. Như trong file đính kèm chỉ chạy được 1 Frame. Em xin cảm ơn!

Em muốn xóa 1 phần tử trong mảng nhưng code em bị lỗi, mong các anh chị giúp đỡ Sub RemoveItem(index As Long) Dim i As Long Dim MyArr MyArr = Sheet1.Range("A8:A" & Sheet1.Range("A65536").End(xlUp).Row).Value For i = index + 1 To UBound(MyArr) MyArr(i - 1) = MyArr(i) Next ReDim...

Hiện tại em sử dụng Macro giúp lăn chuột trên List box sưu tầm trên Internet. Nó chạy được trên Win và Office 64, 32 bit. Tuy nhiên, nếu trường hợp Form đặt ở chế độ ShowModal = False + chạy trên Office 64 bit và thao tác một lúc ở trên Sheet và Listbox thì Excel tự động thoát Rất mong anh chị...

Xin chào các anh chị GPE! Giả sử em có 1 chuỗi gồm N phần tử trong đó có 2 ký tự đặc biệt là ; và $ để ngăn cách các phần tử. Em muốn mọi người giúp em chuyển chuỗi trên vào cell với điều kiện: dấu ; để chuyển sang cột khác, dấu $ để xuống dòng. Chi tiết ví dụ như file đính kèm, em xin chẩn...