美聯儲傳
The creature from jekyll island
終於有中文版了，雖然是簡體字，但閱讀下來，大部份的內容，幾乎都沒問題。
超越時光，來回顧金融秘辛。
有多少不為人知的內幕。
當銀行不再是銀行。
2018年11月13日 星期二
EXCEL-用INDEX + MATC + 陣列，找出多條件的資料
EXCEL-用INDEX + MATC + 陣列，找出多條件的資料
原先使用INDEX + MATCH去做查詢，但一直都無法成功。
後來改用做二次的INDEX+MATCH，但仍然會有少數不符合的情形發生。
多發生於在，雖然第一次的INDEX+MATCH已先搜出，但第二層的INDEX+MATCH仍會有對應不到正確的資料。
在網上搜尋了一番後，找到陣列的方式，如法泡製。
另一個用INDEX + MATCH + 陣列的方法，
MATCH(做出雙重條件的用法)。
原來陣列這麼好用喔!!!
操作影片
2018年11月2日 星期五
EXCEL-使用陣列做分頁查詢
在小惡魔(Mobile01)間逛文章時，發現在文書處理中有一篇主旨(問題:excel利用查詢帶出相關內容)
進入查看文章中的問題為，使用分頁薄查詢。(分頁薄，指的是有二個檔案，第一個檔案中有"總表"分頁，用第二個檔案，有"查詢"分頁，去查詢第一個檔案中的資料。)
這一部份，還真的完全不熟，查詢了幾篇相關函數文章，也一直無法符合的查詢功能。
原先用INDEX + MATCH，但查詢出來的部份，若來源資料本身沒有做好排序(由小到大)或(由大到小)，其效果不符提出者想要的功能。
2018年10月16日 星期二
零股紀念品-挑股到領取
零股紀念品-挑股到領取
以下用2018年聯電(2303)為例來看股東常會、零股買進、電子投票、領取紀念品時間。
其中的最後買進日(紅色區)，要特別注意。
在這之前必需持有該公司的股數(不限千股、零股)，才能繼續之後的補單、電投、領取紀念品。
電投在2018年開始大量執行(零股一定要電投才能有機會領到紀念品)，看甘特圖中的(綠色區)。
除非股東親自到股東會場領取紀念品，否則電投是零股領取紀念品的最佳方式。
用EXCEL做出甘特圖，操作方式:
2018年10月15日 星期一
2018年10月7日 星期日
假買屋真詐財-影片整理
假買屋真詐財-系列影片整理
真人真事，詐騙讓受害人入套的手法，值得多多了解。
詐騙手法層出不窮，了解越多，越能保護自己。
魔鬼總是藏在細節裡，你能發現嗎?
房屋沒貸款的，由買方自找代書、買賣簽約內容。
都是一系列的步局，花些時間看完以下影片吧。
以下影片中主角
陳國帥,沈咨凡,朱克立,林俊誠,林榮皓,周建璋,張香堯,李孟烽,江欣耘(女),林芝宇(女)...這些名字大家記住
房屋沒貸款的，由買方自找代書、買賣簽約內容。
都是一系列的步局，花些時間看完以下影片吧。
以下影片中主角
陳國帥,沈咨凡,朱克立,林俊誠,林榮皓,周建璋,張香堯,李孟烽,江欣耘(女),林芝宇(女)...這些名字大家記住
《夢想街之全能事務所》 - 假買房詐騙案EP01 網路獨播版
獨家...假買房真詐騙？還是買賣糾紛？ 當事者雙方「首次對質」！
《夢想街之全能事務所》 - 假買房詐騙案EP02 網路獨播版
假買房真詐騙？受害者現身說法！ 賣房財屋兩失 為何沈代書喊冤？
《夢想街之全能事務所》 - 假買房詐騙案EP03 網路獨播版
假買屋真詐騙？還是買賣糾紛？房子尾款收不到 竟變入股金？
《夢想街之全能事務所》 - 假買房詐騙案EP04 網路獨播版
完美騙局？買賣糾紛？關鍵人物對質 真相越來越明！？
《夢想街之全能事務所》 - 假買房詐騙案EP05 網路獨播版
真詐騙？假糾紛？賣屋賣到財屋兩失 獨家內幕大追蹤！
《夢想街之全能事務所》 - 假買房詐騙案EP06 網路獨播版
詐騙？糾紛？40多案竟都有驚人巧合 公部門終於動起來 北市地政局要出手了
《夢想街之全能事務所》 - 假買房詐騙案EP07 網路獨播版
假買房真詐騙？買賣糾紛？受害者血本無歸？ 集團「步步精心」！？
《夢想街之全能事務所》 - 假買房詐騙案EP08 網路獨播版
假買房真詐騙政府動了！議員質疑內神通外鬼？
《夢想街之全能事務所》 - 假買房詐騙案EP09 網路獨播版
假買房真詐騙！議員質疑內神通外鬼？ 市長允諾成立專案小組！
《夢想街之全能事務所》 - 假買房詐騙案EP10 網路獨播版
連90歲老人棺材本都騙！詐騙集團喪盡天良 檢調別再輕放！
《夢想街之全能事務所》 - 假買房詐騙案EP11網路獨播版
爽休一天警局一日遊？ 詐騙集團幾乎全放了！
以下是李慶元議員市政總質詢的資料
2018年10月4日 星期四
零股紀念品-必買股(原因分析)
股東紀念品-必買股(原因分析)
股東紀念品中，有某些公司是必買的(不論零股或千股)，只要買進後，持續持有股數，至少每年都能領取到紀念品。
其原因不外乎，每年皆有發放紀念品、經濟價值高、方便領取等優先選項。
禮券類的就是每年最佳必買進的項目，在股東常會的最後買進日前，就需早早買進。
以下是2018年實際領取到的禮券面額。
(以一個人領取為計算)
無面額的禮卷，暫不列入面額計算中。
光是面額總計扣除領取成本後，仍有剩餘價值。
2018年10月1日 星期一
更改資料標籤工具
一直在網路上尋找，變更EXCEL圖表標籤的工具。
其巨集內容如下。存放於部落格備用，該工具可以省去不少人工修改操作。
簡體內容變亂碼，重新修改成看的懂內容。
Option Explicit
Sub DataLableChange()
Dim I%, LblCnt%, iRows%, iCols%
Dim shnm$, sn$, Msg$
Dim rngLbl As Range
Select Case TypeName(Selection)
Case "DataLabel"
sn = Selection.Parent.Parent.Name
Case "DataLabels"
sn = Selection.Parent.Name
Case "Series"
sn = Selection.Name
Case Else
MsgBox "請先選擇要變更的標籤,再執行此巨集", vbOKOnly, "尚未選擇要變更的資料標籤"
Exit Sub
End Select
Err.Clear: On Error Resume Next
Set rngLbl = Application.InputBox("請輸入標籤所引用的區域,可以用滑鼠選擇區域", "標籤的引用區域", , , , , , 8)
Err.Clear: On Error GoTo 0
If rngLbl Is Nothing Then Exit Sub
iRows = rngLbl.Rows.Count
iCols = rngLbl.Columns.Count
LblCnt = ActiveChart.SeriesCollection(sn).Points.Count
shnm = rngLbl.Parent.Name
If Application.Max(iRows, iCols) < ActiveChart.SeriesCollection(sn).Points.Count Then
Msg = MsgBox("所引用的區域與標籤區域數量不符" & Chr(10) & "選""Yes""依選擇區域更改" & Chr(10) & "選""No""重新選擇區域", vbYesNo, "警告")
Select Case Msg
Case vbYes
LblCnt = Application.Max(iRows, iCols)
Case vbNo
Exit Sub
End Select
End If
Application.ScreenUpdating = False
On Error Resume Next
With ActiveChart.SeriesCollection(sn)
For I = 1 To LblCnt
Err.Clear
.Points(I).ApplyDataLabels
If Err.Number = 0 Then
If iRows > iCols Then
.Points(I).DataLabel.Text = "='" & shnm & "'!" & rngLbl.Cells(I, 1).Resize(1, iCols).Address(ReferenceStyle:=xlR1C1)
Else
.Points(I).DataLabel.Text = "='" & shnm & "'!" & rngLbl.Cells(1, I).Resize(iRows, 1).Address(ReferenceStyle:=xlR1C1)
End If
End If
Next
End With
Err.Clear: On Error GoTo 0
Application.ScreenUpdating = True
End Sub
其巨集內容如下。存放於部落格備用，該工具可以省去不少人工修改操作。
簡體內容變亂碼，重新修改成看的懂內容。
Option Explicit
Sub DataLableChange()
Dim I%, LblCnt%, iRows%, iCols%
Dim shnm$, sn$, Msg$
Dim rngLbl As Range
Select Case TypeName(Selection)
Case "DataLabel"
sn = Selection.Parent.Parent.Name
Case "DataLabels"
sn = Selection.Parent.Name
Case "Series"
sn = Selection.Name
Case Else
MsgBox "請先選擇要變更的標籤,再執行此巨集", vbOKOnly, "尚未選擇要變更的資料標籤"
Exit Sub
End Select
Err.Clear: On Error Resume Next
Set rngLbl = Application.InputBox("請輸入標籤所引用的區域,可以用滑鼠選擇區域", "標籤的引用區域", , , , , , 8)
Err.Clear: On Error GoTo 0
If rngLbl Is Nothing Then Exit Sub
iRows = rngLbl.Rows.Count
iCols = rngLbl.Columns.Count
LblCnt = ActiveChart.SeriesCollection(sn).Points.Count
shnm = rngLbl.Parent.Name
If Application.Max(iRows, iCols) < ActiveChart.SeriesCollection(sn).Points.Count Then
Msg = MsgBox("所引用的區域與標籤區域數量不符" & Chr(10) & "選""Yes""依選擇區域更改" & Chr(10) & "選""No""重新選擇區域", vbYesNo, "警告")
Select Case Msg
Case vbYes
LblCnt = Application.Max(iRows, iCols)
Case vbNo
Exit Sub
End Select
End If
Application.ScreenUpdating = False
On Error Resume Next
With ActiveChart.SeriesCollection(sn)
For I = 1 To LblCnt
Err.Clear
.Points(I).ApplyDataLabels
If Err.Number = 0 Then
If iRows > iCols Then
.Points(I).DataLabel.Text = "='" & shnm & "'!" & rngLbl.Cells(I, 1).Resize(1, iCols).Address(ReferenceStyle:=xlR1C1)
Else
.Points(I).DataLabel.Text = "='" & shnm & "'!" & rngLbl.Cells(1, I).Resize(iRows, 1).Address(ReferenceStyle:=xlR1C1)
End If
End If
Next
End With
Err.Clear: On Error GoTo 0
Application.ScreenUpdating = True
End Sub
2018年9月26日 星期三
零股紀念品-成本與領取物品
零股紀念品-成本與領取物品
以下為中鋼個人持有成本及歷年領取的物品
光是紀念品的價值，隨著持有期間，已遠超過股票成本。
尚未包括配息的部份。
光是鈦杯、鈦碗，更是近年中鋼力推的產品，
鈦杯可是當時必領的物品之一。沒領到只有乾瞪眼的份。
當時鈦杯的問世，還有一些不肖商家，以物易物給不知情的股民。
零股紀念品-日常生活增加樂趣
零股紀念品-降低物價指數
股票除了賺取價差外，每年的股東常會，也能領取發放的紀念品。有些紀念品相當值得領取，像雨傘、衛生紙、LED燈泡、燜燒罐、保溫瓶、保養品、健康食品、指甲剪....等等。
在沒時間看盤操作股票、買賣股票總是虧損、想進入金融市場卻不知如何進行、總覺得持有的股票，配息總是不如預期。紀念品可以稍維補足這一部份。
每年股東會前的新聞報導，＂某某公司今年發放ＸＸ紀念品＂，不要小看這些紀念品，想像一下，持有一家公司股票五年，在每年都有發放紀念品，等於擁有五樣物品。這尚不包括每年的配息。
加乘效果的情況下，每年也是能產生相當不錯的價值。純粹單純的領紀念品，也能增加樂趣。有些人也因此產生興趣，幫助自己創造不錯的收入。
我在接觸這個環境後，也讓自己學到了更多的知識、技能，環境能使人成長，如：收到開會通知書、何時何地可領取、股票管理(EXCEL)。
股東紀念品(2018年)-禮券類與物品類數量
股東紀念品(2018年)-禮券類與物品類數量
2018年股東常會已告一段落，花個時間整理一下股東紀念品分類及收量。
今年仍有不少紀念品很值得領取。
外行看熱鬧，內行看門道。
今年實際領取的數量與可領家數整理如下圖
分析差異數量因素：
1.紀念品價值不如預期。
2.已有相同物品。
3.未持有該家股票。
4.未收到開會通知單。
5.其他。
2018年1月19日 星期五
【LucyTOM200如意赚】方案《预购》登记网页
请注意！！！这是一套【外汇交易市场】的全新操作软件方案，请务必花【3分钟】仔细看完以下内容，不论你是外汇小白或是交易高手，只要你想要从【外汇交易市场】以专业操盘手之姿创造无上限的现金流，【LucyTOM200如意赚】方案绝对是你2018年在【外汇交易市场】的必备工具。
【LucyTOM200如意赚】方案是一套统合【Lucy露西学姐】本人将近８年超过15000小时以上的交易经验，由学姐亲自研发与设计的【史上最强棒】的【LucyTOM200】交易下单软件，运用这套软件搭配【Lucy露西学姐】独创【商机获利图】（独家原创，市场无人可取代），不论你是外汇小白或交易高手，都能立即大幅缩短你摸索繁琐的交易下单、抢单、挂单、平仓、风险控制、资金管理、追踪止损、新闻交易、、、的时间，帮助你提升获利绩效，让你进场与出场都能轻松面对、简单完成。
【LucyTOM200如意赚】方案提供史上最强的交易软件，强力辅助你交易过程中的计算工程，让你拥有【专业操盘手】的交易工具，在交易过程中，就如同你是【专业操盘手】一样的专业。
【LucyTOM200如意赚】方案《预购》登记网页
2018年1月1日 星期一
賣屋流程記錄-20171225
今天約了仲介洽詢出售房屋的相關。
就把相關經驗記錄下來，供後續參考存查。
內心還真的是百感交集。
這是第一次售屋實戰了，雖然平時紡間的售屋書籍也不少，但自己與仲介洽談售屋，還真的驚驚怕怕。
仲介先初步的聊聊接下來的售屋委任流程，及最近附近的出售樓層及行情。
在閒話家常的過程，互相了解之後幫忙的仲介銷售人員及仲介公司營運。
當然，免不了要簽一些售屋委託書及提供房屋資料。
首先就是專任委託書了(呃!應該還有一般委託的樣子)。
並沒有特別提出這個疑問，先看看還有沒有什麼文件。
內容真不少，看來要仔細看看裡面的內容及條文。
第二就是屋況(標的物現況說明書)，這個內容也要一一看過及依實際況狀填寫。
接下來還有授權書、個人資料保護聲明書、委託事項變更契約書。
把這些資料都填寫完後，還需要準備最重要的資料(土地謄本(影本)、建物謄本(影本)、地藉圖(影本)、建物勘測成果圖)。
以上資料再將其做為一本目錄後，再給買方查閱。
想不到這麼仲介也是需要這麼花費工夫時間。
就先到這裡，先來趕緊的看看每條條文，或許有些條文是似是而非的。
就把相關經驗記錄下來，供後續參考存查。
內心還真的是百感交集。
這是第一次售屋實戰了，雖然平時紡間的售屋書籍也不少，但自己與仲介洽談售屋，還真的驚驚怕怕。
仲介先初步的聊聊接下來的售屋委任流程，及最近附近的出售樓層及行情。
在閒話家常的過程，互相了解之後幫忙的仲介銷售人員及仲介公司營運。
當然，免不了要簽一些售屋委託書及提供房屋資料。
首先就是專任委託書了(呃!應該還有一般委託的樣子)。
並沒有特別提出這個疑問，先看看還有沒有什麼文件。
內容真不少，看來要仔細看看裡面的內容及條文。
第二就是屋況(標的物現況說明書)，這個內容也要一一看過及依實際況狀填寫。
接下來還有授權書、個人資料保護聲明書、委託事項變更契約書。
把這些資料都填寫完後，還需要準備最重要的資料(土地謄本(影本)、建物謄本(影本)、地藉圖(影本)、建物勘測成果圖)。
以上資料再將其做為一本目錄後，再給買方查閱。
想不到這麼仲介也是需要這麼花費工夫時間。
就先到這裡，先來趕緊的看看每條條文，或許有些條文是似是而非的。
訂閱：
文章 (Atom)