Gộp dữ liệu từ nhiều sheets (2 người xem)

tuyen_ld · 11/12/18

Chào các bác. Các bác bổ xung cho em thêm code để điền ô ngày tháng ở sheets"Main" giống trong sheet "Tổng hợp" với
Ngày tháng này lấy ở ô A7 của các sheets cần gộp.

vanthinh3101 · 12/12/18

tuyen_ld đã viết:
Chào các bác. Các bác bổ xung cho em thêm code để điền ô ngày tháng ở sheets"Main" giống trong sheet "Tổng hợp" với
Ngày tháng này lấy ở ô A7 của các sheets cần gộp.

Sửa lại code của bạn.
Bạn đổi tên Sheets("Tổng hợp") thành "Tong hop" rồi chạy code nhé!

PHP:

Public Sub GPE()

Dim sArr(), dArr(1 To 65000, 1 To 250), I As Long, J As Long, K As Long, Col As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            sArr = Ws.Range("A17:A" & Ws.[B65000].End(xlUp).Row).Resize(, Ws.[L17].End(xlToLeft).Column)
            If Ws.[L17].End(xlToLeft).Column > Col Then Col = Ws.[L17].End(xlToLeft).Column

            For I = 1 To UBound(sArr, 1)
                K = K + 1
                dArr(K, 1) = Ws.Range("A7")
                For J = 2 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End If
    Next
    With Sheets("MAIN")
        .[A4:IV65000].ClearContents
        If K Then .[A4].Resize(K, Col).Value = dArr
    End With
End Sub

tuyen_ld · 12/12/18

vanthinh3101 đã viết:

Sửa lại code của bạn.
Bạn đổi tên Sheets("Tổng hợp") thành "Tong hop" rồi chạy code nhé!

PHP:

Public Sub GPE()

Dim sArr(), dArr(1 To 65000, 1 To 250), I As Long, J As Long, K As Long, Col As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            sArr = Ws.Range("A17:A" & Ws.[B65000].End(xlUp).Row).Resize(, Ws.[L17].End(xlToLeft).Column)
            If Ws.[L17].End(xlToLeft).Column > Col Then Col = Ws.[L17].End(xlToLeft).Column

            For I = 1 To UBound(sArr, 1)
                K = K + 1
                dArr(K, 1) = Ws.Range("A7")
                For J = 2 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End If
    Next
    With Sheets("MAIN")
        .[A4:IV65000].ClearContents
        If K Then .[A4].Resize(K, Col).Value = dArr
    End With
End Sub

Cảm ơn anh nhiều nha.

Bài đã được tự động gộp: 12/12/18

vanthinh3101 đã viết:

Sửa lại code của bạn.
Bạn đổi tên Sheets("Tổng hợp") thành "Tong hop" rồi chạy code nhé!

PHP:

Public Sub GPE()

Dim sArr(), dArr(1 To 65000, 1 To 250), I As Long, J As Long, K As Long, Col As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            sArr = Ws.Range("A17:A" & Ws.[B65000].End(xlUp).Row).Resize(, Ws.[L17].End(xlToLeft).Column)
            If Ws.[L17].End(xlToLeft).Column > Col Then Col = Ws.[L17].End(xlToLeft).Column

            For I = 1 To UBound(sArr, 1)
                K = K + 1
                dArr(K, 1) = Ws.Range("A7")
                For J = 2 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End If
    Next
    With Sheets("MAIN")
        .[A4:IV65000].ClearContents
        If K Then .[A4].Resize(K, Col).Value = dArr
    End With
End Sub

Chào anh.
Anh có thể add thêm tên sheets vào thêm một cột nữa được không ạ?

vanthinh3101 · 12/12/18

tuyen_ld đã viết:
Cảm ơn anh nhiều nha.

Bài đã được tự động gộp: 12/12/18

Chào anh.
Anh có thể add thêm tên sheets vào thêm một cột nữa được không ạ?

Gửi lại bạn.
Thêm cột tên sheets vào cuối cùng.

PHP:

Public Sub GPE()

    Dim sArr(), dArr(1 To 65000, 1 To 250), I As Long, J As Long, K As Long, Col As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            sArr = Ws.Range("A17:A" & Ws.[B65000].End(xlUp).Row).Resize(, Ws.[L17].End(xlToLeft).Column)
            If Ws.[L17].End(xlToLeft).Column > Col Then Col = Ws.[L17].End(xlToLeft).Column

            For I = 1 To UBound(sArr, 1)
                K = K + 1
                dArr(K, 1) = Ws.Range("A7")
                For J = 2 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
                dArr(K, Col + 1) = Ws.Name
            Next I
        End If
    Next
    With Sheets("MAIN")
        .[A4:IV65000].ClearContents
        If K Then .[A4].Resize(K, Col + 1).Value = dArr
    End With
End Sub

Hoàng Nhật Phương · 12/12/18

vanthinh3101 đã viết:

Gửi lại bạn.
Thêm cột tên sheets vào cuối cùng.

PHP:

Public Sub GPE()

    Dim sArr(), dArr(1 To 65000, 1 To 250), I As Long, J As Long, K As Long, Col As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            sArr = Ws.Range("A17:A" & Ws.[B65000].End(xlUp).Row).Resize(, Ws.[L17].End(xlToLeft).Column)
            If Ws.[L17].End(xlToLeft).Column > Col Then Col = Ws.[L17].End(xlToLeft).Column

            For I = 1 To UBound(sArr, 1)
                K = K + 1
                dArr(K, 1) = Ws.Range("A7")
                For J = 2 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
                dArr(K, Col + 1) = Ws.Name
            Next I
        End If
    Next
    With Sheets("MAIN")
        .[A4:IV65000].ClearContents
        If K Then .[A4].Resize(K, Col + 1).Value = dArr
    End With
End Sub

Xin chào @vanthinh3101
Bạn có thể thay thế cái phần dArr(1 To 65000, 1 To 250) bằng cách sử dụng ReDim để Oanh Thơ học hỏi thêm được không ạ.

vanthinh3101 · 12/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào @vanthinh3101
Bạn có thể thay thế cái phần dArr(1 To 65000, 1 To 250) bằng cách sử dụng ReDim để Oanh Thơ học hỏi thêm được không ạ.

Gửi bạn Oanh Thơ,
- dArr() là tổng hợp của nhiều sArr()
- Không thể biết trước được kích thước của chiều thứ nhất của các sArr()
- Nếu không khai báo kích thước của dArr() thì chưa thể gán giá trị được
--> Cần khai báo sẵn kích thước của dArr() ngay từ ban đầu và nên chọn 1 số lớn để bảo đảm dArr() có thể tổng hợp đầy đủ từ sArr()

P/s: Nếu xử lý được cách khác thì tôi chưa biết nhé! Tôi cũng chỉ là học "mò" trên diễn đàn thôi

HeSanbi · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào @vanthinh3101
Bạn có thể thay thế cái phần dArr(1 To 65000, 1 To 250) bằng cách sử dụng ReDim để Oanh Thơ học hỏi thêm được không ạ.

@Nguyễn Hoàng Oanh Thơ
"Học hỏi thêm" - là hỏi thêm cái gì đó. Chỉ là số 65000 > 250 . 65000 / 250 = 260.

Hoàng Nhật Phương · 13/12/18

HeSanbi đã viết:
@Nguyễn Hoàng Oanh Thơ
"Học hỏi thêm" - là hỏi thêm cái gì đó. Chỉ là số 65000 > 250 . 65000 / 250 = 260.

Xin chào HeSanbi,
OT muốn học hỏi xem có cách khai báo động nào mà không phải khai báo các con số cụ thể 65000 và 250 trong mảng dArr đó ạ.

tam888 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào HeSanbi,
OT muốn học hỏi xem có cách khai báo động nào mà không phải khai báo các con số cụ thể 65000 và 250 trong mảng dArr đó ạ.

Muốn động thì cứ Chạy từng Sheet thôi, dArr sẽ được ReDim cho từng sheet (theo UBound(sArr))

Nhưng bài này thì sao không gán luốn sArr vào sheet Main, và gán thêm date là xong (có thể dùng Range đơn giản cho nhanh)

batman1 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào HeSanbi,
OT muốn học hỏi xem có cách khai báo động nào mà không phải khai báo các con số cụ thể 65000 và 250 trong mảng dArr đó ạ.

Nếu cứ muốn biết cần bao nhiêu dòng thì trước tiên duyệt

Mã:

For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            ...
        End If
Next

Chỗ ... thì xác định dòng cuối của sheet hiện hành. Biết dòng đầu là 17 thì tính ra số dòng có dữ liệu. Rồi cộng dồn các số dòng của từng sheet thì có số dòng cần "quan tâm". Như thế trước khi vào cụm

Mã:

For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            ...
        End If
Next

chính thì Redim thôi.

Mà chỉ lấy 7 giá trị mỗi dòng thì cần gì 1 To 250?

snow25 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào @vanthinh3101
Bạn có thể thay thế cái phần dArr(1 To 65000, 1 To 250) bằng cách sử dụng ReDim để Oanh Thơ học hỏi thêm được không ạ.

Cái bạn cần biết ở đây là.Xem cái mảng kết quả của mình dữ liệu lớn nhất có thể sảy ra.Rồi chọn con số lơn nhất đó để khai báo là được.

Hoàng Nhật Phương · 13/12/18

batman1 đã viết:
Nếu cứ muốn biết cần bao nhiêu dòng thì trước tiên duyệt

Mã:

For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then ... End If Next

Chỗ ... thì xác định dòng cuối của sheet hiện hành. Biết dòng đầu là 17 thì tính ra số dòng có dữ liệu. Rồi cộng dồn các số dòng của từng sheet thì có số dòng cần "quan tâm". Như thế trước khi vào cụm

Mã:

For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then ... End If Next

chính thì Redim thôi.

Mà chỉ lấy 7 giá trị mỗi dòng thì cần gì 1 To 250?

Con chào bác,
Con cũng nghĩ là ReDim ạ nhưng con vẫn lơ mơ về cái này.
Bác cho con ví dụ chi tiết cụ thể hơn khi áp dụng vào code bài #4 được không ạ.
Cảm ơn bác ạ.
Oanh Thơ

Bài đã được tự động gộp: 13/12/18

snow25 đã viết:
Cái bạn cần biết ở đây là.Xem cái mảng kết quả của mình dữ liệu lớn nhất có thể sảy ra.Rồi chọn con số lơn nhất đó để khai báo là được.

Hi @snow25,
Hôm trước OT cũng có gửi bài liên quan đến ReDim cũng thấy gượng gạo thiếu tự tin,nên cũng muốn nhờ mọi người góp ý

https://www.giaiphapexcel.com/diend...-chuỗi-trong-1-vùng.139542/page-2#post-895865

batman1 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Con chào bác,
Con cũng nghĩ là ReDim ạ nhưng con vẫn lơ mơ về cái này.
Bác cho con ví dụ chi tiết cụ thể hơn khi áp dụng vào code bài #4 được không ạ.

Vd.

Mã:

Sub test()
Dim r As Long, c As Long, sodong As Long, Arr()
'    trong truong hop cu the thi tinh toan sodong
    sodong = 1234
    ReDim Arr(1 To sodong, 1 To 10)
    For r = 1 To UBound(Arr)
        For c = 1 To UBound(Arr, 2)
            Arr(r, c) = r & c
        Next c
    Next r
    Sheet1.Range("B7").Resize(sodong, 7).Value = Arr
End Sub

---------------------------
Sau khi duyêt

Mã:

For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            ...
        End If
Next

thì có số dòng cần thiết - sodong
Thì Redim thôi, hay bạn hỏi gì?

Mã:

Dim dArr()
Dim sodong As Long
...
'    chỗ này đã có sodong
'    tiếp theo trước khi vào "cụm" chính thì Redim
Redim dArr(1 to sodong, 1 to 7)
'    cụm chính
For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            ...
        End If
Next

Mà bạn có tủ sách ngay bên phía tay phải mà. Trong VBE gõ Redim ở trường trên cùng bên phải rồi chọn vd. Redim statement. Rồi đọc thôi. Nói cho cùng tôi hơn bạn chủ yếu ở chỗ tôi chịu khó đọc tài liệu thôi.

Thực ra tôi trả lời bạn thôi chứ nếu chỉ là sao chép thì cũng có thể trong "cụm" chính với mỗi sheet hiện hành thì copy luôn nó vào "TongHop". Tất nhiên vị trí paste phải cập nhật sau mỗi lần paste để lần sau paste đúng chỗ.

Bạn đừng nói với tôi là bạn không biết xác định dòng cuối có dữ liệu nhé. Vì tôi biết bạn đã từng đọc nhiều code với lastRow rồi.

Hoàng Nhật Phương · 13/12/18

batman1 đã viết:
Vd.

Mã:

Sub test() Dim r As Long, c As Long, sodong As Long, Arr() ' trong truong hop cu the thi tinh toan sodong sodong = 1234 ReDim Arr(1 To sodong, 1 To 10) For r = 1 To UBound(Arr) For c = 1 To UBound(Arr, 2) Arr(r, c) = r & c Next c Next r Sheet1.Range("B7").Resize(sodong, 7).Value = Arr End Sub

---------------------------
Sau khi duyêt

Mã:

For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then ... End If Next

thì có số dòng cần thiết - sodong
Thì Redim thôi, hay bạn hỏi gì?

Mã:

Dim dArr() Dim sodong As Long ... ' chỗ này đã có sodong ' tiếp theo trước khi vào "cụm" chính thì Redim Redim dArr(1 to sodong, 1 to 7) ' cụm chính For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then ... End If Next

Mà bạn có tủ sách ngay bên phía tay phải mà. Trong VBE gõ Redim ở trường trên cùng bên phải rồi chọn vd. Redim statement. Rồi đọc thôi. Nói cho cùng tôi hơn bạn chủ yếu ở chỗ tôi chịu khó đọc tài liệu thôi.

Thực ra tôi trả lời bạn thôi chứ nếu chỉ là sao chép thì cũng có thể trong "cụm" chính với mỗi sheet hiện hành thì copy luôn nó vào "TongHop". Tất nhiên vị trí paste phải cập nhật sau mỗi lần paste để lần sau paste đúng chỗ.

Bạn đừng nói với tôi là bạn không biết xác định dòng cuối có dữ liệu nhé. Vì tôi biết bạn đã từng đọc nhiều code với lastRow rồi.

Dạ,sau khi đọc các chỉ dẫn của bác con đã hiểu thêm được một chút rồi ạ.
Như vậy có nghĩa là khai báo một biến sau đó tính toán gia trị cho biến đó rồi gán và gán biến này vào mảng Redim.

Vấn đề của con hỏi làm sao để tính toán vừa đủ các phần tử trong mảng dArr(1 To 65000, 1 To 250) vì con đang nghĩ rằng
con số 65000 và 250 đang là khai báo thừa ra (dư ra), còn muốn cụ thể phần tử là bao nhiêu thì cần phải tính toán.
Nếu để tính toán số dòng cuối và cột cuôí thì con biết nếu đơn giản chỉ là tính toán ngay từ đầu trước khi For thì @vanthinh3101 cũng đã tính toán được luôn mà không cần phải khai báo thừa như vậy.
Nhưng ý con muốn hỏi là có cách nào để tính toán qua 3 vòng for ở bài 4 ra kết quả số phần tử vừa đủ để gán vào mảng dArr đó ạ.
Hic có thể con chưa biết cách diễn đạt vấn đề.
Để con tìm hiểu thêm ạ.
Cách này:

Thực ra tôi trả lời bạn thôi chứ nếu chỉ là sao chép thì cũng có thể trong "cụm" chính với mỗi sheet hiện hành thì copy luôn nó vào "TongHop". Tất nhiên vị trí paste phải cập nhật sau mỗi lần paste để lần sau paste đúng chỗ.

Con chưa thử nhưng con nghĩ làm việc với range thì con có thể giải quyết được theo cách này nhưng con muốn học hỏi phương pháp đưa hết vào mảng xong mới chuyển xuống range.

Cảm ơn bác ạ.

snow25 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Dạ,sau khi đọc các chỉ dẫn của bác con đã hiểu thêm được một chút rồi ạ.
Như vậy có nghĩa là khai báo một biến sau đó tính toán gia trị cho biến đó rồi gán và gán biến này vào mảng Redim.

Vấn đề của con hỏi làm sao để tính toán vừa đủ các phần tử trong mảng dArr(1 To 65000, 1 To 250) vì con đang nghĩ rằng
con số 65000 và 250 đang là khai báo thừa ra (dư ra), còn muốn cụ thể phần tử là bao nhiêu thì cần phải tính toán.
Nếu để tính toán số dòng cuối và cột cuôí thì con biết nếu đơn giản chỉ là tính toán ngay từ đầu trước khi For thì @vanthinh3101 cũng đã tính toán được luôn mà không cần phải khai báo thừa như vậy.
Nhưng ý con muốn hỏi là có cách nào để tính toán qua 3 vòng for ở bài 4 ra kết quả số phần tử vừa đủ để gán vào mảng dArr đó ạ.
Hic có thể con chưa biết cách diễn đạt vấn đề.
Để con tìm hiểu thêm ạ.
Cách này:

Con chưa thử nhưng con nghĩ làm việc với range thì con có thể giải quyết được theo cách này nhưng con muốn học hỏi phương pháp đưa hết vào mảng xong mới chuyển xuống range.

Cảm ơn bác ạ.

Bạn hiểu vậy là không đúng lắm.Khai báo ở đây là số lớn nhất có thể sảy ra với mảng đó trong mọi trường hợp.Vì nêu bạn khai báo nhỏ hơn số đó thì có trường hợp nó chạy được.Có trường hợp nó báo lỗi.Nếu trong trường hợp mà không sác định được số lớn nhất thì bạn nên khai báo lớn nhất.

Hoàng Nhật Phương · 13/12/18

snow25 đã viết:
Bạn hiểu vậy là không đúng lắm.Khai báo ở đây là số lớn nhất có thể sảy ra với mảng đó trong mọi trường hợp.Vì nêu bạn khai báo nhỏ hơn số đó thì có trường hợp nó chạy được.Có trường hợp nó báo lỗi.Nếu trong trường hợp mà không sác định được số lớn nhất thì bạn nên khai báo lớn nhất.

Cảm ơn snow25, vì thế mà OT mới thắc mắc xem có cách nào có thể xác định được số lớn nhất không ạ. Nhưng bạn @vanthinh3101 cũng bảo chưa biết cách nên OT nghĩ có thể nó rất khó nên tìm hiểu sau ạ. OT nghĩ chủ đề này có hình như sai box nên đã không tiếp tục, nhưng thế nào hôm nay chủ đề này lại tiếp tục nên OT cũng muốn tiếp tục ạ

batman1 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Dạ,sau khi đọc các chỉ dẫn của bác con đã hiểu thêm được một chút rồi ạ.
Như vậy có nghĩa là khai báo một biến sau đó tính toán gia trị cho biến đó rồi gán và gán biến này vào mảng Redim.

Vấn đề của con hỏi làm sao để tính toán vừa đủ các phần tử trong mảng dArr(1 To 65000, 1 To 250) vì con đang nghĩ rằng
con số 65000 và 250 đang là khai báo thừa ra (dư ra), còn muốn cụ thể phần tử là bao nhiêu thì cần phải tính toán.
Nếu để tính toán số dòng cuối và cột cuôí thì con biết nếu đơn giản chỉ là tính toán ngay từ đầu trước khi For thì @vanthinh3101 cũng đã tính toán được luôn mà không cần phải khai báo thừa như vậy.
Nhưng ý con muốn hỏi là có cách nào để tính toán qua 3 vòng for ở bài 4 ra kết quả số phần tử vừa đủ để gán vào mảng dArr đó ạ.
Hic có thể con chưa biết cách diễn đạt vấn đề.
Để con tìm hiểu thêm ạ.
Cách này:

