shuo1125

¦^´_ 30# singo1232001
¼y¤j¦n~
³o»ò±ß¤FÁÙÀ°¦£¤@ª½½Õ¸Õ¡C
©âªÅ§Ú¦b¬Ý¡A¹ïSQL¬Û·í­¯¥Í....
¦­ÂI¥ð®§¥ý¡A·PÁ§A¤F~

singo1232001

¦^´_ 31# shuo1125


    Xl0000108_TESTv01z05.zip (680.51 KB)

¤U¸ü¦¸¼Æ: 4

2023-12-21 01:59

¤]¥i¥H°Ñ¦Ò¦h¦æ©ñ¤u§@ªíª© SQL»yªk¥þ³¡§ï©ñ¤u§@ªí ªº¼gªk

Sub ¬d©ñ¤u§@ªíºë²ª©()  '¥i·f°t ªí"SQL GPT4prompt" ¸ò "SQL" ¤u§@ªí°ÝGPT©ñ»yªk
i = Split("Provider=Microsoft.,Jet.OLEDB.4,.0;Extended Properties=Excel ,8,.0;Data Source=", ",")
If Application.Version > 12 Then i(1) = "ACE.OLEDB.12": i(3) = 12
Set cn = CreateObject("adodb.connection"): cn.Open Join(i, "") & ThisWorkbook.FullName

Set sj = Sheets("¥æ©ö©ú²Ó2"): Set SQ = Sheets("SQL")
For i = 8 To 40 Step 16
Set s = Sheets(sj.Cells(i - 2, "B").Value)
E1 = "'%" & sj.Cells(i - 2, "E") & "%'"
B1 = "[" & sj.Cells(i - 2, "B") & "$A1:T]  "
    For j = 1 To 9
    sj.Cells(i, SQ.Cells(j, 3).Value).Resize(12, 1) = 0
    repSQL = Replace(Replace(SQ.Cells(j, 2), "'%GN%'", E1), "[M©ú²Ó±b$A1:T]", B1)
    sj.Cells(i, SQ.Cells(j, 3).Value).CopyFromRecordset cn.Execute(repSQL)
    Next
Next
End Sub

shuo1125

¦^´_ 12# ­ã´£³¡ªL
­ã¤j¤£¦n·N«ä¦A¥´ÂZ~~
½Ð°Ý[¥æ©ö©ú²Ó!AL:BF]¾lÃB¡A³o¸Ì¦³­Óª¬ªp....
­Y¸Ó¤ëµL¥æ©ö©ú²Ó¡A¥i¥HÅý¾lÃB©Óŧ«e´Á¼Æ¦r¶Ü?
<»¡©ú>
-----------------------------------------------------------------------------
1¤ë¾lÃB$100¡AµM«á¤¤¶¡³£µLÅܤÆ...¨ì12¤ë¾lÃBÅÜ$150¡A
¦¹®É1¤ë¦³¾lÃB$100¡A­Y¤¤¶¡³£¨SÅܤơA¨º2-11¤ë³£·|¬O¤@¼Ë¾lÃB$100¡A
¥u¦³12¤ë·í¤ë¾lÃB·|Åܬ°¬O$150¡C
11201 $100
11202 $100
11203 $100
11204 $100
11205 $100
11206 $100
11207 $100
11208 $100
11209 $100
11210 $100
11211 $100
11212 $150
-----------------------------------------------------------------------------
­Y¥H±z­ì´£¨Ñªº¥N½X¦³¿ìªk¹ê²{¶Ü?
·PÁ±z!!!

­ã´£³¡ªL

¦^´_ 33# shuo1125

¥[¤@¬q//
Xl0000108_TESTv02.rar (416.14 KB)

¤U¸ü¦¸¼Æ: 10

2024-1-19 14:32

shuo1125

¦^´_ 34# ­ã´£³¡ªL
§Ú·Q¯}ÀY³£µLªk¹ê²{¡A
­ã¤j¯uªº¤Ó¯«¤F....§¹¥þ²Å¦X»Ý¨D¡A¤Ó·PÁ¤F!!!!

Andy2483

¦^´_ 34# ­ã´£³¡ªL
¦^´_ 35# shuo1125


    ½Ð±Ð«e½ú
ÁöµM12¤ë¨S¦³¥æ©ö,¦ý¬O¦pªGAV19³o¾lÃBªº­È­n©ÓŧAV18ªº¾lÃB 8686996 ¸Ó¦p¦ó³B²z

­ã´£³¡ªL

¦^´_ 36# Andy2483


±N and m >= mx ¥h±¼~~

­ã´£³¡ªL

¦^´_ 35# shuo1125

³Ì¤j¤ë¥÷­nÂk¹s
y = 0: Erase Brr: Mx = 0

Andy2483

¦^´_ 38# ­ã´£³¡ªL


    ÁÂÁ«e½ú §Ú¦A§ä®É¶¡¸Õ¸Õ¬Ý

shuo1125

¦^´_ 36# Andy2483
¦^´_ 38# ­ã´£³¡ªL
·PÁÂAndy¤j§â¥i¯à©Ê³£·Q¶i¥h¤F.....
¤]·PÁ­ã¤j¦A¤TÀ°¦£!!
´ú¸Õµo²{¦³­Ó¸û¯S®íªºª¬ªp¾lÃB·|²§±`¡A´N¬O·í¸Ó¤ë¥æ©ö«á¾lÃB­è¦n¬°0¡A¥B©¹«á¤ë¥÷¬ÒµL¥æ©ö..
·|¾É­P·í¤ë¤Î«áÄò¾lÃB¤]²§±`...
¥H¤U¨Ò¤l:
1-10¤ë¦³¨ä¥æ©ö»P¾lÃB¡A11¤ë¥æ©ö«á¾lÃBÅÜ0¡A12¤ë­è¦n¤]µL¥æ©ö¡A
Åܦ¨11211.11212¾lÃB³£²§±`¤F¡C
-----------------------------------------------------
¹ê»Ú                                                            ¹ê»Ú
11201 $150   11207 $150
11202 $130   11208 $150
11203 $110   11209 $150
11204 $100   11210 $150
11205 $150   11211 $0
11206 $140   11212 $0
------------------------------------
°õ¦æ
11201 $150   11207 $150
11202 $130   11208 $150
11203 $110   11209 $150
11204 $100   11210 $150
11205 $150   11211 $150
11206 $140   11212 $150
------------------------------------
Brr(x + 4)(M, 0) = 0 ³o¬q§PÂ_¦¡ªºÃö«Y...¤£ª¾¹D¦p¦ó­×¥¿?
ÁÂÁÂ!!!