#亿万# S05E10
我的天 我直呼好家伙 这俩真就互相喜欢
俩人本是好朋友 然后互相有好感 但你我都不说 最后各自结婚生子 婚姻破裂 千帆过尽 才意识到一直陪伴在身边的好朋友才是自己真正所爱 这剧情太落俗了 我不喜欢
第六集的时候我就猜到Axe喜欢Wendy 现在也一直称呼为Wend（小温）wendy 离婚后好像也不去看孩子？Chuck 一人带俩娃 给孩子准备的早餐就是冷面包加煎蛋
#Billions#

给大家一个福利：带上耳机就可以在办公室偷偷听股票价格，还不会被发现也不会影响工作：

1、打开一个Excel文件，最好是你正在做的Excel文件，把这段代码复制到Excel后台vba编辑器中（快捷键Alt+F11可以调出）；

2、修改你要看的股票代码，目前这段代码只支持一只股票，如果会for循环其实可以添加n个你关注的股票，稍微修改下代码即可；

3、修改播报间隔时间，目前是300秒即5分钟播报一次价格，根据需要你可以自己修改这个值。

4、戴上耳机，点击运行，打开声音，注意一定要戴耳机哈，不然全办公室都听见了。

搞定，就这么简单，因为是在后台运行也不影响本身excel的操作，你该干什么还继续干什么，所以老板是没办法发现的！知识点：Excel是可以说话的，代码运行间隔期并不影响你的excel操作。

——————
Sub StockPriceVoice()

Dim i As Integer, StockCode As String, StoPrice As String, n1 As Integer, n2 As Integer, string_body As String, arr As Variant, str As String, TM As Date

StockCode = "600519" '股票代码可以自己修改

For i = 1 To 100

With CreateObject("WinHttp.WinHttpRequest.5.1")

.Option(6) = False

.Open "GET", "https://t.cn/RZKyP6M|s&i=" & StockCode & "&n=mainQuote&c=l&_=202955", False

.send

StoPrice = .responsetext

End With

n1 = InStr(1, StoPrice, "[")

n2 = InStr(1, StoPrice, "]")

string_body = Mid(StoPrice, n1 + 4, n2 - n1 - 4)

arr = Split(string_body, ",")

str = arr(2) & "最新价" & arr(11) & "最高价" & arr(9) & "最低价" & arr(10) & "换手率" & arr(24) & "%"

Application.Speech.Speak str

TM = Timer

While Timer < TM + 300 '每300秒即5分钟循环刷新并播报一次数据

DoEvents

Wend

Next i
End Sub

【OSEN】#RedVelvet[超话]# #Wendy[超话]# ，首张个人专辑双主打曲...自传故事→同感+安慰预告

将于4月5日Solo出道的Red Velvet Wend将以双主打曲，展现“音色女神”的魅力主唱。

WENDY的第一张迷你专辑《Like Water》将于4月5日韩国时间下午6点在各大音乐网站上公开全部歌曲音源，特别是这张专辑收录了包括双主打《When This Rain Stops》和《Like Water》在内的5首歌曲，展现了WENDY充满魅力的音色、出色的唱功和温暖的感性，预计将吸引全球的音乐迷。

作为双主打曲之一的《When This Rain Stops》是一首钢琴演奏和WENDY温暖的嗓音相结合的慢歌，从细腻的感情表现到爆发性的高音，突出生动感十足的歌唱，描写WENDY自传故事的歌词中包含了“在生活疲惫的瞬间，可以暂时休息”的共鸣和安慰，令人期待。

另外，WENDY的首张个人专辑《Like Water》将于4月5日发行。