Đổi màu Text trong Shapes

xuanquy1188 · 7/4/17

Mình có file cần tô màu Text để quản lý phòng.

Ví dụ phòng Tây Nguyên có khách sẽ tô màu chữ Tây Nguyên thành màu đỏ và đã tính tiền thì được tô màu xanh lá.

Tham số so sánh là ô bên cạnh tên phòng - số 1 là có khách, số 2 là đã được tính tiền. Màu mình đã điền vào như trong File đính kèm.

Cám ơn các bạn.

giaiphap · 7/4/17

Bạn xem thử đúng ý chưa nhé.

xuanquy1188 · 8/4/17

Đúng rồi bạn ơi, bạn cho mình hỏi là phương pháp làm như thế nào ạ? và bây h mình muốn chuyển code qua file chính của mình thì cần thay đổi gì không?

Vì mình vừa copy qua bên file cũ nó không chạy. Nó báo lỗi $-\\/.$

giaiphap · 8/4/17

Bạn vào sheet DM Phòng và copy code sang file mới của bạn, sau đó bạn xem trong sheet DM phòng của bạn những ô bạn gõ số để xem địa chỉ và sửa trong code của bạn luôn, bạn chú ý ở những ô bạn gõ số (kế nút lệnh) bên ô bên trái của nó (ô này nằm dưới nút) sẽ chứa giá trị số là tên số cuối cùng của Rounded Rectangle (VD nút Nếp có tên đầy đủ là Rounded Rectangle 40, số 40 là giá trị của ô D16). Bạn thêm giá trị cho các ô ở file mới của bạn giống như tôi đã thêm.

be_09 · 8/4/17

xuanquy1188 đã viết:
Mình có file cần tô màu Text để quản lý phòng.
Ví dụ phòng Tây Nguyên có khách sẽ tô màu chữ Tây Nguyên thành màu đỏ và đã tính tiền thì được tô màu xanh lá.
Tham số so sánh là ô bên cạnh tên phòng - số 1 là có khách, số 2 là đã được tính tiền. Màu mình đã điền vào như trong File đính kèm.
Cám ơn các bạn.

Cái này chẳng cần code kiết gì cả, sử dụng công cụ có sẳn vẫn làm được.

xuanquy1188 · 8/4/17

Cái này chẳng cần code kiết gì cả, sử dụng công cụ có sẳn vẫn làm được.

Bạn có thể giải thích và hướng dẫn mình được không?

be_09 · 8/4/17

xuanquy1188 đã viết:
Bạn có thể giải thích và hướng dẫn mình được không?

Chờ khoảng 30 phút nữa, tôi làm xong rồi gửi qua cho.

Mấy sheet khác theo dõi sao chẳng có tiêu đề gì hết vậy, ví dụ: Theo dõi khách nào ở phòng nào, số ượng người ở, giá phòng và còn nhiều thứ nữa..v..v....

xuanquy1188 · 8/4/17

à sheet khác là dữ liệu kín nên ko Share được bạn ạ.

xuanquy1188 · 8/4/17

Hix, ô tham số 1-2 bên canh là mình lấy từ bên các phòng qua, mình nhập giờ khách vào ở phòng nào thì Sheet DM Phòng ô bên cạnh phòng đó đó sẽ là số 1, và giờ khách ra nó sẽ là số 2.
Mình nạp code của bạn giaiphap vào thì nó không chạy được, mỗi lần phải vào ô bên cạnh enter 1 cái nó mới chạy, hay tại Sheet phòng đó mỗi lần mình về DM Phòng thì mình ẩn đi nên nó ko cập nhật được.

be_09 · 8/4/17

xuanquy1188 đã viết:
Hix, ô tham số 1-2 bên canh là mình lấy từ bên các phòng qua, mình nhập giờ khách vào ở phòng nào thì Sheet DM Phòng ô bên cạnh phòng đó đó sẽ là số 1, và giờ khách ra nó sẽ là số 2.
Mình nạp code của bạn giaiphap vào thì nó không chạy được, mỗi lần phải vào ô bên cạnh enter 1 cái nó mới chạy, hay tại Sheet phòng đó mỗi lần mình về DM Phòng thì mình ẩn đi nên nó ko cập nhật được.

Bạn xem thử File chẳng có tí code nào hết.

Góp ý:

Bạn muốn các thành viên giúp thì làm vầy: Tiêu đề là thật, dữ liệu là giả định thì mới có sự gúp đỡ nhiệt tình của các thành viên.

Lưu ý:

Bạn nhập mã (1 và 2) tại cột C của sheet THEODOI_PHONG, Shpes nó tự thay đổi theo.

be_09 · 8/4/17

File bài 10 chỉ vẽ Shapes rồi dùng Link để thực hiện, khâu cuối cùng là sử dụng Conditional Formating (để định dang thôi).

xuanquy1188 · 8/4/17

Xin lỗi bạn

