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

[µo°Ý] ¦Û©w¸q¨ç¼Æ¦p¦ó½á­Èµ¹Àx¦s®æ

[µo°Ý] ¦Û©w¸q¨ç¼Æ¦p¦ó½á­Èµ¹Àx¦s®æ

¦Û©w¸q¨ç¼Æ¤º¦p¦ó½á­Èµ¹Àx¦s®æ,·P®¦.

¦Û©w¨ç¼Æ½á­È.rar (13.23 KB)

§ù¤p¥­

¦^´_ 2# Andy2483 ½Ð±Ð«e½ú,¬O§_¯à±Nresult[°Ñ¼Æ],¶Ç¨ì[A1]Àx¦s®æ,ÁÂÁÂ.
§ù¤p¥­

TOP

¥»©«³Ì«á¥Ñ dou10801 ©ó 2023-5-24 11:43 ½s¿è

¦^´_ 6# Andy2483 ·PÁÂ:quickfixer,Andy2483 ¨â¦ì«e½ú«üÂI,¦pªG,­n¶Ç»¼µ¹[A1]ªº¬O¤@­Ó¦r¦ê,­n¦p¦ó³B²z,·P®¦.
§ù¤p¥­

TOP

¦^´_ 9# Andy2483
«D±`·PÁ¦^ÂÐ,¸ÕµÛ¥Î¦r¦ê,MyCustomFunction("¤ôªG","½­µæ"),¦p¦ó³B²z,ÁÂÁÂ.
Option Explicit
Function MyCustomFunction(ByVal arg1 As String, ByVal arg2 As String) As String
Evaluate "test1(" & Application.Caller.Offset(-1, -1).Address(0, 0) & "," & arg1 & "," & arg2 & ")"
MyCustomFunction = ""
End Function

Function test1(c As Range, a As Range, b As Range)
c = "'" & a & b
End Function
§ù¤p¥­

TOP

¥»©«³Ì«á¥Ñ dou10801 ©ó 2023-5-25 11:48 ½s¿è

¦^´_ 4# Andy2483
¦^ÂÐ 5# quickfixer
©µ¦ù¾Ç²ß,¬O§_¥i±N[¶Ç»¼°Ñ¼Æ],¶Ç¦Ü[¨ä¥L¤u§@ªí],·P®¦.
§ù¤p¥­

TOP

¦^´_ 14# Andy2483
·P®¦«ü¾É,¤W¤F¤@½Ò[°Ñ¼Æ¶Ç»¼],ÁÂÁÂ.
§ù¤p¥­

TOP

¦^´_ 16# ­ã´£³¡ªL
·P®¦,¦h¤@ºØ¾Ç²ß¤è¦¡.
§ù¤p¥­

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD