Tạo Bảng Màu Thường Dùng

qtnbphi

Thành viên hoạt động
Tham gia ngày
31 Tháng mười hai 2011
Bài viết
181
Được thích
9
Điểm
370
Có cách nào tạo một vài màu mình thường dùng, để tiện tô màu cho những ô mình muốn tô không ACE ?

( thay vì mỗi lần tô màu, phải nhảy lên thanh công cụ , chọn màu, thì mình chỉ cần chọn ô cần tô màu, rồi bấm vào màu mình tạo sẵn để tô màu cho ô )

ko nói đến trường hơp format Condiational nhé.
 

vanle33

GPE-Ngôi nhà thứ 2
Tham gia ngày
30 Tháng mười 2008
Bài viết
5,397
Được thích
3,704
Điểm
860
Nơi ở
Thị xã Sơn Tây - TP Hà Nội
Có cách nào tạo một vài màu mình thường dùng, để tiện tô màu cho những ô mình muốn tô không ACE ?

( thay vì mỗi lần tô màu, phải nhảy lên thanh công cụ , chọn màu, thì mình chỉ cần chọn ô cần tô màu, rồi bấm vào màu mình tạo sẵn để tô màu cho ô )

ko nói đến trường hơp format Condiational nhé.
Tại sao bạn có ý tưởng ấy nhỉ?
Khi nhà lập trình tạo ra phần mềm Office thì người ta cũng đã hầu như giải quyết hầu hết các trường hợp người sử dụng cần gì rồi.
Sao phải tự làm khó mình, loay hoay lập trình + tạo công cụ này kia ... trong khi hoàn toàn có thể sử dụng công cụ có sẵn của Office.
Bạn muốn "rồi bấm vào màu mình tạo sẵn để tô màu cho ô" thì khác gì bấm vào màu trên Fill color hay Font color?
 

qtnbphi

Thành viên hoạt động
Tham gia ngày
31 Tháng mười hai 2011
Bài viết
181
Được thích
9
Điểm
370
Đồng ý với bạn hai tay .
Nhưng cái mình nói ở đây, là mình có ý riêng cho bảng excel của mình. nếu như mỗi ngày bạn tô màu cho 200 dòng, cột, hay ô .
thì một lần như vậy, bạn lại bật cái bảng màu lên, và chọn màu mình thường dùng ,

chưa nói đến việc cái bảng đó đòi hỏi phải cho cả 50 người khi nhìn vào là sài được.
và làm thao tác nhanh được, ko ảnh hưởng nhiều đến thời gian .

trong khi mình chỉ sữ dụng 4,5 màu thường dùng, mà lúc nào củng phải mỡ cái bảng ra, và chọn màu. ko tin, bạn thử làm một cái bảng 200 dòng, và mấy ngàn ô một ngày, ngồi tô lui lại cái màu mình hay sài, tính ra, sẽ mất rất nhiều thời gian nếu cứ bấm lên chọn, và tìm màu mình sài.

cái quan trọng ở đây là làm hướng đối tượng. bảng màu excel tiện lợi đối với những công việc đơn giản, nhưng đối với cv mà yêu cầu về thời gian , thì khi sài cái đó, nếu tính tỉ mĩ ra, chắc chắn sẽ tốn khá nhiều thời gian hơn bạn nghĩ.

mọi thứ trong cv, nếu ko tính chi li từng giờ phút giây, thì nó ảnh hưởng đến hiệu xuất cv rất nhiều .
 

chuot0106

Thành viên gắn bó
Tham gia ngày
20 Tháng một 2013
Bài viết
2,562
Được thích
1,657
Điểm
560
Tuổi
34
Nơi ở
Hạ Long - Tỉnh Quảng Ninh
Đồng ý với bạn hai tay .
Nhưng cái mình nói ở đây, là mình có ý riêng cho bảng excel của mình. nếu như mỗi ngày bạn tô màu cho 200 dòng, cột, hay ô .
-----------------------------------------------------
mọi thứ trong cv, nếu ko tính chi li từng giờ phút giây, thì nó ảnh hưởng đến hiệu xuất cv rất nhiều .
Ý tưởng của bạn rất tốt ở chỗ nhằm phục vụ công việc của bạn nhanh hơn. Bạn cứ đưa File và nêu yêu cầu cụ thể trong đó biết đâu có thành viên có thể giúp được bạn.
------------------------------------------------------------
P/S: Hỏi thêm bạn 1 chút không biết bạn muốn tô màu chữ hay màu nền.
 
