Hỏi về thuộc tính BackColor của Command Button (Control ToolBox) (1 người xem)

[ndu96081631]

Trong 1 sheet có khá nhiều Command Button (Cmd), tôi dùng vòng lập duyệt qua các Cmd này và thay đổi 1 số thuộc tính của nó!
Ví dụ: tôi dùng code này để thay đổi độ dài, rộng:

Sub ChangeObj()
  Dim Obj As OLEObject
  For Each Obj In ActiveSheet.OLEObjects
   Obj.Height = 50
   Obj.Width = 100
  Next
End Sub

Code chạy không có vấn đề! Nhưng tôi không tài nào tìm được code gì nói về việc thay đổi thuộc tính BackColor của Cmd cả
Mong các bạn chỉ giúp!

 

[ndu96081631]

Ah... tôi tìm được rồi. Nó nằm tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=5818
Bây giờ tôi lại có 1 thắc mắc khác: Với 3 Cmd trong file tôi muốn tô nó thành 3 màu khác nhau (dùng vòng lập nha) thì làm cách nào?
(vì file thực tế có nhiều Cmd nên không thể IF được)

 

[PhanTuHuong]

Điều khiển dạng Control ToolBox (dạng ActiveX) không thể thay đổi được thuộc tính BackColor hay Font được đâu bác Tuấn ạ. Thực hiện bằng tay cũng không được.

 

[ndu96081631]

Điều khiển dạng Control ToolBox (dạng ActiveX) không thể thay đổi được thuộc tính BackColor hay Font được đâu bác Tuấn ạ. Thực hiện bằng tay cũng không được.

Điều khiển được mà sư phụ!
Sư phụ xem link ở bài #2 bạn TuanVNUNI có hướng dẩn đấy!
Bây giờ tô màu thì tô được rồi, nhưng vấn đề rắc rồi bây giờ là làm sao tô màu khác nhau cho các Cmd

 

[rollover79]

Bây giờ tôi lại có 1 thắc mắc khác: Với 3 Cmd trong file tôi muốn tô nó thành 3 màu khác nhau (dùng vòng lập nha) thì làm cách nào?
(vì file thực tế có nhiều Cmd nên không thể IF được)

Tôi chưa hiểu ý của bạn là như nào? 3 màu khác nhau là 3 màu ngẫu nhiên màu nào cũng được hay 3 màu được chỉ ra?

 

[ndu96081631]

Tôi chưa hiểu ý của bạn là như nào? 3 màu khác nhau là 3 màu ngẫu nhiên màu nào cũng được hay 3 màu được chỉ ra?

Gần đúng với ý tôi rồi đấy! Cảm ơn bạn!
Bạn xem file của tôi có lẽ hiểu ý tôi liền (tôi cần 56 màu cho 56 Cmd... theo thứ tự từ 1 đến 56 của bảng mã màu)

 

[sealand]

Bạn dùng vòng lặp để kiểm tra theo tên của nó. ví dụ: 3 nút đó tên là cmd1, cmd2,cmd3

dim ten as string
dim ctr as control
for each ctr in controls
ten=ctr.Name
select case ten
Case is:= "cmd1"
.....Định dạng 1
Case is:= "cmd2"
.....Định dạng 2
Case is:= "cmd3"
.....Định dạng 3
case other
'Do nothing
end select
next

(Các lệnh này mình viết trực tiếp rất có thể có sai sót)
Còn việc đổi màu không phải là cả nút mà chỉ label của nó thôi. Tình cờ hôm làm thử đổi màu ô nhập liệu theo bài của manhhung12 mình thấy vậy

 

[ndu96081631]

Bạn dùng vòng lặp để kiểm tra theo tên của nó. ví dụ: 3 nút đó tên là cmd1, cmd2,cmd3

dim ten as string
dim ctr as control
for each ctr in controls
ten=ctr.Name
select case ten
Case is:= "cmd1"
.....Định dạng 1
Case is:= "cmd2"
.....Định dạng 2
Case is:= "cmd3"
.....Định dạng 3
case other
'Do nothing
end select
next

(Các lệnh này mình viết trực tiếp rất có thể có sai sót)
Còn việc đổi màu không phải là cả nút mà chỉ label của nó thôi. Tình cờ hôm làm thử đổi màu ô nhập liệu theo bài của manhhung12 mình thấy vậy

