Xin hỏi về nút option Button

[yeuthamhangxom]

Gửi các anh chị GPE.
Em có sử dụng nột số nút Option button trong thanh công cụ Forms. Em muốn chỉnh sửa kích thước của nút này thì có cách nào không ạ? nhờ các anh chị giải giúp.
Cám ơn các anh chị nhiều.

 

[hanhpptc]

Bạn chỉnh sửa bình thường chứ sao. Nếu sheet đã Protec thì phải Unprotec trước khi chỉnh sửa. Nếu đã gán Macro cho Buton thì bấn phím Ctrl trước khi chỉnh sửa. Thân

 

[ndu96081631]

Gửi các anh chị GPE.
Em có sử dụng nột số nút Option button trong thanh công cụ Forms. Em muốn chỉnh sửa kích thước của nút này thì có cách nào không ạ? nhờ các anh chị giải giúp.
Cám ơn các anh chị nhiều.

Hình như không chỉnh được bạn à ---> Size ấy là chuẩn rồi bạn à ---> Bạn có thấy trong tất cả các chương trình, có Option Button nào to hơn size ấy không?
Không hiểu bạn muốn nó bự hơn để làm gì

 

[yeuthamhangxom]

Hình như không chỉnh được bạn à ---> Size ấy là chuẩn rồi bạn à ---> Bạn có thấy trong tất cả các chương trình, có Option Button nào to hơn size ấy không?
Không hiểu bạn muốn nó bự hơn để làm gì

Do em làm nút đó trong trang in A3 nên khi in ra nhìn rất bé. Em muốn cho hình nó to ra nhưng chưa biết cách nào. Có thể vẽ hình mới xong gán lệnh kiểu lựa chọn giống nút option đó được không thầy?
Chúc thầy và các bạn có một ngày vui vẻ.

 

[concogia]

Do em làm nút đó trong trang in A3 nên khi in ra nhìn rất bé. Em muốn cho hình nó to ra nhưng chưa biết cách nào. Có thể vẽ hình mới xong gán lệnh kiểu lựa chọn giống nút option đó được không thầy?
Chúc thầy và các bạn có một ngày vui vẻ.

Theo mình, bạn chỉnh font chữ lớn lên, đẩ nó ra xa một tý, vẽ cái vòng tròn tròn méo méo "zô" cái chấm đó , mình làm thử thấy cũng đẹp chán
Thân

 

[yeuthamhangxom]

Theo mình, bạn chỉnh font chữ lớn lên, đẩ nó ra xa một tý, vẽ cái vòng tròn tròn méo méo "zô" cái chấm đó , mình làm thử thấy cũng đẹp chán
Thân

Ý mình là cái vòng tròn đó to lên và nếu tích vào lựa chọn thì chấm đen ở trong cũng to lên. Mình làm mãi vẫn chưa được. Bạn làm thấy cũng đẹp xin up file lên cho mình tham khảo với. Cám ơn bạn rất nhiều.

 

[ptm0412]

Bạn có thể dùng Toggle Button thay cho Option Button. Nhưng phải viết code để có thể chọn duy nhất 1 button.

Giá trị chọn lựa có thể tính bằng
F4 =E1+E2*2+E3*3

Hoặc có thể dùng AutoShape

 

[yeuthamhangxom]

Hoặc có thể dùng AutoShape

Gửi bạn ptm0412 nếu dùng AotoShape thì vẽ bằng cái gì thì ra chấm tròn ở trong mà tự động bôi màu vậy? Cái này mình không biết mong bạn giúp mình. và nút này có thể gán code VBA giống như nút Option button trong thanh Control Toolbox không bạn. Bạn giúp mình nha.
Cám ơn bạn nhiều.

 

[ptm0412]

vẽ bằng cái gì thì ra chấm tròn ở trong

Vẽ bằng autoshape hình tròn. 1 Option 2 vòng 1 lớn 1 nhỏ

nút này có thể gán code VBA giống như nút Option button trong thanh Control Toolbox không

Code VBA có rồi đó? Nó sẽ gán giá trị chọn cho 1 ô. Căn cứ vào giá trị ô đó, viết code cho mục đích chính. Code cho mục đích chính thì giống nhau cho mọi thứ option chính hiệu và option giả cầy.

 

[yeuthamhangxom]

Vẽ bằng autoshape hình tròn. 1 Option 2 vòng 1 lớn 1 nhỏ

Code VBA có rồi đó? Nó sẽ gán giá trị chọn cho 1 ô. Căn cứ vào giá trị ô đó, viết code cho mục đích chính. Code cho mục đích chính thì giống nhau cho mọi thứ option chính hiệu và option giả cầy.

Mình đã xem code của bạn. Cho mình hỏi thêm một chút. Nếu trong trường hợp 5 hay 6 hay 7 nút thì mã code dài lắm à? Bảng tính của mình có tới 40 nút cơ nếu dùng mã code VBA thì làm hơi cực. Mà mình lại không thạo VBA lắm. Có thể có cách nào khác không bạn?
Chúc bạn vui.

 

[ptm0412]

Có cách chứ:
- Đặt tên thống nhất cho các oval đen thí dụ Opt1, Opt2, ...
- Dùng vòng lặp for, Oval nào không phải Oval vừaclick, thì trắng, ngược lại thì đen. Rút 1 gọn được 1 sự kiện click
- Vẫn phải có 40 sự kiện click như vậy.

 

[ndu96081631]

Mình đã xem code của bạn. Cho mình hỏi thêm một chút. Nếu trong trường hợp 5 hay 6 hay 7 nút thì mã code dài lắm à? Bảng tính của mình có tới 40 nút cơ nếu dùng mã code VBA thì làm hơi cực. Mà mình lại không thạo VBA lắm. Có thể có cách nào khác không bạn?
Chúc bạn vui.

Xem code này nhé

Sub ShColor()
  Dim Sh As Shape
  For Each Sh In ActiveSheet.Shapes
    If Sh.Name = Application.Caller Then
      Sh.Fill.ForeColor.RGB = RGB(0, 0, 0)
    Else
      Sh.Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
  Next Sh
End Sub

- Tên của nút muốn đặt gì cũng không quan trọng
- 100 nút cũng chỉ 1 code duy nhất này thôi

 

[ptm0412]

Vì 1 option giả 2 shapes, chỉ cần bôi đen hoặc trắng shape nhỏ bên trong thôi, nên đặt tên nút để giới hạn còn 1 nửa số vòng lặp ấy mà. Còn vụ Application.Caller, hôm nay mới biết. Đúng là phải học thêm!

Nếu vẫn còn vẽ 1 option 2 shapes thì anh định dùng code như sau: (dùng Application.Caller để chứng tỏ là học thuộc bài)

Sub ShColor()
  Dim IsCall As Boolean, i As Long
  For i = 1 To 40
  IsCall = ("oval " & i = Application.Caller)
  ActiveSheet.Shapes("oval " & i).Fill.ForeColor.SchemeColor = 9 + IsCall
  Next
End Sub

À quên, nếu shape đặt tên từa lưa thì lấy căn cứ đâu để gán 1 giá trị chọn xuống sheet? Vì Option giả cũng phải có Linked cell cho giống người ta chứ.
Thêm câu này trong vòng for:

If IsCall then ActiveSheet.[f1] = i