¨Ï¥Î chatGPT ¾Ç²ß¼gµ{¦¡

ML089

chatGPT ¤H¤u´¼¼z¥i¥HÀ°§A½m²ßVBAµ{¦¡
´X¬íÄÁ¼g¥Xµ{¦¡¯uªº¥i¥Î¡A§Ú¥u¥[¤F On Error Resume Next ­×¥¿¿ù»~


https://openai.com/blog/chatgpt

chatGPT¸ß°Ý¦p¤U¡G
¦bEXCEL¸Ì­±¥ÎVBAµ{¦¡Ã¸¥X°ÊºA¶ê§Î®ÉÄÁ

chatGPT¦^ÂЦp¤U¡G
¥H¤U¬O¤@­Ó²³æªºVBAµ{¦¡¡A¥i¥H¦bExcel¤¤Ã¸»s¤@­Ó°ÊºAªº¶ê§Î®ÉÄÁ¡G

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
   
    '³]©w¶ê¤ß®y¼Ð¤Î¥b®|
    r = 100
    x = 150
    y = 150
   
    '¨ú±o·í«e®É¶¡
    h = Hour(Now)
    m = Minute(Now)
    s = Second(Now)
   
    '²M°£Â®ÉÄÁ
    On Error Resume Next '¨¾¤î²Ä¤@¦¸¨S¦³¸ê®Æ¥i§R·|¿ù»~¤¤Â_
    ActiveSheet.Shapes.Range(Array("Clock")).Delete
   
    'ø»s®ÉÄÁ¶ê§Î
    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)
   
    'ø»s®ÉÄÁ¨è«×
    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
   
    'ø»s®É°w
    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)
   
    'ø»s¤À°w
    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)
   
    'ø»s¬í°w
    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

Andy2483

¦^´_ 1# ML089


    «e½ú¦n¤[¤£¨£,ÁÂÁ«e½ú¤À¨É«ü¾É
³o¬ì§Þ«Ü¼F®`,·|ÄAÂЫܦh¨Æ±¡

rcyw

OpenAI....³o­Ó­n¥Î¹q¸Ü»{µý, ¦ü¥G¤¤°ê/­»´äªº¹q¸Ü³£µù¥U¤£¨ì....:(

ML089

¦^´_ 3# rcyw
§Ú¥Î Chrome ¶}±Ò chatGPT¡A,ª½±µ¥Î google ±b¸¹ ª½±µµù¥U¡A´N¥i¥H¨Ï¥Î¡C

checkout88

«Ü¦n¥Î, §Ú³Ì·s¼gVBA³£°Ý¥L. «Ü±j. ¦ý¦³®É­Ô¦]¬°ª©¥»ªº¤£¦P, ·|°­¥´Àð

jeffrey628litw

chatGPT ¤H¤u´¼¼z¥i¥HÀ°§A½m²ßVBAµ{¦¡
´X¬íÄÁ¼g¥Xµ{¦¡¯uªº¥i¥Î¡A§Ú¥u¥[¤F On Error Resume Next ­×¥¿¿ù»~  ...
ML089 µoªí©ó 2023-2-28 09:56

    ·PÁ«e½úªº±Ð¾É¡A­è¦n±Í¤H³Ìªñ¤]¦³¬ã¨s¤À¨Éµ¹¤j®a¡C



20230223-0308 ChatGPT µù¥U¤Î¨Ï¥Î¤è¦¡ v.01.rar (760.27 KB)

¤U¸ü¦¸¼Æ: 13

2023-3-12 07:30

Joforn

¦^´_ 3# rcyw
§c¡A§Ú¦b¤j陆³£ª`册¤F¡A¤£过§Ú问¥¦ªº问题¡A¥¦ªð¦^ªº¥N码¤L¥G没¦³¤@个¯à¥Îªº¡C

ML089

¦^´_ 5# checkout88

¦^ÂФ¤¦³¨Çµ{§Ç©Î¤@¨Ç°Ñ¼ÆÁ`¬O·|¦³¤@¨ÇµLªk°õ¦æ¡A
¦³¨Ç¬OEXCELª©¥»ªº°ÝÃD¡A¦³¨Ç¬OEXCEL VBA »P ¨ä¥LVBA¤]¦³¨Ç«ü¥O¤£¬Û®e
¦ý§@¬°»²§U¬d¸ß¤u¨ã¡A¯uªº¤ñGOOGLE¦n¥Î¤Ó¦h¤F¡C

ML089

¦^´_ 7# Joforn

§AÀ³¸Ó°Ýªº°ÝÃD¤ÓÃø¤F©Î¤Ó½ÆÂø¤F¡A¦Ò­Ë¤FchatGPT
¾A¥Î¤@¯ëªì¾Ç°ÝÃD¤@¨Ç«ü¥O¡B¤p½d¨Ò°Ú¡A¯uªºÀ°§Uº¡¤jªº¡C

jeffrey628litw

chatGPT ¤H¤u´¼¼z¥i¥HÀ°§A½m²ßVBAµ{¦¡
´X¬íÄÁ¼g¥Xµ{¦¡¯uªº¥i¥Î¡A§Ú¥u¥[¤F On Error Resume Next ­×¥¿¿ù»~  ...
ML089 µoªí©ó 2023-2-28 09:56

³o¸Ì¦³§OªºAI¾÷¾¹¤H¥~±¾¡G 20230223-0322 ChatGPT ¤Î¨ä¥LAI ¨Ï¥Î¤è¦¡ v.01.rar (880.12 KB)

¤U¸ü¦¸¼Æ: 14

2023-3-26 21:59