12
返回列表 上一主題 發帖

使用 chatGPT 學習寫程式

ML089

帖子
2019 
主題
13 
精華
0 
積分
2047 
點名
16  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2023-5-4 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-2-28 09:56 | 只看該作者

使用 chatGPT 學習寫程式

chatGPT 人工智慧可以幫你練習VBA程式
幾秒鐘寫出程式真的可用，我只加了 On Error Resume Next 修正錯誤


https://openai.com/blog/chatgpt

chatGPT詢問如下：
在EXCEL裡面用VBA程式繪出動態圓形時鐘

chatGPT回覆如下：
以下是一個簡單的VBA程式，可以在Excel中繪製一個動態的圓形時鐘：

Sub DrawClock()
    Dim i As Integer
    Dim j As Integer
    Dim r As Integer
    Dim pi As Double
    Dim ang As Double
    Dim x As Double
    Dim y As Double
   
    '設定圓心座標及半徑
    r = 100
    x = 150
    y = 150
   
    '取得當前時間
    h = Hour(Now)
    m = Minute(Now)
    s = Second(Now)
   
    '清除舊時鐘
    On Error Resume Next '防止第一次沒有資料可刪會錯誤中斷
    ActiveSheet.Shapes.Range(Array("Clock")).Delete
   
    '繪製時鐘圓形
    Set myshape = ActiveSheet.Shapes.AddShape(msoShapeOval, x - r, y - r, 2 * r, 2 * r)
    myshape.Name = "Clock"
    myshape.Line.ForeColor.RGB = RGB(0, 0, 0)
   
    '繪製時鐘刻度
    pi = 3.14159265359
    For i = 1 To 12
        ang = pi / 6 * (i - 3)
        x1 = x + r * Cos(ang)
        y1 = y + r * Sin(ang)
        x2 = x + (r - 10) * Cos(ang)
        y2 = y + (r - 10) * Sin(ang)
        Set myshape = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
        myshape.Line.Weight = 2
        myshape.Line.ForeColor.RGB = RGB(0, 0, 0)
    Next i
   
    '繪製時針
    ang = pi / 6 * (h - 3) + pi / 360 * m + pi / 21600 * s
    x1 = x
    y1 = y
    x2 = x + (r - 50) * Cos(ang)
    y2 = y + (r - 50) * Sin(ang)
    Set myshape = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
    myshape.Line.Weight = 4
    myshape.Line.ForeColor.RGB = RGB(255, 0, 0)
   
    '繪製分針
    ang = pi / 30 * (m - 15) + pi / 1800 * s
    x1 = x
    y1 = y
    x2 = x + (r - 30) * Cos(ang)
    y2 = y + (r - 30) * Sin(ang)
    Set myshape = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
    myshape.Line.Weight = 3
    myshape.Line.ForeColor.RGB = RGB(0, 255, 0)
   
    '繪製秒針
    ang = pi / 30 * (s - 15)
    x1 = x
    y1 = y
    x2 = x + (r - 20) * Cos(ang)
    y2 = y + (r - 20) * Sin(ang)
    Set myshape = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
    myshape.Line.Weight = 1.5
    myshape.Line.ForeColor.RGB = RGB(0, 0, 255)

End Sub
收藏 分享
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

Andy2483
　暱稱: 厚臉皮的學生

高中生Rank: 3Rank: 3

帖子
858 
主題
31 
精華
0 
積分
874 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010&2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2023-6-5 
2#
發表於 2023-3-2 12:08 | 只看該作者
本帖最後由 Andy2483 於 2023-3-2 12:11 編輯

回復 1# ML089


    前輩好久不見,謝謝前輩分享指導
這科技很厲害,會顛覆很多事情
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

rcyw

帖子
16 
主題
5 
精華
0 
積分
71 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
註冊時間
2018-11-2 
最後登錄
2023-3-12 
3#
發表於 2023-3-4 01:30 | 只看該作者
OpenAI....這個要用電話認証, 似乎中國/香港的電話都註冊不到....:(

TOP

ML089

帖子
2019 
主題
13 
精華
0 
積分
2047 
點名
16  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2023-5-4 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2023-3-5 09:19 | 只看該作者
回復 3# rcyw
我用 Chrome 開啟 chatGPT，,直接用 google 帳號 直接註冊，就可以使用。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

checkout88

帖子
10 
主題
2 
精華
0 
積分
62 
點名
0  
作業系統
Win10 
軟體版本
2016 
閱讀權限
20 
註冊時間
2021-7-23 
最後登錄
2023-5-11 
5#
發表於 2023-3-11 15:54 | 只看該作者
很好用, 我最新寫VBA都問他. 很強. 但有時候因為版本的不同, 會鬼打牆

TOP

jeffrey628litw

帖子
227 
主題
62 
精華
0 
積分
363 
點名
65  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2023-6-5 

2011兔年全勤獎章
6#
發表於 2023-3-12 07:31 | 只看該作者
chatGPT 人工智慧可以幫你練習VBA程式
幾秒鐘寫出程式真的可用，我只加了 On Error Resume Next 修正錯誤  ...
ML089 發表於 2023-2-28 09:56



    感謝前輩的教導，剛好敝人最近也有研究分享給大家。



20230223-0308 ChatGPT 註冊及使用方式 v.01.rar (760.27 KB)
1

評分人數

    • ML089: 感謝分享金錢 + 2

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2023-5-22 
7#
發表於 2023-3-13 23:55 | 只看該作者
回復 3# rcyw
呃，我在大陆都注册了，不过我问它的问题，它返回的代码几乎没有一个能用的。
世界那麼大，可我想去哪？

TOP

ML089

帖子
2019 
主題
13 
精華
0 
積分
2047 
點名
16  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2023-5-4 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
8#
發表於 2023-3-14 14:28 | 只看該作者
回復 5# checkout88

回覆中有些程序或一些參數總是會有一些無法執行，
有些是EXCEL版本的問題，有些是EXCEL VBA 與 其他VBA也有些指令不相容
但作為輔助查詢工具，真的比GOOGLE好用太多了。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2019 
主題
13 
精華
0 
積分
2047 
點名
16  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2023-5-4 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
9#
發表於 2023-3-14 14:33 | 只看該作者
回復 7# Joforn

你應該問的問題太難了或太複雜了，考倒了chatGPT
適用一般初學問題一些指令、小範例啊，真的幫助滿大的。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

jeffrey628litw

帖子
227 
主題
62 
精華
0 
積分
363 
點名
65  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2023-6-5 

2011兔年全勤獎章
10#
發表於 2023-3-26 21:59 | 只看該作者
chatGPT 人工智慧可以幫你練習VBA程式
幾秒鐘寫出程式真的可用，我只加了 On Error Resume Next 修正錯誤  ...
ML089 發表於 2023-2-28 09:56


這裡有別的AI機器人外掛： 20230223-0322 ChatGPT 及其他AI 使用方式 v.01.rar (880.12 KB)

TOP

        靜思自在 : 小事不做、大事難成。
12
返回列表 上一主題