Kết quả tìm kiếm

Liên hệ QC
  1. P

    VBA có thể làm được 1 chương trình đồng bộ web (giống như khai báo Hải Quan) không? Hay dùng gì?

    Chào mọi người! Mình muốn hỏi VBA/ VB có đủ các công cụ cần thiết để làm được 1 phần mềm khai báo Hải Quan không (https://vnsw.gov.vn). Giống như cách mà chương trình ECUS - VNACCS khai báo Hải Quan điện tử ấy. * Hoặc như phần mềm đồng bộ dữ liệu khai báo này...
  2. P

    Nhờ rút gọn code trong Uniform

    Chào các bạn. Mình có 1 form có 10 textbox: từ txtPort1 => txtPort10 10 textbox: từ txtPortID1 => txtPortID10 10 commandbutton: từ cmdGetPortID1 => cmdGetPortID10 Mình muốn rút gọn Code cho 10 nút cmd thì phải làm ntn Private Sub cmdGetPortID1_Click() If Len(txtPort1) Then txtPortID1 =...
  3. P

    Dùng control nào để tạo như 1 IE có đầy đủ các phương thức để lấy dữ liệu từ web?

    Chào các bạn! Mình có dùng Webbrowser (Microsoft web browser) để truy cập trang web và lấy luôn thông tin trong form vba (không phải tạo objIE để mở cửa sổ IE riêng với Excel ). Tuy nhiên một số phương thức của webbrowser không giống như objIE Ví dụ: nếu Set objIE =...
  4. P

    Làm sao căn chỉnh bảng trong Word vừa vặn 1 trang = VBA ?

    Mình có thử đoạn code để căn chỉnh bảng ()như file đính kèm vừa vặn 1 trang để in nhưng chưa biết sai chỗ nào nên chưa đạt yêu cầu Sub Fit_Table_To_1_Page() 'Application.ScreenUpdating = False Dim TopMargin As Long, BottomMargin As Long Dim PageHeight As Long, lngHeight As Long Dim Table1...
  5. P

    Làm sao để lấy được giá trị dòng cuối (có dữ liệu) trong 1 cell của Word table?

    Mình muốn lấy giá trị dòng cuối cùng có dữ liệu của ThisDocments.Tables(1).Cell(8, 5) thì phải viết code như thế nào? Xin vui lòng xem file & trợ giúp. (mình muốn lấy giá trị "- Line 5.") Many tks.
  6. P

    [Hỏi] Tìm giá trị trong nhiều bảng đưa vào 1 sheet

    [Hỏi] Dò tìm "dữ liệu khủng" 60,000 dòng- Tìm giá trị trong nhiều bảng đưa vào 1sheet FILE Ở BÀI NÀY #1 YÊU CẦU CHUẨN + HÌNH MINH HOẠ BÀI 9 Chào các bạn Mình có 1 file Data - dữ liệu để làm báo cáo. Dữ liệu rất nhiều lên đến gần 60,000 dòng. Mình muốn dò tìm/ lấy dữ liệu đó sang Sheet...
  7. P

    Làm sao đổi được màu chữ và màu nền trong control DTPicker (Date Time Picker)?

    Chào các bạn. Mình sử dụng DTPicker (đính kèm) để nhập ngày tháng. Có cách nào để đổi màu nền hoặc màu chữ hiển thị của DTPicker không? (KHÔNG phải màu của lịch xổ xuống khi nhấn mũi tên đâu nhé, tức là ko phải các property: CalendarBackColor, CalendarForeColor, CalendarTitleBackColor...
  8. P

    VBA trong word để đưa dữ liệu vào file Excel đang đóng

    Hỏi cách sử dụng FileSystemObject để lấy tên file*.doc chỉnh sửa cuối cùng Mọi người giúp giải quyết vấn đề: - Mình có file Nguon.doc & Dich.xls trong cùng thư mục. - Code VBA đặt trong file Nguon.doc - Khi đóng (hoặc mở) file Nguon.doc (tức là có động chạm đến file này) thì VBA sẽ ghi vào ô D5...
  9. P

    Làm sao để không cho Paste nhưng vẫn sửa được dữ liệu trong một vùng

    Các bạn cho hỏi: Có cách nào không cho Paste vào vùng A2:C20 của Sheet1 không?- Không dùng Code Vba- Không cho paste vào vùng đó nhưng vẫn sửa thủ công được
  10. P

    [Hỏi] Code kiểm tra trạng thái CAPSLOCK khi mở file excel? Nếu chưa ON thì bật lên

    Chào các bạn. Xuất phát từ nhu cầu nhập liệu của mình (cũng có thể 1 số người) có thói quen hoặc bắt buộc phải nhập file nào đó với kiểu chữ phải là viết HOA. Xin các bạn vui long viết giúp Code để khi mở file excel thì CAPSLOCK luôn bật/ ON. Mình nghĩ chắc chỉ có thể sử dụng hàm API. Mong mọi...
  11. P

    Làm thế nào chèn hình "vừa khít" 1 cell ?

    Chào các bạn! Mình có đoạn code chèn hình vào cell như sau Sub Insert_Pictures() Dim beginR As Long, endR As Long, i As Long Dim Pic As String Application.ScreenUpdating = False On Error Resume Next beginR = 2 'Dong 2 la dong bat dau chen hinh endR = [A65536].End(xlUp).Row For i = beginR...
  12. P

    Nhờ các bạn rút gọn đoạn code. Có thể làm = Do...loop hoặc Do...While...Loop được ko?

    Dim oIE As Object ' InternetExplorer.Application Dim sURL As String Dim btnInput As Object ' MSHTML.HTMLInputElement Dim ieDoc As Object 'MSHTML.HTMLDocument Dim ElementCol As Object Set oIE = CreateObject("InternetExplorer.Application") Set ieDoc = oIE.Document Nhờ các bạn rút gọn đoạn code...
  13. P

    Làm sao để trích lọc giá trị từ Text file đưa vào file Excel

    Chào các bạn Mình có file "source web fso.txt" có nội dung rất dài - trích dẫn cấu trúc name=ctl00$ctl27$wPshipList$ctl00$ddlShip jQuery16106108220824075696="3"> <OPTION value=d66e1b9f-902a-4c53-a7fe-022813ab1c24>ACE STAR</OPTION> <OPTION value=88b4de2b-0601-46c4-8453-cb80bb223f90>ACX...
  14. P

    [Hỏi] Viết Code cho sự kiện AfterUpdate() hoặc Change() của hàng loạt TextBox

    Chào các bạn Mình có 1 form Multipage như ví dụ. - Trên Page1 & Page2 có rất nhiều TextBox (Khoảng 22 Textbox/page) - Tên của Textbox trên Page2 thêm "_2" so với tên của Textbox trên Page1 Làm sao viết code (hoặc dùng Class???) chứ chẳng nhẽ lại viết 22 TextBox_AfterUpdate Ý mình là viết thế...
  15. P

    Xin giúp code kiểm tra file xls có tồn tại ko? nếu có Save as xlsx và xóa file gốc

    Mình có file D:\DATA\test.xls vậy phải viết code ntn cho file test.xls để: 1) kiểm tra trong Folder DATA có file Template.xls ko? 2) nếu có thì save as thành Template.XLSX + xóa file Template.xls & Nếu Folder DATA đã có file Template.XLSX thì khi Save as cũng xóa luôn file này (tức là save as...

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL
Back
Top Bottom