[Nhờ vả] Excel macro tự thêm row

Thảo luận trong 'Thư giãn' bắt đầu bởi H@l0, 5/4/15.

  1. H@l0

    H@l0 Fire in the hole!

    Tham gia ngày:
    24/8/07
    Bài viết:
    2,888
    Nơi ở:
    Desert-NPole intersection
    [​IMG]
    Tình hình là mình có cái file excel stock price, ông thầy bắt làm continuous time series analysis. Mà tình hình là các ngày nghỉ lễ với cuối tuần stock market nó ko mở nên data thiếu ko chạy được. Mình thì mù excel VBA, tự add row bằng tay cho data 35 năm chắc chết mất:2cool_burn_joss_sti

    Cột J là khoảng cách giữa các ngày. Có đồng chí nào giỏi VBA viết hộ mình cái code nó tự thêm (J-1) rows dưới đít tất cả các dòng hộ mình được ko:4cool_beauty:
     
    Anh Phương Baby thích bài này.
  2. KoreaTea

    KoreaTea Dragon Quest

    Tham gia ngày:
    3/1/09
    Bài viết:
    1,427
    ko :v

    Hồi xưa có bác nào nhờ vả excel trong gvn, giúp xong đ thấy 1 câu cảm ơn, tất nhiên là làm thì cũng tự giúp bản thân rà lại trình độ thôi, nhưng giờ cũng ko có hứng làm mà đưa lên mạng nữa :v
     
  3. tthixk

    tthixk Youtube Master Race

    Tham gia ngày:
    20/4/06
    Bài viết:
    0
    thêm row thì dễ, nhưng data thì móc đâu ra? Chả lẽ thêm row rỗng?
     
  4. Anh Phương Baby

    Anh Phương Baby Fire in the hole!

    Tham gia ngày:
    25/8/09
    Bài viết:
    2,635
    Tiện đây cho mình hỏi luôn. Mình có 2 file exel (hoặc 1 word 1 excel) mình cần dò chính tả và số thứ tự của file này so với file kia (1 file là gốc file kia đối tác sẽ gắp những cái họ cần ra thôi rồi gửi cho mình) cái là rất nhiều mà dò từng cái thì gần chết mà k dò đối tác sửa tên dịch vụ mà k biết gđ ký rồi thì chỉ có ăn... Có cách nào không mọi người?
     
  5. 25512345

    25512345 C O N T R A Lão Làng GVN

    Tham gia ngày:
    24/7/08
    Bài viết:
    1,903
    Chẳng hiểu gì cả :-??
     
    Anh Phương Baby thích bài này.
  6. Anh Phương Baby

    Anh Phương Baby Fire in the hole!

    Tham gia ngày:
    25/8/09
    Bài viết:
    2,635
    Mình gửi cho đối tác 1 file exel có những dịch vụ mình có. Họ chọn những cái họ cần và gửi lại cho mình. Nhiệm vụ của mình xem là họ có sửa gì không? Vì nhiều người mang về xong sửa lại theo ý muốn của họ. Đại loại như file gốc là Bóp ngực 1 cái : 10k họ về sửa lại 2 cái 5k. Mình mà không xem lại mà sếp ký sau này thanh toán tiền họ viện vào đó là mình vỡ mặt :( Mà dò nhiều quá trời luôn 4k cái :(
     
  7. Game_Lord

    Game_Lord Lục Cẩu Chân Nhân

    Tham gia ngày:
    2/4/07
    Bài viết:
    1,564
    Nơi ở:
    Ngõ 2 hồ
    khoá lại, không cho edit, hoặc gửi pdf
     
    Anh Phương Baby thích bài này.
  8. ngothanhnam187

    ngothanhnam187 Fire in the hole! Lão Làng GVN

    Tham gia ngày:
    17/4/06
    Bài viết:
    2,883
    Sub Insert()
    Dim End_Row As Long, n As Long, Ins As Long
    End_Row = Range("P" & Rows.Count).End(xlUp).Row

    Application.ScreenUpdating = False
    For n = End_Row To 1 Step -1

    Ins = Cells(n, "P").Value

    If Ins > 0 Then Range("P" & n + 1 & ":P" & n + Ins).EntireRow.Insert

    Next n
    End Sub
     
    H@l0 and Anh Phương Baby like this.
  9. ngothanhnam187

    ngothanhnam187 Fire in the hole! Lão Làng GVN

    Tham gia ngày:
    17/4/06
    Bài viết:
    2,883
    Cột P là cột chưa số dòng cần insert sau đó
     
    H@l0 thích bài này.
  10. 25512345

    25512345 C O N T R A Lão Làng GVN

    Tham gia ngày:
    24/7/08
    Bài viết:
    1,903
    Nghe có vẻ dùng hàm vlookup và hloockup. Cần thiết thì chỉ cần danh sách các dịch vụ bóp bên kia muốn, giá cả thì dùng 2 hàm kia update từ bản gốc :9cool_sweet_kiss:
    http://vforum.vn/diendan/showthread.php?14257-Cach-su-dung-ham-Vlookup-Hlookup-va-vi-du-Demo
     
    Anh Phương Baby thích bài này.
  11. Anh Phương Baby

    Anh Phương Baby Fire in the hole!

    Tham gia ngày:
    25/8/09
    Bài viết:
    2,635
    Người ta muốn lách thì cần gì sửa của mình đọc của mình xong rồi ghi lại thôi :))
    Ừm thanks bác đề mình nghiên cứu. Hiện tại chỉ dò bằng mắt so sánh số thứ tự và dịch vụ thôi :))
     
  12. DAC

    DAC Space Marine Doomguy

    Tham gia ngày:
    10/4/04
    Bài viết:
    5,740
    Nơi ở:
    Cần Thơ
    Đăng ký dịch vụ kiểu gì mà kỳ lọa khó hiểu, thích sửa thế nào thì sửa. Thế lỡ người ta chọn dịch vụ xong đem về công ty tự đội giá lên thì khách hàng ăn hành à?

    Bình thường đáng lẽ cái File Excel kia chỉ là bảng giá, gửi 1 bản Copy qua cho nó xem, nó chọn dịch vụ, sau đó nhắn lại cho mình là chọn dịch vụ số 1, 3, 5, 7...rồi mình tự lên danh sách vào File gốc thôi. File Copy kia gửi rồi thì cho luôn khỏi lấy lại, sau này dù nó sửa thì cũng làm gì có giá trị pháp lý. Trừ phi lười, gửi luôn File gốc qua cho khách hàng tự đánh dấu vào rồi dùng chính File đó để giao địch luôn.
     
  13. H@l0

    H@l0 Fire in the hole!

    Tham gia ngày:
    24/8/07
    Bài viết:
    2,888
    Nơi ở:
    Desert-NPole intersection
    Thanks bác nhiều :9cool_sweet_kiss:. Hôm qua post xong mới nhớ ra trên máy trường có Alteryx nên lên đấy add row rồi, mà mải làm quên nhờ mod del thread :D
    Add data vào row ông ý cũng ko nói năng đòi hỏi gì nên mình check seasonality + trending xong ném linear regression phệt vào thôi :3cool_nosebleed:. Homework thôi mà. Thằng bạn mình còn kêu kì trước tao lấy row đầu, đít mà có data cộng vào chia 2 rồi cứ thế phệt, vẫn được 100 điểm nên mình cũng làm phiên phiến thôi.
     

Chia sẻ trang này