Tạo form vòng quay may mắn (2 người xem)

[saobekhonglac]

Chào Anh/Chị.

Mình thấy hiện tại có nhiều chương trình vòng quay may mắn, thấy cũng vui. Không biết trên Excel mình có làm đươc như vậy không.
Các ô nội dung mình tùy chỉnh 10 hay 15 ô gì cũng được, và khi quay nó chạy tự động thay đổi (ngẫu nhiên thì sẽ công bằng hơn). Nhờ Anh/chị giúp.

Cám ơn nhiều.

 

[giaiphap]

Chào Anh/Chị.

Mình thấy hiện tại có nhiều chương trình vòng quay may mắn, thấy cũng vui. Không biết trên Excel mình có làm đươc như vậy không.
Các ô nội dung mình tùy chỉnh 10 hay 15 ô gì cũng được, và khi quay nó chạy tự động thay đổi (ngẫu nhiên thì sẽ công bằng hơn). Nhờ Anh/chị giúp.

Cám ơn nhiều.

View attachment 206720

Bác này coi bộ khoái cái vụ chiếc nón kỳ diệu à.

 

[HieuCD]

Bác này coi bộ khoái cái vụ chiếc nón kỳ diệu à.

Kỳ diệu thiệt, quay thêm vài vòng và tốc độ chậm dần là giống y

 

[giaiphap]

Kỳ diệu thiệt, quay thêm vài vòng và tốc độ chậm dần là giống y

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

 

[HieuCD]

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

Làm thử

Sub Macro2()
    Dim i As Integer, n As Integer, r As Integer, d As Integer, v As Integer, k As Integer
    Dim dArr()
    dArr = Array("Quat het ly", "Thang ben trai uong 1 ly", "Uong nua ly", "Thang ben phai quat 1 ly", "Ca ban cung zo", "Quat 1 ly ruoi", "Khong phai quay vong sau", "Quat 3 mieng moi", "Quat 2 ly", "Qua luot", "Quat phat 3 ly", "Giong thang tiep theo")
    Randomize
    n = Int(360 * Rnd) + (Int(7 * Rnd) + 2) * 360
    r = 15
    d = Int(n / r)
    For i = 1 To n Step r
        Sheet1.Shapes.Range(Array("VongQuay")).Rotation = Sheet1.Shapes.Range(Array("VongQuay")).Rotation + r
        DoEvents
        v = Sheet1.Shapes.Range(Array("VongQuay")).Rotation Mod 360
        Sheet1.Shapes.Range(Array("DOXOAY")).TextFrame2.TextRange.Text = v
        Sheet1.Shapes.Range(Array("KQ")).TextFrame2.TextRange.Text = dArr(Int(v / 30))
        If i > d * k Then
          r = r - 1
          k = k + 1
        End If
    Next i
End Sub

 

[saobekhonglac]

Làm thử

Sub Macro2()
    Dim i As Integer, n As Integer, r As Integer, d As Integer, v As Integer, k As Integer
    Dim dArr()
    dArr = Array("Quat het ly", "Thang ben trai uong 1 ly", "Uong nua ly", "Thang ben phai quat 1 ly", "Ca ban cung zo", "Quat 1 ly ruoi", "Khong phai quay vong sau", "Quat 3 mieng moi", "Quat 2 ly", "Qua luot", "Quat phat 3 ly", "Giong thang tiep theo")
    Randomize
    n = Int(360 * Rnd) + (Int(7 * Rnd) + 2) * 360
    r = 15
    d = Int(n / r)
    For i = 1 To n Step r
        Sheet1.Shapes.Range(Array("VongQuay")).Rotation = Sheet1.Shapes.Range(Array("VongQuay")).Rotation + r
        DoEvents
        v = Sheet1.Shapes.Range(Array("VongQuay")).Rotation Mod 360
        Sheet1.Shapes.Range(Array("DOXOAY")).TextFrame2.TextRange.Text = v
        Sheet1.Shapes.Range(Array("KQ")).TextFrame2.TextRange.Text = dArr(Int(v / 30))
        If i > d * k Then
          r = r - 1
          k = k + 1
        End If
    Next i
End Sub

Muốn sửa các chữ trong vòng quay thì phải thay luôn cái vòng khác hả anh

 

[HieuCD]

Muốn sửa các chữ trong vòng quay thì phải thay luôn cái vòng khác hả anh

Là 1 hình ảnh, phải thay vòng khác thôi, liên lạc với bạn @giaiphap chắc có cách làm nhanh

 

[saobekhonglac]

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

Anh chỉ em cách thay đổi nội dung trong cái vòng tròn với.

 

[be_09]

Chào Anh/Chị.

Mình thấy hiện tại có nhiều chương trình vòng quay may mắn, thấy cũng vui. Không biết trên Excel mình có làm đươc như vậy không.
Các ô nội dung mình tùy chỉnh 10 hay 15 ô gì cũng được, và khi quay nó chạy tự động thay đổi (ngẫu nhiên thì sẽ công bằng hơn). Nhờ Anh/chị giúp.

Cám ơn nhiều.

View attachment 206720

Thử 1 kiểu khác.

 

[giaiphap]

Anh chỉ em cách thay đổi nội dung trong cái vòng tròn với.

Nhanh thì mình không biết, còn cách của mình là Photoshop thôi. Bạn tùy biến trong file nhé.

 

[saobekhonglac]

Nhanh thì mình không biết, còn cách của mình là Photoshop thôi. Bạn tùy biến trong file nhé.