Con chưa thử nhưng con nghĩ làm việc với range thì con có thể giải quyết được theo cách này nhưng con muốn học hỏi phương pháp đưa hết vào mảng xong mới chuyển xuống range.

Cảm ơn bác ạ.

Bạn nghĩ lôgíc đi. Vòng For ngoài sẽ có số vòng bằng số sheet. Nếu sheet hiện hành hợp lệ thì đã cần phải "nhồi" dữ liệu vào dArr rồi. Nếu số dòng cần có chưa được tính trước thì dArr (khi chỉ có dArr()) đã xác định đâu để mà "nhồi" dữ liệu vào nó? Số dòng dữ liệu chỉ biết rõ khi duyệt hết các sheet. Trong trường hợp này sodong khác gì bát nước chấm sau cuộc nhậu? Bát nước chấm cần khi nhậu chứ nhậu xong rồi mới bưng nước chấm ra thì bát nước chấm đó đâu còn cần thiết?

Nếu là mảng 1 chiều (tình huống giả dụ khi cần tính những thứ khác) thì khi gặp sheet hợp lệ đầu tiên thì Redim cho nó bằng số dòng của sheet hiện hành. Với những sheet sau thì phải Redim Preserve bằng số dòng cộng dồn hiện hành. Lúc đó không cần tính sodong. Nhưng với mảng 2 chiều thì không làm đơn giản thế được. Vì nếu coi chỉ số 1 là chỉ số dòng thì Redim Preserve chỉ được phép với chỉ số 2 (chỉ số cột). Mà ta muốn thay đổi số dòng chứ không phải số cột.

Cũng có thể làm được bằng cách: với sheet hợp lệ đầu tiên thì Redim dArr(1 to 7, 1 to số_dòng_trong_sheet_đầu). Tức hoán vị hàng với cột. Lúc này chỉ số thứ 2 sẽ là dòng - mảng sẽ là mảng xoay 90 độ so với mảng cần có. Với các sheet sau thì tính được số dòng cộng dồn cần có để Redim Preserve (được phép vì ta chỉ thay đổi kích thước chiều thứ 2). Cuối cùng thì phải xoay mảng dArr 90 độ để có mảng cần có.

Bạn muốn làm thao tác cuối cùng này (xoay mảng) hay duyệt vòng For trước để tính sodong? Tùy ý thích thôi.

tam888 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Cảm ơn snow25, vì thế mà OT mới thắc mắc xem có cách nào có thể xác định được số lớn nhất không ạ. Nhưng bạn @vanthinh3101 cũng bảo chưa biết cách nên OT nghĩ có thể nó rất khó nên tìm hiểu sau ạ. OT nghĩ chủ đề này có hình như sai box nên đã không tiếp tục, nhưng thế nào hôm nay chủ đề này lại tiếp tục nên OT cũng muốn tiếp tục ạ

Nguyễn Hoàng Oanh Thơ đã viết:
Dạ,sau khi đọc các chỉ dẫn của bác con đã hiểu thêm được một chút rồi ạ.
Như vậy có nghĩa là khai báo một biến sau đó tính toán gia trị cho biến đó rồi gán và gán biến này vào mảng Redim.

Vấn đề của con hỏi làm sao để tính toán vừa đủ các phần tử trong mảng dArr(1 To 65000, 1 To 250) vì con đang nghĩ rằng
con số 65000 và 250 đang là khai báo thừa ra (dư ra), còn muốn cụ thể phần tử là bao nhiêu thì cần phải tính toán.
Nếu để tính toán số dòng cuối và cột cuôí thì con biết nếu đơn giản chỉ là tính toán ngay từ đầu trước khi For thì @vanthinh3101 cũng đã tính toán được luôn mà không cần phải khai báo thừa như vậy.
Nhưng ý con muốn hỏi là có cách nào để tính toán qua 3 vòng for ở bài 4 ra kết quả số phần tử vừa đủ để gán vào mảng dArr đó ạ.
Hic có thể con chưa biết cách diễn đạt vấn đề.
Để con tìm hiểu thêm ạ.
Cách này:

Con chưa thử nhưng con nghĩ làm việc với range thì con có thể giải quyết được theo cách này nhưng con muốn học hỏi phương pháp đưa hết vào mảng xong mới chuyển xuống range.

Cảm ơn bác ạ.

Đây mượn code bài 4, và xác định theo ý tưởng batman1 (cám ơn mọi người) thì như sau:

Mã:

Public Sub GPE()

    Dim sArr(), dArr(), I As Long, J As Long, K As Long, Ws As Worksheet
    Dim nRows As Long, nCols As Long
 
    nCols = 7 + 1
    nRows =0
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then       nRows = nRows + Ws.[B65000].End(xlUp).Row - 17 + 1
    Next Ws
 
    ReDim dArr(1 To nRows, 1 To nCols)
 
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Main" And Ws.Name <> "Tong hop" Then
            sArr = Ws.Range("A17:A" & Ws.[B65000].End(xlUp).Row).Resize(, 7)
            For I = 1 To UBound(sArr, 1)
                K = K + 1
                dArr(K, 1) = Ws.Range("A7")
                For J = 2 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
                dArr(K, nCols) = Ws.Name
            Next I
        End If
    Next
 
 
    With Sheets("MAIN")
        .[A4:IV65000].ClearContents
        If K Then .[A4].Resize(K, Col + 1).Value = dArr
    End With
End Sub

ở đây các sheet dữ liệu có số cột dữ liệu là 7

batman1 · 13/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
Cảm ơn snow25, vì thế mà OT mới thắc mắc xem có cách nào có thể xác định được số lớn nhất không ạ.

Số dòng cần thiết? Có cách. Đó là niềm tin. Làm sao chưa xét hết các sheet mà biết được từng sheet có bao nhiêu dòng để tính tổng? Chỉ có bằng niềm tin.

Còn nếu không muốn tính trước số dòng cần thiết thì chỉ còn nước Redim mảng xoay so với mảng sẽ cần khi gặp sheet hợp lệ đầu tiên -> Redim Preserve với các sheet sau -> cuối cùng thì "xoay mảng" hiện hành 90 độ để có mảng cần có. Với cách này thì ở mọi thời điểm, trừ thời điểm xét sheet hợp lệ cuối cùng, cả thánh lẫn người trần tục đều không thể biết số dòng tổng cộng sẽ là bao nhiêu.

SA_DQ · 13/12/18

PHP:

Sub SoDongSuDungTrongCacTrang()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim DongSD As Long, HangDL As Long, DongCuoi As Long

 For Each Sh In ThisWorkbook.Worksheets
    If IsNumeric(Sh.Name) Then
        DongSD = DongSD + Sh.UsedRange.Rows.Count
        MsgBox DongSD, , "Cong Dòn Sô Dòng Su Dung Dên  Trang: " & Sh.Name
        HangDL = HangDL + Sh.[b16].CurrentRegion.Rows.Count
        MsgBox HangDL, , "Cong Dòn  Só Hàng Du Liêu Dén Trang: " & Sh.Name
        Set sRng = Sh.Columns("A:A").Find("*", , xlFormulas, xlWhole)
        If Not sRng Is Nothing Then
            DongCuoi = DongCuoi + sRng.Row
            MsgBox DongCuoi, , "Tông Dòng Có 'Ghi Chú' Dên Trang: '" & Sh.Name
        End If
    End If
 Next Sh
End Sub

snow25 · 13/12/18

SA_DQ đã viết:

PHP:

Sub SoDongSuDungTrongCacTrang()
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim DongSD As Long, HangDL As Long, DongCuoi As Long

For Each Sh In ThisWorkbook.Worksheets
    If IsNumeric(Sh.Name) Then
        DongSD = DongSD + Sh.UsedRange.Rows.Count
        MsgBox DongSD, , "Cong Dòn Sô Dòng Su Dung Dên  Trang: " & Sh.Name
        HangDL = HangDL + Sh.[b16].CurrentRegion.Rows.Count
        MsgBox HangDL, , "Cong Dòn  Só Hàng Du Liêu Dén Trang: " & Sh.Name
        Set sRng = Sh.Columns("A:A").Find("*", , xlFormulas, xlWhole)
        If Not sRng Is Nothing Then
            DongCuoi = DongCuoi + sRng.Row
            MsgBox DongCuoi, , "Tông Dòng Có 'Ghi Chú' Dên Trang: '" & Sh.Name
        End If
    End If
Next Sh
End Sub

Dùng 1 vòng lặp cả workbook để xác định số dòng để khai báo mảng.Hơi phí.Thà khai báo lớn nhất luôn.Bác nhỉ.

batman1 · 13/12/18

snow25 đã viết:
Dùng 1 vòng lặp cả workbook để xác định số dòng để khai báo mảng.Hơi phí.Thà khai báo lớn nhất luôn.Bác nhỉ.

Thì người ta muốn thế mà.
Ý người ta hỏi không cho bài này mà chỉ tò mò xem có cách không để dùng cho tương lai.
Nhưng cái này đơn giảm mà. Book có bao nhiêu sheet? Hàng ngàn sheet thì cũng chả là bao. Có tính toán gì phức tạp, lâu đâu. Nhưng cái chính là người ta muốn thế, người ta tò mò thôi.

Hoàng Nhật Phương · 13/12/18

batman1 đã viết:
Thì người ta muốn thế mà.
Ý người ta hỏi không cho bài này mà chỉ tò mò xem có cách không để dùng cho tương lai.
Nhưng cái này đơn giảm mà. Book có bao nhiêu sheet? Hàng ngàn sheet thì cũng chả là bao. Có tính toán gì phức tạp, lâu đâu. Nhưng cái chính là người ta muốn thế, người ta tò mò thôi.

