nhờ giúp đỡ xử lý dữ liệu để làm luận văn (1 người xem)

[Humant2o]

Dạ em xin chào mn, em có đính kièm file data nhờ mn giúp. Em đã xử lý được 1 phần, hiện em đang bị kẹt ở việc lấy dữ liệu từ các sheet khác đưa về sheet tổng, tại cell H2 em có dùng công thức này

=IF(ISERROR(VLOOKUP($D2,sales_2021_W02!$D:$G,4,FALSE)),0,VLOOKUP($D2,sales_2021_W02!$D:$G,4,FALSE))

em muốn áp dụng nó cho các ô tiếp theo cho tới cột CS, nhảy số tự động ở chỗ "sales_202x_Wxx" để nó chạy từ 2021_W02 (cột H) đến 2022_W39 (cột CS). ví dụ H2 là "sales_2021_W02", I2 là "sales_2021_W03", J2 là "sales_2021_W04", K2 là "sales_2021_W05" ... đến CS2 là "sales_2022_W39"
xin cảm ơn mn đã đọc, mong dc mn giúp đỡ ạ.

 

[BuiQuangThuan]

Dạ em xin chào mn, em có đính kièm file data nhờ mn giúp. Em đã xử lý được 1 phần, hiện
xin cảm ơn mn đã đọc, mong dc mn giúp đỡ ạ.

Hãy sửa các từ viết tắt đi.
Mô tả rõ ràng 1 chút. Tự động là thế nào thì thế nào cũng có người giúp

 

[SA_DQ]

