vuminh1601
Được thích
355

Tin nhắn hồ sơ Hoạt động gần nhất Các bài đăng Giới thiệu Các danh hiệu

  • mới có đang định thôi mà. từ đó đến lúc thực hiện còn xa lắm. mà có khi muốn lấy vợ quá. ko chờ đc nên lấy tạm 1 cô nào đó cầm hơi rồi chờ e về cũng nên
    @Levanninh File mềm thì các AC đã post lên rất nhiều rùi. cứ tìm trong GPE là có đủ hết. còn file cứng thì mình mua sách của bác Hướng. bạn xem dòng chữ chạy quảng cáo trên đầu trang đó. (Copy lại vi phạm bản quyền đấy :D )
    Hi anh!
    Anh có tài liệu nào về VBA thì send em nhé
    Nếu có file cứng thì em mượn photo nhé
    Em muốn tìm hiểu thêm về VBA nhưng không có điều kiện để đi học.
    Anh add nick yahoo của em nhé. Có vấn đề gì thì em hỏi anh.
    Nick yahoo levanninh7789
    Cảm ơn anh!
    chào đồng chí Vũ Minh. đề nghị đồng chí vào thì nhớ hỏi thăm đến huongchuoi nhé. có lẽ trốn đi lấy vợ nên quên hết anh em bạn bè
    Cái đó thì em biết. Thực ra đoạn code đó em vẫn chưa ưng ý chút nào đâu, nhưng tại chưa nghĩ ra cách hay hơn.
    - Mà Bác đang làm trong lĩnh vực nào thế? Đồng hương nhưng chưa được gặp bác lần nào.hii
    Câu hỏi này lại rất dễ Anh ạ. Để điều khiển chạy được từng picture ANh cứ mường tượng ra rằng, cứ mỗi cái ảnh nó sẽ mang một tên riêng biệt. Vậy làm sao để trong một sheet anh đếm được tất cả các Ảnh đó là Ok. ( chắc sẽ liên tưởng đến hàm Count) ,và để chạy được từng ảnh thì lại nghĩ đến hàm for next rồi. Cụ thể thế này:
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim j As Byte
    Dim i As Byte
    For j = 1 To Sh.Shapes.Count
    Set a = Sh.Shapes(j).PictureFormat
    For i = 0 To 5
    a.Parent.Width = 100 + i
    a.Parent.Height = 50 + i
    Dim PauseTime, Start
    PauseTime = 1
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
    Next i
    Next j
    End Sub
    Cám ơn khoavu nhiều nhe.
    code:
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    Set a = Sh.Shapes(1).PictureFormat
    For i = 0 To 300
    a.Parent.Width = 100 + i
    a.Parent.Height = 50 + i
    Dim PauseTime, Start
    PauseTime = 0.01 '0.02
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
    Next i
    End Sub

    Code chạy đúng ý rồi.
    Mình hỏi thêm chút nữa. Nếu trong Sheet có nhiều ảnh muốn cùng phóng lên hoặc lần lượt phóng lên thì làm thế nào nữa.
    Em đang công tác trong Nam cơ. Anh xem lại đoạn code dừng chạy nhé. cái đó chỉ cần dùng thêm sự kiện DoEvents( ) nữa là Anh tha hồ mà nhìn hình ảnh chạy.\
    Để biết sự kiện đó có tác dụng thế nào ANh bôi đen nó nhấn F1 nhé. dùng google nó dịch cũng tương đối chuẩn,hih
    :d cảm ơn lời chúc của anh nhé ! Mèo chỉ mong bắt đc chuột đồng măm cho ngon, chứ chuột vàng hổng măm đc, rụng răng thì chít :d

    hjhj ! Chúc anh 1 năm nhìu may mắn và tràn ngập iu thương nha!

    Ơ ! Có quán tiểu hổ ở đâu vậy anh ??? cho mèo địa chỉ mèo tới dọa chủ quán chơi :d :d :d :d :d
    Cám ơn anh Minh nhiều! Hôm qua em mới mò được và làmt thử, thấy được nên em mừng quá. Em cũng chưa kiểm tra kỹ đâu anh. Ok, em sẽ xem lại anh ah!
    Hi bạn, mình đang muốn học PivotTable, Formulas và nhất là VBA nhưng không biết bắt đầu từ đâu. Bạn có thể nói qua cho mình hướng đi và khoảng thời gian bao lâu (mình sẽ học chăm chỉ) để nắm được cơ bản VBA. Mình là Ly. Mobile: 09751.159.186
    Rất mong bạn liên lạc lại. Cảm ơn
  • Đang tải…
  • Đang tải…
  • Đang tải…
  • Đang tải…
Top Bottom