Anh ơi! Tất nhiên em biết vụ này... nhưng mà làm vậy "tê" quá (đến 56 trường hợp, em Select Case 1 hồi chắc em xỉu luôn)
Vì vậy mà em muốn 1 vòng lập kiểu chạy từ 1 đến 56 (hoặc số gì đó) rồi tô màu theo số này 1 cách tuần tự từ Object đầu đến Object cuối
Anh xem bài số #5 và #6 tô màu mà đâu cần Select Case gì đâu... Có điều theo cách làm của em thì em chỉ nhớ được tên của 8 màu... Mấy màu còn lại thì thua... hỏng biết nó tên gì

 

[rollover79]

Gần đúng với ý tôi rồi đấy! Cảm ơn bạn!
Bạn xem file của tôi có lẽ hiểu ý tôi liền (tôi cần 56 màu cho 56 Cmd... theo thứ tự từ 1 đến 56 của bảng mã màu)

Tức là 56 cái nút đó bạn muốn nó sẽ có mỗi nút 1 màu cố định(lần nào chạy cũng là màu đó) miễn là khác nhau à? Vậy thì như file của bạn gửi là ok rồi. Còn nếu muốn màu ngẫu nhiên thì làm như file của mình, thay đổi chút xíu chỗ lấy màu ngẫu nhiên là ok thôi.

 

[ndu96081631]

Tức là 56 cái nút đó bạn muốn nó sẽ có mỗi nút 1 màu cố định(lần nào chạy cũng là màu đó) miễn là khác nhau à?

Đúng vậy! 56 màu khác nhau cho các cmd (các màu cho trước cố định)

Vậy thì như file của bạn gửi là ok rồi. Còn nếu muốn màu ngẫu nhiên thì làm như file của mình, thay đổi chút xíu chỗ lấy màu ngẫu nhiên là ok thôi.

File đó đúng là OK thật, nhưng như tôi đã nói ở trên, tôi chỉ nhớ tên có 8 mã màu... Vậy nếu làm theo cách của tôi thì các mã màu còn lại mang tên gì? (tìm trên Google cũng có mà thế vào nó bị lổi)
Bạn làm giúp tôi vụ này luôn đi... Cảm ơn trước

 

[Mr Okebab]

Tức là 56 cái nút đó bạn muốn nó sẽ có mỗi nút 1 màu cố định(lần nào chạy cũng là màu đó) miễn là khác nhau à? Vậy thì như file của bạn gửi là ok rồi. Còn nếu muốn màu ngẫu nhiên thì làm như file của mình, thay đổi chút xíu chỗ lấy màu ngẫu nhiên là ok thôi.

Cần thêm một dòng lệnh để xác định chính xác đó là Command Button, chứ không phải là CheckBox; TextBox; OptionButton; ListBox; ComboBox; ToggleButton . . .

File đó đúng là OK thật, nhưng như tôi đã nói ở trên, tôi chỉ nhớ tên có 8 mã màu... Vậy nếu làm theo cách của tôi thì các mã màu còn lại mang tên gì? (tìm trên Google cũng có mà thế vào nó bị lổi)
Bạn làm giúp tôi vụ này luôn đi... Cảm ơn trước

Bác có thể dùng theo mã màu hệ RGB, ở đó có thể tùy ý sử dụng các con số từ 0->255

Xem ví dụ của Bill:

BackColor, BackStyle, BorderColor, BorderStyle, ForeColor, SpecialEffect Properties Example@import url(/Office.css);

Private Sub UserForm_Initialize()
'Initialize each TextBox with a border style or special effect,
'and foreground and background colors

'TextBox1 initially uses a borderstyle
TextBox1.Text = "BorderStyle-Single"
TextBox1.BorderStyle = fmBorderStyleSingle
TextBox1.BorderColor = RGB(255, 128, 128)   
'Color - Salmon
TextBox1.ForeColor = RGB(255, 255, 0)       
'Color - Yellow
TextBox1.BackColor = RGB(0, 128, 64)        
'Color - Green #2

'TextBoxes 2 through 6 initially use special effects
TextBox2.Text = "Flat"
TextBox2.SpecialEffect = fmSpecialEffectFlat
TextBox2.ForeColor = RGB(64, 0, 0)          
'Color - Brown
TextBox2.BackColor = RGB(0, 0, 255)         
'Color - Blue

'Ensure the background style for TextBox2 is initially
'opaque.
TextBox2.BackStyle = fmBackStyleOpaque

TextBox3.Text = "Etched"
TextBox3.SpecialEffect = fmSpecialEffectEtched
TextBox3.ForeColor = RGB(128, 0, 255)       
'Color - Purple
TextBox3.BackColor = RGB(0, 255, 255)       
'Color - Cyan

'Define BorderColor for later use (when borderstyle=fmBorderStyleSingle)
TextBox3.BorderColor = RGB(0, 0, 0)         
'Color - Black

TextBox4.Text = "Bump"
TextBox4.SpecialEffect = fmSpecialEffectBump
TextBox4.ForeColor = RGB(255, 0, 255)       
'Color - Magenta
TextBox4.BackColor = RGB(0, 0, 100)         
'Color - Navy blue

TextBox5.Text = "Raised"
TextBox5.SpecialEffect = fmSpecialEffectRaised
TextBox5.ForeColor = RGB(255, 0, 0)         
'Color - Red
TextBox5.BackColor = RGB(128, 128, 128)     
'Color - Gray

TextBox6.Text = "Sunken"
TextBox6.SpecialEffect = fmSpecialEffectSunken
TextBox6.ForeColor = RGB(0, 64, 0)          
'Color - Olive
TextBox6.BackColor = RGB(0, 255, 0)         
'Color - Green #1

ToggleButton1.Caption = "Swap styles"
ToggleButton2.Caption = "Transparent/Opaque " _
    & "background"
End Sub

Private Sub ToggleButton1_Click()

'Swap borders between TextBox1 and TextBox3
If ToggleButton1.Value = True Then
    'Change TextBox1 from BorderStyle to Etched
    TextBox1.Text = "Etched"
    TextBox1.SpecialEffect = fmSpecialEffectEtched
    
    'Change TextBox3 from Etched to BorderStyle
    TextBox3.Text = "BorderStyle-Single"
    TextBox3.BorderStyle = fmBorderStyleSingle
Else
    'Change TextBox1 back to BorderStyle
    TextBox1.Text = "BorderStyle-Single"
    TextBox1.BorderStyle = fmBorderStyleSingle
    
    'Change TextBox3 back to Etched
    TextBox3.Text = "Etched"
    TextBox3.SpecialEffect = fmSpecialEffectEtched
End If
End SubPrivate Sub ToggleButton2_Click()
'Set background to Opaque or Transparent
If ToggleButton2.Value = True Then
    'Change TextBox2 to a transparent background
    TextBox2.BackStyle = fmBackStyleTransparent
Else
    'Change TextBox2 back to opaque background
    TextBox2.BackStyle = fmBackStyleOpaque
End If
End Sub

Thân!

 

[ptm0412]

Tìm không ra mã màu, nhưng có cách này, ndu coi thử:

 

[ndu96081631]

Tìm không ra mã màu, nhưng có cách này, ndu coi thử:

Màu thì tô được rồi, nhưng mà em muốn tô giống như đoạn code dưới đây:

Sub Test()
 For i = 1 To 56
   Cells(i,1).Interior.ColorIndex = i
 Next
End Sub

Em muốn 56 màu giống vậy! Chẳng lẽ không có cách sao sư phụ ơi

 

[PhanTuHuong]

Điều khiển được mà sư phụ!
Sư phụ xem link ở bài #2 bạn TuanVNUNI có hướng dẩn đấy!
Bây giờ tô màu thì tô được rồi, nhưng vấn đề rắc rồi bây giờ là làm sao tô màu khác nhau cho các Cmd

Đúng là cứ mải mê với vbRed, vbBlue,... mà quên thuộc tính BackColor được định nghĩa trong Properties.

 

[Nguyễn Duy Tuân]

Đúng là cứ mải mê với vbRed, vbBlue,... mà quên thuộc tính BackColor được định nghĩa trong Properties.

Là không thể nhìn thấy bác ạ. Thực tế, về mặt trực quan một số các properties của đối tượng OleObject không có trong Control mà người dùng đang can thiệp nên phần lớn mọi người không dùng được là điều dễ hiểu. OleObject chỉ mang những đặc trưng chung của một control chuẩn trong VBA. Việc khai thác đối tượng OleObject nói riêng và các controls nói chung phải hiểu tốt về lập trình COM trong Windows.

Tại sao các đối tượng (trong VB) lại có một property là "Object" ?
Bản chất Object là gì?

 

[rollover79]

À, mình hiểu cái 56 màu của NDU rồi , bạn xem như file này đã đáp ứng được yêu cầu của bạn chưa nhé.

 

[ptm0412]

Vậy cái chính là ActiveWorkbook.Colors(iColor), và không cần mod 56, iCcolor = iColor+1 luôn

 

[rollover79]

Vậy cái chính là ActiveWorkbook.Colors(iColor), và không cần mod 56, iCcolor = iColor+1 luôn

Đấy là tôi phòng xa, vì câu lệnh này sẽ gây ra lỗi

ActiveWorkbook.Colors(57)

Con số 56 ở đây là 56 trong bảng màu cơ bàn của excel Tools/Option -> Tab Color, ta có thể định nghĩa lại từng màu trong bảng màu cơ bản này.

 

[ndu96081631]

À, mình hiểu cái 56 màu của NDU rồi , bạn xem như file này đã đáp ứng được yêu cầu của bạn chưa nhé.

Rất chính xác và đúng với ý tôi cần! Cảm ơn cao thủ đại ca... Hiiiii...
Giờ... được VOI đòi... HAI BÀ TRƯNG nhé:
Số là thế này: trong bảng tính, các bạn bấm nút Fill Color trên thanh Toolbar, các bạn sẽ nhìn thấy 1 bảng màu gồm 40 màu... Vậy làm sao ta có thể lấy đựoc thứ tự màu giống y chang bảng màu đó nhỉ? (tính theo thứ tự từ trên xuống, từ trái sang phải thì màu đen nằm đầu tiên, rồi đến màu nâu.. màu đỏ... vân... vân...)
Các bạn hãy xem file thí nghiệm đính kèm, tôi tìm hoài mà vẩn không sao hiểu đựoc quy luật về cách sắp xếp màu trong đó

 

[ndu96081631]

Tạm thời tôi làm theo kiểu "củ chuối" này (nhưng tuyệt đối chính xác với 56 màu trong bảng màu)
Các bạn xem file và cải tiến giúp (nếu có cách khác hay hơn)

 

[rollover79]

Trời ạ, chơi trò sắp xếp lại , đúng là củ chuối thật, nhưng mà cái yêu cầu này còn củ chuối hơn, tạm thời chưa nghĩ ra cách nào, thôi để tìm hiểu sau vậy .

 

[ndu96081631]

Trời ạ, chơi trò sắp xếp lại , đúng là củ chuối thật, nhưng mà cái yêu cầu này còn củ chuối hơn, tạm thời chưa nghĩ ra cách nào, thôi để tìm hiểu sau vậy .

Đành vậy! Nhưng cái quan trọng ở đây là tìm hiểu xem Excel đã sắp xếp bảng màu ấy dựa trên tiêu chí nào (chẳng lẽ sắp tùy tiện)
Tôi còn có 1 yêu cầu "củ chuối" không kém:
- Khi ta dùng For Each thì để ý rằng vòng lập duyệt theo tên Object (chính xác là số nằm sau tên) chứ không theo thứ tự của vị trí... Vậy nếu tôi muốn bắt buộc For phải quét theo vị trí của Object thì làm thế nào? Tức tô màu từ phải sang trái, từ trên xuống dưới
Tuy rằng "củ chuối" thật nhưng tôi biết có nhiều người cần vụ này... Vì quá trình vẽ object, rồi xóa, rồi lại vẽ... vô tình đã làm cho tên và vị trí lộn xộn hết... Ví dụ: Cmd01 thì nằm cuối cùng, Cmd05 nằm ở giữa và Cmd11 nằm đầu tiên...
vân vân.. và vân vân...
Các cao thủ thử nghĩ xem!

 

[Mr Okebab]

Đành vậy! Nhưng cái quan trọng ở đây là tìm hiểu xem Excel đã sắp xếp bảng màu ấy dựa trên tiêu chí nào (chẳng lẽ sắp tùy tiện)
Tôi còn có 1 yêu cầu "củ chuối" không kém:
- Khi ta dùng For Each thì để ý rằng vòng lập duyệt theo tên Object (chính xác là số nằm sau tên) chứ không theo thứ tự của vị trí... Vậy nếu tôi muốn bắt buộc For phải quét theo vị trí của Object thì làm thế nào? Tức tô màu từ phải sang trái, từ trên xuống dưới
Tuy rằng "củ chuối" thật nhưng tôi biết có nhiều người cần vụ này... Vì quá trình vẽ object, rồi xóa, rồi lại vẽ... vô tình đã làm cho tên và vị trí lộn xộn hết... Ví dụ: Cmd01 thì nằm cuối cùng, Cmd05 nằm ở giữa và Cmd11 nằm đầu tiên...
vân vân.. và vân vân...
Các cao thủ thử nghĩ xem!

Lồng vào một vòng lặp nữa xác định theo Left và Top bác ạ.

Như vậy cũng hơi . . mệt!

Hoặc chạy một vòng lặp, cho tất cả vị trí của các Command vào 1 mảng, sắp xếp lại theo : Left --> Top --> Ten
Sau đó căn cứ vào mảng này để gọi Command ra

Thân!

 

[rollover79]

Đành vậy! Nhưng cái quan trọng ở đây là tìm hiểu xem Excel đã sắp xếp bảng màu ấy dựa trên tiêu chí nào (chẳng lẽ sắp tùy tiện)
Tôi còn có 1 yêu cầu "củ chuối" không kém:
- Khi ta dùng For Each thì để ý rằng vòng lập duyệt theo tên Object (chính xác là số nằm sau tên) chứ không theo thứ tự của vị trí... Vậy nếu tôi muốn bắt buộc For phải quét theo vị trí của Object thì làm thế nào? Tức tô màu từ phải sang trái, từ trên xuống dưới
Tuy rằng "củ chuối" thật nhưng tôi biết có nhiều người cần vụ này... Vì quá trình vẽ object, rồi xóa, rồi lại vẽ... vô tình đã làm cho tên và vị trí lộn xộn hết... Ví dụ: Cmd01 thì nằm cuối cùng, Cmd05 nằm ở giữa và Cmd11 nằm đầu tiên...
vân vân.. và vân vân...
Các cao thủ thử nghĩ xem!

- Về cái thứ tự bảng màu tôi đang nghĩ có thể nó sắp theo thứ tự mã màu RGB, vì ta thấy nó bắt đầu bằng màu ĐEN có mã là RGB(0, 0, 0), giá trị nhỏ nhất. Kết thúc bằng màu TRẮNG có mã là RGB(255, 255, 255), giá trị lớn nhất. Vấn đề là tôi chưa rõ trong cái Pallet màu của excel thì nó được sắp theo thứ tự từ trên xuống dưới, hay từ trái qua phải, hay theo đường chéo dần cho đến cuối.
- Về cái yêu cầu "chủ chuối" thứ 2 này thì tôi nghĩ nó không củ "chuối lắm" . Bạn có thể dùng giải pháp là sét đến Control nào thì di chuyển nó về đúng với vị trí của nó rồi hãy tô màu. Mà để di chuyển nó về đúng vị trí của nó thì đã có thuật toán rồi, bạn tham khảo thử file này nhé, bạn tha hồ thay đổi vị trí các Control, đổi tên, xóa đi tạo lại ..., sau khi chạy Macro thì các Control được tô màu không hề thay đổi.

 

[Mr Okebab]

- Về cái yêu cầu "chủ chuối" thứ 2 này thì tôi nghĩ nó không củ "chuối lắm" . Bạn có thể dùng giải pháp là sét đến Control nào thì di chuyển nó về đúng với vị trí của nó rồi hãy tô màu. Mà để di chuyển nó về đúng vị trí của nó thì đã có thuật toán rồi, bạn tham khảo thử file này nhé, bạn tha hồ thay đổi vị trí các Control, đổi tên, xóa đi tạo lại ..., sau khi chạy Macro thì các Control được tô màu không hề thay đổi.

Ở đây nói là vị trí mới bạn ạ, tức là từ trên xuống dưới, từ phải qua trái thì các màu theo quy định.

Code của bạn làm cho các CM trở hết lại vị trí ban đầu (mà vị trí này lại phụ thuộc vào màu sắc của các CM)

Như vậy khi di chuyển thì các CM không còn giữ màu cũ nữa mà phụ thuộc vào cái CM trước đó màu gì ??

Và bạn nên phân biệt giữa Command Button, với CheckBox; TextBox; OptionButton; ListBox; ComboBox; ToggleButton . . .

Gộp chung tất cả vào Shape thì không được tổng quát.

Và bạn hãy thử Code trên với >57 CM xem thế nào ?? Nó chồng lên nhau ngay.

Thân!

 

[cadafi]

Xin cho hỏi có thể căn cứ vào thuộc tính Object.Left và Object.Top của object trên sheet để sắp xếp thứ tự mã màu cho các Object được không?

 

[ndu96081631]

