Cho hỏi cách đánh dấu ô đã định dạng text (1 người xem)

[khohieuqua]

Xin mấy anh chị chỉ giúp cách viết mã lệnh những ô đã tô màu thị ta đánh dấu chọn vào ô kế bên như file đính kèm. Xin cảm ơn

 

[huuthang_bd]

Xin mấy anh chị chỉ giúp cách viết mã lệnh những ô đã tô màu thị ta đánh dấu chọn vào ô kế bên như file đính kèm. Xin cảm ơn

Đặt tiêu đề khó hiểu như thế này bảo sao người ta vào giúp được. Bạn xem file. Mỗi lần thay đổi màu của các ô thì nhấn F9 để kết quả cập nhật lại.

 

[khohieuqua]

- Vâng cam ơn, nhưng còn 2 điều kiện ở 2 dòng chót trong file đính kèm bạn làm giúp mình luôn đi.
Cho hỏi tiêu đề mình đặt vậy kỳ lắm hả
- Nhưng sao mình không thấy mã lệnh vậy. Vậy sao mình có thể học được để áp dụng trong trường hợp khác xin chỉ với

 

[huuthang_bd]

- Vâng cam ơn, nhưng còn 2 điều kiện ở 2 dòng chót trong file đính kèm bạn làm giúp mình luôn đi.
Cho hỏi tiêu đề mình đặt vậy kỳ lắm hả
- Nhưng sao mình không thấy mã lệnh vậy. Vậy sao mình có thể học được để áp dụng trong trường hợp khác xin chỉ với

Bạn nghĩ người ta sẽ hiểu câu "định dạng text" như thế nào?
Trong file, Ctrl + F3 để xem công thức trong Name.
Tôi không hiểu nội dung câu hỏi cuối của bạn.

 

[dang thi lan]

Bạn nghĩ người ta sẽ hiểu câu "định dạng text" như thế nào?
Trong file, Ctrl + F3 để xem công thức trong Name.
Tôi không hiểu nội dung câu hỏi cuối của bạn.

Gởi Huuthang_bd
Thắng ơi, công thức "refers to" của "NameA" tương tự như "NameB" mình kô hiểu. Thắng giải thích dùm mình nha. Mục đích của "refers to" ?
Mình cảm ơn nhiều

 

[huuthang_bd]

Gởi Huuthang_bd
Thắng ơi, công thức "refers to" của "NameA" tương tự như "NameB" mình kô hiểu. Thắng giải thích dùm mình nha. Mục đích của "refers to" ?
Mình cảm ơn nhiều