Dạ dúng thế, con chỉ tò mò thôi ạ vì thấy các con số gán chết như vậy thì không hay cho người người sử dụng mà không biết đến vba, đây là dữ liệu ít chứ nếu dữ liệu tổng số dòng nhiều hơn 65000 dòng thì lại sửa code tăng thêm con số 65000 lên vài trăm nghìn ạ.

Vậy cách giải quyết là phải sử dụng thêm ít nhất 1 vòng lặp nữa để duyệt qua các sheet ạ. Giờ con đã hiểu

Con xin cảm ơn tất cả các bác và các bạn đã chỉ dẫn ạ.

hehehe con xin phép cười cái ạ,thích quá ạ.

HeSanbi · 14/12/18

@Nguyễn Hoàng Oanh Thơ
Đã học thêm được Redim chưa. Phải học Luôn Redim Preserve nhé.
Lỡ rồi vận dụng luôn Erase để hoàn thành mảng. Thế là "giỏi VBA"

Mọi người hướng dẫn cho cô ấy lên đỉnh đi

Hoàng Nhật Phương · 14/12/18

HeSanbi đã viết:
@Nguyễn Hoàng Oanh Thơ
Đã học thêm được Redim chưa. Phải học Luôn Redim Preserve nhé.
Lỡ rồi vận dụng luôn Erase để hoàn thành mảng. Thế là "giỏi VBA"

Mọi người hướng dẫn cho cô ấy lên đỉnh đi

Cảm ơn HeSanbi, nhờ bạn tiếp tục chủ đề mà OT đã hiểu được rõ hơn Redim và bản chất của mảng (trước khi gán giá trị thì cần phải có kích thước cụ thể).Còn về Redim Preserve và Erase , OT chưa tìm hiểu. Giỏi thì OT không dám nghĩ đến chỉ hi vọng làm sao đủ để vận dụng được vào nhu cầu công việc của mình thôi ạ.

Trong bài toán này với cách khai báo động thêm 1 vòng lặp (bài 18) tộc độ vẫn nhanh hơn cách khai báo gán thẳng giá trị (bài 4).

HeSanbi · 14/12/18

@Nguyễn Hoàng Oanh Thơ
Thì dịch nó ra tiếng Việt:
Dim : Mù mờ - VBA Array nghĩa là mảng mù mờ
Redim: Sử dụng lại mù mờ
Preserve: Bảo quản
Redim Preserve: Sử dụng lại mảng đang được bảo quản có thể tăng kích thước chiều ngang
Erase: làm rỗng

vanthinh3101 · 14/12/18

batman1 đã viết:
Số dòng cần thiết? Có cách. Đó là niềm tin. Làm sao chưa xét hết các sheet mà biết được từng sheet có bao nhiêu dòng để tính tổng? Chỉ có bằng niềm tin.

Còn nếu không muốn tính trước số dòng cần thiết thì chỉ còn nước Redim mảng xoay so với mảng sẽ cần khi gặp sheet hợp lệ đầu tiên -> Redim Preserve với các sheet sau -> cuối cùng thì "xoay mảng" hiện hành 90 độ để có mảng cần có. Với cách này thì ở mọi thời điểm, trừ thời điểm xét sheet hợp lệ cuối cùng, cả thánh lẫn người trần tục đều không thể biết số dòng tổng cộng sẽ là bao nhiêu.

Em mượn ý tưởng của bác để thực hiện.

PHP:

Sub Consolidate_Data()
    Dim sArr(), dArr(), Res(), Ws As Worksheet
    Dim I As Long, J As Long, K As Long, lR As Long, t, x As Long
    
    t = Timer
    x = 1
    For Each Ws In ThisWorkbook.Sheets
        With Ws
            If .Name <> "Main" And .Name <> "Tong hop" Then
                lR = .Range("B" & Rows.Count).End(xlUp).Row
                sArr() = .Range("A17:G" & lR).Value
                If x = 1 Then
                    ReDim dArr(1 To UBound(sArr, 2) + 1, 1 To UBound(sArr, 1))
                Else
                    ReDim Preserve dArr(1 To UBound(sArr, 2) + 1, 1 To (UBound(dArr, 2) + UBound(sArr, 1)))
                End If
                
                For I = 1 To UBound(sArr, 1)
                    K = K + 1
                    dArr(1, K) = .Range("A7")
                    For J = 2 To UBound(sArr, 2)
                        dArr(J, K) = sArr(I, J)
                    Next J
                    dArr(UBound(sArr, 2) + 1, K) = .Name
                Next I
                x = x + 1
            End If
        End With
    Next Ws
    
    If K Then
        ReDim Res(1 To UBound(dArr, 2), 1 To UBound(dArr, 1))
        For I = 1 To UBound(dArr, 2)
            For J = 1 To UBound(dArr, 1)
                Res(I, J) = dArr(J, I)
            Next J
        Next I
    End If
    
    With Sheets("Main")
        .Range("A4").CurrentRegion.Offset(1).ClearContents
        .Range("A4").Resize(UBound(Res, 1), UBound(Res, 2)) = Res
    End With
    
    MsgBox "Done in " & (Timer - t) & "s.", vbInformation, "GPE"
End Sub

Gà cận thị · 14/12/18

Bài của Anh @vanthinh3101 chắc ok rồi đó chị OT.
Hình như em nhớ Rows.count xác định số dòng cuối cùng trong 1 trang tính mỗi phiên bản Excel, cũng như tương tự cho Columns.count

tam888 · 14/12/18

GPE này nhiều thành viên cầu toàn nhỉ, tốt, Nhưng như thế là thiếu thực dụng - vì bài toán này quá nhỏ không đáng

VetMini · 15/12/18

HeSanbi đã viết:
@Nguyễn Hoàng Oanh Thơ
Thì dịch nó ra tiếng Việt:
Dim : Mù mờ - VBA Array nghĩa là mảng mù mờ
Redim: Sử dụng lại mù mờ
Preserve: Bảo quản
Redim Preserve: Sử dụng lại mảng đang được bảo quản có thể tăng kích thước chiều ngang
Erase: làm rỗng

Đùa cũng có giới hạn. Đùa đến mức này, người ta ngỡ thật thì là chơi ác.
Từ Dim không hề dính líu đến mù mờ. Nói cho đúng thì nó rất rõ rệt. Chỉ khi dùng loại mảng động (xem giải thích từ động bên dưới) thì nó đưa ra vài uyển chuyển khiến ngừoi lạm dụng sự uyển chuyển này cho rằng đó là mù mờ.

Dim là từ cũ thời thượng (thập niên 1950-60), viết tắt của từ Dimension, có nghĩa là chiều (của mảng). Tiếp đầu ngữ "re" có nghĩa là "làm/đặt lại". Suy ra redim có nghĩa là đặt lại kích cỡ và chiều của mảng.

Mảng được khai báo ở 2 dạng, mảng tĩnh và mảng động. Lúc khia báo mà cho luôn chi tiết chiều và kích cỡ thì nó là mảng tĩnh. Lúc khai báo chưa biết chi tiết thì ngừoi ta chỉ khai báo mảng động, và sau đó dùng Redim để đặt lại chi tiết.

Redim là lệnh đặt lại kích cỡ mảng. Khi được đặt lại kích cỡ, dữ liệu có sẵn trước đó coi như mất.

Redim Preserve là lệnh đặt lại kích cỡ mảng nhưng giữ lại số dữ liệu đã có trong bộ nhớ. Vì mảng là một vùng nhớ liên tục cho nên lệnh này cũng có giới hạn của nó. Đại khái là phần thay đổi phải là chiều cuối cùng của mảng (nếu mảng có 3 chiều thì chỉ chiều thứ 3 mới thay đổi được).

Erase là lệnh xoá mảng. Tuỳ theo loại mảng mà nó xoá như thế nào. Loại mảng tĩnh thì nó xoá trở về trạng thái mới nguyên như lúc mới Dim (0, trống,...). Loại mảng động thì set luôn mảng về Nothing (tức là nếu muốn dùng lại thì phải Redim lại).

Lưu ý: VBA lạm dụng từ Dim để làm lệnh khai báo biến. Nguyên thuỷ thì Dim chỉ dùng để khai báo mảng. Ngôn ngữ BASIC cổ dùng cách khai báo mặc định cho biến (A là số, A$ là chuỗi, ...).

Quan trọng: đáng lẽ bạn Oanh Thơ phải chịu khó tìm thay vì hỏi vu vơ để nghe những câu trả lời bậy bạ. Tất cả những cái này đã từng được giải thích cặn kẽ trong mục chuyên đề "mảng". Bạn batman1 cũng có giải thích rất rõ về cấu trúc và cách hoạt động theo từng chiều cũng như bộ nhớ.

HieuCD · 15/12/18

VetMini đã viết:
Đùa cũng có giới hạn. Đùa đến mức này, người ta ngỡ thật thì là chơi ác.
Từ Dim không hề dính líu đến mù mờ. Nói cho đúng thì nó rất rõ rệt. Chỉ khi dùng loại mảng động (xem giải thích từ động bên dưới) thì nó đưa ra vài uyển chuyển khiến ngừoi lạm dụng sự uyển chuyển này cho rằng đó là mù mờ.

Dim là từ cũ thời thượng (thập niên 1950-60), viết tắt của từ Dimension, có nghĩa là chiều (của mảng). Tiếp đầu ngữ "re" có nghĩa là "làm/đặt lại". Suy ra redim có nghĩa là đặt lại kích cỡ và chiều của mảng.

Mảng được khai báo ở 2 dạng, mảng tĩnh và mảng động. Lúc khia báo mà cho luôn chi tiết chiều và kích cỡ thì nó là mảng tĩnh. Lúc khai báo chưa biết chi tiết thì ngừoi ta chỉ khai báo mảng động, và sau đó dùng Redim để đặt lại chi tiết.

