ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤u§@ªí¤ñ¹ï,§ï°}¦C¤ñ¹ï¥d¦í,½Ð¦U¦ì¥ý¶i«üÂI

[µo°Ý] ¤u§@ªí¤ñ¹ï,§ï°}¦C¤ñ¹ï¥d¦í,½Ð¦U¦ì¥ý¶i«üÂI

¤u§@ªí¤ñ¹ï,§ï¥Î°}¦C¤ñ¹ï¥d¦í,½Ð¦U¦ì¥ý¶i«üÂI,[°}¦C¤ñ¹ï1]¤u§@ªí,array()¦r¦ê¤Óªø,¦p¦ó³B²z,ÁÂÁÂ.

°}¦C¤ñ¹ï.rar (41.41 KB)

§ù¤p¥­

¦^´_ 1# dou10801

¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´»Ý¨D¡A¥i§_½Ð±z»¡©ú¸Ô²Ó»Ý¨D¡A¤ñ¹ï¤°»ò¡Aµ²ªG§e²{¤°»ò? .... ÁÂÁÂ

TOP

¦^´_ 2# samwang samwang©êºp¨SÁ¿²M·¡,­ì¥Î[¼Æ¾Ú]-¤u§@ªí,§@¨Ì¾Ú¦b[¤u§@ªí¤ñ¹ï]-¤u§@ªí¬d[¼Æ¾Ú]-¤u§@ªíªºªº¤º®e¤ñ¹ï,¨S°ÝÃD.
·Q¥Î[¼Æ¾Ú]-¤u§@ªíªº¤º®e¥Î°}¦C¥N´À,¦ýarray()¤º¦r¦ê¤Óªø,vbaµLªk¨Ï¥Î.½d¥»¦b,[°}¦C¤ñ¹ï1]-¤u§@ªí,ÁÂÁÂ.
§ù¤p¥­

TOP

¦^´_ 3# dou10801

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, T$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Sheets("¼Æ¾Ú").[a1].CurrentRegion
For i = 2 To UBound(Arr): T = Arr(i, 1): xD(T) = Arr(i, 2): Next
With Sheets("¤u§@ªí¤ñ¹ï")
    Arr = .[b1].CurrentRegion
    For i = 2 To UBound(Arr): T = Arr(i, 1): Arr(i, 2) = xD(T): Next
    .[b1].Resize(UBound(Arr), 2) = Arr
End With
End Sub

TOP

¦^´_ 4# samwang ¦pªG¤£­n½Õ¥ÎSheets("¼Æ¾Ú").¤ºªº¸ê®Æ(¦p¦³500µ§),ª½±µ¥Îarray()§â500µ§®M¤J¦r¦ê·|«ÜªøvbaµLªk¨Ï¥Î.[¨Ò]array(001,002,003,004,005,006,007,..........................498,499,500).
§ù¤p¥­

TOP

¦^´_ 5# dou10801

¸ê®Æ³o»ò¦h¤£±q¼Æ¾Úª½±µ½Õ¥Î¡A¤Ï¦Ó¤@µ§¤@µ§¿é¤J¦³ÂI¤£²Å¦X±`²z§a? ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ dou10801 ©ó 2022-1-24 14:04 ½s¿è

¦^´_ 6# samwang ·PÁÂ¥ý¶i¾É¥¿,¦]¦³¤º³¡­«­n¸ê®Æ©È¦b¤u§@ªí³Q¤H§ó°Ê,·Q¼g¦bvba¤º,¥i¯àÅÞ¿è«ä¦Ò¿ù»~,·P®¦.
§ù¤p¥­

TOP

¦^´_ 7# dou10801
³æ¯Â»yªk°ÝÃD¡A¦p¤U"ªÅ®æ _" ¡B¥[¤å¦r""¡AÁÂÁÂ

Arr = Array(1, 2, 3, _
4, 5)
Brr = Array("¦ó", _
"§f", "¬I", "±i", "¤Õ")

TOP

¨â­ÓARRAY¤¬¬Û°Ñ·Ó, 500¦h­Ó,
ºûÅ@©Î­×§ï®É«Ü®e©ö¥X¿ù, ¨Ò¦p­n§ó§ï²Ä109­Ó¼Æ¦r©Î¤å¦r, ÁÙ­n²Ó²Ó§ä¹ï¦ì,
¤£¬O­Ó¦n¤è®×~~

¥Î¤@¤u§@ªí§@°Ñ·Ó, ±N¸ê®ÆÄæÁôÂëá, ¦A±N¤u§@ªí«OÅ@¦A³]¤£¥i¨£~~

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-1-26 02:50 ½s¿è

¦^´_ 1# dou10801

¤£¦n°µ «ÜÃø Ãø¦b¦r¤¸Âà´«

¦]¬°ÁcÅé¦r¦³«Ü¦h¬O¯S®í¦r  ­Y¦³Â²Åé¤]¬O  ¶i°}¦C©ÎªÌ¦r¨å ·|ÅÜ"?" ²Å¸¹  ´N¤ñ¤£¤F

¥u¯à¥Îuri ¦r¤¸¨Ó°µ

©Ò¥H§A­Y­nª½±µ¼g¤Jvba¸Ì­± ¥u¯à¼g¤J uri«áªº½s½X

½s½X»P½s½X¤ñ¹ï«á ¤ñ¨ì¬Û¦Pªº   ¤§«á¨ú±o¼Æ¦r µM«á¤å¦r¦b¾a¤Ï½s½X¸Ñ¦^¨Ó

¥Ñ©ó2013«áªºexcel ¦³big5 Âàurlªº¥\¯à
¦ý¨S¦³urlÂà¦^big5 ªº¥\¯à
»Ý­ncreateobject¤Þ¥Î"htmlfile" §Q¥Î¸Ó¤º®wªº¥\¯à ¨Ó¨ó§UÂà´«½s½X
­Yexcel¥»¨­¨S¦³2013¥H¤W
³sbig5Âàurl ³£¤£¦æ
´N¥u¯à¥Î  sub encodeURIComponent ¨Ó¨ó§U Âà´«½s½X

°}¦C¤ñ¹ï¯S®í¦r¤¸ v1.zip (74.2 KB)

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD