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

[µo°Ý] §ì¨ú¦Û­qªí³æ¨ú±oTextboxªº­È

[µo°Ý] §ì¨ú¦Û­qªí³æ¨ú±oTextboxªº­È

«ö¤U«ö¶s
Textbox1©ñ¤Jºô§}
Textbox2¦Û­q¦WºÙ
«ö¤U«ö¶s
©óE1¥N¤J­È¡A¦ý¬O«oµLªk¥¿½TÅã¥ÜTextboxªº­È¡A
ÁٽбиӦp¦ó¸Ñ¡AÁÂÁÂ

°ÝÃD_1014.rar (17.02 KB)

¥»©«³Ì«á¥Ñ samwang ©ó 2021-10-15 11:49 ½s¿è

¦^´_ 1# av8d

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
UserForm1.Show
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
TB1 = TextBox1.Value
TB2 = TextBox2.Value
[E1] = "=HYPERLINK(""" & TB1 & """, """ & TB2 & """)"
Unload Me
End Sub

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2021-10-16 19:20 ½s¿è

¦^´_ 2# samwang


    ­ì¨Ó¬O" µ¹ªº¼Æ¶q¦³»~¡A
    «Ü·PÁ±zªº¸Ñ´b¡A§Ú·|§V¤O¾Ç²ßªº¡AÁÂÁ¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD