Tạo form vòng quay may mắn

[huuthang_bd]

Thấy đẹp quá nên em thử quay vài vòng.. rồi cái mũi tên chỉ đúng vạch. Giờ làm sao chia quà được anh?

Bởi vậy mới có cái textbox hiện kết quả đó. Ra chữ nào trao chữ đó thôi, quy ước lấy bên trái kim, code sai kim chỉ giữa bầu mà hiện chữ cua cũng phải chung cửa cua (hoặc phải chung cả 2 )

 

[saobekhonglac]

Bởi vậy mới có cái textbox hiện kết quả đó. Ra chữ nào trao chữ đó thôi, quy ước lấy bên trái kim, code sai kim chỉ giữa bầu mà hiện chữ cua cũng phải chung cửa cua (hoặc phải chung cả 2 )

Chung cả 2 chắc đỗ nợ. Bầu cua là 3 hột, cái này có 1 đâu có chơi được

 

[SA_DQ]

Tại sao cái cây kim không cho quay, nhỉ

 

[saobekhonglac]

Tại sao cái cây kim không cho quay, nhỉ

Quay cái hình có màu nhìn nó đẹp hơn

 

[huuthang_bd]

Chung cả 2 chắc đỗ nợ. Bầu cua là 3 hột, cái này có 1 đâu có chơi được

Người ta vẫn chơi được đó. 1 ô có 3 mặt.

Tại sao cái cây kim không cho quay, nhỉ

Quay kim không giống thật. Thực tế kim nhẹ không đủ lực quán tính để quay

 

[saobekhonglac]

Người ta vẫn chơi được đó. 1 ô có 3 mặt.

Quay kim không giống thật. Thực tế kim nhẹ không đủ lực quán tính để quay

Nói chứ chủ yếu làm chơi cho vui mấy trò ăn nhậu hay ai phải đi mua mồi thôi, chứ cờ bạc thì trực tiếp cho nó máu.

 

[ndu96081631]

Thấy đẹp quá nên em thử quay vài vòng.. rồi cái mũi tên chỉ đúng vạch. Giờ làm sao chia quà được anh?

Đây mới là điều cần lưu ý cho mấy "cái nón".

 

[trungn077]

Pie chart tôi làm từ hôm qua, quay trên biểu đồ luôn chứ không phải quay cái hình. Quay hình hình không cân là bị lệch tâm ngay.
Làm trên biểu đồ mấy cái chữ dài nó quay quay nên tôi không đăng lên .

Khi e muốn thêm dữ liệu từ B2:C9 thì ô công thức INDEx bị lỗi, không thể lấy tới C9 được, giúp e với
=INDEX(B2:B7,ROWS(B2:B7)-SUM(--(MMULT(--(ROW(C2:C7)+TRANSPOSE(ROW(C2:C7))>=ROWS(C2:C7)+ROW(C2)+1),C2:C7/SUM(C2:C7)*360)<E1)))

 

[huuthang_bd]

Khi e muốn thêm dữ liệu từ B2:C9 thì ô công thức INDEx bị lỗi, không thể lấy tới C9 được, giúp e với
=INDEX(B2:B7,ROWS(B2:B7)-SUM(--(MMULT(--(ROW(C2:C7)+TRANSPOSE(ROW(C2:C7))>=ROWS(C2:C7)+ROW(C2)+1),C2:C7/SUM(C2:C7)*360)<E1)))

Kinh nghiệm: Khi muốn thêm dữ liệu mà không muốn sửa tham chiếu (hoặc không biết sửa thế nào) thì hãy chèn thêm dòng ở giữa dữ liệu (một vị trí nào đó dưới dòng đầu tiên và trên dòng cuối cùng), sau đó nhập dữ liệu và copy công thức.

 

[trungn077]

Kinh nghiệm: Khi muốn thêm dữ liệu mà không muốn sửa tham chiếu (hoặc không biết sửa thế nào) thì hãy chèn thêm dòng ở giữa dữ liệu (một vị trí nào đó dưới dòng đầu tiên và trên dòng cuối cùng), sau đó nhập dữ liệu và copy công thức.

Dạ, e cám ơn! E làm đc rồi, nhưng e vẫn không hiểu sao mỗi khi lick chuột vào ô F1 (ô có hàm InDEx thì lại lỗi NA, e không tài nào sửa đc ô đó. Dù cho có sửa ô F1 hay không, chỉ cần bấm Enter vào đó rồi di chuyển chuột ra cũng báo lỗi NA nữa, a có thể giải thích e hiểu đc ko. E cám ơn!

 

[giaiphap]

Dạ, e cám ơn! E làm đc rồi, nhưng e vẫn không hiểu sao mỗi khi lick chuột vào ô F1 (ô có hàm InDEx thì lại lỗi NA, e không tài nào sửa đc ô đó. Dù cho có sửa ô F1 hay không, chỉ cần bấm Enter vào đó rồi di chuyển chuột ra cũng báo lỗi NA nữa, a có thể giải thích e hiểu đc ko. E cám ơn!

Đừng nhấn Enter mà hãy thử Ctrl+Shift+Enter xem thế nào.

 

[trungn077]

Đừng nhấn Enter mà hãy thử Ctrl+Shift+Enter xem thế nào.

dạ đc rồi ạ, a có thể giải thích giúp e sao nhấn vậy mới đc ạ. E muốn biết lắm, e cảm ơn!

 

[giaiphap]

dạ đc rồi ạ, a có thể giải thích giúp e sao nhấn vậy mới đc ạ. E muốn biết lắm, e cảm ơn!

Vì anh Bill đã qui định là công thức mảng phải kết thúc bằng Ctrl+Shift+Enter.

 

[trungn077]

Vì anh Bill đã qui định là công thức mảng phải kết thúc bằng Ctrl+Shift+Enter.

a có thể hướng dẫn e làm sao cho thời gian vòng quay ngắn lại không. ví dụ: giờ 2 muốn nó quay khoảng 10 giây thôi là ngưng đó a?

Sub Macro1()
Dim ChGroup As ChartGroup, i As Long, j As Long, k As Long, SeriesCol As SeriesCollection
Set ChGroup = ActiveSheet.ChartObjects(1).Chart.ChartGroups(1)
j = ChGroup.FirstSliceAngle
For k = 15 To 2 Step -1
    For i = 1 To 360 / k
        j = (j + k) Mod 360
        ChGroup.FirstSliceAngle = j
        [E1].Value = j
        DoEvents
    Next
Next
Randomize
k = Int(360 * Rnd) + 1
For i = 1 To k
    j = (j + 1) Mod 360
    ChGroup.FirstSliceAngle = j
    [E1].Value = j
    DoEvents
Next
End Sub

 

[kllua96]

Cái này trong tầm tay bạn mà, rảnh sửa chút là xong luôn đi bạn.

Em chào anh , anh có thể làm giúp em vòng xoay theo như trong ảnh được không ạ