Đổi màu Text trong Shapes

Quảng cáo

xuanquy1188

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
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.
 

File đính kèm

  • DoiMauText.xlsm
    180.6 KB · Đọc: 16

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,287
Được thích
4,971
Điểm
2,168
Bạn xem thử đúng ý chưa nhé.
 

File đính kèm

  • DoiMauText.xlsm
    177.4 KB · Đọc: 25

xuanquy1188

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
Đú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

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,287
Được thích
4,971
Điểm
2,168
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

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
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.
 

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
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....
 
Lần chỉnh sửa cuối:

xuanquy1188

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
à sheet khác là dữ liệu kín nên ko Share được bạn ạ.
 

xuanquy1188

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
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

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
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.
 

File đính kèm

  • THEO DOI KHCH SAN (2).rar
    568.3 KB · Đọc: 44
Lần chỉnh sửa cuối:

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
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

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
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 ạ?
 

File đính kèm

  • DoiMauText.xlsm
    183.7 KB · Đọc: 14

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,287
Được thích
4,971
Điểm
2,168
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

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
Hix, mình chịu rồi bạn ơi. Bạn giúp mình cho xong với. Cám ơn ạ.
 

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,287
Được thích
4,971
Điểm
2,168
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

Thành viên chính thức
Tham gia ngày
18 Tháng ba 2017
Bài viết
69
Được thích
0
Điểm
0
Tuổi
32
Được rồi, cám ơn các bạn nhiều nhé }}}}}
 

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
Đượ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

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,287
Được thích
4,971
Điểm
2,168

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

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
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

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,791
Được thích
9,535
Điểm
3,168
Tuổi
63
Nơi ở
Khu phố Văn Hóa
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
 
Lần chỉnh sửa cuối:
Quảng cáo
Top Bottom