Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Kết quả 1 đến 5 của 5

Chủ đề: Giúp mình với

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Giúp mình với

    ' ví dụ đang ở dòng lnum
    Range("G" & lnum & ":" & "I" & lnum).Select
    Selection.Offset(-1, 0).Copy
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    ' hoặc gọn hơn
    lnum = Selection.Row
    Range("G" & (lnum - 1) & ":" & "I" & (lnum - 1)).Copy Destination:=Range("G" & lnum & ":" & "I" & lnum)

  3. #3
    Ngày tham gia
    Nov 2015
    Bài viết
    5
    Ðề: Giúp mình với

    Bạn ơi mình có 1 vấn đề bạn giúp mình nhé:
    Mình muốn khi Ô L3 thay đổi thì các giá trị của cột G thay đổi như sau: IF(A13<$J$2;"td";IF(A13<=$J$3;"tk";"k"))

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Giúp mình với

    Dùng cách bắt sự kiện change sheet:

    Trong cái sheet đó (phải là sheet chứ không phải project), nhét vào cái sub sau:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$L$3" Then
    Application.EnableEvents = False
    ' code thay đổi cho côt G ở đây
    Application.EnableEvents = True
    End If
    End Sub

  5. #5
    Ngày tham gia
    Apr 2016
    Bài viết
    41
    Ðề: Giúp mình với

    Mình mù tịt về VBA bạn hộ mình luôn đoạn code thay đổi cho cột G nhé. cảm ơn bạn nhiều

 

 

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
  •