Redim là lệnh đặt lại kích cỡ mảng. Khi được đặt lại kích cỡ, dữ liệu có sẵn trước đó coi như mất.

Redim Preserve là lệnh đặt lại kích cỡ mảng nhưng giữ lại số dữ liệu đã có trong bộ nhớ. Vì mảng là một vùng nhớ liên tục cho nên lệnh này cũng có giới hạn của nó. Đại khái là phần thay đổi phải là chiều cuối cùng của mảng (nếu mảng có 3 chiều thì chỉ chiều thứ 3 mới thay đổi được).

Erase là lệnh xoá mảng. Tuỳ theo loại mảng mà nó xoá như thế nào. Loại mảng tĩnh thì nó xoá trở về trạng thái mới nguyên như lúc mới Dim (0, trống,...). Loại mảng động thì set luôn mảng về Nothing (tức là nếu muốn dùng lại thì phải Redim lại).

Lưu ý: VBA lạm dụng từ Dim để làm lệnh khai báo biến. Nguyên thuỷ thì Dim chỉ dùng để khai báo mảng. Ngôn ngữ BASIC cổ dùng cách khai báo mặc định cho biến (A là số, A$ là chuỗi, ...).

Quan trọng: đáng lẽ bạn Oanh Thơ phải chịu khó tìm thay vì hỏi vu vơ để nghe những câu trả lời bậy bạ. Tất cả những cái này đã từng được giải thích cặn kẽ trong mục chuyên đề "mảng". Bạn batman1 cũng có giải thích rất rõ về cấu trúc và cách hoạt động theo từng chiều cũng như bộ nhớ.

Không chừng người ta hiểu như vậy chứ không phải đùa với "Bô lảo" N_H_O_T

Hoàng Nhật Phương · 15/12/18

Dạ, nhờ có giải thích chi tiết và nhắc nhở của các bác @VetMini và bác @HieuCD mà cháu đã vỡ thêm được một chút nữa ạ.
Cảm ơn các bác nhiều.
OT chúc các bác nhiều sức khỏe ạ.

HeSanbi · 15/12/18

@Nguyễn Hoàng Oanh Thơ
Làm sao biết 2 người trên là Bác vậy @Nguyễn Hoàng Oanh Thơ
lấy điểm của họ chia cho 10, +10 tức là 1 người 56 và một người 66
Mà quan trọng ai lớn hơn.
Chắc Ai nhiều bài viết hơn. Nhiều lượt thích chắc chắn còn "trẻ"

Hoàng Nhật Phương · 15/12/18

HeSanbi đã viết:
@Nguyễn Hoàng Oanh Thơ
Làm sao biết 2 người trên là Bác vậy @Nguyễn Hoàng Oanh Thơ
lấy điểm của họ chia cho 10, +10 tức là 1 người 56 và một người 66
Mà quan trọng ai lớn hơn.
Chắc Ai nhiều bài viết hơn. Nhiều lượt thích chắc chắn còn "trẻ"

@HeSanbi
OT biết không phải là vì dựa vào nhiều bài viết hay là dựa vào lượt thích.
Mà dựa vào thông tin của những người mà OT tin tưởng cho biết, với lại qua các bài viết của các bác ấy OT cũng cảm nhận được ít nhiều khi viết về các kinh nghiệm đã từng trải.
Và chuyện này đối với OT cũng không có gì phải để tâm nhiều.
cảm ơn HeSanbi đã thông tin.

HeSanbi · 15/12/18

@Nguyễn Hoàng Oanh Thơ
OK

VetMini · 15/12/18

Nguyễn Hoàng Oanh Thơ đã viết:
...
OT biết không phải là vì dựa vào nhiều bài viết hay là dựa vào lượt thích.
Mà dựa vào thông tin của những người mà OT tin tưởng cho biết, với lại qua các bài viết của các bác ấy OT cũng cảm nhận được ít nhiều khi viết về các kinh nghiệm đã từng trải.
Và chuyện này đối với OT cũng không có gì phải để tâm nhiều.
...

Theo truyền thống người Việt mình thì "bác" là tiếng gọi lịch sự. Như vậy dẫu tôi không lớn tuổi thì cũng chẳng sao. Đối với ngừoi Bắc thì "bác" dùng cả cho phụ nữ.
Nếu bạn dưới 30 và không phải là con út thì khả năng tôi lớn tuổi hơn bố bạn là 50%. Bác batman1 lớn hơn tôi 1 tuổi, và bác HieuCD cũng vậy.

Hoàng Nhật Phương · 15/12/18

VetMini đã viết:
Theo truyền thống người Việt mình thì "bác" là tiếng gọi lịch sự. Như vậy dẫu tôi không lớn tuổi thì cũng chẳng sao. Đối với ngừoi Bắc thì "bác" dùng cả cho phụ nữ.
Nếu bạn dưới 30 và không phải là con út thì khả năng tôi lớn tuổi hơn bố bạn là 50%. Bác batman1 lớn hơn tôi 1 tuổi, và bác HieuCD cũng vậy.

Dạ, vâng! Cách gọi bác là thể hiện tôn trọng và lịch sự.
Oanh Thơ năm nay 30 tuổi và là con đầu lòng.
100% bác hơn tuổi bố con ạ.

HeSanbi · 15/12/18

@Nguyễn Hoàng Oanh Thơ
Tôi xem Phim miền bắc nghe hay gọi Bố
Sao @Nguyễn Hoàng Oanh Thơ không gọi là Bố.
Tôi đoán là khi nào thân thiết, thường giao tiếp mới gọi "Bố" đúng không
Chứ miền Trung tôi, kêu "chú". Già quên cả tuổi mới gọi bác
Với @Nguyễn Hoàng Oanh Thơ chắc phải kêu "Thím"

batman1 · 15/12/18

HeSanbi đã viết:
Tôi xem Phim miền bắc nghe hay gọi Bố
Sao @Nguyễn Hoàng Oanh Thơ không gọi là Bố.
Tôi đoán là khi nào thân thiết, thường giao tiếp mới gọi "Bố" đúng không
Chứ miền Trung tôi, kêu "chú". Già quên cả tuổi mới gọi bác
Với @Nguyễn Hoàng Oanh Thơ chắc phải kêu "Thím"

Nếu tôi không quên thì chị hoặc anh của bố mẹ thì là bác, còn em thì là chú/cô, cậu/mợ. Ngoài xã hội thì loại hơn tuổi bố mình thì cũng là bác, kém thì là chú. Như vậy theo tôi OT gọi bác VetMini là bác thì chuẩn.
Người dưng nhưng đã thân quen như ruột thịt thì mới gọi là bố.

VetMini · 15/12/18

batman1 đã viết:
Nếu tôi không quên thì chị hoặc anh của bố mẹ thì là bác, còn em thì là chú/cô, cậu/mợ. Ngoài xã hội thì loại hơn tuổi bố mình thì cũng là bác, kém thì là chú. Như vậy theo tôi OT gọi bác VetMini là bác thì chuẩn.
Người dưng nhưng đã thân quen như ruột thịt thì mới gọi là bố.

Ngữ cảnh, bác ơi. Ai mà biết người ta nói cái "Phim miền bắc" đó nó là cái gì? Nó nói về vùng nào, tầng lớp nào? Khung cảnh những lúc đối thoại ấy ra sao?
Tiếng Anh gọi cái kỹ thuật này là "quoting out of context"

Ở miệt dưới người dân quê hay gọi đàn bà lớn tuổi là "má". Nhưng không phải thấy người ta gọi thế là mình gọi theo được. Phải là dân Nam vài chục năm mới nắm vững cách gọi này. Cái từ phát âm ra chỉ cần thay đổi tông (tone/enunciation) một chút, hay đặt lệch vị trí trong câu một chút thì nó nghe thành nghĩa chế diễu ngay.

batman1 · 15/12/18

VetMini đã viết:
Ngữ cảnh, bác ơi. Ai mà biết người ta nói cái "Phim miền bắc" đó nó là cái gì? Nó nói về vùng nào, tầng lớp nào? Khung cảnh những lúc đối thoại ấy ra sao?

Đúng rồi bác. "Chỗ tôi" thì là chú / cô nhưng "chỗ khác" thì là chú / thím.

Quê mẹ tôi thì tôi không rõ lắm nhưng thấy mẹ và các cậu mợ khi nói về mẹ thì cứ một "đẻ" hai "đẻ". Không rõ đó là cách nói của vùng ấy hay của nhà mẹ tôi.

HieuCD · 15/12/18

VetMini đã viết:
Theo truyền thống người Việt mình thì "bác" là tiếng gọi lịch sự. Như vậy dẫu tôi không lớn tuổi thì cũng chẳng sao. Đối với ngừoi Bắc thì "bác" dùng cả cho phụ nữ.
Nếu bạn dưới 30 và không phải là con út thì khả năng tôi lớn tuổi hơn bố bạn là 50%. Bác batman1 lớn hơn tôi 1 tuổi, và bác HieuCD cũng vậy.

Ngại quá mình thuộc lớp sau, hơn 1 năm mới tới tuổi về vườn, làm bạn hiểu nhầm thật đắc tội

befaint · 15/12/18

batman1 đã viết:
Nếu tôi không quên thì chị hoặc anh của bố mẹ thì là bác, còn em thì là chú/cô, cậu/mợ. Ngoài xã hội thì loại hơn tuổi bố mình thì cũng là bác, kém thì là chú.

Cách gọi này đúng của miền Bắc rồi anh.

- Với những người không trong dòng họ (giao tiếp ngoài xã hội): Nhỏ tuổi hơn bố mẹ thì gọi là chú / cô. Lớn tuổi hơn thì gọi là bác / bá (cỡ 15 năm về trước vẫn giữ cách gọi này), rồi thay đổi tới bác trai / bác gái, một thời gian ngắn sau đổi thành "bác" luôn mà không phân biệt bác trai / bác gái.

- Với người trong dòng họ: (chỗ lớn tuổi hơn cũng gọi "bác / bá" rồi thay đổi chung thành "bác").
+ Bên họ ngoại: (Nam / nữ)
Bác (hay "bác trai", chồng của bác gái) / bác (hay "bá, bác gái", chị gái của mẹ), cậu (em trai của mẹ) / mợ (vợ của cậu), chú (chồng của dì) / dì (em gái của mẹ).
+ Bên họ nội: (Nam / nữ)
Bác (hay "bác trai", anh trai của bố) / bác (hay "bá, bác gái", vợ của bác trai), chú (em trai của bố) / thím (vợ của chú), chú (chồng của cô) / cô (em gái của bố).

VetMini đã viết:
Ở miệt dưới người dân quê hay gọi đàn bà lớn tuổi là "má".

Ở ngoài Bắc (ở một số vùng địa phương), nếu thân thiết có cách gọi tương tự là "u" hoặc "bầm".

VetMini · 16/12/18

HieuCD đã viết:
Ngại quá mình thuộc lớp sau, hơn 1 năm mới tới tuổi về vườn, làm bạn hiểu nhầm thật đắc tội

Ủa xin lỗi làm "giảm thọ" bạn. Chắc có lúc nào đó tôi làm con toán sai.

HeSanbi · 23/12/18

VetMini đã viết:
Dim là từ cũ thời thượng (thập niên 1950-60), viết tắt của từ Dimension

Tôi xin trả lời Bác @VetMini ở cái quan điểm Dim.
Trước tiên tôi xin được phủ định Dim là Dimension
1. Căn cứ vào Docs Microsoft - Dim không có một định nghĩa hay một thuật ngữ cho Dim là Dimension
2. Trong VBA hầu hết các statement đều được định nghĩa rõ ràng
Ví dụ:
AppActivate, Beep, Call, ChDir, ChDrive, Close, Const, Date, Declare, Deftype, DeleteSetting,
Do...Loop, End, Enum, Erase, Error, Event, Exit, FileCopy, For Each...Next, For...Next, Function,
Get, GoSub...Return, GoTo, If...Then...Else, Input #, Kill, Let, Line Input #, Load, Lock, Unlock,
LSet, Mid, Name, On Error, On...GoSub, On...GoTo, Open, Option Base, Option Compare, Option Explicit,
Option Private, Print #, Private, Property Get, Property Let, Property Set, Public, Put, RaiseEvent, Randomize,
ReDim,Rem, Reset, Resume, RSet, SaveSetting, Seek, Select Case, SendKeys, Set, SetAttr, Static, Stop,
Sub, Time, Type, Unload, While...Wend, Width #, With, Write #......
Dim và Dimension khác nhau.
- Dim - Tiếng anh nghĩa là Mù mờ, Âm u, Không rõ ràng, chưa rõ ràng, ...
Theo quan điểm của tôi MS (Microsoft) dùng theo nghĩa này.
Khi khai báo một biến bất kì Object, Integer, Variant ... Tôi thử dịch nghĩa thế này:
Dim Obj As Object , Dim Num As Integer
- Tôi : Định nghĩa không rõ ràng Obj đại diện cho Đối tượng, Định nghĩa không rõ ràng Num đại diện cho số nguyên
- Bác @VetMini : Định nghĩa Kích thước Obj đại diện cho Đối tượng, Định nghĩa Kích thước Num đại diện cho số nguyên
Object, Integer, ... không có gì liên quan đến "kích thước" , "Chưa / không rõ ràng" rất chung và thấy rõ sự bất hợp lý nếu MS dùng Dim - Dimension

Đối với một người chưa biết VBA nhìn vào câu lệnh Dim Num As Integer . Trước tiên không cần biết nó viết tắt là gì - Họ hiểu nó theo tiếng Anh:
Anh A: "ồ thì ra đó là một biến chưa rõ ràng, vì tôi chưa biết Num là số mấy cả, hình như còn Định nghĩa Const (Constant) sẽ khẳng định rõ ràng một biến thì phải"
Chị B: "Dim viết tắt của Dimension, đó là một định nghĩa kích thước , nhưng Integer đại diện số nguyên cơ mà, Ông MS bị làm sao vậy"

Kết luận tôi khẳng định Dim (chưa / không rõ ràng) <> Dimension ( Kích thước )
Và gợi ý của tôi cho @Nguyễn Hoàng Oanh Thơ là hợp lý

VetMini · 25/12/18

Bạn không chấp nhận Dim là viết tắt của Dimension thì là chuyện của bạn.
Nhưng bạn truyền bá trên diễn đàn này Dim có nghĩa là "mù mờ" thì đó là diễn giải sai.

Bất cứ ai từng làm việc với các phiên bản BASIC đời xưa - kể cả Bill Gates hồi ông ta còn đi học - đều biết rằng ngày xưa từ khoá Dim dùng để khai biến mảng. Lúc IBM khởi xướng từ khoá DIMENSION cho FORTRAN 2 (tiền thân của IV) thì chưa có khái niệm Object.

(FORTRAN gọi phương thức là SUBROUTINE, BASIC viết tắt là Sub. Đứng nói do từ Substitute nha)

HeSanbi · 25/12/18

VetMini đã viết:
Bạn không chấp nhận Dim là viết tắt của Dimension thì là chuyện của bạn.
Nhưng bạn truyền bá trên diễn đàn này Dim có nghĩa là "mù mờ" thì đó là diễn giải sai.

Bất cứ ai từng làm việc với các phiên bản BASIC đời xưa - kể cả Bill Gates hồi ông ta còn đi học - đều biết rằng ngày xưa từ khoá Dim dùng để khai biến mảng. Lúc IBM khởi xướng từ khoá DIMENSION cho FORTRAN 2 (tiền thân của IV) thì chưa có khái niệm Object.

(FORTRAN gọi phương thức là SUBROUTINE, BASIC viết tắt là Sub. Đứng nói do từ Substitute nha)

Nếu Bill dùng Dimension. Thật sự tôi không thể tin điều đó là thật.
Không ai nghĩ đến việc dùng một Danh từ với nghĩa "Kích thước không gian" để đại diện một Ngôn ngữ lập trình định nghĩa một biến. Nó hợp với Array Dimensions.
Thử: Dim Arr() - dịch: Định nghĩa kích thước mảng chưa xác định kích thước
"Có vẻ hợp, suy nghĩ lại vài giây , định nghĩa kích thước rồi sao lại chưa xác định, vô lý sao chúng tôi chấp nhận đây ông Bill"
Thử một dịch nghĩa chung nhất:
Dim - Variable Name - Type
"Định nghĩa kích thước không gian Biến đại diện cho biến là Kiểu giá trị"
"Integer, Long, LongLong, LongPtr, Object, Byte, Single, Currency, String lấy kích thước không gian đại diện để định nghĩa phải không ông Bill, Còn gì hay hơn ông hãy dạy thêm cho chúng tôi, chúng tôi còn dùng Window của ông lâu lắm lận"
Với tính chất, bản chất của của biến một tính từ nên dành cho nó.

batman1 · 25/12/18

HeSanbi đã viết:
Nếu Bill dùng Dimension. Thật sự tôi không thể tin điều đó là thật.
Không ai nghĩ đến việc dùng một Danh từ với nghĩa "Kích thước không gian" để đại diện một Ngôn ngữ lập trình định nghĩa một biến. Nó hợp với Array Dimensions.
Thử: Dim Arr() - dịch: Định nghĩa kích thước mảng chưa xác định kích thước
"Có vẻ hợp, suy nghĩ lại vài giây , định nghĩa kích thước rồi sao lại chưa xác định, vô lý sao chúng tôi chấp nhận đây ông Bill"
Thử một dịch nghĩa chung nhất:
Dim - Variable Name - Type
"Định nghĩa kích thước không gian Biến đại diện cho biến là Kiểu giá trị"
"Integer, Long, LongLong, LongPtr, Object, Byte, Single, Currency, String lấy kích thước không gian đại diện để định nghĩa phải không ông Bill, Còn gì hay hơn ông hãy dạy thêm cho chúng tôi, chúng tôi còn dùng Window của ông lâu lắm lận"
Với tính chất, bản chất của của biến một tính từ nên dành cho nó.

1. DIM thời BASIC xa xưa dùng để khai báo mảng: Dim mang

2. DIM thời xa xưa bắt nguồn từ từ Dimension có nghĩa: kích thước, kích cỡ, độ lớn.

3. Thời nay người ta dùng DIM để khai báo mọi biến. Nên nhớ là ngôn ngữ đời sống và cả ngôn ngữ lập trình đôi khi có thay đổi. Có những từ xa xưa có một nghĩa nào đó nhưng trong ngôn ngữ hiện đại có nghĩa khác chút. Có những từ chỉ một nhóm người cụ thể trong xa xưa, nhưng thời nay nghĩa được mở rộng cho nhóm người rộng hơn.

4. DIM nên hiểu là một từ khóa dùng để khai báo biến. Thế thôi. Sao cứ phải cái gì cũng dịch ra tiếng nói hàng ngày? Thế # dùng trong #IF, hoặc thậm chí cả cụm không thể tách rời #IF, thì dịch ra tiếng Anh (tiếng nói hàng ngày) như thế nào? # chỉ là ký tự, và #IF là cụm ký tự, đâu có là câu từ gì trong tiếng nói hàng ngày để mà dịch?

DIM chỉ là một từ khóa, nó có nghĩa y như mình "nhìn thấy", "viết ra", chứ nó không là một từ nào trong ngôn ngữ nói, viết hàng ngày. Còn nếu tò mò xem tại sao lại có từ khóa DIM mà không là DOM, DUM thì lúc nó mới nói tới lịch sử trong ngôn ngữ lập trình. Rằng DIM được dùng hồi xa xưa để khai báo mảng trong BASIC. Bây giờ nó được dùng để khai báo biến nói chung. Cái này là "câu chuyện" trên bàn nhậu thôi. Còn khi học thì cứ nhớ DIM là một từ khóa dùng để khai báo biến. Người ta có thể dùng những từ khóa khác nhưng dùng DIM vì nó được dùng ngay từ thuở sơ khai. Đọc Dim a As Long thì hiểu nghĩa cả "câu" là khai báo một biến có tên là a có kiểu dữ liệu là Long. Thế thôi. Ngay trong dịch thuật người ta cũng chủ yếu là dịch nghĩa cả câu chứ không ai dịch từng từ một. Dịch từng từ một từ Anh sang Việt hay ngược lại thì nhiều khi bản dịch rất lủng củng. Dịch nghĩa cả câu thôi.

tam888 · 25/12/18

batman1 đã viết:
1. DIM thời BASIC xa xưa dùng để khai báo mảng: Dim mang

2. DIM thời xa xưa bắt nguồn từ từ Dimension có nghĩa: kích thước, kích cỡ, độ lớn.

3. Thời nay người ta dùng DIM để khai báo mọi biến. Nên nhớ là ngôn ngữ đời sống và cả ngôn ngữ lập trình đôi khi có thay đổi. Có những từ xa xưa có một nghĩa nào đó nhưng trong ngôn ngữ hiện đại có nghĩa khác chút. Có những từ chỉ một nhóm người cụ thể trong xa xưa, nhưng thời nay nghĩa được mở rộng cho nhóm người rộng hơn.

4. DIM nên hiểu là một từ khóa dùng để khai báo biến. Thế thôi. Sao cứ phải cái gì cũng dịch ra tiếng nói hàng ngày? Thế # dùng trong #IF, hoặc thậm chí cả cụm không thể tách rời #IF, thì dịch ra tiếng Anh (tiếng nói hàng ngày) như thế nào? # chỉ là ký tự, và #IF là cụm ký tự, đâu có là câu từ gì trong tiếng nói hàng ngày để mà dịch?

DIM chỉ là một từ khóa, nó có nghĩa y như mình "nhìn thấy", "viết ra", chứ nó không là một từ nào trong ngôn ngữ nói, viết hàng ngày. Còn nếu tò mò xem tại sao lại có từ khóa DIM mà không là DOM, DUM thì lúc nó mới nói tới lịch sử trong ngôn ngữ lập trình. Rằng DIM được dùng hồi xa xưa để khai báo mảng trong BASIC. Bây giờ nó được dùng để khai báo biến nói chung. Cái này là "câu chuyện" trên bàn nhậu thôi. Còn khi học thì cứ nhớ DIM là một từ khóa dùng để khai báo biến. Người ta có thể dùng những từ khóa khác nhưng dùng DIM vì nó được dùng ngay từ thuở sơ khai. Đọc Dim a As Long thì hiểu nghĩa cả "câu" là khai báo một biến có tên là a có kiểu dữ liệu là Long. Thế thôi. Ngay trong dịch thuật người ta cũng chủ yếu là dịch nghĩa cả câu chứ không ai dịch từng từ một. Dịch từng từ một từ Anh sang Việt hay ngược lại thì nhiều khi bản dịch rất lủng củng. Dịch nghĩa cả câu thôi.

DIM đúng là mù mờ rồi bác...
Nghe bác viết xong cũng thấy mù mờ ... quá
Không phải tại nội dung viết mà tại người đọc còn mù mờ quá nên nó mù mờ
Ai chứ em thấy mình mù mờ... thôi DIM cứ là Dim , ngôn ngữ lập trình cứng nhắc nó bắt thế ta phải thế, không thích nữa thì khỏi Khai báo luôn ...hihi

HeSanbi · 25/12/18

batman1 đã viết:
1. DIM thời BASIC xa xưa dùng để khai báo mảng: Dim mang

2. DIM thời xa xưa bắt nguồn từ từ Dimension có nghĩa: kích thước, kích cỡ, độ lớn.

3. Thời nay người ta dùng DIM để khai báo mọi biến. Nên nhớ là ngôn ngữ đời sống và cả ngôn ngữ lập trình đôi khi có thay đổi. Có những từ xa xưa có một nghĩa nào đó nhưng trong ngôn ngữ hiện đại có nghĩa khác chút. Có những từ chỉ một nhóm người cụ thể trong xa xưa, nhưng thời nay nghĩa được mở rộng cho nhóm người rộng hơn.

4. DIM nên hiểu là một từ khóa dùng để khai báo biến. Thế thôi. Sao cứ phải cái gì cũng dịch ra tiếng nói hàng ngày? Thế # dùng trong #IF, hoặc thậm chí cả cụm không thể tách rời #IF, thì dịch ra tiếng Anh (tiếng nói hàng ngày) như thế nào? # chỉ là ký tự, và #IF là cụm ký tự, đâu có là câu từ gì trong tiếng nói hàng ngày để mà dịch?

DIM chỉ là một từ khóa, nó có nghĩa y như mình "nhìn thấy", "viết ra", chứ nó không là một từ nào trong ngôn ngữ nói, viết hàng ngày. Còn nếu tò mò xem tại sao lại có từ khóa DIM mà không là DOM, DUM thì lúc nó mới nói tới lịch sử trong ngôn ngữ lập trình. Rằng DIM được dùng hồi xa xưa để khai báo mảng trong BASIC. Bây giờ nó được dùng để khai báo biến nói chung. Cái này là "câu chuyện" trên bàn nhậu thôi. Còn khi học thì cứ nhớ DIM là một từ khóa dùng để khai báo biến. Người ta có thể dùng những từ khóa khác nhưng dùng DIM vì nó được dùng ngay từ thuở sơ khai. Đọc Dim a As Long thì hiểu nghĩa cả "câu" là khai báo một biến có tên là a có kiểu dữ liệu là Long. Thế thôi. Ngay trong dịch thuật người ta cũng chủ yếu là dịch nghĩa cả câu chứ không ai dịch từng từ một. Dịch từng từ một từ Anh sang Việt hay ngược lại thì nhiều khi bản dịch rất lủng củng. Dịch nghĩa cả câu thôi.

Để đáp lời Bác @batman1
Mọi Tuyên bố Hàm, Biến, ... Trong VBA hầu hết đều dịch ra nghĩa đời sống.
#IF là vì trước đây VBA chưa có định nghĩa Con trỏ thì VBA chưa có Ký tự đại diện cho Hàm Băm (Hash function) này. Con trỏ trỏ đến địa chỉ vùng nhớ ( Hệ thống ). Từ khi win64 bit ra đời, phát triển đa nền tảng cũng đi theo thời đại, định nghĩa Con trỏ với VBA cũng xuất hiện. Thì # Thể hiện là một lệnh Tiền xử lý, lệnh được xử lý trước khi biên dịch mã. # là ký tự đại diện lệnh hàm Băm.

về Dim, đơn giản nhất: tôi đọc nó là Đim , Dimension phải đọc là diˈmenCHən theo Google Translate, tiếng Việt có lẽ là Tì Men Chình.
Nếu Dim là Viết tắt của Dimension, thì tôi cần phải đọc là "Đi mờ" để tôi luôn nhớ nó là diˈmenCHən, Không thể đọc Đim nữa. Chứ không thì tôi sẽ không nhớ nổi nó là diˈmenCHən.

Và thời xa xưa Bác nói tôi tưởng tượng 500 năm trước chứ không phải BASIC 1963 theo Wikipedia, thì lúc đó Ngôn ngữ con người chưa được Chuẩn hóa như bây giờ. Chứ 1963 tới nay , tôi nghĩ ngôn ngữ không thêm mới nhiều lắm.
Và tôi không tin nổi khi phải dùng 1 từ xa xưa ấy , trong khi If, Then, While, Do, Loop, ... Hàng tá toàn là từ hiện đại.
"Phải chăng DIM đến từ hành tinh khác nên rất lợi hại"

VetMini · 25/12/18

Nói nhiều rắc rối thật. Xem nguồn ở đây nè:
http://p2p.wrox.com/book-beginning-...ning-vb-net-2003/7654-origin-dim-keyword.html

#6 Old Pedant đã viết:
As one who was writing BASIC interpreters from 1973 through 1986, I can positively affirm that indeed it is short for DIMension. Just like REM is short for REMark. (I think that's still allowed even in VB.NET, for compatibility with ancient history.)

The original Dartmouth BASIC (yes, that's where the language came from...and did you know BASIC is an acronym? Beginner's All-purpose Symbolic Instruction Code. Want to bet that the name came before the acronym? I'll take the bet and give you odds) allowed only two kinds of names: A,B,C,A1,A2,...A9,B1,B2,...B9,...Z9 were all numbers. No distinction between integers and floating point. All math was done in floating point. And then A$,B$, C$, A1$,...Z9$ were all strings. You never had to DIM a standard variable (not even sure it was legal) because the name of course implied the type. You only used DIM to create arrays, and hence you declared the DIMension of the array.

As late as the 1980s, this kind of syntax was still the standard. The variable name implied the data type. By then, most BASICs had extended the names to many characters and the number of data types by adding different extensions. e.g., Value# was a floating point number, Index% was an integer, etc. I dunno if Visual BASIC [and yes, BASIC should always be capitalized, since it is (hah!) an acronym] was the first to start allowing DIM to specify a data type, as opposed to just an array size, or not. But certainly VB is the language that made this usage of DIM the standard.

(vì cần dẫn chứng, xin lỗi tác giả đã copy không xin phép trước)
indeed it is short for DIMension. Just like REM is short for REMark = chính thực là viết tắt từ DIMension. Cũng như REM là viết tắt từ REMark.

Chú: Giáng Sinh ăn hơi no cho nên mệt, tôi chỉ nói chuyện DIM thôi. Chuyện ký tự # và "Hash function" [sic] để cho bác kia nói.

HeSanbi · 25/12/18

VetMini đã viết:
Nói nhiều rắc rối thật. Xem nguồn ở đây nè:
http://p2p.wrox.com/book-beginning-...ning-vb-net-2003/7654-origin-dim-keyword.html

(vì cần dẫn chứng, xin lỗi tác giả đã copy không xin phép trước)
indeed it is short for DIMension. Just like REM is short for REMark = chính thực là viết tắt từ DIMension. Cũng như REM là viết tắt từ REMark.

Vâng thưa Bác VietMini ạ!
Sau khi tìm hiểu qua tí lịch sử BASIC thì trong BASIC DIM viết tắt Dimension. Tuy nhiên nó dùng để khai báo một mảng.
Từ khóa LET mới dùng để khai báo biến. Khi chuyển giao cho Microsoft phát triển VB thì từ khóa Let đã được chuyển vào khai báo trong Class hướng đối tượng. DIM đã được chuẩn hóa thay cho cả LET để trở thành từ khóa chung khi khai báo cả biến và mảng. Nhưng đó là quá khứ
và bây giờ DIM được hiểu theo nghĩa "mù mờ" / "không rõ ràng" vì nó không còn là khía cạnh kích thước mảng nữa. Khi là người Việt Nam học VBA Online , Họ dịch Google Dim vẫn là "mù mờ" / "không rõ ràng" , trong Docs của Microsoft cũng không đề cập đến Dim là viết tắc của Dimension. Mà đã chuẩn hóa là Dim "mù mờ" / "không rõ ràng" để phù hợp với hiện tại.
DIM - Dimension Quá khứ của BASIC
DIM "mù mờ" / "không rõ ràng" / "chưa rõ ràng" hiện tại của VB.NET và VBA
Và VB.NET và VBA sắp trở thành quá khứ, tiếp theo là sự kế thừa mạnh mẽ đến từ C# .Net

VetMini · 25/12/18

HeSanbi đã viết:
...
Từ khóa LET mới dùng để khai báo biến. Khi chuyển giao cho Microsoft phát triển VB thì từ khóa Let đã được chuyển vào khai báo trong Class hướng đối tượng. ...

Càng nói càng tùm lum. Từ khóa Let vẫn còn nằm ràng ràng đó, chẳng có chuyển đi đâu cả.

Dân từng viết BASIC thì ai cũng biết:
- Let là lệnh gán. Về sau giản dị hóa nên có thể hiểu ngầm. Tra thử luật ngữ pháp VB, VBA thì sẽ thấy nó nói rõ ràng.
a = 1 in hệt như Let a = 1; trừ phi dùng trong ngữ cảnh mà = được hiểu là toán tử so sánh.
- Set là lệnh gán đối tượng. Cái này vẫn bắt buộc, không thể hiểu ngầm
- Cả hai đều không liên quan đến khai báo biến.

Trong LT HĐT (VB...):
- Property Let là khai báo cách gán trị (value)
- Property Set là khai báo cách gán chiếu (reference)
- Trong cả hai kiểu, Property Let/Set là từ khóa đôi. Cũng như Select Case

HeSanbi đã viết:
.... Khi là người Việt Nam học VBA Online , Họ dịch Google Dim vẫn là "mù mờ" / "không rõ ràng" , trong Docs của Microsoft cũng không đề cập đến Dim là viết tắc của Dimension. Mà đã chuẩn hóa là Dim "mù mờ" / "không rõ ràng" để phù hợp với hiện tại.
...

Dim và Google: tôi chả biết dân học VBA Online đem từ ngữ lên Google để dịch ra sao, nhưng những ai biết tiếng Anh đều biết Google thỉnh thoảng dịch bị trật ngữ cảnh. Tuy Google có kỹ thuật trí tuệ nhân tạo để theo dõi và khắc phục lỗi, cho đến thời điểm này họ vẫn chưa hoàn thành 100%. Vào các diễn đàn chống chính phủ VN ở nước ngoài sẽ thấy họ vẫn lợi dụng những chỗ dịch tréo que này để châm biếm.

batman1 · 26/12/18

HeSanbi đã viết:
Để đáp lời Bác @batman1
Mọi Tuyên bố Hàm, Biến, ... Trong VBA hầu hết đều dịch ra nghĩa đời sống.
#IF là vì trước đây VBA chưa có định nghĩa Con trỏ thì VBA chưa có Ký tự đại diện cho Hàm Băm (Hash function) này. Con trỏ trỏ đến địa chỉ vùng nhớ ( Hệ thống ). Từ khi win64 bit ra đời, phát triển đa nền tảng cũng đi theo thời đại, định nghĩa Con trỏ với VBA cũng xuất hiện. Thì # Thể hiện là một lệnh Tiền xử lý, lệnh được xử lý trước khi biên dịch mã. # là ký tự đại diện lệnh hàm Băm.

về Dim, đơn giản nhất: tôi đọc nó là Đim , Dimension phải đọc là diˈmenCHən theo Google Translate, tiếng Việt có lẽ là Tì Men Chình.
Nếu Dim là Viết tắt của Dimension, thì tôi cần phải đọc là "Đi mờ" để tôi luôn nhớ nó là diˈmenCHən, Không thể đọc Đim nữa. Chứ không thì tôi sẽ không nhớ nổi nó là diˈmenCHən.

Và thời xa xưa Bác nói tôi tưởng tượng 500 năm trước chứ không phải BASIC 1963 theo Wikipedia, thì lúc đó Ngôn ngữ con người chưa được Chuẩn hóa như bây giờ. Chứ 1963 tới nay , tôi nghĩ ngôn ngữ không thêm mới nhiều lắm.
Và tôi không tin nổi khi phải dùng 1 từ xa xưa ấy , trong khi If, Then, While, Do, Loop, ... Hàng tá toàn là từ hiện đại.
"Phải chăng DIM đến từ hành tinh khác nên rất lợi hại"

Tôi đã nói rồi. DIM từ đâu ra là để có câu chuyện trên bàn nhậu thôi.

Còn những người bây giờ học VB thì cần gì biết DIM từ đâu ra? Họ vẫn học được dù chả biết DIM từ đâu ra. Vì họ chỉ cần biết đó là từ khóa dùng khi khai báo biến. Và nó có ý nghĩa y như người ta "nhìn thấy", "viết ra". Kiểu như "a" có ý nghĩa là "a", "z" có nghĩa là "z".

Chính bạn mới là người cố tình dịch ra mù mờ hay không mù mờ. Tôi và bác VetMini chỉ nói về nguồn gốc của DIM mà thôi.

VetMini · 26/12/18

batman1 đã viết:
Tôi đã nói rồi. DIM từ đâu ra là để có câu chuyện trên bàn nhậu thôi.

Còn những người bây giờ học VB thì cần gì biết DIM từ đâu ra? Họ vẫn học được dù chả biết DIM từ đâu ra. Vì họ chỉ cần biết đó là từ khóa dùng khi khai báo biến. Và nó có ý nghĩa y như người ta "nhìn thấy", "viết ra". Kiểu như "a" có ý nghĩa là "a", "z" có nghĩa là "z".

Chính bạn mới là người cố tình dịch ra mù mờ hay không mù mờ. Tôi và bác VetMini chỉ nói về nguồn gốc của DIM mà thôi.

Quả là chả cần biết DIM từ đâu ra. Chính các bài trong cái link (của O'Reily) tôi đưa ra cũng cho thấy những người biết cũng vẫn code VBA đều đặn.

Và tôi cũng đồng ý với bác là cái nguồn gôc chỉ dùng để cá và phạt nhau trên bàn nhậu thôi.

Ý tôi xen vào cải chính là vì tôi ngỡ người ta đùa. Và đùa như thế là ác, bởi vì căn cứ theo cái "lai" thì đã có người tin.

Xác định về nghĩa của từ "dim" trong tiếng Anh:
- Dim có nghĩa là mờ, nhưng nó nói trong ngữ cảnh của ánh sáng. Nếu dùng nghĩa theo tương lai thì nó có nghĩa là "mờ" theo ý "bấp bênh". Dùng để chỉ sự "mù mờ" về hình thể hay trạng thái là dùng sai chỗ.
- Ở bài #52, tác giải bài này nếu dùng "dim" để diễn tả ý kiến riêng của mình về tương lai của VB thì được - bởi vì ở đây tác giả có quyền ý kiến là tương lai của VB nó mờ mịt (lưu ý: ý kiến riêng là ý kiến riêng, tôi chỉ nói về cách dùng từ chữ không hề nói mình đồng ý hay không)
- Nhưng ở các bài trước, nói về trạng thái chưa định tính, định dạng của biến thì từ ấy dịch ra "mù mờ" là dịch sai. Variant chỉ có nghĩa là dạng biến thái, dùng trong ngữ cảnh lập trình thì nó có nghĩa là "có thể thích ứng nhiều dạng". Trong đó không hề hàm ý "mờ".

Chú: trong VBScript, tất cả các biến đều là variant.

Gộp dữ liệu từ nhiều sheets (2 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên gắn bó

Thành viên tích cực

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gắn bó

Thành viên tích cực

Thành viên gạo cội

Thành viên gạo cội

Thành viên gắn bó

Thành viên gạo cội

Thành viên gắn bó

Thành viên gạo cội

Thành viên gắn bó

Thành viên gạo cội

Thành viên tích cực

Thành viên gạo cội

/(hông là gì!

Thành viên gạo cội

Thành viên gạo cội

Thành viên gắn bó

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gắn bó

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Đang đi tìm hòn đá

Chuyên gia GPE

Thành viên gắn bó

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gắn bó

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Đang đi tìm hòn đá

Thành viên gắn bó

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gạo cội

Đang đi tìm hòn đá

Thành viên gạo cội

Chuyên gia GPE

|||||||||||||

Đang đi tìm hòn đá

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Đang đi tìm hòn đá

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gạo cội

Thành viên tích cực

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Đang đi tìm hòn đá

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Đang đi tìm hòn đá

Thành viên gạo cội

Đang đi tìm hòn đá

Thời gian đếm ngược.