GPE Phát hành sách: "Lập trình VBA trong Excel cho người mới bắt đầu - 2014" | "VBA trong Excel - Cải thiện và tăng tốc - 2013"
Hiển thị kết quả tìm kiếm từ 1 đến 2 trên tổng số: 2
  1. #1
    Tham gia ngày
    11 2010
    Bài gởi
    2
    Cảm ơn
    1
    Được cảm ơn 0 lần trong 0 bài viết

    copy công thức đến dòng cuối của cột ko được "AutoFill Destination"

    Nhờ các pác góp ý cho em vấn đề này.

    Em lập file đọc số liệu (nội lực và tiết diện xuất từ Etabs), ko phát hiện thấy lỗi nhưng sao lại ko cho copy formulas hết cho các dòng. Cụ thể dòng này sao em thấy ko đc thực thi nhỉ "[E2].AutoFill Destination:=Range(Cells(2, "E"), Cells(n, "E")), Type:=xlFillDefault"
    Nhờ Pác check giúp em. Thanks
    -----------------------------
    Private Sub nhapnoiluc_Click()
    Dim n As Integer, m As Integer, q As Integer, p As Integer, i As Integer, S1 As Worksheet, S2 As Worksheet, S3 As Worksheet

    'nhap noi luc'
    Set S1 = Sheets("noi luc Etab")
    Set S2 = Sheets("tinhthep")
    Set S3 = Sheets("Frame Section Assignments")
    If MsgBox("Ban Muon NHAP Du Lieu MOI?", vbOKCancel, "Canh Bao!!!") = vbCancel Then Exit Sub

    n = 1
    p = 41
    Do While S1.Cells(n + 1, "A") <> ""
    n = n + 1
    p = p + 1
    Loop
    S2.Range("A42:K" & p).Clear
    S2.Range("O42:P" & p).Clear

    m = 1
    Do While S1.Cells(m + 1, "A") <> ""
    m = m + 1
    Loop
    S1.Range("A2:D" & m).Copy
    S2.Select
    [A42].PasteSpecial xlPasteValues
    S1.Range("E2:J" & m).Copy
    S2.Select
    [F42].PasteSpecial xlPasteValues

    'nhap tiet dien b, h cot'
    'tiet dien tren sheet Frame section assigment va Frame Section Properties '

    S3.Select
    S3.Cells(2, "E").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]&RC[-3]"
    n = 1
    Do While Cells(n + 1, "A") <> ""
    n = n + 1
    Loop
    S3.Cells(2, "E").Select
    [E2].AutoFill Destination:=Range(Cells(2, "E"), Cells(n, "E")), Type:=xlFillDefault

    Sheets("tinhthep").Select
    Range("O42").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(VLOOKUP(RC[-14]&RC[-13],'Frame Section Assignments'!R2C5:R10000C9,2,0),'Frame Section Properties'!R2C1:R1000C9,8,0)*100"
    Range("P42").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(VLOOKUP(RC[-15]&RC[-14],'Frame Section Assignments'!R2C5:R10000C9,2,0),'Frame Section Properties'!R2C1:R1000C9,7,0)*100"

    '
    End Sub

  2. #2
    Tham gia ngày
    06 2011
    Bài gởi
    142
    Cảm ơn
    56
    Được cảm ơn 7 lần trong 5 bài viết
    ban gửi fille len xem!!!

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Mở MS Excel bị lỗi "Runtime error"13" Type mismatch"
    Viết bởi nvloc1957 trong chuyên mục Hỏi đáp những vấn đề khác
    Trả lời: 8
    Bài mới gởi: 26-01-14, 01:45 PM
  2. Kéo thanh công cụ của "Form" và "Control Toolbox" ra Toolbar
    Viết bởi nghiaquangtran trong chuyên mục Excel 2007, 2010 & 2013
    Trả lời: 3
    Bài mới gởi: 21-02-13, 06:56 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]