欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

昨天在論壇上看到一個(gè)會(huì )員的公式，挺有意思，分享給大家。

    =HYPERLINK('tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=QQ號碼','開(kāi)始對話(huà)')
    使用方法：

       在單元格中輸入上述公式，并把 QQ號碼 替換成你的好友號碼，然后點(diǎn)擊生成的鏈接，就會(huì )直接打開(kāi)QQ聊天界面，當然你的QQ軟件需要在開(kāi)啟的狀態(tài)。

    公式原理：

       HYPERLINK函數可以在excel單元格中建立指向特定目標的超鏈接，可以是excel任一文件的任一個(gè)單元格，也可以是網(wǎng)址。上述公式就是建立和騰迅的即時(shí)聊天網(wǎng)址的鏈接?！伴_(kāi)始對話(huà)”是在單元格顯示的文字。

    附煙花版主提供的利用VBA打開(kāi)聊天界面的代碼，懂VBA的同學(xué)可以收藏一下。

Option Explicit

Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' _

                              (ByVal hwnd As Long, ByVal lpszOp As String, _

                               ByVal lpszFile As String, ByVal lpszParams As String, _

                               ByVal LpszDir As String, ByVal FsShowCmd As Long) _

                               As Long

Sub teset()

    ShellExecute 0, 'open', 'tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=QQ號碼', vbNullString, vbNullString, 1

End Sub