.:: Việt Sẻ Chia ::.

Tiêu đềGhost XP SP3 đa cấu hình, tự nhận Driver v2.0 - sản phẩm của ITFRIEND
Nội dungsao tui linh ma ko duoc vay

Tiêu đềLBVMVT số 288 (ngày 20/01/2009)
Nội dungtoi co doc bao lamban voi may vi tinh so 288 co muc huong dan tao chuong trinh quan ly nhan su co hinh anh bang excel cua tac gia Duong manh Hung (xuanthinhvtlt@yahoo.com) nhung den muc viet ham goi hinh anh thi khong duoc mong cac pac chi gium cho em voi voi ham cu the nhu sau:
Private Sub Worksheet _ Change(ByVal Target As Excel.Range)
  If Target.Address = "$D$6" Then
  Dim ExcelApp, p As Object
  Dim pathApp, path1 As String
  pathApp = ThisWorkbook.Path & "> Quan ly can bo.xls"
  
  Set ExcelApp = GetObject(pathApp)
  Dim Wkb As New Excel.Workbook
  Dim targetCell As Range, t As Double, l As Double, w As Double, h As Double, d As Double, r As Double
  On Error Resume Next
    Set p = ExselApp.Sheets("Tra tim").Pictures(1)
  p.Delete
    Set p = ExselApp.Sheets("Tra tim").Pictures(2)
    p.Delete
    
    path1 = Trim(ExcelApp.Sheets("Tra tim").Range("D6"))
    path1 = ExcelApp.Path & ">" & path1 & ".jpg"
    Setp = ExcelApp.Sheet("Tra tim").Pictures.Insert(path1) 'chen anh
    SettargetCell = ExcelApp.Sheet("Tra tim").Ranger("b8")
    With targetCell
    t = .Top
    l = .Left
    EndWith
    SettargetCell = Nothing
    SettargetCell = ExcellApp.Sheet("Tra tim").Ranger("g15")
    WithtargetCell
    d = .Top + .Height
    r = .Left + .Width
    EndWith
    Withp
    .Top = t
    .Left = l
    .Width = r - l
    .Height = d - t
    EndWith
    Setp = Nothing
    End If
    End Sub

cac pac xem ham em viet co sai gi xin giup gium em cam on nhieu xin gui ve dia chi sau: phuongxdbt@yahoo.com.vn

Tiêu đềSổ tay Photoshop 2009
Nội dungsao to down ve roi doi? file tu .vsc sang .rar ma` van ko doc duoc la` sao

Tiêu đềGhost XP SP3 đa cấu hình, tự nhận Driver v2.0 - sản phẩm của ITFRIEND
Nội dungbạn kiểm tra lại tập tin xem sao chứ bản ghost này minh dùng lắm virus lắm

Tiêu đềGhost XP SP3 đa cấu hình, tự nhận Driver v2.0 - sản phẩm của ITFRIEND
Nội dungbản no soft thấy part 6 là 12mb chứ, sửa lại cho đúng chút để khỏi lo lắng lỡ tải về cài không được mất công vì không đúng ah!