[ChatGPT] Chia Sẻ Kinh Nghiệm - Hỏi ChatGPT Hổ Trợ Lập Trình VBA

[thoadq]

Các bác ơi cho em hỏi là em dùng chatgpt để tạo ra text xong đưa vào VBA của Power point mà chuyển về chữ trong slide thì bị lỗi font, chưa biết cách khắc phục, đi tìm kiếm thì chỉ thấy hỗ trợ lỗi này cho excel còn Power Point thì chưa giải quyết được ạ!
Sub CreateSmartPetBuddyPresentation()
' Khai báo biến
Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object

' Tạo một ứng dụng PowerPoint mới
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

' Tạo một bản trình bày mới
Set pptPresentation = pptApp.Presentations.Add

' Slide 1: Tiêu đề
Set pptSlide = pptPresentation.Slides.Add(1, ppLayoutTitle)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Thay đổi cuộc sống của bạn cùng SmartPet Buddy"

' Slide 2: Cuộc sống trọn vẹn hơn
Set pptSlide = pptPresentation.Slides.Add(2, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Hãy tưởng tượng cuộc sống của bạn trọn vẹn hơn với SmartPet Buddy."

' Slide 3: Đồng hành và giải trí
Set pptSlide = pptPresentation.Slides.Add(3, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "SmartPet Buddy là người bạn đồng hành và giải trí cho thú cưng của bạn. Chúng sẽ giúp thú cưng không bao giờ cảm thấy cô đơn."

' Slide 4: Hoạt động và tập thể dục
Set pptSlide = pptPresentation.Slides.Add(4, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Cùng SmartPet Buddy, thú cưng của bạn sẽ luôn tận hưởng những hoạt động vui chơi và tập thể dục mỗi ngày."

' Slide 5: Giám sát từ xa và tương tác 24/7
Set pptSlide = pptPresentation.Slides.Add(5, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Với SmartPet Buddy, bạn có thể giám sát và tương tác với thú cưng mọi lúc, mọi nơi, đảm bảo rằng họ luôn được quan tâm."

' Slide 6: Gia đình hạnh phúc
Set pptSlide = pptPresentation.Slides.Add(6, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "SmartPet Buddy không chỉ là sản phẩm, nó là một phần của gia đình, mang lại hạnh phúc và niềm vui cho cả gia đình bạn."

' Slide 7: Kết luận và hành động
Set pptSlide = pptPresentation.Slides.Add(7, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Hãy thay đổi cuộc sống của bạn và thú cưng với SmartPet Buddy ngay hôm nay. Hãy để chúng tôi làm cho cuộc sống của bạn trọn vẹn hơn và hạnh phúc hơn. Cảm ơn bạn đã lắng nghe!"

' Thêm nội dung hài hước và thú vị (bạn có thể tự tạo)
' Ví dụ: pptSlide.Shapes(1).TextFrame.TextRange.Text = "Đừng để thú cưng của bạn cảm thấy buồn chán! SmartPet Buddy sẽ biểu diễn một vũ điệu robot độc đáo mỗi ngày!"

End Sub

ĐƯA VÀO POWER POINT NÓ RA THẾ NÀY Ạ (BỊ SAI CHỮ TIẾNG VIỆT THÀNH DẤU HỎI Ạ:

pptPresentation.Slides.Add(2, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "H?y tý?ng tý?ng cu?c s?ng c?a b?n tr?n v?n hõn v?i SmartPet Buddy." ' Slide 3: Ð?ng hành và gi?i trí Set pptSlide = pptPresentation.Slides.Add(3, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "SmartPet Buddy là ngý?i b?n ð?ng hành và gi?i trí cho thú cýng c?a b?n. Chúng s? giúp thú cýng không bao gi? c?m th?y cô ðõn." ' Slide 4: Ho?t ð?ng và t?p th? d?c Set pptSlide = pptPresentation.Slides.Add(4, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Cùng SmartPet Buddy, thú cýng c?a b?n s? luôn t?n hý?ng nh?ng ho?t ð?ng vui chõi và t?p th? d?c m?i ngày." ' Slide 5: Giám sát t? xa và týõng tác 24/7 Set pptSlide = pptPresentation.Slides.Add(5, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "V?i SmartPet Buddy, b?n có th? giám sát và týõng tác v?i thú cýng m?i lúc, m?i nõi, ð?m b?o r?ng h? luôn ðý?c quan tâm." ' Slide 6: Gia ð?nh h?nh phúc Set pptSlide = pptPresentation.Slides.Add(6, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "SmartPet Buddy không ch? là s?n ph?m, nó là m?t ph?n c?a gia ð?nh, mang l?i h?nh phúc và ni?m vui cho c? gia ð?nh b?n." ' Slide 7: K?t lu?n và hành ð?ng Set pptSlide = pptPresentation.Slides.Add(7, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "H?y thay ð?i cu?c s?ng c?a b?n và thú cýng v?i SmartPet Buddy ngay hôm nay. H?y ð? chúng tôi làm cho cu?c s?ng c?a b?n tr?n v?n hõn và h?nh phúc hõn. C?m õn b?n ð? l?ng nghe!" ' Thêm n?i dung hài hý?c và thú v? (b?n có th? t? t?o) ' Ví d?: pptSlide.Shapes(1).TextFrame.TextRange.Text = "Ð?ng ð? thú cýng c?a b?n c?m th?y bu?n chán! SmartPet Buddy s? bi?u di?n m?t v? ði?u robot ð?c ðáo m?i ngày!" pptSlide.Shapes(1).TextFrame.TextRange.Text = "N?i dung ti?ng Vi?t" ' Thay ð?i vãn b?npptSlide.Shapes(1).TextFrame.TextRange.Font.Name = "Arial Unicode MS" ' Ch?n font h? tr? ti?ng Vi?tpptSlide.Shapes(1).TextFrame.TextRange.Font.Characters(1, Len(pptSlide.Shapes(1).TextFrame.TextRange.Text)).Font.Bold = msoFalse ' Ð?m b?o không in ð?m vãn b?npptSlide.Shapes(1).TextFrame.TextRange.Font.Characters(1, Len(pptSlide.Shapes(1).TextFrame.TextRange.Text)).Font.Size = 14 ' Ð?t kích thý?c ch?End Sub

EM CŨNG ĐÃ THỬ BẢNG CHARCODE RỒI MÀ CHƯA XỬ LÝ ĐƯỢC Ạ: https://www.giaiphapexcel.com/diendan/threads/unicode-tiếng-việt-trong-vba-excel.2370/

CÁC BÁC GIÚP EM NHÉ Ạ! TKS CÁC BÁC NHIỀU Ạ

 

[thnghiachau]

ChatGPT có hiểu thiệt không ta?

 

[tigertiger]

View attachment 295208
ChatGPT có hiểu thiệt không ta?

Có thể nó không hiểu nên cố tình không hiểu nên nghĩa là rất hiểu, nhưng người hỏi thì hiểu hoặc cố tình không hiểu.

 

[Kiều Mạnh]

Có thể nó không hiểu nên cố tình không hiểu nên nghĩa là rất hiểu, nhưng người hỏi thì hiểu hoặc cố tình không hiểu.

Nhớ lại khi xưa ông giáo sư già bên ban tuyên giáo nói

Nó là nó nhưng không phải là nó... nhưng chính lại là nó

ChatGPT nếu ai đó biết vận dụng nó thì sẻ rất tốt cho viết code rất nhiều ... còn không thì sẻ dối ra và loanh quanh lẩn quẩn tổ mua lấy cái bực bội mà thôi

 

[tigertiger]

Nhớ lại khi xưa ông giáo sư già bên ban tuyên giáo nói

Nó là nó nhưng không phải là nó... nhưng chính lại là nó

ChatGPT nếu ai đó biết vận dụng nó thì sẻ rất tốt cho viết code rất nhiều ... còn không thì sẻ dối ra và loanh quanh lẩn quẩn tổ mua lấy cái bực bội mà thôi

Nhanh thôi, họ phát triển theo hệ thống có lớp lang, chat GPT nói riêng và AI nói chung sẽ sớm thông minh lên nhiều ... Tất nhiên còn thông minh hơn cả người làm ra nó nghĩ ra hay lường trước hay không thì có thể nói là chưa ai lường được.

 

[Kiều Mạnh]

có những cái tôi suy nghĩ vài năm chưa thông .. thế mà có Em ChatGPT tôi bá tám loanh quanh tra hỏi nó vài ngày là ra

ChatGPT giúp ta rút ngắn khoãng cách có thể viết ra 1 ứng dụng rất ít ngày thay vì nhiều năm

và có nhưng ứng dụng nếu tự thân viết ra nó thì chưa biết khi nào ra. nhưng nhờ có nó biến cái tưởng chừng như không thể thành có thể

Còn có thể hay không thì phụ thuộc vào chính khả năng của ai đó vận dụng nó ( ChatGPT )

 

[tigertiger]

có những cái tôi suy nghĩ vài năm chưa thông .. thế mà có Em ChatGPT tôi bá tám loanh quanh tra hỏi nó vài ngày là ra

ChatGPT giúp ta rút ngắn khoãng cách có thể viết ra 1 ứng dụng rất ít ngày thay vì nhiều năm

và có nhưng ứng dụng nếu tự thân viết ra nó thì chưa biết khi nào ra. nhưng nhờ có nó biến cái tưởng chừng như không thể thành có thể

Còn có thể hay không thì phụ thuộc vào chính khả năng của ai đó vận dụng nó ( ChatGPT )

Đúng thế hiện chỉ xem nó như là trợ giúp. Còn viết những ứng dụng thực tế đầy đủ, thì vẫn phải từ code chính của con người

 

[87kilua]

Thấy có 1 cuốn sách như vậy

Nhóm của Sumifs | Chat GPT Excel Mastery 200 Exp - Anand M | Facebook

Chat GPT Excel Mastery 200 Exp - Anand M

www.facebook.com

 

[Kiều Mạnh]

Eo ơi ChatGPT mới phát triển đến 3.5 thôi mà nó khá thông minh hơn những gì mà ai đó tưởng ???!!!!

đừng bao giờ tự phong mình quá cao ... xong lên nóc nhà hát bài thánh ca con gà như tay hít keo con ó

 

[SA_DQ]

DQ Sa: Này bạn Microsoft Bing, bạn có thể mã hóa 1 trị ngày-tháng-năm thành YTN
Khi đó Y - ký tự chỉ năm, như A: năm 2021, B: năm 2022,. . . .
T ký tự hay ký số chỉ tháng như: 9 chỉ tháng 9, tháng 10 là A,. . .
N kí tự hay kí số chỉ ngày, như ngày 11 là B, ngày 12 là C,. . .

Bạn có thể viết 1 hàm VBA để mã hóa như trên khi ta giao cho hàm 1 trị Ngày-Tháng-Năm?
Xin cảm ơn bạn trước

M. Bing:
Tôi có thể giúp bạn viết một hàm VBA để mã hóa ngày-tháng-năm thành chuỗi YTN.
Bạn có thể sử dụng hàm sau:

Function EncodeDateToYTN(inputDate As Date) As String
    Dim yearCode As String
    Dim monthCode As String
    Dim dayCode As String
  
    yearCode = Chr(Asc("A") + Year(inputDate) - 2021)
    monthCode = Chr(Asc("A") + Month(inputDate) - 1)
    dayCode = Chr(Asc("A") + Day(inputDate) - 1)
  
    EncodeDateToYTN = yearCode & monthCode & dayCode
End Function

DQ Sa: Bây giờ thực hiện dùm mình bài toán ngược lại:
Giải mã các kí tự CJG kia thành trị ngày-tháng-Năm bằng 1 hàm VBA!

M. Bing:
Để giải mã chuỗi YTN thành ngày-tháng-năm, bạn có thể sử dụng hàm VBA sau:

Function DecodeYTNToDate(encodedString As String) As Date
    Dim yearCode As Integer
    Dim monthCode As Integer
    Dim dayCode As Integer
   
    yearCode = Asc(UCase(Mid(encodedString, 1, 1))) - Asc("A") + 2021
    monthCode = Asc(UCase(Mid(encodedString, 2, 1))) - Asc("A") + 1
    dayCode = Asc(UCase(Mid(encodedString, 3, 1))) - Asc("A") + 1
   
    DecodeYTNToDate = DateSerial(yearCode, monthCode, dayCode)
End Function

 

[Kiều Mạnh]

Rảnh ngồi chơi thay vì bà tám tào lao tôi cài IDA chơi

1/ Bà tám với em ChatGPT về IDA



2/ xem thực tế nó ra cái gì



Nó ra toàn mã ASM các tên hàm mã hóa + các mối liên kết call hàm ...

chơi cho biết thôi không ai đó ngồi lên đầu ai nó xong nổ banh xác pháo ra mà ta cứ lầm tưởng xxxx

3/ làm bạn với vài tay tây ở nga hay đức dân hacked + viết mã ASM hỏi chút nắm thêm tình hình là lòi ra .................

4/ biết vài mớ ASM ( Hợp ngữ ) thì làm nên trò gì với mã Delphi ???!!!

5/ chia sẻ cho ai đó khi viết mã thì viết các hàm liên kết với nhau ở nhiều Unit và chỉ xuất những hàm cần xuất còn không thì thôi

Ngồi đó mà dò diết mắt sẻ sáng ra như những vì sao ............

 

[A-T]

Rảnh ngồi chơi thay vì bà tám tào lao tôi cài IDA chơi

Siêu quá, cố gắng lên, ráng xíu 1/2 sẽ trở thành cây đa cây đề của làng hacker VN.
Nhưng nhớ lấy code của ai thì phải ghi rõ và nhớ cảm ơn nhé, ví dụ: google search, chat GPT, ông A, ông B,...
Nhưng thiệt tình là mình không hiểu gì hết, , nhìn mấy cái sơđồ thấy rối não cả lên.
Sorry....!

 

[Kiều Mạnh]

Siêu quá, cố gắng lên, ráng xíu 1/2 sẽ trở thành cây đa cây đề của làng hacker VN.
Nhưng nhớ lấy code của ai thì phải ghi rõ và nhớ cảm ơn nhé, ví dụ: google search, chat GPT, ông A, ông B,...
Nhưng thiệt tình là mình không hiểu gì hết, , nhìn mấy cái sơđồ thấy rối não cả lên.
Sorry....!

biết trước sẽ vào mờ ... đúng như sách ... ai cũng vậy có bước đi đầu tiên

Cảm ơn

Bài đã được tự động gộp: 24/10/23

ờ mà ai dễ chịu với tôi thì tôi vui vẻ lại thôi ... còn khó chịu thì tôi nhớ dai lắm và ghi sổ à ...

 

[Kiều Mạnh]

Em ChatGPT biết khá nhiều thứ.. tại vì tôi đang viết Tiếp Web Server ( HTTPs ) nên vọc chơi chút xem nó ra cái gì thôi

Sử dụng TLS 1.3 , AES_256 và HTTPs



Memory

 

[A-T]

Em ChatGPT biết khá nhiều thứ.. tại vì tôi đang viết Tiếp Web Server ( HTTPs ) nên vọc chơi chút xem nó ra cái gì thôi

1-Chat GPT không phải là les, cũng không phải ô môi.
2-Không hiểu bạn đang phát minh ra cái bánh xe nào => hòng chờ sản phẩm, mình đăng ký được dùng thử trước.
3-Ráng cố gắng nhé.
4-Hôm nào làm cái party ở Bình Dương xem? (Hi vọng Phương Nam Telecom là nhà tài trợ chính, còn không mình bỏ tiền trả ly cà-phơ).
5-Hóng tiếp.

 

[Kiều Mạnh]

Tôi có quan tâm và để ý đâu mờ ... thay vì rảnh chơi game nó trở nên vô tích sự

công việc chính của Tôi là kinh doanh mua và bán + làm dịch vụ ... còn code két thích thì chơi không thích thì bỏ

Rảnh buồn bà tám với con chat xem nó ra cái gì ra cái này ... à ơi cho đỡ buồn ngủ khi vắng khách thôi

còn không sống trên từng dòng code bao giờ cả Tôi chỉ xem nó như trò chơi tiêu kiển cho vui thôi

 

[ongke0711]

2-Không hiểu bạn đang phát minh ra cái bánh xe nào => hòng chờ sản phẩm, mình đăng ký được dùng thử trước.

Bạn hài hước quá.... Nhưng không phải ai cũng có khả năng đọc hiểu đâu nhe. 2 năm sau nổi gió mới hiểu đó.
Mượn lời con chatGPT (con chứ không phải les hay gay ).

 

[Kiều Mạnh]

đúng là loại tào lao chỉ theo đuôi mút mút đũa là giỏi

 

[ongke0711]

Con chatGPT này cũng hay phết... . Hỏi gì cũng biết.
Rồi trò gì tiếp đây ???!!!!!!!!!!!!!!!!!!!!!!




Thôi trò chuyện với con chatGPT đủ rồi, giờ đi code dạo để kiếm sống qua ngày đây, chứ không đói chết...

 

[Kiều Mạnh]

đầu óc hạt đậu nành ... nhìn thấy gì cũng muốn mút mà không mút được gì cả .. xong chuyển hướng trầu dìa và trỏ mõm