@Chủ bài đăng: Mình thấy trong file có vài những macro;
Sao bạn không tiếp tục ý tưởng xài macro cho các trường hợp chuyển dữ liệu các trang về trang 'Tổng' (e rằng xài công thức sẽ khó hơn (?!?)

 

[VetMini]

Hãy sửa các từ viết tắt đi.
Mô tả rõ ràng 1 chút. Tự động là thế nào thì thế nào cũng có người giúp

Ngoài cái vụ viết tắt ra, tôi không thích những trò láu cá như tiêu đề bài này.
Giả vờ dùng cụm từ "làm luận văn" để câu trí tò mò từ mọi người.

 

[BuiQuangThuan]

Giả vờ dùng cụm từ "làm luận văn" để cấu trí tò mò từ mọi người.

Cháu thì thấy từ luận văn nó không có liên quan tới vấn đề nhờ lắm. Nhưng thôi kệ. Chỉ thấy viết tắt là muốn nhắc thớt thôi

 

[Hoàng Tuấn 868]

Cháu thì thấy từ luận văn nó không có liên quan tới vấn đề nhờ lắm. Nhưng thôi kệ. Chỉ thấy viết tắt là muốn nhắc thớt thôi

Ở bài bên kia thì bảo dùng code vba, còn sang bên này thì lại bảo dùng công thức, không biết đường nào mà lần.

 

[VetMini]

Ở bài bên kia thì bảo dùng code vba, còn sang bên này thì lại bảo dùng công thức, không biết đường nào mà lần.

Chắc code VBA để làm thơ, công thức để làm văn. Kinh Thi Sở Từ mờ.

 

[Humant2o]

mọi người nói thế oan cho em quá, thật sự thì data này em dùng để làm luận văn cho kì sau.
tất nhiên là em đang muốn nhờ mọi người giúp đỡ về VBA, việc gom dữ liệu ko trùng cho bài post lần trước đã xong, hiện tới bước tiếp theo thì nó khác một chút, đó là em đang muốn từ sheet sales_2021_W02 lấy cột net_quantity đưa về sheet tổng, tương tự sheet sales_2021_W03, rồi 04 05 06 07 tới sheet sales_2022_W39. em muốn gom để có 1 bộ dữ liệu liên tục rồi trực quan hóa lên vì mục tiêu làm luận văn của em là dự báo, cần dùng dữ liệu quá khứ.
em có dùng công thức như trên để lấy được rồi, nhưng áp dụng nó cho từng cột tiếp theo làm tay nó có rất nhiều cột và dễ lộn, em có thử làm như này nhưng VBA chạy báo lỗi chỗ hàng 13, em ko rành về VBA lắm nên thật sự ko biết sửa làm sao

Sub data()

Dim n As Integer
Dim i As Integer

'Xác dinh cot du lieu cuoi cung
n = 7
Do While Cells(2, n + 1) <> 0
n = n + 1
Loop
For i = 7 To n - 1
Cells(2, i + 1).Formula = _
        "=IF(ISERROR(VLOOKUP(RC4,sales_2021_W" + i + 1 + "!C4:C7,4,FALSE)),0,VLOOKUP(RC4,sales_2021_W" + i + 1 + "!C4:C7,4,FALSE))"
        i = i + 1
Next

End Sub

 

[SA_DQ]

Nhận xét đầu tiên là tên trang tính quá dài; & do vậy mà sẽ hao tốn điện, bàn fím, thời gian . . . khi thao tác với file
Nếu là mình thì tên chỉ là "S21W35", thậm chí có thể bỏ đi kí tự 'S' trong chuỗi kí tự mình đã dẫn.

Nếu bạn, thay vì dẫn ra công thức (mà bạn nêu ờ #1) ta ghi thành lời tiếng Việt thì mình sẽ cảm ơn nhiều!

 

[Probing9280]

mọi người nói thế oan cho em quá, thật sự thì data này em dùng để làm luận văn cho kì sau.
tất nhiên là em đang muốn nhờ mọi người giúp đỡ về VBA, việc gom dữ liệu ko trùng cho bài post lần trước đã xong, hiện tới bước tiếp theo thì nó khác một chút, đó là em đang muốn từ sheet sales_2021_W02 lấy cột net_quantity đưa về sheet tổng, tương tự sheet sales_2021_W03, rồi 04 05 06 07 tới sheet sales_2022_W39. em muốn gom để có 1 bộ dữ liệu liên tục rồi trực quan hóa lên vì mục tiêu làm luận văn của em là dự báo, cần dùng dữ liệu quá khứ.
em có dùng công thức như trên để lấy được rồi, nhưng áp dụng nó cho từng cột tiếp theo làm tay nó có rất nhiều cột và dễ lộn, em có thử làm như này nhưng VBA chạy báo lỗi chỗ hàng 13, em ko rành về VBA lắm nên thật sự ko biết sửa làm sao

Sub data()

Dim n As Integer
Dim i As Integer

'Xác dinh cot du lieu cuoi cung
n = 7
Do While Cells(2, n + 1) <> 0
n = n + 1
Loop
For i = 7 To n - 1
Cells(2, i + 1).Formula = _
        "=IF(ISERROR(VLOOKUP(RC4,sales_2021_W" + i + 1 + "!C4:C7,4,FALSE)),0,VLOOKUP(RC4,sales_2021_W" + i + 1 + "!C4:C7,4,FALSE))"
        i = i + 1
Next

End Sub

sửa chỗ i + 1 lại bạn , nối chuỗi dùng &

trước khi set công thức dùng Debug.Print để xem kết quả ở console log thử có đúng ý mình chưa

Debug.Print ("=IF(ISERROR(VLOOKUP(RC4,sales_2021_W" & CStr(i + 1) & "!C4:C7,4,FALSE)),0,VLOOKUP(RC4,sales_2021_W" & CStr(i + 1) & "!C4:C7,4,FALSE))")

Ctrl + G nếu cửa sổ Immediate không hiện

 

[TH2]

Luận văn thì nên tự làm, không thế hệ sau, luận văn sau ... lại nhờ
Nếu có hỏi thì phải tự làm, sai đâu nhờ mọi người ý kiến
Làm luận văn thì càng phải chú ý đến văn, đến quy định viết văn, viết tắt ...

 

[Humant2o]

sửa chỗ i + 1 lại bạn , nối chuỗi dùng &
View attachment 285235
trước khi set công thức dùng Debug.Print để xem kết quả ở console log thử có đúng ý mình chưa

Debug.Print ("=IF(ISERROR(VLOOKUP(RC4,sales_2021_W" & CStr(i + 1) & "!C4:C7,4,FALSE)),0,VLOOKUP(RC4,sales_2021_W" & CStr(i + 1) & "!C4:C7,4,FALSE))")

Ctrl + G nếu cửa sổ Immediate không hiện
View attachment 285238

dạ em cảm ơn anh, em có chỉnh lại xíu và nó ra gần đúng ý em muốn luôn rồi ạ chỉ có chỗ này em đang hơi vướng, liệu mình có thể làm cho chỗ i nó hiện 2 chữ số mà ko phải thêm trc 1 số 0 chỗ string dc ko anh, như 1 thành 01, 2 thành 02, 3 thành 03, nhưng 10 vẫn là 10, 11 là 11, 52 vẫn là 52 ấy ạ

 

[Alber]

Nghe thấy chữ luận văn cứ thấy sờ sợ.
Em hỏi ngu tí, có phải là chuẩn bị trở thành tiến sĩ không anh chị?

 

[LmoovoenX]

Nghe thấy chữ luận văn cứ thấy sờ sợ.
Em hỏi ngu tí, có phải là chuẩn bị trở thành tiến sĩ không anh chị?

Thạc sĩ thôi, luận án mới là tiến sĩ.

 

[ptm0412]

Nghe thấy chữ luận văn cứ thấy sờ sợ.
Em hỏi ngu tí, có phải là chuẩn bị trở thành tiến sĩ không anh chị?

Tôi đi học bắt đầu làm luận văn từ năm lớp 5.

 

[Alber]

Tôi đi học bắt đầu làm luận văn từ năm lớp 5.

Thời em ít nghe đến nên em cứ ngờ ngợ.

 

[ptm0412]

Thời em ít nghe đến nên em cứ ngờ ngợ.

Thế bạn học cấp 2 và 3 không từng viết luận văn à?

 

[Alber]

Thế bạn học cấp 2 và 3 không từng viết luận văn à?

Không luôn anh ạ
Chắc em học trường làng nên nó thế!

 

[namvu230397]

Thế bạn học cấp 2 và 3 không từng viết luận văn à?

Em cũng chưa viết bao giờ bác ạ. Hồi đại học thì học kỹ thuật nên cũng không có luận văn luôn, toàn là đồ án

 

[Probing9280]

dạ em cảm ơn anh, em có chỉnh lại xíu và nó ra gần đúng ý em muốn luôn rồi ạ chỉ có chỗ này em đang hơi vướng, liệu mình có thể làm cho chỗ i nó hiện 2 chữ số mà ko phải thêm trc 1 số 0 chỗ string dc ko anh, như 1 thành 01, 2 thành 02, 3 thành 03, nhưng 10 vẫn là 10, 11 là 11, 52 vẫn là 52 ấy ạ

thêm hàm

Function padZero(num As Integer, numDigits As Integer) As String
    padZero = Right("0000" & num, numDigits)
End Function

sau đó chuyển : CStr(i + 1) thành padZero(i + 1, 2)

 

[ptm0412]

Không luôn anh ạ
Chắc em học trường làng nên nó thế!

Không phải đâu, do các bạn hiểu sai cái từ luận văn. Lớp nhỏ cho đến lớp lớn có các thể loại:
- Văn tả động vật, tả người, tả cảnh (kiểu tả bà nội em, mẹ em, cô giáo em, cảnh miền quê, tả con chó nhà em)
- Văn kể chuyện: Kể chuyện bữa cơm, kể chuyện lớp học, kể chuyện xảy ra trên đường đi học
- Thư tín, đơn từ
- Văn nghị luận: nghị luận văn học, nghị luận xã hội (nhận xét phê bình 1 áng văn, 1 bài thơ, ...) Văn nghị luận cũng có mấy loại: Chứng minh, phản biện, đánh giá, ...
- Luận văn chuyên đề (tốt nghiệp đại học)
- Luận văn chuyên đề (thạc sĩ)
- Luận văn chuyên đề (tiến sĩ)
Ba mục cuối khác nhau ở quy mô và tầm cỡ của chuyên đề. Baa3n chất như nhau, chỉ có vụ tiến sĩ mới gọi tên khác đi thôi.
Viết bài hỏi, trả lời trên diễn đàn cũng là 1 dạng viết luận văn, chỉ là không ai cho điểm thôi.

 

[Alber]

Không phải đâu, do các bạn hiểu sai cái từ luận văn. Lớp nhỏ cho đến lớp lớn có các thể loại:
- Văn tả động vật, tả người, tả cảnh (kiểu tả bà nội em, mẹ em, cô giáo em, cảnh miền quê, tả con chó nhà em)
- Văn kể chuyện: Kể chuyện bữa cơm, kể chuyện lớp học, kể chuyện xảy ra trên đường đi học
- Thư tín, đơn từ
- Văn nghị luận: nghị luận văn học, nghị luận xã hội (nhận xét phê bình 1 áng văn, 1 bài thơ, ...) Văn nghị luận cũng có mấy loại: Chứng minh, phản biện, đánh giá, ...
- Luận văn chuyên đề (tốt nghiệp đại học)
- Luận văn chuyên đề (thạc sĩ)
- Luận văn chuyên đề (tiến sĩ)
Ba mục cuối khác nhau ở quy mô và tầm cỡ của chuyên đề. Baa3n chất như nhau, chỉ có vụ tiến sĩ mới gọi tên khác đi thôi.
Viết bài hỏi, trả lời trên diễn đàn cũng là 1 dạng viết luận văn, chỉ là không ai cho điểm thôi.

Thì đấy anh, văn nghị luận thì chắc là em có viết rồi cơ mà gọi nó là luận văn thì nghe nó sang quá!
Đại khái một hình ảnh của một cô gái múa cột.
Em sẽ gọi thẳng là: Múa cột
Có khi đến anh sẽ đổi thành: Nghệ thuật vũ đạo xoay quanh vật thể hình trụ
Chăng?

 

[ptm0412]

Thì đấy anh, văn nghị luận thì chắc là em có viết rồi cơ mà gọi nó là luận văn thì nghe nó sang quá!

Có khi đến anh sẽ đổi thành: Nghệ thuật vũ đạo xoay quanh vật thể hình trụ

Không. Tôi gọi đích danh. Tả con chó cũng là luận văn, viết nghị luận cũng là luận văn, viết chuyên đề lớn nhỏ gì cũng là luận văn. Không có chuyện sang hèn gì ở đây, chỉ có phân loại (như bài trên).

 

[VetMini]

thêm hàm

Function padZero(num As Integer, numDigits As Integer) As String
    padZero = Right("0000" & num, numDigits)
End Function

sau đó chuyển : CStr(i + 1) thành padZero(i + 1, 2)

Đã lỡ viết hàm cho đại trà rồi còn tự hạn mình trong 4 số không?

padZero = Right(String(numDigits, "0") & num, numDigits)
hoặc
padZero = Format(num, String(numDigits, "0"))

 

[Phuocam]

Tôi đi học bắt đầu làm luận văn từ năm lớp 5.

.
Lớp 5 hay lớp Nhất?
.

 

[SA_DQ]

Trước 1954, lớp nhất là cách gọi cho lớp 5 bây chừ; Sau đó mình không biết!

 

[ptm0412]

.
Lớp 5 hay lớp Nhất?
.

Lớp 5. Năm tôi học lớp 3 là năm đổi.

 

[VetMini]

Trước 1954, lớp nhất là cách gọi cho lớp 5 bây chừ; Sau đó mình không biết!

Ở miền Nam đổi cách gọi vào khoảng năm 1969 hay 70 gì đó.
Điều này tôi biết chắc là vì tôi còn giữ bản sao học bạ các năm Trung học Giấy tờ ghi rõ tên lớp (Đệ Tứ, Tam,...).

Trước khi đổi:
Lớp Năm > Tư > Ba > Nhì 1 > Nhì 2 > Nhất > Lấy bằng tiểu học (khoảng năm 1962 thì bỏ)
> Đệ Thất > Lục > Ngũ > Tứ > Lấy bằng Trung học đệ nhất cấp (khoảng năm 1965 hay 66 gì đó thì bỏ
> Đệ Tam > Nhị > Lấy bằng Tú Tài I (còn gọi là Tú Tài bán phần) > Nhất > Lấy bằng Tú Tài II (còn gọi là Toàn Phần)
(kể từ lớp Đệ Tam trở lên gọi là Trung học đệ nhị cấp)
Về sau đổi tuồn tuột gọi lớp 1 đến 12.
Năm 1972 là năm cuối cùng thi Tứ Tài I. Sau đó, cứ đạt điểm lớp 11 thì được coi như có Tú Tài bán phần.
Năm 1973 là năm cuối cùng Tú Tài II thi viết. Kể từ năm 74 thì trắc nghiệm, chấm bằng mày IBM (vì vậy có một số người gọi nó là bằng Tú Tài IBM)
Năm 75 thì giải dòng, mọi thứ thay hết.

Chú: Trước 1945?, tiểu học có đến 2 lớp nhì, lớp nhì 1 và nhì 2.
Lớp Năm > Tư > Ba > Lấy bằng sơ học > Nhì 1 > Nhì 2 > Nhất > Lấy bằng tiểu học
> Đệ Thất

Chú 2: Tuổi của tôi nhằm vào các đợt tổng tấn công (mùa hè đỏ lửa), miền Nam đôn quân (đặt điều lệ khó hơn cho tạm hoãn quân dịch). Bởi vậy mới có bài thơ:
Rớt Tú Tài anh đi Trung sĩ
Em ở nhà lấy Mỹ nuôi con.
Có nghĩa là ngày xưa tính cấp bậc nhập ngũ thoe trình độ học vấn.
Có bằng Tú Tài I trở lên thì vào cấp Chuẩn úy (trường Sĩ quan Thủ Đức huấn luyện)
Nếu rớt Tú Tài có nghĩa là vẫn còn Trung học đệ nhất cấp, vào bậc Trung sĩ (trường Hạ sĩ quan Đồng đế/Nha trang huấn luyện)
Dưới nữa thì binh nhì (trường Hốc môn huấn luyện)

Chú 3: bởi vậy ngày xưa có bài hát bô lê rô 6 Tháng Quân Trường (Giao Linh ca) có câu "Đồng đế đêm nằm nghe sóng vỗ..."
Và bài hát Vườn Tao Ngộ (Băng Châu hay Phương Hồng Quế quên mất) là kể lại chỗ các bà vợ đi thăm chồng đang huấn luyện.

 

[Humant2o]

thêm hàm

Function padZero(num As Integer, numDigits As Integer) As String
    padZero = Right("0000" & num, numDigits)
End Function

sau đó chuyển : CStr(i + 1) thành padZero(i + 1, 2)

dạ nó đã ra đúng ý em muốn rồi ạ, cảm ơn anh rất nhiều