Xem ra vụ điều khiển các Object Control Toolbox này quả thật không đơn giãn! Rất nhiều cách... Cái khó khăn lớn nhất là các thuộc tính của chúng không dể dàng hiện ra sau khi ta gõ dấu chấm
Về việc set màu theo vị trị, theo tôi thì không nên trả nó về vị trí ban đầu mà nên set màu cho nó theo vị trí mới....

Xin cho hỏi có thể căn cứ vào thuộc tính Object.Left và Object.Top của object trên sheet để sắp xếp thứ tự mã màu cho các Object được không?

Hướng mà tôi đang nghĩ đến là hướng này đây! Cũng giống như Mr OkeBab nói... Tôi đang nghĩ phải dùng vòng lập nữa để lấy vị trí của nó cho vào 1 mãng... Tiếp theo sẽ set màu theo các số từ nhỏ đến lớn (giống như trong công thức ta dùng hàm SMALL vậy)
Sẳn đây cho hỏi: trong VBA có hàm nào tương đương với SMALL và LARGE không?
Mong các cao thủ chỉ giáo thêm!
(càng học càng ngu!)

 

[rollover79]

Ở đây nói là vị trí mới bạn ạ, tức là từ trên xuống dưới, từ phải qua trái thì các màu theo quy định.

Code của bạn làm cho các CM trở hết lại vị trí ban đầu (mà vị trí này lại phụ thuộc vào màu sắc của các CM)

Như vậy khi di chuyển thì các CM không còn giữ màu cũ nữa mà phụ thuộc vào cái CM trước đó màu gì ??

Và bạn nên phân biệt giữa Command Button, với CheckBox; TextBox; OptionButton; ListBox; ComboBox; ToggleButton . . .

Gộp chung tất cả vào Shape thì không được tổng quát.

Và bạn hãy thử Code trên với >57 CM xem thế nào ?? Nó chồng lên nhau ngay.

Thân!

- Như trên tôi có nói là màu sẽ phụ thuộc vào vị trí chứ ko phải vị trí phụ thuộc vào màu, nên khi di chuyển các CM rồi chạy lại ta vẫn có bảng màu không thay đổi.
- Vì tôi đang đi theo cái yêu cầu cũ là xử lý cho Command button, còn việc phân biệt thì có thể phân biệt rất dễ thông qua tiền tố của tên Control, giả sử cái tiến tố mặc định của nó là .
- Với CM>57 sẽ bị chồng lên cũng là do xuất phát từ cái yêu cầu là 56 cái button, nên tôi đã gộp cái màu với số thứ tự của CM, mà màu ở đây tôi MOD cho 56 nên số thứ tự CM>57 sẽ bị lặp. Cái này có thể sửa lại bằng cách thêm 1 biến thứ tự tăng dần như biến i sau đây là OK.

Sub ChangeObj()
  Dim Obj As Shape
  Dim iColor As Long
[COLOR=Red]  Dim i As Long
[/COLOR]  For Each Obj In ActiveSheet.Shapes
[COLOR=Red]    If Left(Obj.Name, 13) = "CommandButton" Then ' Command button
[/COLOR]        Obj.Height = iHeight
        Obj.Width = iWidth
        Obj.Top = ([COLOR=Red]i[/COLOR] \ iCols) * iHeight + iTop
        Obj.Left = ([COLOR=Red]i[/COLOR] Mod iCols) * iWidth + iLeft
[COLOR=Red]        i = i + 1
[/COLOR]        iColor = ((iColor) Mod 56) + 1
        Obj.OLEFormat.Object.Object.BackColor = ActiveWorkbook.Colors(iColor)
[COLOR=Red]    End If
[/COLOR]  Next
End Sub

Giờ thì bạn có thể thêm bao nhiêu CM tùy ý, ta sẽ luôn có 1 bảng màu giống nhau sau mỗi lần chạy(>56 thì sẽ lặp lại)

 

[Mr Okebab]

- Như trên tôi có nói là màu sẽ phụ thuộc vào vị trí chứ ko phải vị trí phụ thuộc vào màu, nên khi di chuyển các CM rồi chạy lại ta vẫn có bảng màu không thay đổi.

Như vậy là một CM sẽ luôn có 1 màu cố định phải không bạn ???

Bài toán đặt ra : Nếu CM1 thay đổi chỗ cho CM20 thì như vậy màu của chúng sẽ thay đổi cho nhau.

Và một điều nữa là khi người dùng di chuyển vị trí các CM thì bạn lại cho nó trở về vị trí cũ, vấn đề vẫn giữ nguyên vị trí mới này bạn ạ. Và sau đó dựa vào vị trí mới này để set màu