Như file dưới đây, mình viết công thức vào 3 ô bên cạnh của 3 phòng Tây Nguyên, Quan Họ và Huế thay vì phải nhập bằng tay, mình viết mô phỏng 3 phòng đó thôi, các phòng khác tương tự. Vấn đề là khi mình vào phòng đó thay đổi để cập nhật phòng đó đang có khách hay đã được tính tiền thì tên phòng đó ngoài Sheet DM Phòng không được đổi màu, mình vài click vào ô có công thức đó và bấm Enter 1 lần nó mới chịu đổi.

Giải quyết làm sao ạ?

giaiphap · 8/4/17

Cái này bạn chỉ cần cài sự kiện chọn sheet thì nó sẽ duyệt qua tata cả các ô và tô màu thôi mà. Bạn tự nghiên cứu thử xem.

xuanquy1188 · 8/4/17

Hix, mình chịu rồi bạn ơi. Bạn giúp mình cho xong với. Cám ơn ạ.

giaiphap · 8/4/17

xuanquy1188 đã viết:
Hix, mình chịu rồi bạn ơi. Bạn giúp mình cho xong với. Cám ơn ạ.

Bạn thay đoạn code trong sheet DM phòng bằng đoạn code sau:

Mã:

Private Sub Worksheet_Activate()
On Error Resume Next
Dim s(), ss()
Dim i As Integer
s = Array("E10", "E12", "E14", "E16", "H10", "H12", "H14", "H16", "K10", "K12", "K14", "K16", "N12", "N14", "N16", "T14", "T16")
ss = Array("26", "29", "34", "40", "27", "30", "35", "41", "28", "31", "36", "42", "32", "37", "43", "39", "45")
  For i = 0 To 16
        If Range(s(i)).Value = 1 Then
            ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & ss(i))).TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
        ElseIf Range(s(i)).Value = 2 Then
            ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & ss(i))).TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(0, 128, 0)
        Else
            ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & ss(i))).TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(0, 0, 255)
        End If
  Next i
End Sub

xuanquy1188 · 8/4/17

Được rồi, cám ơn các bạn nhiều nhé }}}}}

be_09 · 8/4/17

xuanquy1188 đã viết:
Được rồi, cám ơn các bạn nhiều nhé

Tốn công làm hết 1 giờ để làm thử File bài 10, cộng với tiêu tốn hết 568.3 KB, tính giúp tiếp nhưng thấy có 2 người giúp mà chỉ cám ơn có 1 người (tủi thân quá nên dọt lẹ) cho đỡ mất thời gian và dung lượng.

giaiphap · 8/4/17

be09 đã viết:
Tốn công làm hết 1 giờ để làm thử File bài 10, cộng với tiêu tốn hết 568.3 KB, tính giúp tiếp nhưng thấy có 2 người giúp mà chỉ cám ơn có 1 người (tủi thân quá nên dọt lẹ) cho đỡ mất thời gian và dung lượng.

Sao vậy bác, có khi bạn ấy sơ ý thôi mà.Chắc là sau bài này bạn ấy sẽ cảm ơn bác mà. ''''''''''''''''''

be_09 · 8/4/17

giaiphap đã viết:
Sao vậy bác, có khi bạn ấy sơ ý thôi mà.Chắc là sau bài này bạn ấy sẽ cảm ơn bác mà.

Buồn buồn nói chơi cho vui vậy mà.

Anh chỉ nêu lên để chủ Topic và các thành viên khác hiểu mà nhớ nói lời cám ơn những thành viên đã bỏ công sức giúp mình, được nhiều người giúp thì sẽ học thêm được nhiều cách.

Nếu so với công sức làm File bài 10 (tốn công gần 1 giờ) so với ngồi gõ 2 từ "Cám ơn", mà họ còn không biết làm thì còn nói chi nữa.

Mục đích chính là để các thành viên tìm hiểu về những cái có sẳn để sử dụng, chứ không nên lúc nào cũng nghĩ đến code.

be_09 · 9/4/17

File bài 10 do làm Link chưa đúng nên ra kế quả chưa chính xác, vì vậy cần sửa lại các Cell của sheet DM_PHONG như thế này:

1/ Tại N6 sửa lại thế này:

=THEODOI_PHONG!$C$17

2/ Tại Q6 sửa lại thế này:

=THEODOI_PHONG!$C$20

Đổi màu Text trong Shapes

Thành viên chính thức

File đính kèm

==(^o^)==

File đính kèm

Thành viên chính thức

==(^o^)==

Biên Hòa, Đồng Nai

Thành viên chính thức

Biên Hòa, Đồng Nai

Thành viên chính thức

Thành viên chính thức

Biên Hòa, Đồng Nai

File đính kèm

Biên Hòa, Đồng Nai

Thành viên chính thức

File đính kèm

==(^o^)==

Thành viên chính thức

==(^o^)==

Thành viên chính thức

Biên Hòa, Đồng Nai

==(^o^)==

Biên Hòa, Đồng Nai

Biên Hòa, Đồng Nai

Facebook

Group