Bạn xem kỹ lại sẽ thấy NameA và NameB khác nhau ở chỉ số của hàm Get.Cell()
NameA là Get.Cell(63... Còn NameB là Get.Cell(24...
Get.Cell() là hàm của Macro4. Get.Cell(63... dùng để lấy màu nền cònGet.Cell(24... dùng để lấy màu chữ. Nội dung hai name này là so sánh màu nền (hoặc màu chữ) của cột Họ Tên và cột DC nếu cùng màu thì trả về chỉ số màu của 2 ô này, nếu khác màu thì trả về 0.

 

[khohieuqua]

- Câu cuối của mình là lập trình VBA để chuyển một text hay một số nào đó chuyển đổi màu liên tục, nhưng thời gian chuyển từ màu này sang màu kia quá lẹ ta khó cảm nhận nên mới hỏi mấy bạn có cách nào làm thời gian chuyển từ màu này sang màu kia chậm lại không để ta có thể nhìn thấy đó mà, giống như đèn màu chốp tắt vậy đó.
- Lệnh của bạn chỉ cho ra kết quả còn điều kiện đổi màu kết quả cho ra thì không có
- Còn nửa nếu cột "ĐÁNH DẤU" tôi xóa các điều kiện ví dụ "OK", "DC" thì khi đánh lại rồi bấm F9 thì nó không còn tác dụng nửa. Bạn xem lại thử

 

[huuthang_bd]

- Câu cuối của mình là lập trình VBA để chuyển một text hay một số nào đó chuyển đổi màu liên tục, nhưng thời gian chuyển từ màu này sang màu kia quá lẹ ta khó cảm nhận nên mới hỏi mấy bạn có cách nào làm thời gian chuyển từ màu này sang màu kia chậm lại không để ta có thể nhìn thấy đó mà, giống như đèn màu chốp tắt vậy đó.
- Lệnh của bạn chỉ cho ra kết quả còn điều kiện đổi màu kết quả cho ra thì không có
- Còn nửa nếu cột "ĐÁNH DẤU" tôi xóa các điều kiện ví dụ "OK", "DC" thì khi đánh lại rồi bấm F9 thì nó không còn tác dụng nửa. Bạn xem lại thử

Trời ạ. Cái tôi làm là công thức, bạn xóa đi thì có F9 đến... Tết nó cũng chẳng ra. Bó tay.
Người Việt nói với người Việt mà sao khó hiểu quá. Cái gì mà "Lệnh của bạn chỉ cho ra kết quả còn điều kiện đổi màu kết quả cho ra thì không có".

 

[dang thi lan]

Bạn xem kỹ lại sẽ thấy NameA và NameB khác nhau ở chỉ số của hàm Get.Cell()
NameA là Get.Cell(63... Còn NameB là Get.Cell(24...
Get.Cell() là hàm của Macro4. Get.Cell(63... dùng để lấy màu nền cònGet.Cell(24... dùng để lấy màu chữ. Nội dung hai name này là so sánh màu nền (hoặc màu chữ) của cột Họ Tên và cột DC nếu cùng màu thì trả về chỉ số màu của 2 ô này, nếu khác màu thì trả về 0.

1. Như T nói hàm Get.cell là hàm của Marco4, vậy marco4 đc tạo như thế nào, sao Lan vào Tool ->Marco kô thấy name của Marco4
2. T nói "Nội dung hai name này là so sánh màu nền (hoặc màu chữ) của cột Họ Tên và cột DC ..." thì đọan công thức thể hiện điều đó trong "refers to" T làm là: "=(GET.CELL(63,Sheet1!$L8)=GET.CELL(63,Sheet1!$N8))" đúng kô ?
3. T nói ".....nếu cùng màu thì trả về chỉ số màu của 2 ô này, nếu khác màu thì trả về 0." là đọan còn lại đúng kô.
4. tác dụng của hàm Today trong "NameA" tương tự như "NameB" ?
Lan cảm ơn nhiều !

 

[khohieuqua]

"Trời ạ. Cái tôi làm là công thức, bạn xóa đi thì có F9 đến... Tết nó cũng chẳng ra."
Câu này tôi củng không hiểu luôn. Ý tôi nói là điều kiện cột "đánh dấu" nếu tôi xóa rồi đánh lại thì "F9" lúc này củng không được tôi đã thử rồi nên mới hỏi bạn mà. Bạn thử lại xem

 

[huuthang_bd]

"Trời ạ. Cái tôi làm là công thức, bạn xóa đi thì có F9 đến... Tết nó cũng chẳng ra."
Câu này tôi củng không hiểu luôn. Ý tôi nói là điều kiện cột "đánh dấu" nếu tôi xóa rồi đánh lại thì "F9" lúc này củng không được tôi đã thử rồi nên mới hỏi bạn mà. Bạn thử lại xem

điều kiện cột "đánh dấu" là cái gì nhỉ??? Chắc tôi bó thay thôi. Nói chuyện kiểu này nữa chắc nổi điên mất. Bạn tìm người khác giúp tiếp nhé.

 

[SA_DQ]

Đúng là để hiểu được cần 3 ngày; Để làm được cần không quá 3 giờ

(*) Macro thỏa các iêu cầu của bạn đây; Hãy dùng thử & cho í kiến:

Option Explicit
Sub ColorS()
 Dim Rng As Range, Clls As Range:            Dim Color_ As Byte
 
 Set Rng = Range([A6], [A65500].End(xlUp))
3 Rng.Interior.ColorIndex = 0
 Randomize:                                  Color_ = 8 + Int(3 * Rnd())
 For Each Clls In Rng
   With Clls.Offset(, 2)
      If .Offset(, -2).Font.ColorIndex = 3 Then
         .Offset(, -2).Interior.ColorIndex = 4
         If .Font.ColorIndex = 3 Then
            With .Offset(, -1)
               .Value = "OK":                .Font.ColorIndex = 3
            End With
            .Interior.ColorIndex = 4
         End If
      ElseIf .Font.ColorIndex = 3 Then
         .Interior.ColorIndex = 4
      ElseIf .Offset(, -2).Font.ColorIndex = 5 Then
         .Offset(, -2).Interior.ColorIndex = 6
         If .Font.ColorIndex = 5 Then
            With .Offset(, -1)
               .Value = "ADDRESS":           .Font.ColorIndex = 5
            End With
            .Interior.ColorIndex = 6
         End If
      ElseIf .Font.ColorIndex = 5 Then
         .Interior.ColorIndex = 6
      ElseIf .Offset(, -2).Font.ColorIndex = 7 Then
         .Offset(, -2).Interior.ColorIndex = 1 + Color_
         If .Font.ColorIndex = 7 Then
            With .Offset(, -1)
               .Value = "SELECT":            .Font.ColorIndex = Color_
            End With
            .Interior.ColorIndex = 1 + Color_
         End If
      ElseIf .Font.ColorIndex = 7 Then
         .Interior.ColorIndex = 1 + Color_
      End If
   End With
 Next Clls
End Sub

(*)

SẲN CHO EM HỎI LUÔN CÓ CÁCH MÀU LÀM MỘT MÀU CỦA TEXT LÀ MÀU NGẨU NHIÊN NHƯNG THỜI GIAN CHUYỂN TỪ MÀU NÀY SANG MÀU KIA CHO NÓ CHẬM LẠI

Nếu bạn muốn xem nó chuyển từ màu này sang màu khác thì cũng được; Nhưng nói trước, bạn không thể làm gì khác trên trang tính trong khi nó chuyển màu cho bạn vui mắt;

Mình biết những cách củ khoai như sau:
1./ Vòng lặp lớn lên để câu giờ; Ví dụ:

 Dim Zz As Long, Jj As Long , Ww As Long, Ff As Long 
 For Jj=1 To 10^6
     For Zz = 1 To 10^5
          Ww =Ww + 1:               Ff = Ff + 1
          If (Zz + Jj) Mod 2 = 1 Then  Ww =  Ff  Else Ww = Ff + 1
 Next Zz, Jj

2./ Vòng lặp đơn giản hơn:

 Dim Timer_ As Double
 Timer_ =Timer 
Do
     If Timer - Timer_ > 9 Then Exit Do
Loop

 

[HideBoy]

Hihi! Mình không đọc kỹ chắc cũng điên mất! Chắc là yêu cầu viết code bằng VBA cho phím F9 nhỉ? Hihihi.... chuối!