Còn nếu làm như trên (1 CM là cố định màu) thì ta cũng có thể tạo ra 1 Function trả về màu của CM. Ứng với mỗi 1 CM có một màu cố định. Chỉ cần Select Case là được (tuy có hơi nhiều). Khi cần thì chỉ cần gọi ra là xong.

- Vì tôi đang đi theo cái yêu cầu cũ là xử lý cho Command button, còn việc phân biệt thì có thể phân biệt rất dễ thông qua tiền tố của tên Control, giả sử cái tiến tố mặc định của nó là .

Là gì vậy bạn ?? Bạn định căn cứ vào tên để phân biệt với 1 tiền tố VD như là CM*** ???


Thân!

 

[rollover79]

Như vậy là một CM sẽ luôn có 1 màu cố định phải không bạn ???
Bài toán đặt ra : Nếu CM1 thay đổi chỗ cho CM20 thì như vậy màu của chúng sẽ thay đổi cho nhau.
Và một điều nữa là khi người dùng di chuyển vị trí các CM thì bạn lại cho nó trở về vị trí cũ, vấn đề vẫn giữ nguyên vị trí mới này bạn ạ. Và sau đó dựa vào vị trí mới này để set màu
Còn nếu làm như trên (1 CM là cố định màu) thì ta cũng có thể tạo ra 1 Function trả về màu của CM. Ứng với mỗi 1 CM có một màu cố định. Chỉ cần Select Case là được (tuy có hơi nhiều). Khi cần thì chỉ cần gọi ra là xong.

Cái này thì có lẽ phải hỏi lại ndu về cái yêu cầu, vì hình như tôi và bạn đang hiểu 2 vấn đề khác nhau. Tôi thì hiểu là ndu đang muốn có 1 cái bảng màu với thứ tự các màu là không thay đổi qua mỗi lần chạy mà không phụ thuộc vào tên cũng như thứ tự tạo ra các CM. Cái cách cũ của ndu là ndu tự sắp xếp các CM thành bảng màu, và nếu ta đổi vị trí 2 CM cho nhau thì bảng màu cũng bị thay đổi màu 2 vị trí đó, hoặc giả sử tôi xóa CM đầu tiên đi(màu đen) và thêm mới 1 CM mới rồi lại đặt đúng vào vị trí đầu tiên đó, thì vị trí đầu tiên sau khi chạy sẽ là màu trắng, các màu tiếp theo trong bảng màu sẽ bị dịch đi 1 màu.
Nếu đúng ý của ndu như vậy thì cách của tôi là OK rồi. Còn khi cần lấy màu thì ta dựa vào màu của CM đó luôn chứ đâu cần vòng lặp. Còn muốn lấy màu theo vị trí thì khi đó người ta dùng mảng Control chứ không dùng các Control độc lập đâu. Tuy nhiên trong trường hợp độc lập này ta vẫn có thể lấy màu theo vị trí được, bằng cách dựa theo Top và Left giống như ý kiến của ca_di, vì từ code ta đã lấy Top và Left của CM từ vị trí của nó thì từ Top và Left ta cũng có thể trả về vị trí của nó được thôi.

Là gì vậy bạn ?? Bạn định căn cứ vào tên để phân biệt với 1 tiền tố VD như là CM*** ???

Cái này thì đúng rồi, tôi định nói là CommandButton mà quên chưa paste vào. Giải pháp này tôi nghĩ là ko có vấn đề gì.

 

[Mr Okebab]

Tôi thì hiểu là ndu đang muốn có 1 cái bảng màu với thứ tự các màu là không thay đổi qua mỗi lần chạy mà không phụ thuộc vào tên cũng như thứ tự tạo ra các CM.
Cái này thì đúng rồi, tôi định nói là CommandButton mà quên chưa paste vào. Giải pháp này tôi nghĩ là ko có vấn đề gì.

Mình lại hiểu rằng : Cứ khi vị trí thay đổi thì khi set lại màu sẽ tuần tự theo bảng mã màu, tuy nhiên bảng mã màu này sẽ ấn định lần lượt lên các CM theo đúng vị trí mới của các CM. sự lần lượt này có thể sẽ là : Từ trái qua phải, từ trên xuống dưới. Vị trí mới của các CM sẽ được giữ nguyên

Bạn thử set màu theo tuần tự các CM trong File dưới xem sao nhé : (Mình lấy VD File của bạn)

