Có cách nào nạp một loạt giá trị Name (Name trong Name Manager) vào các Biến tương ứng trong VBA hay không? (1 người xem)
- Thread starter hung2412
- Ngày gửi
Người dùng đang xem chủ đề này
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Không hiểu, biến là biến thế nào?
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Mục đích để làm gì để xem giải pháp thế nào, chứ mình vẫn chưa hiểu vấn đề (chắc người khác cũng không hiểu nên giờ vẫn chưa thấy ai trả lời).
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Khai báo Bien(1 to 7) chứ đừng khai báo 7 biến riêng lẻ
Sau đó:
Nếu name là 1 giá trị hằng như trong file thì thay Sheet1.Range bằng ThisWorkbook.Names
Sau đó:
Mã:
For i = 1 to 7
Bien(i) =Sheet1.Range("Name_" & i).Value
NextNếu name là 1 giá trị hằng như trong file thì thay Sheet1.Range bằng ThisWorkbook.Names
Lần chỉnh sửa cuối:
Upvote
0
VetMini
Đang đi tìm hòn đá
- Tham gia
- 21/12/12
- Bài viết
- 17,868
- Được thích
- 24,782
- Nghề nghiệp
- Thầy bói bài ta
Thớt không biết căn bản về biến cho nên mới có ý tưởng ấy.
Names là những thông số nằm ngoài. Nhưng đem chúng vào làm biến không đơn giản vậy.
Vì names không phải là hằng cho nên chúng có thể thay đổi. Và vì vậy, phải xác định trước là mình muốn lấy các trị khởi đầu, lúc nào muốn trị mới thì run code cập nhật?
Bình thường thì người ta muốn trị mói nhất. Và sẽ code theo function, mỗi function trả về cho trị của một name - bao nhiêu names là bấy nhiêu function. Nếu biết căn bản hàm thì sẽ thấy chúng hình dạng và hoạt động in hệt như biến trỏ vào names, kể cả array (hàm với tham số là chỉ số trong array)
Public Function XNames(ByVal i As Long) As Variant
XNames =Sheet1.Range("Name_" & i).Value
End Function
Gọi trong các sub/func khác:
a = XNames(2)
…
If XNames(3) = “abc” Then …
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Không có vòng lặp thì không có biến i. Không khai báo XNames(1 to 7) thì không gán giá trị XNames(2) được
Nếu Function có biến i thì rốt cục phải tạo 7 function(s)
Có vòng lặp thì y như tôi viết.
Tôi viết Range.Value vì chưa coi file, khi coi file thì thấy tất cả name là hằng, nên thêm 1 câu ghi chú ở dưới.
Thử lại thì dù hằng hay Range thì ThisWorkbook.Names("Name_" & i).Value đều hoạt động. Lúc đó dùng thêm dòng lệnh kiểm tra IsArray trước khi dùng.
Còn phía sau tôi cho rằng y ta xài cùng lúc 7 biến nên mới muốn "nạp một loạt giá trị Name (Name trong Name Manager) vào các Biến tương ứng"
Lần chỉnh sửa cuối:
Upvote
0
hung2412
Thành viên tích cực
- Tham gia
- 5/8/08
- Bài viết
- 932
- Được thích
- 240
- Giới tính
- Nam
- Ban đầu là chạy Code từ File Excel A (Mũi tên màu vàng chạy trong Module của File Excel A), có các biến là Phieuthu, Phieuchi, Giaydenghithanhtoan,... (Còn như Bien_1, Bien_2, Bien_3,... chỉ là minh họa mà thôi)
- Mình truyền các biến Phieuthu, Phieuchi, Giaydenghithanhtoan,... ở trên vào các Name (Cái này mình biết dùng vòng lặp)
- Sau đó Mũi tên màu vàng chạy đến Module của File Excel B
- Tại đây mình muốn truyền giá trị các Name ở trên (Các Name này đã nạp giá trị từ các biến rồi) vào các biến tương ứng Phieuthu, Phieuchi, Giaydenghithanhtoan,.. ở File Excel B
=> Nạp thủ công từng Name vào biến thì mình biết (Phieuthu = Workbooks(FileExcelB).Names(Name_gi_do)). Nhưng làm thế nào để dùng vòng lặp hoặc Array gì đó cho nhanh?
Bài đã được tự động gộp:
Bien_1, Bien_2,... chỉ là minh họa thôi ạ. Trên thực tế tên các biến là Phieuthu, phieuchi,...
Còn Bien(i) =Sheet1.Range("Name_" & i).Value => Thực tế thì trên File Excel sẽ không có như thế, chỉ là minh họa để nêu câu hỏi mà thôi
Mà gán các biến xuống Sheet thì dùng Name làm gì nữa ạ (Thực tế sẽ không như thế)
Upvote
0
Mr.hieudoanxd
Thành viên thường trực
- Tham gia
- 25/10/19
- Bài viết
- 353
- Được thích
- 169
ủa, Thấy có vẻ mọi người làm phức tạp hóa ý bác ấy lên sao ấy nhỉ. Code trong file bác tham khảo xem đúng chưa?
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,933
- Được thích
- 11,357
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Nếu muốn từ A đến Z thì bạn chỉ việc hỏi làm thế nào để đi từ A đến Z, đừng tự vẽ ra con đường A-B-C..Y-Z rồi hỏi từng đoạn vì có thể có đường tắt đi thẳng từ A đến Z mà không qua B-Y.
--
Theo suy đoán của tôi là bạn muốn truyền giá trị biến từ thủ tục ở file A (gọi là thủ tục A) sang thủ tục ở file B (gọi là thủ tục B). Nếu đúng như vậy thì sẽ như sau:
- Trường hợp thủ tục B được gọi trực tiếp thông qua câu lệnh ở thủ tục A thì quá đơn giản, cứ truyền trực tiếp không cần phải qua trung gian gì cả.
- Trường hợp thủ tục B không được gọi trực tiếp từ thủ tục A (kích hoạt bằng sự kiện, hoặc người dùng) thì cũng có nhiều cách khác hiệu quả hơn là ghi vào Names.
Upvote
0
hung2412
Thành viên tích cực
- Tham gia
- 5/8/08
- Bài viết
- 932
- Được thích
- 240
- Giới tính
- Nam
Biến Phieuthu ở File Excel A làm sao mà truyền trực tiếp sang biến Phieuthu ở File Excel B được (Mũi tên màu vàng chạy từ Module File Excel A sang Module File Excel B)? (Mình Test rồi, nhưng không được, cho dù khai báo là Public đi chăng nữa)
Bài đã được tự động gộp:
Mình có thử dùng References Project, nhưng không đáp ứng được nhu cầu do File References không cố định, vả lại nó không References chéo cho nhau được. Bạn có cách nào tốt hơn không (Không dùng gán xuống Sheet nhé)
Bài đã được tự động gộp:
File Excel mình gõ các biến Bien_1, Bien_2,... chỉ là minh họa thôi
Với lại trên File Excel không có sẵn Dữ liệu như thế, chỉ là trình bày để nêu câu hỏi mà thôi
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Tự anh ta hỏi kiểu đó ở bài 1, tôi trả lời ý như bài 1. ngoài ra trong file tất cả name mẫu đều là hằng. Tới bài 8 thì mới phức tạp: Lòi đâu ra name tùm lum, biến tùm lum, lại cò 2 file A và B.
1. Bài 1 làm quái gì có file A với file B?
2. Biến có tên lung tung thì bài 1 phải nói rõ là lung tung
3. Name cũng lung tung thì cũng phải tạo name lung tung, name là range thì phải tạo name mẫu là range chứ, sao lại tạo name mẫu toàn là hằng?
4. Tôi có gán xuống sheet đâu? tôi chỉ gán giá trị biến bằng giá trị name theo vòng lặp, sau đó làm gì thì kệ bạn mà?
Tóm lại, nếu nói như bài 8 từ đầu thì tôi đã không viết bài 5 cho phí công.
Lần chỉnh sửa cuối:
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,933
- Được thích
- 11,357
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Mình không làm được không có nghĩa là không có cách làm.
--
Như tôi đã nói, nếu có yêu cầu rõ ràng thì tôi sẽ xem liệu có hỗ trợ được không chứ tôi sẽ không chạy theo con đường bạn vẽ sẵn.
Upvote
0
Nhattanktnn
Thành viên gắn bó
- Tham gia
- 11/11/16
- Bài viết
- 3,161
- Được thích
- 4,150
- Donate (Momo)
- Giới tính
- Nam
Khái niệm "XY problem" mà ngày xưa anh đi tìm kiếm
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Tôi nhầm ở bài 7. Nhưng giờ thì chẳng còn ý nghĩa khỉ gì nữa.
Upvote
0
ongke0711
Thành viên gắn bó
- Tham gia
- 7/9/06
- Bài viết
- 2,366
- Được thích
- 3,224
- Giới tính
- Nam
Nếu là 2 file Excel khác nhau nhưng muốn truyền tham số cho nhau thì có một cách lòng vòng khác là: File A lưu tên biến và giá trị của nó vào file tạm (.csv, .txt) rồi từ file B đọc file tạm đó.
Một cách khác là dùng "Hidden name space" nó lưu thông tin vào bộ nhớ ở tầm vực Application chứ không phải Workbook. Nên nếu mở các workbook cùng một phiên Excel (Excel instance - không biết dịch ra là gì) thì có thể cùng sử dụng. Bạn tìm hiểu Application.Execute4Macro xem có đáp ứng yêu cầu không.
(Tôi có test cơ bản thì thấy nó đọc được tham số truyền)
2 file cùng một Excel instance
Lần chỉnh sửa cuối:
Upvote
0
Mr.hieudoanxd
Thành viên thường trực
- Tham gia
- 25/10/19
- Bài viết
- 353
- Được thích
- 169
hay phiên phiến cũng nên bác.
Còn 1 cách khác em hay dùng là lưu vào registry. Chủ bài đăng tìm hiểu Savesetting, Getsetting và deletesetting
Upvote
0
VetMini
Đang đi tìm hòn đá
- Tham gia
- 21/12/12
- Bài viết
- 17,868
- Được thích
- 24,782
- Nghề nghiệp
- Thầy bói bài ta
Thớt hiển nhiên là cứ đòi hỏi chuyện làm đồ án tập file mà bao lâu nay không hề tìm hiểu về PERSONAL.xlsb
File Reference chỉ dùng để khỏi mất công lục file name ra thôi.
Nếu có filename đầy đủ (fullpath) thì cứ gọi thẳng như hàm của PERSONAL
Tôi bỏ lửng vậy xem có biết tự tìm hiểu thêm hôn.
Đồ án ở đây không mấy ai hơn tôi đâu. Công việc của toi là Project Manager.
File Reference chỉ dùng để khỏi mất công lục file name ra thôi.
Nếu có filename đầy đủ (fullpath) thì cứ gọi thẳng như hàm của PERSONAL
Tôi bỏ lửng vậy xem có biết tự tìm hiểu thêm hôn.
Đồ án ở đây không mấy ai hơn tôi đâu. Công việc của toi là Project Manager.
Upvote
0
hung2412
Thành viên tích cực
- Tham gia
- 5/8/08
- Bài viết
- 932
- Được thích
- 240
- Giới tính
- Nam
Tôi cũng biết về PERSONAL.xlsb, nhưng mà tôi dùng File Add_In tiện hơn.
Nhu cầu của tôi là: Khi gán giá trị vào Biến Phieuchi (Khi đó Mũi tên màu vàng đang ở Module File Excel A), sau đó Mũi tên màu vàng chạy sang Module ở File Excel B thì Biến Phieuchi (Cùng tên biến Phieuchi ở File Excel A) ở File Excel B tự động cập nhật giá trị (Giống như là biến ở dạng Public vậy)
Tôi đang dùng phương pháp nạp giá trị vào biến bằng Name trong File Excel, tôi cũng đang tìm hiểu về Hidden name space), nhưng mà hình như giống nhau (Đều là qua trung gian gọi là Name, một đằng là Name nằm ở File Excel, còn một đằng là Name ở trên Application)
Upvote
0
hung2412
Thành viên tích cực
- Tham gia
- 5/8/08
- Bài viết
- 932
- Được thích
- 240
- Giới tính
- Nam
Tôi nghiên cứu rồi bạn ah. Nhưng mà hình như đều qua trung gian gọi là Name
Nhu cầu thực sự của tôi là: Khi gán giá trị vào Biến Phieuchi (Khi đó Mũi tên màu vàng đang ở Module File Excel A), sau đó Mũi tên màu vàng chạy sang Module ở File Excel B thì Biến Phieuchi (Cùng tên biến Phieuchi ở File Excel A) ở File Excel B tự động cập nhật giá trị (Giống như là biến ở dạng Public vậy)
Mà thôi, dùng qua Name cũng được.
Có điều khi truyền giá trị từ Name vào các biến ở File Excel B thì nó lắt nhắt dài dòng, dạng như vầy:
Mã:
Phieuthu = Workbooks(Filedieukhien).Names(Phieuthu_Name)
Phieuchi = Workbooks(Filedieukhien).Names(Phieuchi_Name)
Giaydenghitamung = Workbooks(Filedieukhien).Names(Giaydenghitamung_Name)
...
Upvote
0
VetMini
Đang đi tìm hòn đá
- Tham gia
- 21/12/12
- Bài viết
- 17,868
- Được thích
- 24,782
- Nghề nghiệp
- Thầy bói bài ta
Bạn có thấy kiến thức ở mấy bài gần đây khác hẳn với kiến thức cúa người viết bài #1 không?
Tôi đã giải thích là thớt có mấy cái projects, nhưng kiến thức về hệ thống phần mềm thì có hạn cho nên có những ý tưởng mà người khác không thể có được. Sỡ dĩ thớt còn làm việc được là vì trong nhóm coders có vài thằng rất giỏi (tiếc cho thớt là mấy thằng này giấu nghề cho nên kiến thức thớt học từ chúng không có căn bản).
Theo tôi thấy thì cỏ vẻ như thớt chưa biết phân biệt "namespace" và "names".
Nếu thực sự hiểu, và thực sự có sử dụng qua PERSONAL.xlsb như vừa khoe thì đã biết cách làm cái bài này rồi (trích bài #1)
"Có cách nào nạp một loạt giá trị Name (Name trong Name Manager) vào các Biến tương ứng trong VBA hay không?"
Upvote
0
ongke0711
Thành viên gắn bó
- Tham gia
- 7/9/06
- Bài viết
- 2,366
- Được thích
- 3,224
- Giới tính
- Nam
Tôi có làm cái ví dụ (đơn giản thôi nhé) minh họa cho việc dùng PERSONAL.xlsb như hình. Ví dụ này cũng phải cùng một phiên làm việc Excel thì mới truyền tham số được nhé.
Có máy có sẳn file này, có máy không (máy tôi không có sẵn, nên phải tự tạo). File này tự chạy khi Excel khởi chạy.
Có máy có sẳn file này, có máy không (máy tôi không có sẵn, nên phải tự tạo). File này tự chạy khi Excel khởi chạy.
Upvote
0
VetMini
Đang đi tìm hòn đá
- Tham gia
- 21/12/12
- Bài viết
- 17,868
- Được thích
- 24,782
- Nghề nghiệp
- Thầy bói bài ta
Điểm chính của Personal.xlsb là nó mở ra và tự chạy khi Excel khởi động (giống như các add-ons khác).
Chung quy: nếu cần proterties của file khác thì cái application ấy phải mở cái file ấy, cách gọi hàm thì cũng giống như gọi của Personal.
Upvote
0
thnghiachau
Chỉ biết ngồi BÈ và PHÁN chuyện!!!
- Tham gia
- 14/9/09
- Bài viết
- 844
- Được thích
- 710
- Giới tính
- Nam
- Nghề nghiệp
- Search
code nhẹ nhàng, chưa kiểm tra, thớt kiểm tra coi được không thì dùng nhá!
Khi vào array rồi thì muốn làm gì thì làm tiếp hen.
Mã:
Dim arrName() As String
Dim nm As Name
Dim i As Integer
i = 0
For Each nm In ThisWorkbook.Names
i = i + 1
ReDim Preserve arrName(1 To i)
arrName(i) = nm.Name
Next nmKhi vào array rồi thì muốn làm gì thì làm tiếp hen.
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Buồn buồn xem code bài 9:
Chạy code này xong chẳng thấy cái name nào, kể cả name ẩn.
Xóa dòng On Error Resume next thì lỗi dòng thứ Đầu tiên For i = 2 to ... Xem kỹ thì tên sheet là Sheet1, mà đòi sheet CodeName là Data
Sửa tên sheet thì lỗi dòng ẩn name: Gán Name = Cells(5, i) mà ẩn name Cells(3, i)
Bỏ dòng lệnh ẩn name thì thấy kết quả là 2, 3, 4, ... chứ không phải a, b, c, ...
Lại thêm 1 name vui vui là Name_ĐM
Sub GetNameValue thì kết quả chỉ hiện thị khi name là hằng hoặc name là 1 cell đơn lẻ, nếu là range nhiều cells thì lỗi.
Chạy code này xong chẳng thấy cái name nào, kể cả name ẩn.
Xóa dòng On Error Resume next thì lỗi dòng thứ Đầu tiên For i = 2 to ... Xem kỹ thì tên sheet là Sheet1, mà đòi sheet CodeName là Data
Sửa tên sheet thì lỗi dòng ẩn name: Gán Name = Cells(5, i) mà ẩn name Cells(3, i)
Bỏ dòng lệnh ẩn name thì thấy kết quả là 2, 3, 4, ... chứ không phải a, b, c, ...
Lại thêm 1 name vui vui là Name_ĐM
Sub GetNameValue thì kết quả chỉ hiện thị khi name là hằng hoặc name là 1 cell đơn lẻ, nếu là range nhiều cells thì lỗi.
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
ý tôi muốn nói về code lỗi mà không biết, chứ bài 5 của tôi cũng đơn giản nhưng là đơn giản đúng theo yêu cầu bài 1, chứ không phải đơn giản hóa.
Upvote
0
Mr.hieudoanxd
Thành viên thường trực
- Tham gia
- 25/10/19
- Bài viết
- 353
- Được thích
- 169
Ấy dà, ngại quá, em đang làm trên nền file khác có thử 1 lần mà không kiểm tra lại nội dung trước khi đăng....
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,716
- Được thích
- 37,418
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Còn 1 cái sai mà không sinh ra lỗi, đó là RefersTo không lấy value của Cells(3, i) mà lấy Column của nó. Thử 1 lần mà không thấy.
Upvote
0
Bài viết mới nhất
- Question
- Question
- Question
- Question
