Xin file VBA hoán vị "n" phần tử
- Thread starter ShenZing1
- Ngày gửi
ShenZing1
Thành viên mới
- Tham gia
- 6/9/20
- Bài viết
- 8
- Được thích
- 0
tài xỉu là sao bạn?
Bài đã được tự động gộp:
NGuồn code
[VBA] hoán vị dãy số
Em có 1 dãy số sau: A={1,2,3,4,5,6} Code VBA hoán vị như sau 1.Hoán vị 2 phần tử bất kỳ trong dãy(Ví dụ: A={1,2,3,4,5,6} => A={1,3,2,4,5,6},A={6,2,3,4,5,1},... 2.Hoán vị dãy giữ nguyên vị trí của 2 phần tử bất kỳ (ví dụ: A={1,2,3,4,5,6} => A={4,2,3,1,5,6},.... Cám ơn!
www.giaiphapexcel.com
Lần chỉnh sửa cuối:
Upvote
0
Với 9 chữ số thì ở thời điểm
Mã:
Sheet3.Range("A2").Resize(n - 1, 9) = aRet (A)
-----------
Tò mò ...
Có khai báo
Mã:
aRet(1 To 120, 1 To 9)Như vậy code ở (A) "đổ" xuống sheet nội dung của mảng aRet. Mảng chỉ có 120 dòng, vậy thì mở rộng Sheet3.Range("A2") thành (n - 1) dòng để làm gì? Muốn đổ 1 kg gạo thì có cần dùng một thúng to đùng để hứng không hay chỉ cần dùng một rổ nhỏ nhỏ? Tại sao không là .Resize(120, 9)?
Nếu muốn học mà lại lấy code của người khác thì hãy bỏ công tìm hiểu từng dòng code của người ta. Những chỗ nào chưa hiểu, những hàm người ta dùng mà mình chưa biết thì hãy tìm tòi, đọc help để hiểu. Học cách tư duy từ code của người ta. Bê nguyên code của người ta mà không tìm hiểu thì muôn đời cũng không tự viết code được.
Không giống cái đang cần, không phải là tài xỉu thì xin file làm gì? Rõ vớ vẩn.
Lần chỉnh sửa cuối:
Upvote
0
ShenZing1
Thành viên mới
- Tham gia
- 6/9/20
- Bài viết
- 8
- Được thích
- 0
Bạn gắt nhỉ, mình lên đăng là xin file rồi mà, ai giúp được thì giúp, bạn kia có cái XTXXX gì đó, mình xin tham khảo code rồi sửa theo cái mình đang cần. Ko ai giúp thì mình tự sửa, kiểu mì ăn liền chứ bạn làm gì gắt vậy. Ủa mình lên ghi là yêu cầu mọi người giúp à. Code mình copy thì mình để nguồn, và tự sửa lại theo yêu cầu của mình, tay mơ vào mò rồi nhờ giúp đỡ ko được hả, mình để nguồn rõ ràng chứ mình nói mình code à. (9!) = 362 880 nhưng trong excel max là 1048568?Với 9 chữ số thì ở thời điểm
n - 1 = 362 880 (= 9!). Không thể Resize thành 362 880 dòng được vì tập tin XLS chỉ có max là 65 536 dòng. Mọi nỗ lực mở rộng quá 65 536 dòng đều bị vô hiệu hóa ngay và luôn.Mã:Sheet3.Range("A2").Resize(n - 1, 9) = aRet (A)
-----------
Tò mò ...
Có khai báo
Mã:aRet(1 To 120, 1 To 9)
Như vậy code ở (A) "đổ" xuống sheet nội dung của mảng aRet. Mảng chỉ có 120 dòng, vậy thì mở rộng Sheet3.Range("A2") thành (n - 1) dòng để làm gì? Muốn đổ 1 kg gạo thì có cần dùng một thúng to đùng để hứng không hay chỉ cần dùng một rổ nhỏ nhỏ? Tại sao không là .Resize(120, 9)?
Nếu muốn học mà lại lấy code của người khác thì hãy bỏ công tìm hiểu từng dòng code của người ta. Những chỗ nào chưa hiểu, những hàm người ta dùng mà mình chưa biết thì hãy tìm tòi, đọc help để hiểu. Học cách tư duy từ code của người ta. Bê nguyên code của người ta mà không tìm hiểu thì muôn đời cũng không tự viết code được.
Không giống cái đang cần, không phải là tài xỉu thì xin file làm gì? Rõ vớ vẩn.
Upvote
0
Tập tin mà tôi trích là tập tin ở bài #2 - tập tin XLS. Đoạn trích là đoạn kêu lỗi đó. Bài 1 - tập tin XLSX làm quái gì có đoạn tôi trích, làm quái gì có đoạn kêu có lỗi?
Thôi, không nói nhiều. Hãy chờ đợi tập tin có "Không giống cái mình đang cần". Kiên nhẫn thì người ta mủi lòng thôi.
Lần chỉnh sửa cuối:
Upvote
0
Bài viết mới nhất
- Question
- Question
