TRỢ GIÚP CODE VBA

MANHTS · 17/11/20

Cu Tồ đã viết:
cột I J có cần khác rỗng mới lấy không? mà bạn có vẻ thích viết hoa cả câu

khác rỗng k lấy bác ạ
Hì hì, Bác cho em hỏi nếu cột J ở sheet bieumau mà code VBA sử dụng công thức luôn dc k bác
Ví dụ nó bằng cột F nhân với cột K của dữ liệu nhập có đc k bác

Cu Tồ · 17/11/20

MANHTS đã viết:
khác rỗng k lấy bác ạ

Khác rỗng không lấy??? thế bạn lấy giá trị rộng thì khác gì không lấy? Bạn hack não tôi hơi nhiều nha

MANHTS đã viết:
Ví dụ nó bằng cột F nhân với cột K của dữ liệu nhập có đc k bác

Ý là nếu chọn cột K bên sheeets biểu mẫu thì cột J nó sẽ là lấy cột F nhân với cột K .còn chọn cột M thì lấy M nhân với F đúng không?

MANHTS · 17/11/20

Cu Tồ đã viết:
Khác rỗng không lấy??? thế bạn lấy giá trị rộng thì khác gì không lấy? Bạn hack não tôi hơi nhiều nha

Ý là nếu chọn cột K bên sheeets biểu mẫu thì cột J nó sẽ là lấy cột F nhân với cột K .còn chọn cột M thì lấy M nhân với F đúng không?

dạ đúng rồi bác

Cu Tồ · 17/11/20

MANHTS đã viết:
dạ đúng rồi bác

đầu tiên bạn thử lấy hai cái đó nhận với nhau trên bảng tính xem kiểu dữ liệu hiện tại của bạn có nhận được không.còn dữ liệu chuận xin trả lời là có

Bài đã được tự động gộp: 17/11/20

Bạn xem giúp tôi hai cái này có gì khác nhau không?

MANHTS · 17/11/20

Cu Tồ đã viết:
đầu tiên bạn thử lấy hai cái đó nhận với nhau trên bảng tính xem kiểu dữ liệu hiện tại của bạn có nhận được không.còn dữ liệu chuận xin trả lời là có

Bài đã được tự động gộp: 17/11/20

View attachment 249489
Bạn xem giúp tôi hai cái này có gì khác nhau không?

sau em sẽ chỉnh về 1 dạng thôi bác chắc em đánh nhầm vì nó sẽ là 0,1

Cu Tồ · 17/11/20

MANHTS đã viết:
nó sẽ là 0,1

Vầy đi

Mã:

 Option Explicit

Sub PHUONGPHAP()
Dim DS(), KQ(), PP()
Dim i As Long, j As Long, K As Long, Hc As String, DK As String
DK = Sheets("BIEUMAU").Range("C3").Value
'---------------------------------------------------------------------------------
With Sheets("DULIEUNHAP")
    DS = .Range("B4", .Range("B" & Rows.Count).End(xlUp)).Resize(, 22).Value
    ReDim KQ(1 To UBound(DS), 1 To 5)
    For j = 10 To UBound(DS, 2)
        If DS(1, j) = DK Then
            Exit For
        End If
    Next
'---------------------------------------------------------------------------------
    For i = 2 To UBound(DS)
            Hc = DS(i, 1)
         If Hc <> "" And DS(i, j) <> "" Then
                K = K + 1
            KQ(K, 1) = K
            KQ(K, 2) = DS(i, 1)
            KQ(K, 3) = DS(i, 7)
            KQ(K, 4) = DS(i, 8)
            KQ(K, 5) = DS(i, 5) * DS(i, j)
          
         End If
    Next
End With
'---------------------------------------------------------------------------------
With Sheets("BIEUMAU")
        .Range("B6:F" & .Range("B" & Rows.Count).End(xlUp).Row + 5).ClearContents
    If K >= 1 Then
        .Range("B6").Resize(K, 5) = KQ
        .Range("B6").Resize(K, 5).Borders.LineStyle = 1
    End If
End With
End Sub

Bài đã được tự động gộp: 17/11/20

MANHTS đã viết:
vì nó sẽ là 0,1

Bạn thử nhập vào ô A1 = 0,1
Nhập vào ô B1 =ISNUMBER(A1)
Chắc chắn hơn nữa
Nhập vào ô A2= 500
Nhập vào ô B2=A1*A2
Rồi xem dữ liệu của bạn để dạng 0,1 nó sẽ ra sao khi nhân

MANHTS · 17/11/20

Cu Tồ đã viết:

Vầy đi

Mã:

 Option Explicit

Sub PHUONGPHAP()
Dim DS(), KQ(), PP()
Dim i As Long, j As Long, K As Long, Hc As String, DK As String
DK = Sheets("BIEUMAU").Range("C3").Value
'---------------------------------------------------------------------------------
With Sheets("DULIEUNHAP")
    DS = .Range("B4", .Range("B" & Rows.Count).End(xlUp)).Resize(, 22).Value
    ReDim KQ(1 To UBound(DS), 1 To 5)
    For j = 10 To UBound(DS, 2)
        If DS(1, j) = DK Then
            Exit For
        End If
    Next
'---------------------------------------------------------------------------------
    For i = 2 To UBound(DS)
            Hc = DS(i, 1)
         If Hc <> "" And DS(i, j) <> "" Then
                K = K + 1
            KQ(K, 1) = K
            KQ(K, 2) = DS(i, 1)
            KQ(K, 3) = DS(i, 7)
            KQ(K, 4) = DS(i, 8)
            KQ(K, 5) = DS(i, 5) * DS(i, j)
         
         End If
    Next
End With
'---------------------------------------------------------------------------------
With Sheets("BIEUMAU")
        .Range("B6:F" & .Range("B" & Rows.Count).End(xlUp).Row + 5).ClearContents
    If K >= 1 Then
        .Range("B6").Resize(K, 5) = KQ
        .Range("B6").Resize(K, 5).Borders.LineStyle = 1
    End If
End With
End Sub

Bài đã được tự động gộp: 17/11/20

Bạn thử nhập vào ô A1 = 0,1
Nhập vào ô B1 =ISNUMBER(A1)
Chắc chắn hơn nữa
Nhập vào ô A2= 500
Nhập vào ô B2=A1*A2
Rồi xem dữ liệu của bạn để dạng 0,1 nó sẽ ra sao khi nhân

Dạ vâng để em thử ạ

Cu Tồ · 17/11/20

Chủ đề này có mỗi tôi với bạn mà tới tận bài 27 chưa xong vấn đề.và có một số lưu ý với bạn như sau:
1.Khi bạn nếu vấn đề thì nếu vấn đề rõ ràng.dữ liệu gốc và kết quả mong muốn kèm theo điều kiện yêu cầu để lấy ra kết quả đó.Trình bày không rõ ràng người khác không muốn suy nghĩ ra đủ trường hợp làm sao cho đúng suy nghĩ của bạn đâu
2.Bạn nêu hết một lượt tất cả yêu cầu không nên mỗi bài nêu một cái thứ nhất mất công sửa code thứ hai có những lúc hướng đi của logic code còn bị đổi theo từng yêu cầu
3.Lưu ý về hình thức viết bài của bạn.nội quy diễn đàn có đấy
*mod nào đi qua đi qua sửa lại hộ tiêu đề bài viết

TRỢ GIÚP CODE VBA

MANHTS

Thành viên chính thức

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

MANHTS

Thành viên chính thức

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

MANHTS

Thành viên chính thức

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

MANHTS

Thành viên chính thức

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Bài viết mới nhất

Facebook

Group

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng