Hỏi cách xem code (6 người xem)

[tuan16]

Em có tải được file excell này trên mạng. Các anh chị trong diễn đàn cho em làm sao để xem được code " Chuyển biên bản sang word" trong thanh công cụ " Hợp đồng nhà cung cấp ạ" ...

 

[befaint]

Nội quy diễn đàn không cho phép nhé.
Muốn xem thì mình liên hệ trực tiếp tác giả.

 

[tuan16]

Nội quy diễn đàn không cho phép nhé.
Muốn xem thì mình liên hệ trực tiếp tác giả.

dạ vâng... tại file em tải không khóa mà không biết xem như nào vì nó ở trên thanh công cụ ạ

 

[befaint]

không khóa

Không khóa mà lại không xem được? Chứng tỏ người ta giấu quá kỹ, giấu quá tinh vi tới mức không cần khóa khiếc gì cả.

Túm lại là không được phép từ chủ sở hữu thì không được động tới. Luật chung rồi.

Mà đã bảo liên hệ tác giả nhé, người ta cho hót lai rồi đó, chứ không phải là không có thông tin liên hệ.

 

[Mr.hieudoanxd]

File này em mở bị ngưng excel không báo lỗi hay nguyên nhân gì cả. Mở khi disable marco thì vào được. Trong thisworkbook không có sự kiện nào để tự động tắt excel
Không có module tạo ribbon nhưng vẫn xuất hiện ribbon. anh @befaint có thể giải thích vì sao được không ạ

 

[giaiphap]

File này em mở bị ngưng excel không báo lỗi hay nguyên nhân gì cả. Mở khi disable marco thì vào được. Trong thisworkbook không có sự kiện nào để tự động tắt excel
Không có module tạo ribbon nhưng vẫn xuất hiện ribbon. anh @befaint có thể giải thích vì sao được không ạ

Ribbon được tạo từ file XML mà bạn (cụ thể là được tào từ tệp tin customUI.xml), còn không thấy code điều khiển ribbon là do file đã được ẩn Module rồi.

 

[Mr.hieudoanxd]

Ribbon được tạo từ file XML mà bạn (cụ thể là được tào từ tệp tin customUI.xml), còn không thấy code điều khiển ribbon là do file đã được ẩn Module rồi.

Cảm ơn anh đã giải thích!
Vậy việc bị ngưng excel mà không thông báo thì là nguyên nhân gì ạ

 

[tieutuvodanh192]

Em có tải được file excell này trên mạng. Các anh chị trong diễn đàn cho em làm sao để xem được code " Chuyển biên bản sang word" trong thanh công cụ " Hợp đồng nhà cung cấp ạ" ...

Bạn thử xem được chưa.

 

[tuan16]

Bạn thử xem được chưa.

Mình không biết cách xem bạn ạ... Các anh chị trên diễn đàn bảo ẩn module rồi..

 

[tieutuvodanh192]

Mình không biết cách xem bạn ạ... Các anh chị trên diễn đàn bảo ẩn module rồi..

Nếu vậy chắc bạn phải nhờ đối tác có trả phí hoặc mua tool thì may ra unhide được.

 

[giaiphap]

Vậy việc bị ngưng excel mà không thông báo thì là nguyên nhân gì ạ

Việc này cũng có nhiều nguyên nhân lắm nghe bạn, còn file này máy tôi mở lên chạy bình thường.

Mình không biết cách xem bạn ạ... Các anh chị trên diễn đàn bảo ẩn module rồi..

Code một mâm luôn bạn ơi, xem là tẩu hỏa nhập ma luôn, thôi thì làm lại theo yêu cầu cá nhân của mình sẽ hay hơn. Tôi chỉ cho xem tầm này thôi.

 

[Quang_Hải]

Em có tải được file excell này trên mạng. Các anh chị trong diễn đàn cho em làm sao để xem được code " Chuyển biên bản sang word" trong thanh công cụ " Hợp đồng nhà cung cấp ạ" ...

Bạn có chắc rằng khi xem được code thì bạn sẽ sửa lại code được không? Hay là chỉ xem cho vui?
Với khả năng của tôi thì cái rừng code trong file là cái rừng rậm, xem xong có cảm giác hậu covid

 

[tuan16]

Nếu vậy chắc bạn phải nhờ đối tác có trả phí hoặc mua tool thì may ra unhide

Bạn có chắc rằng khi xem được code thì bạn sẽ sửa lại code được không? Hay là chỉ xem cho vui?
Với khả năng của tôi thì cái rừng code trong file là cái rừng rậm, xem xong có cảm giác hậu covid

dạ em xem để tìm hiểu phần code chuyển từ excell sang word xem có vận dụng được không ạ

 

[Quang_Hải]

dạ em xem để tìm hiểu phần code chuyển từ excell sang word xem có vận dụng được không ạ

Vậy để mình tặng cho bạn khái niệm về code liên quan đến Word
Code này dùng để tạo ra một file word

Sub WordDocumentCreate()
   With CreateObject("Word.Application")
      .Visible = True
      With .Documents.Add
         .SaveAs ThisWorkbook.Path & "\Sample.doc"
         .Close
      End With
      .Quit
   End With
End Sub

Code này dùng để tạo ra các Textbox trong file word

Sub Add_TB()
Dim i As Long
With CreateObject("Word.Application")
   .Visible = True
    With .Documents.Open(ThisWorkbook.Path & "\Sample.doc")
      For i = 1 To 5
         With .Shapes.AddTextbox(1, 50, 50 * i, 100, 20)
            .Name = "TB" & i
         End With
      Next
   End With
End With
End Sub

Code này để gán giá trị vào các TBox

Sub Add_Value_To_TB()
Dim i As Long
With CreateObject("Word.Application")
   .Visible = True
    With .Documents.Open(ThisWorkbook.Path & "\Sample.doc")
      For i = 1 To 5
         .Shapes("TB" & i).TextFrame.TextRange = i
      Next
      .Close True
   End With
   .Quit
End With
End Sub

Với những đoạn code cơ bản này nếu bạn biết ứng dụng thì đủ để xử lý dữ liệu từ Excel sang Word. Chúc thành công

 

[VetMini]

dạ em xem để tìm hiểu phần code chuyển từ excell sang word xem có vận dụng được không ạ

Lỳ thật. Nặng là phạm pháp (vi phạm chủ quyển sở hữu trí tuệ). Nhẹ là bất lịch sự.
Người ta khoá nhà, có đặt bảng chi tiết liên hệ nếu cần. Vậy mà còn rán leo rào vào chôm thiết kế?

 

[tuan16]

Lỳ thật. Nặng là phạm pháp (vi phạm chủ quyển sở hữu trí tuệ). Nhẹ là bất lịch sự.
Người ta khoá nhà, có đặt bảng chi tiết liên hệ nếu cần. Vậy mà còn rán leo rào vào chôm thiết kế?

Dạ... Em chỉ tò mò chút thôi ạ... Chứ không có ý gì .. Thấy mở mà không thấy module gì như các a chị ở trên giải thích

Bài đã được tự động gộp: 17/3/22

Vậy để mình tặng cho bạn khái niệm về code liên quan đến Word
Code này dùng để tạo ra một file word

Sub WordDocumentCreate()
   With CreateObject("Word.Application")
      .Visible = True
      With .Documents.Add
         .SaveAs ThisWorkbook.Path & "\Sample.doc"
         .Close
      End With
      .Quit
   End With
End Sub

Code này dùng để tạo ra các Textbox trong file word

Sub Add_TB()
Dim i As Long
With CreateObject("Word.Application")
   .Visible = True
    With .Documents.Open(ThisWorkbook.Path & "\Sample.doc")
      For i = 1 To 5
         With .Shapes.AddTextbox(1, 50, 50 * i, 100, 20)
            .Name = "TB" & i
         End With
      Next
   End With
End With
End Sub

Code này để gán giá trị vào các TBox

Sub Add_Value_To_TB()
Dim i As Long
With CreateObject("Word.Application")
   .Visible = True
    With .Documents.Open(ThisWorkbook.Path & "\Sample.doc")
      For i = 1 To 5
         .Shapes("TB" & i).TextFrame.TextRange = i
      Next
      .Close True
   End With
   .Quit
End With
End Sub

Với những đoạn code cơ bản này nếu bạn biết ứng dụng thì đủ để xử lý dữ liệu từ Excel sang Word. Chúc thành công

Dạ em cảm ơn ạ

Bài đã được tự động gộp: 17/3/22

Để tránh gây hiểu nhầm cho các a chị mục đích phá pass hay gì... Em xin phép các anh chị dừng topic ở đây ạ