Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Hiện tại mình có 2 sheet gọi là A và B Ở sheet A từ ô A1 đến A9 chứa mã
- Hiện tại mình có 2 sheet gọi là A và B
- Ở sheet A từ ô A1 đến A9 chứa mã lỗi (101 —> 109) và từ ô B1 đến B9 chứa giá trị.
- Ở sheet B từ ô A1 đến W1 là các mã số tương ứng.
- Bây h mình muốn viết code cho nhập giá trị tự động từ sheet A qua sheet B với các mã số tương ứng với nhau thì làm cách nào ạ.
Mình có viết code VBA như thế này.
Sub xxx()
Call Init
With A
Dim a, b As Integer
lr_B = Last_Row(B, "B", "A")'Dong cuối của sheet B
For c = 1 To 9 Step 1
If .Cells(a, "A").Value = "" Then Exit For
For b = 1 To 23 Step 1
If .Cells(a, "A").Value = B.Cells(1, b).Value Then
B.Cells(lr_B + 1, d).Value = .Cells(a, "B").Value
Exit For
End If
Next d
Next c
End With
End Sub
13 câu trả lời
139 lượt xem
vỗ tay
vỗ tay
cho mình hỏi gửi file lên bằng cách nào vậy
vỗ tay
Chào bạn, bạn gửi lên google drive rồi cho gitiho xin link ở chế độ công khai
vỗ tay
vỗ tay
Chào bạn, bạn cho gitiho xin quyền truy cập nhé.
vỗ tay
rồi ạ
vỗ tay
Chào bạn bạn thử xem code sau nhé:
Option Explicit
Sub chayketqua()
Dim i As Long
Dim dc As Long
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
For i = 1 To dc
If Cells(1, i) = Sheet1.Range("A" & i) Then
Sheet2.Cells(2, i) = Sheet1.Range("B" & i)
End If
Next i
End Sub
vỗ tay
vỗ tay
If Cells(1, i) = Sheet1.Range("A" & i) ThenCâu này là sao ạ
Chào bạn, phần đó là mình so sánh vùng cột A với phần mã lỗi của bạn, nếu trùng thì mình lấy dữ liệu
vỗ tay
Tại sao sheet A và sheet B mình đều xài ẩn i vậy thầy.
vỗ tay
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông