Tích hợp dữ liệu cột thành dòng (3 người xem)

[♫ђöล♥ßล†♥†µ♫]

Bẩy lổi Ubound(Arr,2)

Anh chỉ cho em với. Em làm không được
Hi hi .

Function CheckArray2D(Arr As Variant) As Boolean
    Dim C As Long
On Error Resume Next
C = LBound(Arr, 2)
CheckArray2D = Err = 0
End Function

Em tìm được cái hàm này ạ

 

[HieuCD]

Anh chỉ cho em với. Em làm không được
Hi hi .

Function CheckArray2D(Arr As Variant) As Boolean
    Dim C As Long
On Error Resume Next
C = LBound(Arr, 2)
CheckArray2D = Err = 0
End Function

Em tìm được cái hàm này ạ

Sub Noichuoi2()
    Dim CriteriaArray, a
    CriteriaArray = Application.InputBox(Prompt:="Chon du lieu ", Title:="Chon vung dieu kien", Type:=64)
    On Error Resume Next
    a = UBound(CriteriaArray, 2)
    If Err.Number > 0 Then a = 1 Else a = 2
    On Error GoTo 0
End Sub

 

[♫ђöล♥ßล†♥†µ♫]

Sub Noichuoi2()
    Dim CriteriaArray, a
    CriteriaArray = Application.InputBox(Prompt:="Chon du lieu ", Title:="Chon vung dieu kien", Type:=64)
    On Error Resume Next
    a = UBound(CriteriaArray, 2)
    If Err.Number > 0 Then a = 1 Else a = 2
    On Error GoTo 0
End Sub

Dạ. Em cám ơn anh nhiều ạ
Phân biệt được cái này thì khi nào mảng là 1 chiều mình sẽ chuyển nó về 2 chiều sẽ nhẹ hơn nhiều so với bài 34 (là chuyển hết dữ liệu về mản 1 chiều)

 

[HieuCD]

Dạ. Em cám ơn anh nhiều ạ
Phân biệt được cái này thì khi nào mảng là 1 chiều mình sẽ chuyển nó về 2 chiều sẽ nhẹ hơn nhiều so với bài 34 (là chuyển hết dữ liệu về mản 1 chiều)

Chuyển mảng để làm gì vậy giời?

 

[♫ђöล♥ßล†♥†µ♫]

Chuyển mảng để làm gì vậy giời?

Một ngày đẹp trời nhà họ không thích lấy dữ liệu từ 2 cột mà lấy dữ liệu từ 2 hàng lúc đó mảng đầu vào của mình thành mảng 1 chiều mất rồi Anh ạ
Em sửa lại nó chạy nhanh hơn nhiều so với bài 34

 

[HieuCD]

Một ngày đẹp trời nhà họ không thích lấy dữ liệu từ 2 cột mà lấy dữ liệu từ 2 hàng lúc đó mảng đầu vào của mình thành mảng 1 chiều mất rồi Anh ạ
Em sửa lại nó chạy nhanh hơn nhiều so với bài 34

Sao không dùng: For Each a in mảng

 

[♫ђöล♥ßล†♥†µ♫]

Sao không dùng: For Each a in mảng

Em cho chạy ở mảng điều kiện sợ dùng For Each ... in ... nó không nhận được giá trị của mảng dữ liệu nối chuỗi
Mà cái mảng 1 chiều em nói ở trên chắc không đúng phải không anh. Em thấy Lbound =1 chứ không phải bằng 0
Em thử Tmp = Array("a", "b", "c") thì LBound(Tmp)=0

 

[HieuCD]

Em cho chạy ở mảng điều kiện sợ dùng For Each ... in ... nó không nhận được giá trị của mảng dữ liệu nối chuỗi
Mà cái mảng 1 chiều em nói ở trên chắc không đúng phải không anh. Em thấy Lbound =1 chứ không phải bằng 0
Em thử Tmp = Array("a", "b", "c") thì LBound(Tmp)=0

Mảng 1 chiều không bắt buộc Lbound =0
Thử code xem có khớp không

Sub Noichuoi3()
    Dim Arr1, Arr2, Arr, a, b, k, c
    Arr1 = Application.InputBox(Prompt:="Chon du lieu ", Title:="Chon vung dieu kien", Type:=64)
    Arr2 = Application.InputBox(Prompt:="Chon du lieu ", Title:="Chon vung du lieu", Type:=64)
    On Error Resume Next
    c = UBound(Arr2, 2)
    If Err.Number > 0 Then c = 1 Else c = 2
    On Error GoTo 0
    For Each a In Arr1
      k = k + 1
      If c = 1 Then b = Arr2(k) Else b = Arr2(k, 1)
    Next
End Sub

 

[♫ђöล♥ßล†♥†µ♫]

Mảng 1 chiều không bắt buộc Lbound =0
Thử code xem có khớp không

Sub Noichuoi3()
    Dim Arr1, Arr2, Arr, a, b, k, c
    Arr1 = Application.InputBox(Prompt:="Chon du lieu ", Title:="Chon vung dieu kien", Type:=64)
    Arr2 = Application.InputBox(Prompt:="Chon du lieu ", Title:="Chon vung du lieu", Type:=64)
    On Error Resume Next
    c = UBound(Arr2, 2)
    If Err.Number > 0 Then c = 1 Else c = 2
    On Error GoTo 0
    For Each a In Arr1
      k = k + 1
      If c = 1 Then b = Arr2(k) Else b = Arr2(k, 1)
    Next
End Sub

Cách này đỡ phải chuyển đổi. Hay quá Anh ạ

 

[HiLander]

Bạn ơi mình có thêm vấn đề này nữa, bạn giúp mình với

1. Nếu các ký vehicle type có ký tự giống nhau (màu đỏ) thì rút gọn lại thành 1
2. Bỏ " dấu , khoảng trắng thành dấu ";" và dấu "," cho các model rút gọn
3. Tô màu đỏ cho các ký tự đã được rút gọn

Bạn xem file đính kèm giúp mình nhé

 

[HiLander]

Bạn ơi giúp mình thêm vấn đề này với.
Bạn giúp mình gọp lại để rút ngắn ký tự như sau :

1. Nếu các ký model có ký tự giống nhau (màu đỏ) thì rút gọn lại thành 1
2. Bỏ " dấu , khoảng trắng thành dấu ";" và dấu "," cho các model rút gọn
3.Tô màu đỏ cho các ký tự đã được rút gọn

bạn xem file đính kèm giúp mình nhé

cảm on bạn nhiều

 

[nguoi_ham_hoc]

Nội quy như vầy Nick đăng ký không được có các ký tự đặc biệt như * / \ ? : " ( ) mà Anh. Ký tự của em không nằm trong điều cấm mà

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

Anh @hpkhuong đang nói em mà. Đâu có nói Anh đâu. Anh nhận vơ rùi

Anh @hpkhuong nói thì mình mới để ý kỹ đó. Sau cùng mình biết nick của bạn là Hoa Bất Tử.
Mình nói có đúng không Hoa Bất Tử không ?

 

[♫ђöล♥ßล†♥†µ♫]

Anh @hpkhuong nói thì mình mới để ý kỹ đó. Sau cùng mình biết nick của bạn là Hoa Bất Tử.
Mình nói có đúng không Hoa Bất Tử không ?

Đúng rồi ạ. Lắm khi phải hoa lá cành một tẹo cho cuộc đời nó thêm phần phức tạp í mà

 

[nguoi_ham_hoc]

Đúng rồi ạ. Lắm khi phải hoa lá cành một tẹo cho cuộc đời nó thêm phần phức tạp í mà

Cùng thắc mắc như anh @hpkhuong, lúc đăng nhập vào giaiphapexcel.com thì làm sao bạn đăng nhập được ? vì bàn phím không có ký tự đặc biệt (như ký tự nốt nhạc, ...)

 

[♫ђöล♥ßล†♥†µ♫]

Bạn ơi giúp mình thêm vấn đề này với.
Bạn giúp mình gọp lại để rút ngắn ký tự như sau :

1. Nếu các ký model có ký tự giống nhau (màu đỏ) thì rút gọn lại thành 1
2. Bỏ " dấu , khoảng trắng thành dấu ";" và dấu "," cho các model rút gọn
3.Tô màu đỏ cho các ký tự đã được rút gọn

bạn xem file đính kèm giúp mình nhé

cảm on bạn nhiều

Mình ltìm mãi mới được cái Code tô màu chữ rồi về sửa lại. Bạn xem thử:
Tô màu chữ thì Code nó chạy chậm đó bạn nha. Muốn đẹp thì phải mất thời gian đó
À mình gét mầu đỏ do vậy chưa đúng 100% như yêu cầu của Bạn

Cùng thắc mắc như anh @hpkhuong, lúc đăng nhập vào giaiphapexcel.com thì làm sao bạn đăng nhập được ? vì bàn phím không có ký tự đặc biệt (như ký tự nốt nhạc, ...)

Đăng nhập bằng tài khoản mail Bạn ạ

 

[HiLander]

Mình ltìm mãi mới được cái Code tô màu chữ rồi về sửa lại. Bạn xem thử:
Tô màu chữ thì Code nó chạy chậm đó bạn nha. Muốn đẹp thì phải mất thời gian đó
À mình gét mầu đỏ do vậy chưa đúng 100% như yêu cầu của Bạn

Đăng nhập bằng tài khoản mail Bạn ạ

Cảm ơn bạn nhiều nha