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

[Âà¶K] Excel ¶]°¨¿O

[Âà¶K] Excel ¶]°¨¿O

¤§«e¦b¬Y­Óºô¯¸¤W¬Ý¨ì¦³¤H¤À¨Éªº ©Ò¥H¤]¤£§[¶Þµ¹¤j®a
µ{¦¡½X¦p¤U:
Option Explicit

Sub auto_open()
    addhtmlobj (CStr(Sheet1.Range("A1")))
End Sub

Sub addhtmlobj(newstr As String)
    Dim fs, a, fn
    fn = ThisWorkbook.Path & "\x.htm"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(fn)
    a.WriteLine ("<body scroll=""no"" topmargin=""0"" leftmargin=""0""><marquee>" & _
        newstr & "</marquee></body>")
    a.Close
    Sheet1.WebBrowser1.Navigate ThisWorkbook.Path & "\x.htm"
End Sub

¶]°¨¿O.rar (11.58 KB)

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD