excel版mtv，强烈震撼，不服不行！！

ldy

看起来挺帅，其实论坛上贴这种字符有个技巧。
要禁用URL
禁用表情
全选字符后，选宋体 ，在吧字号改为 1

lxislt

新手，下来看看

HHAAMM

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@+--------------+-------------------------------++++++**@@@@@@@@@@@@@@@@@@@@@@@@@@@**++++++++*********@@@@@@@@@@@@@@@@@
@+---------------------------------------------++**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@***+++++++******@@@@@@@@@@@@@@@@@
@----------------------------------------------*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*************@@@@@@@@@@@@@@@@
@--------------------------------------------**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*********@@@@@@@@@@@@@@@@
@-------------------------------------------*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*********@@@@@@@@@@@@@@@@
@----------------------------------------+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@********@@@@@@@@@@@@@@@@
@--------------------------------------**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@**+****@@@@@@@@@@@@@@@@
@-------------------------------------*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@******@@@@@@@@@@@@@@@@
@------------------------------------*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@****@*@@@@@@@@@@@@@@
@-----------------------------------+@@@@@@@@@@@@@@@@@@@@@@@@@@*****************@@@@@@@@@@@@@@@@@@@**+***@@@@@@@@@@@@@@
@-----------------------------------+@@@@@@@@@@@@@@@@@@@@@@*********************@@@@*****@@@@@@@@@@@*+***@@@@@@@@@@@@@@
@--------------------------- ----  -*@@@@@@@@@@@@@@@@@@@@***++++++++++++++++++*************@@@@@@@@@*+***@@@@@@@@@@@@@@
@-------------------------         +*@@@@@@@@@@@@@@@@@@@*+++++++++++++++-----++*****+++++**@@@@@@@@@*+***@@@@@@@@@@@@@@
@-----------------------          -+*@@@@@@@@@@@@@@@@@@*+++----+++++----------++++++++++++***@@@@@@@*+***@@@@@@@@@@@@@@
@---------------------            -**@*@@@@@@@@@@@@@@@*+------------------------++-----+++++*@@@@@@@*+****@@@@@@@@@@@@@
@------------------               -****@@@@@@@@@@@@@@*++-------++++++++++---+++------++++++***@@@@@@******@@@@@@@@@@@@@
@----------------                 ++**@@@@@@**@@@@***+----------+++++*******+*++++++**********@@@@@@******@@@@@@@@@@@@@
@------------  -                  -+***@@@@@@*@@@**++------------------+*************@********@@@@@@******@@@@@@@@@@@@@
@----------                        --+****@@@**@**+---------------------++****++++****++++++**@@@@@@*++***@@@@@@@@@@@@@
@---------                         -+*+-+**@******--    ------++++***@@******+---+*****+++++**@@@@@*+++***@@@@@@@@@@@@@
@-------                           -+*--+++***@**+-     --------++********+++--  -+**@*@@@@@**@@@*+++++***@@@@@@@@@@@@@
@---------                         -++-++**+*****+-      -----------+++++------  -++++***@@***@@*++++++***@@@@@@@@@@@@@
@-------                           --+-+**+- -+*++-         --------+++-----      -++++++++++***+++++++***@@@@@@@@@@@@@
@-------                            -+--+*++ -++---         ------+++-----        -++++***+++++++++++++***@@@@@@@@@@@@@
@-------                             -+-- -+-----          ---------------        --+++++++++++++++++++***@@@@@@@@@@@@@
@-------                             ----     ---         -------- -------         -++++++++*++++++++++***@@@@@@@@@@@@@
@-------                             -+     ----           ------- -------   ------+++++++++*++++++++++***@@@@@@@@@@@@@
@-------                              -----+-               ---  ----------*@@@*+***@*+++++**++-+++++++***@@@@@@@@@@@@@
@---------                               ++-                   -----------+++++******++++++**++-+++++++***@@@@@@@@@@@@@
@---------                                -                   ----------------+**+++++++++**++-++++++++***@@@@@@@@@@@@@
@---------                                --                  --------------------+++++++**+++-++++++++***@@@@@@@@@@@@@
@---------                      --+++*****+-                  -------------++***+******+++*++-+++++++++***@@@@@@@@@@@@@
@---------                 --**@@@@@@@@@@@*-                    ----++*******@@@@@@@@***++*++++++++++++***@@@@@@@@@@@@@
@------------            -**@@@@@@@@@@@@@@*-                     -++**+++++++++**+********+++-+++++++++*@@@@@@@@@@@@@@@
@-------------        -+**@@@@@@@@@@@@@@@@@*    ---          ----++++---+++***@@@@********+++++++++++++*@@@@@@@@@@@@@@@
@-------- ---- -------+*@@@@@@@@@@@@@@@@@@@@-   -------- --------+++-+++++***************++--++++++++++*@@@@@@@@@@@@@@@
@----------+**@@@***@*@@@@@@@@@@@@@@@@@@@@@@@---------------------------++++++++++*******++++++++++++++*@@@@@@@@@@@@@@@
@-------+**@@@@@@@@****@@@@@@@@@@@@@@@@@@@@@@@*------------+++-------------+++*********@@@@@**+++++++++@@@@@@@@@@@@@@@@
@------+***@@@@@@@@@@@**@@@@@@@@@@@@@@@@@@@@@@@@+-------+++++++++++++++++++**********@@@@@@@@@@@**+++++@@@@@@@@@@@@@@@@
@----+**@*@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@@@@@@*+++++++++++++*********@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@@@@@
@-++**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@**+++***********@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@***@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*********@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@***@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

HHAAMM

可以了！！
呵呵，ldy版版眼神不好呀，这也叫帅！！

[ 本帖最后由 HHAAMM 于 2008-11-7 11:22 编辑 ]

cd0715

强贴占个位置先

咖啡可乐

强烈震撼呀！
不服不行！

lzzgzby

我看了半天，还在云里雾里！
叹为观止！学习!

[ 本帖最后由 lzzgzby 于 2008-11-8 02:01 编辑 ]

zgw1979_job

下面这段程序好像没用到啊，应该是实现的另一种方法，就是用TXT文件来保存字符。
这是原文件中有的吗？还是哪位加上去的?
Sub LoadVideo() '装载视频
Dim i As Long
Dim impFile, temp, vFrame As String
Dim fs, fi

Set fs = CreateObject("Scripting.FileSystemObject")
Sheet1.Range("Q:Q").ClearContents

'LOGO
impFile = ThisWorkbook.Path & Application.PathSeparator & _
          "logo-outline.txt"
Set fi = fs.OpenTextFile(impFile, 1)

'Read the logo file
i = 99
vFrame = ""
Do While fi.AtEndOfStream <> True
   temp = fi.ReadLine
   vFrame = vFrame & temp & vbLf
Loop
'Use Q99 for the logo
Sheet1.Cells(i, 17).Value = vFrame
fi.Close

'VIDEO
impFile = ThisWorkbook.Path & Application.PathSeparator & _
          "12fps-45sec-cut.txt"
Set fi = fs.OpenTextFile(impFile, 1)

'Read the video file
i = 100
vFrame = ""
Do While fi.AtEndOfStream <> True
   temp = fi.ReadLine
   vFrame = vFrame & temp & vbLf
   If temp = "" Then
      Sheet1.Cells(i, 17).Value = vFrame
      vFrame = ""
      i = i + 1
   End If
Loop
fi.Close

Set fs = Nothing
Set fi = Nothing

End Sub

habf2008

狠狠的赞一个

xingye1001

强烈震撼，不服不行！！