Lần chỉnh sửa cuối:

be09

Biên Hòa - Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,727
Được thích
7,464
Điểm
560
Tuổi
61
Nơi ở
TP. Biên Hòa, Đồng Nai
Ý tưởng của bạn rất tốt ở chỗ nhằm phục vụ công việc của bạn nhanh hơn. Bạn cứ đưa File và nêu yêu cầu cụ thể trong đó biết đâu có thành viên có thể giúp được bạn.
------------------------------------------------------------
P/S: Hỏi thêm bạn 1 chút không biết bạn muốn tô màu chữ hay màu nền.
Nhất trí cả 4 chân luôn:

- Muốn làm cái gì đó thì phải nêu tiêu chí cần cho rỏ ràng, cụ thể.
- Muốn làm cái gì đó thì phải có File, còn không có thì chẳng thành viên nào giúp được.
 

qtnbphi

Thành viên hoạt động
Tham gia ngày
31 Tháng mười hai 2011
Bài viết
181
Được thích
9
Điểm
370
Xin Lỗi ACE, mình xin gữi bản tính đơn giản này nhé.
 

File đính kèm

qtnbphi

Thành viên hoạt động
Tham gia ngày
31 Tháng mười hai 2011
Bài viết
181
Được thích
9
Điểm
370
Mình có viết trong rỏ ràng, là ngoại trừ cách sài cây chổi thần (format painter), và format Condiational :)
 

HYen17

Thành viên cằn cỗi.
Tham gia ngày
27 Tháng năm 2007
Bài viết
4,481
Được thích
6,161
Điểm
100
Tuổi
19
1 cách khác để bạn tham khảo, như trong file:

Tạo ra 5 macro với các tổ hợp fím tắt là {CTRL}+{SHIFT}+{X}

X=A Tô màu lá mạ
X=B Tô màu giống [B1]
. . . . .
X=I Tạo font màu đỏ, in đậm & nghiên.

Cách xài: Lấy chuột tô chọn các vùng cần tô 1 màu nào đó & bấm tổ hợp các fím tương ứng
 

File đính kèm

qtnbphi

Thành viên hoạt động
Tham gia ngày
31 Tháng mười hai 2011
Bài viết
181
Được thích
9
Điểm
370
bước tiếp theo là : Nếu mình trả lại thuộc tính của ô mình vừa chuyển màu, thì làm thế nào ACE ? (nhập trực tiếp vào ô chọn màu lần thứ 1,nó sẽ tô màu cho ô mình cần tô, nhấp lần hai, nó sẽ bỏ thuộc tính ô mình đã tô màu đó .)
 
Lần chỉnh sửa cuối:

chuot0106

Thành viên gắn bó
Tham gia ngày
20 Tháng một 2013
Bài viết
2,562
Được thích
1,657
Điểm
560
Tuổi
34
Nơi ở
Hạ Long - Tỉnh Quảng Ninh
bước tiếp theo là : Nếu mình trả lại thuộc tính của ô mình vừa chuyển màu, thì làm thế nào ACE ? (nhập trực tiếp vào ô chọn màu lần thứ 1,nó sẽ tô màu cho ô mình cần tô, nhấp lần hai, nó sẽ bỏ thuộc tính ô mình đã tô màu đó .)
Của bạn đây.......................................................
 

File đính kèm

quanghai1969

Thành viên gạo cội
Tham gia ngày
21 Tháng hai 2009
Bài viết
5,581
Được thích
6,926
Điểm
860
Nơi ở
Thuận An, Bình Dương
bước tiếp theo là : Nếu mình trả lại thuộc tính của ô mình vừa chuyển màu, thì làm thế nào ACE ? (nhập trực tiếp vào ô chọn màu lần thứ 1,nó sẽ tô màu cho ô mình cần tô, nhấp lần hai, nó sẽ bỏ thuộc tính ô mình đã tô màu đó .)
Ngứa tay quá nên nhào vô chơi tí. Thích màu nào thì cứ sửa lại màu của mấy cái shapes là được
PHP:
Sub tomau()
With ActiveCell.Interior
   If .ColorIndex <> xlNone Then
      .Color = xlNone
   Else
      .Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB
   End If
End With
End Sub
Sub ChuNghieng()
With ActiveCell.Characters.Font
   If .ColorIndex <> 3 Then
      .ColorIndex = 3
      .Italic = True
   Else
      .ColorIndex = xlAutomatic
      .Italic = False
   End If
End With
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Top