Sub Taodayso()
Range("C22:U9999").Select
Selection.Delete Shift:=xlUp
Dim sArr, dArr, sRng As Range, eRng As Range
Dim Dic As Object
Dim i As Long, K As Long, j As Long, Col As Long, N As Long, Nt As Long, Ns As Long, sodong As Long, demdong As Long, t As Long
On Error GoTo Thoat
Set Dic = CreateObject("Scripting.Dictionary")
Set sRng = Sheet1.Range("X22:Y99")
N = 2
sArr = sRng.Value
ReDim dArr(1 To 65535, 1 To UBound(sArr, 2))
For i = 1 To UBound(sArr)
If Not Dic.Exists(sArr(i, N)) Then
Dic.Add sArr(i, N), ""
If sArr(i, N) <> Empty Then
If sArr(i, 1) >= 1 Then
If i = 1 Then Nt = 1
Ns = Int(sArr(i, N))
For j = Nt To Ns
K = K + 1
For Col = 1 To N - 1
dArr(K, Col) = sArr(i, Col)
Next Col
dArr(K, N) = j
Next j
End If
If sArr(i, N) > Int(sArr(i, N)) Then
K = K + 1
For Col = 1 To N - 1
dArr(K, Col) = sArr(i, Col)
Next Col
dArr(K, N) = sArr(i, N)
End If
Nt = Ns + 1
End If
End If
Next i
Set eRng = Sheet1.Range("C22:D22")
eRng.Resize(1500, UBound(sArr, 2)).ClearContents
eRng.Resize(K, UBound(sArr, 2)) = dArr
Set Dic = Nothing
Thoat:
Trong đây là bản VBA em tìm trên mạng chia dãy số cho trước thành 1 đoạn nhỏ nhưng nó chỉ chia cho từng đoạn 1. Ví dụ 5.3 thành 1 1 1 1 1.3. Có cách nào sửa code này để chia thành đoạn 0.5 hoặc 2 ... tùy mình chỉnh được ko ạ.
em cảm ơn.
Nhờ anh chị sửa dùm em code VBA
Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...
Moderator: tungblt
-
- Posts: 1
- Joined: Fri 07/06/2013 9:53 pm
Return to “Visual Basic for Application (VBA)”
Jump to
- THÔNG TIN CHUNG
- ↳ Thông báo và hướng dẫn sử dụng
- ↳ Đóng góp ý kiến, thắc mắc về diễn đàn
- THẮC MẮC - TRAO ĐỔI - THẢO LUẬN
- ↳ Windows Phone
- ↳ Android
- ↳ Visual Basic for Application (VBA)
- ↳ Visual Basic 6 và Visual Basic Script (VB & VBS)
- ↳ Visual Basic .NET và C# (VB.NET & C#)
- ↳ Lập trình Web với ASP.NET
- ↳ Lập trình hướng đối tượng (OOP)
- ↳ Các vấn đề CNTT chung
- ↳ Ứng dụng Quản lý và Cơ sở dữ liệu
- ↳ Cấu trúc dữ liệu và giải thuật
- ↳ Các vấn đề CNTT khác
- TÀI NGUYÊN - HƯỚNG DẪN - MÃ NGUỒN
- ↳ Tài nguyên Visual Basic (VB6 - VBA - VBS)
- ↳ [VB] Bài viết hướng dẫn
- ↳ [VB] Thủ thuật, mẹo vặt
- ↳ [VB] Âm thanh và Đồ họa
- ↳ [VB] Chuỗi và Thời gian
- ↳ [VB] Hệ thống - Tập tin - Thư mục và Mạng
- ↳ [VB] Ứng dụng - Form và Control
- ↳ [VB] Mẹo vặt khác
- ↳ [VB] Mã nguồn
- ↳ [VB] Mã nguồn chương trình quản lý
- ↳ [VB] Mã nguồn chương trình tiện ích
- ↳ [VB] Mã nguồn chương trình giải trí
- ↳ [VB] Mã nguồn linh tinh
- ↳ [VB] Module, Class, UserControl, OCX
- ↳ [VB] Công cụ, tiện ích
- ↳ Tài nguyên .NET Windows Forms (VB.NET - C#)
- ↳ [.NET] Bài viết hướng dẫn
- ↳ [.NET] Thủ thuật, mẹo vặt
- ↳ [.NET] Âm thanh và Đồ họa
- ↳ [.NET] Chuỗi và Thời gian
- ↳ [.NET] Hệ thống - Tập tin - Thư mục và Mạng
- ↳ [.NET] Ứng dụng - Form và Control
- ↳ [.NET] Mẹo vặt khác
- ↳ [.NET] Mã nguồn
- ↳ [.NET] Mã nguồn chương trình quản lý
- ↳ [.NET] Mã nguồn chương trình tiện ích
- ↳ [.NET] Mã nguồn chương trình giải trí
- ↳ [.NET] Mã nguồn linh tinh
- ↳ [.NET] Module, Class, UserControl, DLL
- ↳ [.NET] Công cụ, tiện ích
- ↳ Tài nguyên ASP.NET
- ↳ [ASP.NET] Bài viết giới thiệu, hướng dẫn
- ↳ [ASP.NET] Control, Web User Control, Class
- ↳ [ASP.NET] Mã nguồn
- ↳ Tài nguyên chung
- ↳ Bài viết hướng dẫn
- ↳ Ebook - Link tham khảo
- ↳ Công cụ
- MADE IN "TỰ TUI"
- ↳ Đề tài chung
- ↳ Dự án mã nguồn mở
- ↳ Giới thiệu sản phẩm
- ↳ Phần mềm quản lý
- ↳ Công cụ - Tiện ích
- ↳ Trò chơi - Giải trí
- ↳ Ý tưởng của bạn
- KHU CÔNG CỘNG
- ↳ Giao lưu
- ↳ Giải trí
- ↳ Cơ hội - Việc làm
- ↳ Rao vặt - Quảng cáo