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?

[hung2412]

Xin chào các bạn GPE!
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?


Mong các bạn chỉ giúp cho
Xin cảm ơn

 

[ongke0711]

"Phiên" này là gì bạn ơi? (Phiên bản hay là phiên làm việc, hay là phiên gì đó)

Phiên làm việc nhe. . . . Nếu không lầm thì khi giữ phím Alt + Excel app thì nó sẽ mở phiên làm việc excel khác

 

[Kiều Mạnh]

Thử xem sao

Từ File A sử dụng Application.Run gọi hàm File B xong tái sử dụng lại cái biến Linh tinh lang tang file B Sang file A

Vẻ ra cho vậy xong tự dò lấy xem sao

 

[Mr.hieudoanxd]

"Phiên" này là gì bạn ơi? (Phiên bản hay là phiên làm việc, hay là phiên gì đó)

hay phiên phiến cũng nên bác.

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.

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

 

[VetMini]

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.

 

[hung2412]

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.

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)

 

[hung2412]

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.

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:

Phieuthu = Workbooks(Filedieukhien).Names(Phieuthu_Name)
Phieuchi = Workbooks(Filedieukhien).Names(Phieuchi_Name)
Giaydenghitamung = Workbooks(Filedieukhien).Names(Giaydenghitamung_Name)
...

=> Không biết là có cách nào dùng vòng lặp để nạp giá trị từ Name vào các biến tương ứng không nhỉ?

 

[ongke0711]

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:

Phieuthu = Workbooks(Filedieukhien).Names(Phieuthu_Name)
Phieuchi = Workbooks(Filedieukhien).Names(Phieuchi_Name)
Giaydenghitamung = Workbooks(Filedieukhien).Names(Giaydenghitamung_Name)
...

=> Không biết là có cách nào dùng vòng lặp để nạp giá trị từ Name vào các biến tương ứng không nhỉ?

Tôi thấy tài liệu ghi là hidden name space thường dùng cho các Addin đó bạn. Để tôi tìm hiểu trường hợp của bạn xem như thế nào.

 

[VetMini]

Tôi thấy tài liệu ghi là hidden name space thường dùng cho các Addin đó bạn. Để tôi tìm hiểu trường hợp của bạn xem như thế nào.

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?"

 

[ongke0711]

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.

 

[VetMini]

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.
...

Đ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.

 

[hung2412]

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

Nhưng nếu tổng ký tự vượt quá 255 ký tự thì nó bị lỗi. Có cách nào khắc phục không bạn nhỉ?

 

[thnghiachau]

code nhẹ nhàng, chưa kiểm tra, thớt kiểm tra coi được không thì dùng nhá!

    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 nm

Khi vào array rồi thì muốn làm gì thì làm tiếp hen.

 

[ptm0412]

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.

 

[VetMini]

Buồn buồn xem code bài 9:
...

Bài #9 này cố "đơn giản hóa" vấn đề trước khi biết rõ các điều kiện của vấn đề. Kết tội mọi người "phức tạp hóa" ý thớt. Đưa ra giải pháp sai bét mờ bác xem chi.

ủ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?

 

[ptm0412]

Bài #9 này cố "đơn giản hóa" vấn đề trước khi biết rõ các điều kiện của vấn đề. Kết tội mọi người "phức tạp hóa" ý thớt. Đưa ra giải pháp sai bét mờ bác xem chi.

ý 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.

 

[Mr.hieudoanxd]

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)

Ấ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....

 

[ptm0412]

Ấ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....

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.