Nếu sửa ít hơn 12 ô thì có được không anh. Anh chỉ giúp em với.

 

[giaiphap]

Nếu sửa ít hơn 12 ô thì có được không anh. Anh chỉ giúp em với.

Như đã đề cập ở #10, bạn có thể dùng photoshop để thực hiện. Còn bạn muốn làm từ a đến z cho bạn cũng được, nhưng bạn phải cho biết là có bao nhiêu ô giá trị. Nhưng giúp xong lần sau muốn thay đổi bạn lại nhờ nửa đấy.

 

[saobekhonglac]

Như đã đề cập ở #10, bạn có thể dùng photoshop để thực hiện. Còn bạn muốn làm từ a đến z cho bạn cũng được, nhưng bạn phải cho biết là có bao nhiêu ô giá trị. Nhưng giúp xong lần sau muốn thay đổi bạn lại nhờ nửa đấy.

Anh làm giúp em 1 cái 8 hình nữa nha anh.

 

[giaiphap]

Anh làm giúp em 1 cái 8 hình nữa nha anh.

Nếu yêu cầu không cao thì tôi hướng dẫn bạn thực hiện thế này. Vào powerpoint và vẽ 3 cái vòng tròn và định dạng như hình dưới (Cái hình có màu nền đặt phía dưới cùng).

Sau đó bạn canh 3 cái vòng tròn này vào đúng vị trí và group nó lại như hình.

Sau đó nháy nút phải chuột vào hình và chọn Save as Picture.

Bạn mở phần mềm Paint có sẳn trong Windows và mở cái hình bạn vừa save lên, sau đó dùng công cụ Fill With Color để tô màu giống như hình.

Bây giờ bạn vào Excel và chèn cái hình này vào, sau đó chọn hình và thực hiện theo hình chọn lệnh Set TransParent Color, nháy chuột vào vùng màu đen trong hình để bỏ cái màu đen đi, thế là bạn được cái bạn cần.

 

[saobekhonglac]

Nếu yêu cầu không cao thì tôi hướng dẫn bạn thực hiện thế này. Vào powerpoint và vẽ 3 cái vòng tròn và định dạng như hình dưới (Cái hình có màu nền đặt phía dưới cùng).
View attachment 206765
Sau đó bạn canh 3 cái vòng tròn này vào đúng vị trí và group nó lại như hình.
View attachment 206766
Sau đó nháy nút phải chuột vào hình và chọn Save as Picture.
View attachment 206773
Bạn mở phần mềm Paint có sẳn trong Windows và mở cái hình bạn vừa save lên, sau đó dùng công cụ Fill With Color để tô màu giống như hình.
View attachment 206768
Bây giờ bạn vào Excel và chèn cái hình này vào, sau đó chọn hình và thực hiện theo hình chọn lệnh Set TransParent Color, nháy chuột vào vùng màu đen trong hình để bỏ cái màu đen đi, thế là bạn được cái bạn cần.

Hình em có thể vẽ được, cái khó là làm sao đưa chữ vào hình thôi, giống như anh đổi trên excel là chữ trong hình đổi, chứ còn gõ vô từng ô thì hơi lâu, và mỗi khi thay đổi lại phải làm lại.

 

[giaiphap]

Hình em có thể vẽ được, cái khó là làm sao đưa chữ vào hình thôi, giống như anh đổi trên excel là chữ trong hình đổi, chứ còn gõ vô từng ô thì hơi lâu, và mỗi khi thay đổi lại phải làm lại.

Cái này đơn giản mà bạn, bạn vẽ cái Textbox trong sheet, sau đó chọn cái textbox vừa vẽ, nháy chuột lên ô công thức và gõ địa chỉ cái ô bạn cần tham chiếu đến xong Enter và xem kết quả. Còn cái Textbox thì bạn thoải mái xoay ngang hay dọc tùy ý, di chuyển các Textbox vào nơi phù hợp, chọn tất cả các Textbox và cả luôn cái vòng xoay kia và Group lại là xong, công đoạn cuối cùng là đặt tên cho cái group này là xong. Bạn có thể tham khảo file ở trên của tôi ở #10, chọn cái vòng xoay kia và UnGroup thử xem thế nào.

 

[saobekhonglac]

Cái này đơn giản mà bạn, bạn vẽ cái Textbox trong sheet, sau đó chọn cái textbox vừa vẽ, nháy chuột lên ô công thức và gõ địa chỉ cái ô bạn cần tham chiếu đến xong Enter và xem kết quả. Còn cái Textbox thì bạn thoải mái xoay ngang hay dọc tùy ý, di chuyển các Textbox vào nơi phù hợp, chọn tất cả các Textbox và cả luôn cái vòng xoay kia và Group lại là xong, công đoạn cuối cùng là đặt tên cho cái group này là xong. Bạn có thể tham khảo file ở trên của tôi ở #10, chọn cái vòng xoay kia và UnGroup thử xem thế nào.

Mới tìm ra cách vẽ là nhờ Chart Pie. Muốn chia vòng tròn bao nhiêu phần thì chọn bao nhiêu cột là xong, hihi

 

[huuthang_bd]

Mới tìm ra cách vẽ là nhờ Chart Pie. Muốn chia vòng tròn bao nhiêu phần thì chọn bao nhiêu cột là xong, hihi

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 .

 

[saobekhonglac]

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 .

Cái của ông đơn giản hơn nè

 

[befaint]

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 .

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?