Kết quả 1 đến 10 của 10

Chủ đề: Điền ngày tháng

  1. #1
    sunshinexxxx Guest

  2. #2
    duykhoakt2014 Guest

    Điền ngày tháng

    Chào cả nhà,
    Em mún input một ngày vào 1 cell, nhưng không mún input bằng cách đánh từ bàn phím mà chỉ click vào ô đó sẽ hiện ra một calendar để mình chọn ngày trong đó í.
    Em cảm ơn nhiều ạ

  3. #3
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Bạn xem file nhé, tôi dùng VBA. Bạn click vào ô bất kỳ của cột A nhé.

  4. #4
    blogxemer Guest
    Okie rùi bạn ơi, cho mình hỏi thêm chút xíu, chỉ click vào ô B4 để hiện calendar thui thì thay targetcolumn bằng giá trị gì. Nếu chỉ click một cái vào ô B4 thôi thì làm thế nào hả bạn.
    Thank u !

  5. #5
    bevll Guest
    Bạn sửa lại thành:
    If Target.Address = "$B$4" Then UserForm1.Show
    ANH TUẤN

  6. #6
    txluyen Guest
    Cho mình hỏi, double click vào cell B4 thì nhảy ra calender thì mình hiểu, nhưng khi chọn 1 ngày trong calendar thì làm sao cho ngày đó nhảy vào B4 nằm?

  7. #7
    viettopcare Guest
    Trích dẫn Gửi bởi ptm0412
    Cho mình hỏi, double click vào cell B4 thì nhảy ra calender thì mình hiểu, nhưng khi chọn 1 ngày trong calendar thì làm sao cho ngày đó nhảy vào B4 nằm?
    Mình sẽ thay Private Sub Calendar1_DblClick() bằng Private Sub Calendar1_Click() bác ạ

  8. #8
    tuyla123 Guest
    Mã nguồn PHP:
    Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A3:A15")) Is Nothing Then _ Application.Speech.Speak "This is " & Target.Value End Sub  
    Bạn thử chép đoạn mã sau vô 1 sheetName nào đó & nhập thử một ngày bất kỳ (dạng mẽo!) vô vùng 'A3:A15' sẽ nghe phát âm trên loa máy tính!

  9. #9
    zinzin8x Guest
    Trích dẫn Gửi bởi SA_DQ
    <div class="bbcode_container">
    <div class="bbcode_description">PHP Code:
    </div>
    </div>
    </div>
    Nếu em đặt Speak là "Cam duoc dung vao" thì thía nào nhỉ bác

  10. #10
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Câu lệnh nên là:

    Trích dẫn Gửi bởi bbc
    If Not Intersect(Target, Range("A35:IV35")) Is Nothing Then _
    Application.Speech.Speak Target.Value & " Cam duoc dung vao"
    thì OK không chừng !?!

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •