Trang 1/2 1 2 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 12
  1. #1
    Tham gia ngày
    04 2008
    Bài gởi
    84
    Cảm ơn
    32
    Được cảm ơn 5 lần trong 3 bài viết

    Hỏi về cách chia cột trong excel

    Mình có một danh sách bài hát ( file đính kèm) giờ muốn chia theo như hình đã tô màu bên cạnh thì làm theo cách nào để nhanh chóng nhất, ai biết thì chỉ giùm

  2. #2
    Tham gia ngày
    06 2006
    Bài gởi
    3,243
    Cảm ơn
    5,936
    Được cảm ơn 6,270 lần trong 2,728 bài viết

    Bạn có đòi kẻ khung không đó?

    Code:
    Option Explicit
    Sub SaoChép()
     Dim Rng As Range, sRng As Range, cRng As Range
     Dim MyAdd As String:               Dim Rws As Long, VTr As Byte
     Const NotNhac As String = "NHAC HOT THANG "
     
     Columns("B:E").Delete
     Set Rng = Range([A1], [A65500].End(xlUp))
     Set sRng = Rng.Find(NotNhac, , xlFormulas, xlPart)
     If Not sRng Is Nothing Then
       MyAdd = sRng.Address
       Do
          [D65500].End(xlUp).Offset(2, -2).Value = sRng.Value
          Set cRng = sRng.Offset(3)
          Rws = cRng.CurrentRegion.Rows.Count
    '      Set cRng = cRng.Resize(Rws \ 2)'
          With [B65500].End(xlUp)
             cRng.Resize(Rws \ 2).Copy Destination:=.Offset(2)
             cRng.Offset(Rws \ 2).Resize(Rws \ 2 + 1).Copy Destination:=.Offset(2, 2)
          End With
          Set sRng = Rng.FindNext(sRng)
       Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
     End If
     Application.DisplayAlerts = False
     For Each Rng In Range([B3], [B65500].End(xlUp).Offset(2))
       If InStr(Rng.Value, NotNhac) Then
          Rng.HorizontalAlignment = xlCenter
          Rng.Resize(, 4).Merge
       Else
          VTr = InStr(Rng.Value, " ")
          If VTr Then
             Rng.Offset(, 1).Value = Mid(Rng.Value, VTr + 1, 99)
             Rng.Value = Left(Rng.Value, VTr - 1)
          End If
          With Rng.Offset(, 2)
             VTr = InStr(.Value, " ")
             If VTr Then
                .Offset(, 1).Value = Mid(.Value, VTr + 1, 99)
                .Value = Left(.Value, VTr - 1)
             End If
          End With
       End If
     Next Rng
     Application.DisplayAlerts = True
    End Sub
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: SA_DQ, 04-11-10 lúc 10:04 AM Lý do: Thay cấu trúc [php ]. . [/php] => [Code][/code ]
    (hào tất cả mọi người!

  3. Có 2 thành viên cảm ơn SA_DQ về bài viết này:


  4. #3
    Tham gia ngày
    04 2008
    Bài gởi
    84
    Cảm ơn
    32
    Được cảm ơn 5 lần trong 3 bài viết
    bạn chỉ giùm mình cách kẻ khung luôn và có thể thực hiện với tất cả các mục khác chứ không riên gì mục "nhạc hot" vì trong list nhạc của mình có những danh sách ca sỹ khác nữa mà mình muốn chia theo như vậy luôn. Rất cám ơn bạn vì đã giúp đỡ mình

    Mình xem bài bạn gửi cho mình , mình rất thích bạn giỏi thật. Mình muốn gửi file lên diễn đàn hỏi bạn một chút nữa mà không thấy mục tải file lên, Nếu có thể bạn cho mình xin mail và giúp đỡ mình thêm một chút nữa thì tốt. Cám ơn bạn nhiều

    Mình có file list nhạc muốn kẻ ô trình bày theo mẫu gửi kèm bên duới 1 cách nhanh nhất nhưng không biết cách, hôm trước đã có người làm giúp mình nhưng chưa đuợc hòan thành, mình nhờ ai biết thì giúp mình với. Mình cám ơn nhiều
    thay đổi nội dung bởi: ptm0412, 05-11-10 lúc 01:06 PM

  5. Thành viên sau cảm ơn tuan206791 về bài viết này:


  6. #4
    Tham gia ngày
    06 2006
    Bài gởi
    3,243
    Cảm ơn
    5,936
    Được cảm ơn 6,270 lần trong 2,728 bài viết

    Mời bạn xem file


    Lần này thì quá cả iêu cầu đó nha!


    Mất cả buổi mới xong cái định dạng!
    Tập tin đính kèm Tập tin đính kèm
    (hào tất cả mọi người!

  7. Thành viên sau cảm ơn SA_DQ về bài viết này:


  8. #5
    Tham gia ngày
    04 2008
    Bài gởi
    84
    Cảm ơn
    32
    Được cảm ơn 5 lần trong 3 bài viết
    Trích Nguyên văn bởi SA_DQ View Post

    Lần này thì quá cả iêu cầu đó nha!


    Mất cả buổi mới xong cái định dạng!
    Cám ơn bạn nhiều, mình xem bạn làm quả thật là tuyệt vời. Nhưng không hiểu sao khi mình chạy với một đọan list khác thì không được và thấy báo lỗi số 9. Bạn giúp mình với nhé

  9. #6
    Tham gia ngày
    09 2008
    Bài gởi
    2,812
    Cảm ơn
    2,898
    Được cảm ơn 3,696 lần trong 2,063 bài viết
    quả thật là tuyệt vời. Nhưng không hiểu sao khi mình chạy với một đọan list khác thì không được và thấy
    báo lỗi số 9. Bạn giúp mình với nhé
    Mỗi 1 trang tính trong file của bạn có những đặc thù khác nhau & ngưởi viết macro dựa vô nó để xử lý khối dữ liệu;

    Như file đầu của bạn có các tiêu đề hoàn toàn na ná nhau & các từ đầu câu luôn giống nhau
    Còn trang tính trong file sau thì dự vô các lằn gạch đôi của bạn dước tác giả ca khúc,. . .

    Như vậy 1 macro xử lý cho 2 trường hợp cùng chung 1 trang tính là chưa có;

    Nếu muốn xử lý cả các ca khúc trong tháng & các tác giả, thì bạn cần đưa trang tính đó lên mới được.

  10. Thành viên sau cảm ơn ChanhTQ@ về bài viết này:


  11. #7
    Tham gia ngày
    04 2008
    Bài gởi
    84
    Cảm ơn
    32
    Được cảm ơn 5 lần trong 3 bài viết
    File list nhạc của mình thì tất cả duới tên ca sỹ đều có làn gạch đôi hết.Mình cũng đã thử chạy trên chính file gốc nhưng vẫn báo lỗi như vậy. Phiền bạn thêm lần nữa giúp mình với nhé. Cám ơn bạn nhiều lắm
    thay đổi nội dung bởi: tuan206791, 05-11-10 lúc 08:09 PM

  12. #8
    Tham gia ngày
    10 2008
    Bài gởi
    66
    Cảm ơn
    42
    Được cảm ơn 4 lần trong 4 bài viết
    Option Explicit
    Sub SaoChép()
    Dim Rng As Range, sRng As Range, cRng As Range
    Dim MyAdd As String: Dim Rws As Long, VTr As Byte
    Const NotNhac As String = "NHAC HOT THANG "

    Columns("B:E").Delete
    Set Rng = Range([A1], [A65500].End(xlUp))
    Set sRng = Rng.Find(NotNhac, , xlFormulas, xlPart)
    If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
    [D65500].End(xlUp).Offset(2, -2).Value = sRng.Value
    Set cRng = sRng.Offset(3)
    Rws = cRng.CurrentRegion.Rows.Count
    ' Set cRng = cRng.Resize(Rws \ 2)'
    With [B65500].End(xlUp)
    cRng.Resize(Rws \ 2).Copy Destination:=.Offset(2)
    cRng.Offset(Rws \ 2).Resize(Rws \ 2 + 1).Copy Destination:=.Offset(2, 2)
    End With
    Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    Application.DisplayAlerts = False
    For Each Rng In Range([B3], [B65500].End(xlUp).Offset(2))
    If InStr(Rng.Value, NotNhac) Then
    Rng.HorizontalAlignment = xlCenter
    Rng.Resize(, 4).Merge
    Else
    VTr = InStr(Rng.Value, " ")
    If VTr Then
    Rng.Offset(, 1).Value = Mid(Rng.Value, VTr + 1, 99)
    Rng.Value = Left(Rng.Value, VTr - 1)
    End If
    With Rng.Offset(, 2)
    VTr = InStr(.Value, " ")
    If VTr Then
    .Offset(, 1).Value = Mid(.Value, VTr + 1, 99)
    .Value = Left(.Value, VTr - 1)
    End If
    End With
    End If
    Next Rng
    Application.DisplayAlerts = True
    End Sub
    Đoạn Code ở trên là sử dụng Víual basic phải không bạn?

  13. #9
    Tham gia ngày
    06 2006
    Bài gởi
    3,243
    Cảm ơn
    5,936
    Được cảm ơn 6,270 lần trong 2,728 bài viết
    File list nhạc của mình thì tất cả duới tên ca sỹ đều có làn gạch đôi hết.Mình cũng đã thử chạy trên chính file gốc nhưng vẫn báo lỗi như vậy. Phiền bạn thêm lần nữa giúp mình với nhé. Cám ơn bạn nhiều lắm
    Bạn đưa file gốc lên đi, canh sao cho nhiều dữ liệu nhất đó!

    To SonDauBac: đó là VBA bạn à, (VB for Application)
    thay đổi nội dung bởi: SA_DQ, 11-11-10 lúc 12:30 PM Lý do: Do mới đọc tin nhắn 7/11 hôm nay
    (hào tất cả mọi người!

  14. #10
    Tham gia ngày
    04 2008
    Bài gởi
    84
    Cảm ơn
    32
    Được cảm ơn 5 lần trong 3 bài viết
    Trích Nguyên văn bởi SA_DQ View Post
    Bạn đưa file gốc lên đi, canh sao cho nhiều dữ liệu nhất đó!

    To SonDauBac: đó là VBA bạn à, (VB for Application)
    Đây là file gốc bạn giúp mình với nhé

Trang 1/2 1 2 cuốicuối

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. Công thức chia trong excel
    Viết bởi Cavenui trong chuyên mục Hàm và công thức Excel
    Trả lời: 16
    Bài mới gởi: 04-07-13, 10:36 PM
  2. Có thể rút trích trong bảng excel khi tiêu đề của bảng tính đã hợp hoặc chia ô?
    Viết bởi trietquangtrung trong chuyên mục Hỏi đáp những vấn đề khác
    Trả lời: 1
    Bài mới gởi: 03-07-10, 02:27 PM
  3. Chia số trong excel không được?
    Viết bởi littlegirl trong chuyên mục Những vấn đề chung
    Trả lời: 14
    Bài mới gởi: 10-11-09, 02:46 PM
  4. Hỏi về cách chia cột trong excel
    Viết bởi tuan206791 trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 5
    Bài mới gởi: 06-09-09, 09:33 PM
  5. Phân chia, lọc dữ liệu trong excel
    Viết bởi dinhhong04 trong chuyên mục Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
    Trả lời: 6
    Bài mới gởi: 16-03-09, 08:37 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)]