Nhờ Mọi người tư vấn viết 1 đoạn code VBA (1 người xem)

[boda9999]

Mong mọi người giúp đỡ

 

[doveandrose]

chỉ là tư vấn thôi mà

Cột D: Copy giá trị của cột E

cái này tôi chưa thấy bạn thực hiện trên bảng ?
nếu dùng code thì code hết . công thức chi nữa . random trong VBA cũng có hàm RND rồi .
bạn cần tạo mảng gán các giá trị theo ý bạn rồi gán ngược lại vào sheet .
tư vấn đã xong

 

[nghiaphuc]

Mong mọi người giúp đỡ

Cái bạn cần là vùng tô màu thôi hay là cả 2 cột D, E nữa? Theo tôi hiểu thì các cột D, E chỉ là cột trung gian để tạo ra các cột B, C, không biết có đúng không nhỉ? Nếu đúng thì ta có thể bỏ qua 2 cột D, E này.

 

[boda9999]

chỉ là tư vấn thôi mà

cái này tôi chưa thấy bạn thực hiện trên bảng ?
nếu dùng code thì code hết . công thức chi nữa . random trong VBA cũng có hàm RND rồi .
bạn cần tạo mảng gán các giá trị theo ý bạn rồi gán ngược lại vào sheet .
tư vấn đã xong

Dạ. Cột D là copy giá trị của cột E đó ạ. VÌ E là hàm ran nên e nghĩ nó thế ý. Hi
thế chắc e phải sửa lại tiêu đề thôi. Mong a giúp đỡ

 

[boda9999]

Cái bạn cần là vùng tô màu thôi hay là cả 2 cột D, E nữa? Theo tôi hiểu thì các cột D, E chỉ là cột trung gian để tạo ra các cột B, C, không biết có đúng không nhỉ? Nếu đúng thì ta có thể bỏ qua 2 cột D, E này.

Dạ vâng ạ. 2 cột đó chỉ là trung gian ạ. Mong a giúp đỡ!

 

[nghiaphuc]

Dạ vâng ạ. 2 cột đó chỉ là trung gian ạ. Mong a giúp đỡ!

Bạn dùng code sau nhé:
[GPECODE=vb]Sub TaoBang()
Dim Tmp, Arr(), i As Long, k As Long
Tmp = Sheet1.[D1020]
ReDim Arr(1 To 11, 1 To 4)
For i = 1 To UBound(Tmp)
If IsEmpty(Tmp(i, 1)) Then Exit For
k = k + 1
Arr(k, 1) = k
Arr(k, 2) = Tmp(i, 1)
Arr(k, 4) = Int(10 * Rnd + 1)
Arr(k, 3) = Arr(k, 2) + Arr(k, 4)
Next
Sheet1.[C10:F20].Clear
If k = 0 Then Exit Sub
With Sheet1.[C10:F10].Resize(k)
.Value = Arr
.Borders.LineStyle = 1
End With
End Sub[/GPECODE]