Lại thêm một cao thủ VBA

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi levanduyet, 14 Tháng mười một 2005.

4,044 lượt xem

  1. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Tôi xin được phép thay mặt EFC xin chào đón bạn Ngọc.
    Tôi xin mạn phép tác giả đưa lên một file cho các bạn tham khảo.
    Chắc chắn rằng nếu tham gia ...thì bạn Ngọc chắc có lẻ sẽ tham gia EFC và cả AFC.
    Thân,
    Lê Văn Duyệt
     

    Các file đính kèm:

    #1
  2. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    Chào mừng bạn Ngọc tham gia EFC. Chúng ta lại có thêm một cao thủ mới để học hỏi khi anh Duyệt bận rộn nhiều.
     
    #2
  3. mysterious_girl

    mysterious_girl Thành viên sơ cấp

    Bài viết:
    358
    Đã được thích:
    1
    Nơi ở:
    ...close to you...
    Sao hổng thấy bạn Ngọc lên tiếng gì hết vậy cà. Cho mình hỏi nick của Ngọc là gì vậy?
     
    #3
  4. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    Thật bất ngờ và ấn tượng với File của Ngọc, vậy Ngọc "ra mắt" EFC đi, Duyệt có thể cung cấp thông tin về Ngọc cho các bạn khác làm quen không vậy ?
     
    #4
  5. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Bạn "N" không muốn nói gì cả! chỉ muốn âm thầm chia sẻ thôi.
    Thân,
    LVD
     
    #5
  6. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    Mình chưa xem file của bạn, nhưng mình biết bạn đã và đang chia sẻ với cộng đồng rồi. Có vấn đề gì khi vui, khi buồn, khi cao hứng bạn cứ post lên, âm thầm buồn và già nhanh lắm! Hehe
     
    #6
  7. ForestC

    ForestC Thành viên hoạt động

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Hay bạn Ngọc đấy là tên của bà xã anh hả an Duyệt? Anh là rất hay lung tung đấy nhé ... :)
     
    #7
  8. mysterious_girl

    mysterious_girl Thành viên sơ cấp

    Bài viết:
    358
    Đã được thích:
    1
    Nơi ở:
    ...close to you...
    ForestC là ai thế nhỉ?ai mà có nhiều sao thế? hi hi,em đùa thôi, chứ biết thừa anh là ai rồi. Chỉ cần nhìn vào cái meo của anh là biết nick cũ của anh liền à.:biggrin:
     
    #8
  9. paulsteigel

    paulsteigel Thành viên thân thiết

    Bài viết:
    103
    Đã được thích:
    0
    Nơi ở:
    Hoà Bình
    Hihi! Có lẽ theo em mấy bác trưởng chòm nên đóng mục "cao thủ ...." này lại và mở ra một mục mới có tên: Office VBA gì đó để chúng ta cùng nhau thảo luận các vấn đề liên quan đến VBA được không ạ.
    Bởi một nhẽ, nếu người ta chẳng muốn nêu tên ra thì thôi (em đoán là họ cũng chẳng muốn trở thành Hướng đối tượng-OOP hihi.).
    Mạn phép, xin được trình làng với một ví dụ em nhận được hôm nay của vài cậu bên ddth có hỏi liên quan đến access.
    Câu hỏi:
    [Hi!
    Minh moi ra truong nen voi lap trinh access con bo ngo lam
    Hien tai,minh dang viet chuong trinh loc du lieu tu danh thiep
    Minh co 1 van de mong ban giup do :
    -Co 1 so danh thiep se khong co day du thong tin ve:Duong,Phuong,Quan,Thanh Pho
    -Vi the,luc xuat ra report,nhung cho khong co du lieu se la khoang trang
    Co cach nao de khi xuat ra report,nhung cho trong do se duoc lap bang du lieu khac.
    Vi du : danh thiep khong co Phuong thi ngay tai do,du lieu cua Quan va Thanh Pho duoc di chuyen len de lap day cho trong.
    Mong tin ban
    Cam on ban da doc tin nay
    K.Q]
    Trả lời:
    [Chao ban!
    Vang, cau hoi cua ban kha hay, lien quan den van de cung kha phuc tap cua access ve chuc nang bao cao. Nhung day cung la nhung diem noi troi cua access de no khac va tot hon nhung loai bao cao khac do la Dinh dang co dieu kien (conditional Format).
    Co rat nhieu cach de lam, toi gioi thieu voi ban mot cach nhu sau (Giup ban nang cao kha nang tu duy thuat toan):
    Toi xin tra loi nhu sau:
    1. Ban vao che do design cua bao cao, hay chon phan details hoac section chua cac textbox de hien thi huyen, xa ...
    2. Chon Properties va chon tab Events tren hop thoai Property.
    Tai muc On Format, hay chon combo vao muc [Event Procedure] roi bam nut ben canh.
    Day chinh la cach gian tiep de vao code editor - có thể nhấn Alt+F11.
    Ban se thay man hinh VBA hien ra voi thu tuc la

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    End sub

    Day chinh la thu tuc duoc thuc thi moi khi bao cao duoc goi va hien thi.
    Ban hay dat cac thu tuc cua minh o day. trong do thuc hien cac yeu cau sau:
    + Dat ten nhom text box do la Txt1 cho den 10 (dieu nay de giup ban tham chieu den no mot cach de dang)
    + Kiem tra noi dung cua textbox
    + Neu gia tri la trang thi cho thuoc tinh Height cua no bang 0 vi du
    if Txt1.text="" then
    txt1.height=0
    end if
    Tat nhien la luc do khoang trang van con giua textbox vi the ban can phai co mot thuat toan de keo cac texbox len vi tri moi
    Txt2.top=txt1.top .... txt10.top =txt9.top ....
    Viec nay nen lam bang thuat toan de quy
    Ban co thay tham so formatcount khong? Cai nay de giup ta tranh viec thuc hien nhieu lan qua trinh dich chuyen nen toan bo nhom thu tuc can dat trong cau lenh
    if formatcount=1 then
    ....
    end if

    3. Sau do ban can phai dieu chinh do cao cua detail neu khong lai co khoang trang o cuoi doan bao cao
    Detail.height = TotalHeight
    trong do bien TotalHeight= tong chieu cao tat ca cac texbox co noi dung.
    Toi khong lam giup ban dieu nay, ban hay tu lam va gui cho toi ket qua, toi se comment cho ban.
    Tien day toi gui cho ban mot vi du ve cong cu ve Luoi cua Access nhe.
    GIan nen ra va chay, Nhan Report, dung nhan re-calculate nua, hay chon mot combo nao do va nhan print - ban se thay access rat manh trong ve luoi giong excel.
    THan
    ]
    Thực ra chi tiết thì còn nhiều hơn, xin cảm phiền các bác về đoạn không dấu nêu trên. Ví dụ kèm theo em xin mạn phép gửi kèm, dưng mà hihi một lần nữa xin lỗi vì comment em lại đã bằng Anh ngữ
    Nếu có gì các bác cứ YIM cho em nhé. paulsteigel
    Nay kính thư
    P/S Em muốn Attache ví dụ mà nỏ được mô.
    Mời các bác vào:
    www.sfdp.net/libs/gen/acc/report1.zip
     
    #9
  10. mysterious_girl

    mysterious_girl Thành viên sơ cấp

    Bài viết:
    358
    Đã được thích:
    1
    Nơi ở:
    ...close to you...
    To paulsteigel: với bài này bạn nên làm ra một new thread mới đặt trong box Excel và VBA hay box tin học ứng dụng thì hay hơn.(Vì hiện nay chưa có box Access).
     
    #10
  11. hai2hai

    hai2hai VNUNI Makes a difference

    Bài viết:
    2,012
    Đã được thích:
    128
    Nơi ở:
    Hà nội
    Access hiện nay đang thiếu người làm mod. paulsteigel có thể tham gia mod cho box đó được ko? Welcome!
     
    #11
  12. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    Cái file này hay ra phết, cách viết có kinh nghiệm.:eek:know:
     
    #12

Chia sẻ trang này