Bạn nhớ chạy OBDaoViTri để chúng thay đổi vị trí nhé. Và ở vị trí mới này, bạn hãy giữ nguyên, không được để chúng xê dịch, sau đó Set màu tuần tự lên đó.

Dĩ nhiên là mình làm được điều này (theo như trình bày ở trên), tuy nhiên mình muốn mọi người thử sức với bài toán mở rộng này xem sao.


Về tiền tố : Bạn phải nói rõ ràng hơn. Bạn dựa vào thuộc tính Name cũng là một giải pháp tốt. Tuy nhiên dựa vào proID sẽ tốt hơn nhiều.

Thân!

 

[ndu96081631]

Mình lại hiểu rằng : Cứ khi vị trí thay đổi thì khi set lại màu sẽ tuần tự theo bảng mã màu, tuy nhiên bảng mã màu này sẽ ấn định lần lượt lên các CM theo đúng vị trí mới của các CM. sự lần lượt này có thể sẽ là : Từ trái qua phải, từ trên xuống dưới. Vị trí mới của các CM sẽ được giữ nguyên
!

Chính xác là tôi cần y chang như Mr OkeBab nói... Tùy tôi muốn kéo Cmd này đi đâu cũng được, và set lại màu theo vị trí mới này, theo thứ tự từ trái sang phải, từ trên xuống

 

[rollover79]

Như vậy bài toán này thức chất là, duyệt qua các CM trên Form và tô màu theo thứ tự từ trên xuống dưới, từ trái qua phải theo thứ tự ColorIndex của bảng màu đúng ko?Tiện đây cũng cho hỏi luôn là các CM có nằm theo kiểu matrix không(matrix có thể rỗng 1 số ô như ví dụ của okebab), nghĩa là 2 ô bất kỳ có cột hoặc là trùng nhau, hoặc là không trùng nhau, không có trường hợp giao nhau.

 

[ndu96081631]

Như vậy bài toán này thức chất là, duyệt qua các CM trên Form và tô màu theo thứ tự từ trên xuống dưới, từ trái qua phải theo thứ tự ColorIndex của bảng màu đúng ko?

Chính xác là từ trái qua phải rồi mới từ trên xuống dưới... Thứ tự màu thì giống với thứ tự màu do Excel sắp sẳn (xem thứ tự màu khi bấm vào nút Fill Color)

Tiện đây cũng cho hỏi luôn là các CM có nằm theo kiểu matrix không(matrix có thể rỗng 1 số ô như ví dụ của okebab), nghĩa là 2 ô bất kỳ có cột hoặc là trùng nhau, hoặc là không trùng nhau, không có trường hợp giao nhau.

Nằm theo matrix, không chồng nhau... nhưng cũng không chính xác 100% (vì xếp bằng tay mà) ----> Nói chung tôi sẽ cố sắp chúng như 1 khối vuông cho sư phụ thuận tiện viết code
Nói thêm:
- Trong file chỉ có Command Button nên không cần đặt điều kiện loại trừ các Object khác
- Số lượng Command Button tối đa chỉ 56 nút hoặc ít hơn
Nhờ sư phụ giúp dùm vụ này, nhân tiện để học hỏi luôn về các phương thức điều kiển Object (vụ này tôi còn quá kém)
Chân thành cãm ơn!

 

[rollover79]

Vậy bạn tham khảo thử file này xem nhé. Trong code có 3 cái Sub:
- ResetObject: sub này sẽ có nhiệm vụ sắp xếp các CM thành 1 mảng chuẩn gồm 8 cột(số dòng thì phụ thuộc vào số lượng CM). Trong sub này tôi cũng fill luôn cái Caption của các CM theo thứ tự từ 1 đến hết.
- SwapCM: sub này sẽ hỗ trợ bạn đổi chỗ 2 CM bất kỳ, cách này thì sẽ đảm bảo được vị trí đẹp mà chuẩn, dĩ nhiên bạn cũng có thể tự thay đổi bằng tay.
- FillColor: Tô màu cho các CM theo đúng thứ tự bảng màu(dĩ nhiên là thứ tự này vẫn chuối như cách của bạn), và khi tô màu thì không di chuyển vị trí các CM, không tin bạn có thể lấy Caption của các CM để kiểm chứng . Nó sẽ tô màu theo thứ tự vị trí của các CM, bạn có thể thử di chuyển bằng tay các CM thì nó vẫn tô theo đúng quy luật trên.
Hy vọng lần này sẽ đáp ứng đúng yêu cầu của bạn!