Thay đổi ngẫu nhiên nội dung của các ô ?

[Chuotdong]

Mình cần làm giá trị 2 hoặc 3 ô thay đổi ngẫu nhiên trong một list chọn trước khi bấm một phím thì làm thế nào, các bạn xem giúp. Có gì không hiểu mình sẽ giải thích thêm.

Ví dụ khi mình chạm tay vào phim Space giá trị các ô A1, B1 sẽ lấy ngẫu nhiên là hoặc chữ A hoặc chữ C hoặc chữ E

 

[Po_Pikachu]

Đây là file đã tự động thay đổi ký tự theo 1 list có sẵn.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
k = (Rnd() * 1000) Mod 5 
m = (Rnd() * 1000) Mod 7
Range("A1") = Choose(k + 1, "A", "D", "M", "Z", "H") 
Range("B1") = Choose(m + 1, "A", "D", "M", "Z", "H", "GPE", "Free") 
End Sub

Bạn muốn xem code thì nhấn Alt + F11.
Thân.

 

[Chuotdong]

Mục đích mình muốn làm cái bảng thử thị lực trên Excel nhưng không kiếm đâu các ký tự C ngửa lên, xuống ... nhỉ ?

 

[ndu96081631]

Chử C úp ngược thì tôi chưa nghĩ ra, còn nếu chỉ thay đổi ngẩu nhiên A, C hoặc E thì chỉ cần công thức là được:
=CHOOSE(RANDBETWEEN(1,3),"A","C","E")
Muốn dùng luôn 26 ký tự Alphabet lại càng dể:
=CHAR(RANDBETWEEN(65,90))
mổi lần muốn thay đổi thì.. F9

 

[cadafi]

Mục đích mình muốn làm cái bảng thử thị lực trên Excel nhưng không kiếm đâu các ký tự C ngửa lên, xuống ... nhỉ ?

Riêng cái chữ C cuối cùng trong hình (hàng đầu tiên) thì chưa nghĩ ra, còn các chữ C còn lại thì dùng Format Cell với Orienttation text là làm được.

 

[tedaynui]

Mục đích mình muốn làm cái bảng thử thị lực trên Excel nhưng không kiếm đâu các ký tự C ngửa lên, xuống ... nhỉ ?

Muốn có chữ "C" quay trái hay quay phải, ngửa lển, úp xuống... thì FormatCells / Alignment rồi điều chỉnh Orientation

Một cách khác, vẽ cái Rectangle, gõ chữ "C" vào, sau đó Format AutoShape và Alignment rồi điều chỉnh Orientation...

Hoặc insert 1 picture có chữ "C", sau đó cho nó xoay.... hi hi

TDN

 

[Chuotdong]

Riêng cái chữ C cuối cùng trong hình (hàng đầu tiên) thì chưa nghĩ ra, còn các chữ C còn lại thì dùng Format Cell với Orienttation text là làm được.

Bạn làm giúp mình bằng VBA được không. VBA thì mình không biết gì. Các cái Orientation thay đổi ngẫu nhiên mỗi lần bấm phím nhé. Thanks a lot

 

[SA_DQ]

Hoặc insert 1 picture có chữ "C", sau đó cho nó xoay.... hi hi
TDN

Phương án nữa đó dùng 4 chữ C tạo như sự xoay,

Option Explicit
 Dim MySh As Object:                                Dim SNgau As Byte
 Const Top1 As Double = 20
 Const Top4 As Double = 600:                        Const Left1 As Double = 25
Sub C_Open()
 Dim iJ As Byte
 Set MySh = Worksheets(1)
    Randomize:                                      SNgau = Int(1 + 2 * Rnd()) + SNgau
    If SNgau > 4 Then SNgau = SNgau Mod 4
    MySh.Shapes(SNgau).Left = Left1
    MySh.Shapes(SNgau).Top = Top1
 For iJ = 1 To 4
    If iJ <> SNgau Then
        MySh.Shapes(iJ).Top = Top4
        MySh.Shapes(iJ).Left = Left1 + iJ * 10
    End If
 Next iJ
End Sub