Perton 網誌: 2019/08

空中聖經學院_雅歌_郝萬以嘉老師 (播放清單)

手機、平板用戶，請點擊 YouTube 空中聖經學院_雅歌_郝萬以嘉老師 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/29

神國思維_拉維撒迦利亞_GoodTV特會精選 (播放清單)

手機、平板用戶，請點擊 YouTube 神國思維_拉維撒迦利亞_GoodTV特會精選 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/20

股市買賣整理筆記！

在還沒有談論任何議題之前，先請各位自行比較一下；
下列兩張資料表的數據內容，
請問你發現到什麼？
有什麼數據資料，會讓你震驚到？

在各位觀看資料表內容時，我只會再次說明，下列圖表的數據是電腦自動計算得來，不是“手工”填入讓你訝異數字的結果。

資料表一：2019/07/01

資料表二：2019/08/26

兩張資料表的時間，相差約“兩個月”。這段時間裡，為了因應股票的申購、買賣及資金上調度的考量，而有“多家”證劵商的交易記錄。
圖表二，第二欄位股票名稱之前的 + 號，就是用來展開、收合“證劵商”的訊息。

如果，你已經身在（股票交易的）江湖中，或許這些資料整理的技巧，會對你有不少助益。

First Posted - 2019/08/26

特會精選～移山的信心_梅堅成牧師 (播放清單)

手機、平板用戶，請點擊 YouTube 特會精選～移山的信心_梅堅成牧師 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/23

小先知書系列-哈該書_金京來博士 (播放清單)

手機、平板用戶，請點擊 YouTube 小先知書系列-哈該書_金京來博士 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/20

戒酒無名會，或稱匿名戒酒會（英語：Alcoholics Anonymous）是一個國際性互助戒酒組織。
在1935年6月10日，由美國人比爾·威爾遜(Bill Wilson)和醫生鮑勃·史密斯在美國俄亥俄州阿克倫成立，現在會員超過200萬。其活動宗旨是酗酒者互相幫助戒酒，重新過正常的生活，在活動中，酗酒者互相分享各自的經歷、力量和希望，以達到戒酒的目的，保證自己不再嗜酒，同時也幫助其他人戒酒。此外，所有成員對外亦均保持個人的匿名^[1]^[2]。

威爾遜和史密斯與其他早期成員發展出十二個步驟的心靈成長和人格發展課程。
1946年推出十二個傳統，以協助戒酒無名會的統一和成長。十二個傳統建議，成員和團體在公眾媒體保持匿名，無私的幫助其他酒鬼，包括所有希望戒酒者。十二個傳統還建議，以團契的名義行事避開教條，管理的層次和參與公共事務。
隨後發展出的團契，如戒毒品無名會，都採用十二個步驟和十二個傳統各自的主要宗旨^[3]^[4]。

目前此協會在台灣有相對應的AATaiwan,即戒酒無名會- 台灣。雖然已有架設網站,但鮮為人知。

十二步驟 (又稱為靈程十二步驟) http://www.aa.org/assets/en_US/smf-121_en.pdf Twelve Steps and Twelve Traditions

我們承認我們無能為力對付酒精，而我們的生活已變得不可收拾。
相信有一個比我們本身更大的力量，這個力量能恢復我們心智健康和神智清明。
作出一個決定，把我們的意志和我們的生活，托付給我們所認識的上帝。
作一次徹底和無懼的自我品格檢討。
向上帝、向自己、向他人承認自己過錯的本質。
要完全準備讓上帝除去自己一切人格上之缺點。
謙遜地祈求上帝除去我們的缺點。
列出一份所有我們所傷害過的人的名單，並使自己甘願對這些人作出補償。
盡可能的話，直接補償他們，除非這樣做會傷害他們或其他人。
繼續經常自我檢討，若有錯失，要迅速承認。
透過禱告與默想，增進我們與自己所認識的上帝有自覺性的接觸，只祈求認識祂對我們的旨意，並祈求有力量去奉行祂的旨意。
實行這些步驟的結果是我們已經擁有一種精神上的覺醒，我們設法把這個音訊帶給酒徒，並在我們一切日常生活事物中，去實踐這些原則。

十二傳統

我們共同的福利應列第一；個人的康復全賴戒酒無名會的團結一致。
為了我們團體的目的，我們只有一個主要的權威：一個有愛心的上蒼，而祂可以在我們的團體良心中表達祂自己。我們的領袖只是受委託的僕人，而不管治他人。
作為戒酒無名會成員的唯一要求，就是有停止喝酒的願望。
每一個組別是自治的，足以影響到其他組別或整個戒酒無名會事務者為例外。
每一組別只有一個主要目的：把它的訊息傳遞給那些仍在受苦的酒徒。
任何戒酒無名會組別不應認可、資助或允許任何有關組織或外面的企業機構使用戒酒無名會的名字，以免因為金錢、物業及聲譽上的問題，將我們轉離了基本的目的。
每一個戒酒無名會組別應自給自足，謝絕外界的捐獻。
戒酒無名會應該永遠保持非專業性，但服務中心可以雇用專門的工作人員。
戒酒無名會就其性質而言，不應該建立組織體系，但我們可以創立服務理事會或委員會，直接向所服務的對象負責。
戒酒無名會對外界事務不作評論；因此不應該把戒酒無名會的名字捲入公開的爭論中。
我們的公共關係政策是建基於吸引外人參加，而非建基於自我宣傳上；我們在報章、電台和影視界方面，需要常常保持個人的匿名。
匿名是我們所有傳統中的精神基礎，不斷提醒我們把原則置於個人操守之上。

First Posted：2014/06/17

Excel 各種物件的事件清單(Event List)

Excel 有許多物件都內含有事件功能，在撰寫 VBA 程式時，可以善加應用。
以下事件清單的每個名稱，都附有相關事件的使用說明，可以點擊得到更多的資訊！！

一、WorkBook (活頁薄)

二、WorkSheet (工作表)

三、Chart (圖表)

另外，在使用 VBA 時，若需要動用到“函數”，可以參考：Excel 函數 (依類別)

First Posted - 2019/08/19

諸長樂牧師最後的講道身影

多媒體聖經學苑在【預約永恆的榮耀] https://youtu.be/5idU-eJKAgM 的視頻說明裡，提到：
諸長樂牧師於 108/05/05 於東京國際基督教會帶領主日崇拜，分享本篇講章。
05/15 於東京住院、
08/01 搭乘醫療專機飛返台灣，
08/23 安息主懷。

之後，連結到東京國際基督教會網站，發現諸長樂牧師還有另一次的主日講道 2019/05/12 【十架下的親子關係】

請點擊連結：https://www.youtube.com/watch?v=xgpcq9NJq2Q&t=2645
一同緬懷這位主的衷心僕人。

諸長樂牧師的追思禮拜：2019/08/24 (週六) 早上10:00 石牌信友堂

First Posted：2019/08/17

書摘：Excel VBA實戰技巧

推薦一本物超所值的好書，
不管你是想從這本書裡，學到程式寫作的技巧、金融財經的知識或是網路爬蟲等技能，
買了它，你一定有不少的收穫！！

★試讀：http://epaper.gotop.com.tw/PDFSample/ACI031700.pdf
★書名：Excel VBA實戰技巧｜金融數據x網路爬蟲
★作者：廖敏宏（廖志煌）
★書號：ACI031700
★更多介紹：https://bit.ly/2Ctx6m1

電子書：422元
https://books.google.com.tw/books?id=ejyeDwAAQBAJ

印刷版：490元
https://search.books.com.tw/search/query/cat/all/key/9789865020835/

除了介紹這本書外，筆者也因為投入學習行列；因此，也有相關資料的“分享”，希望大家一起學習、成長及相互交流。

資料匯集、整合：http://bit.ly/2XmT6eQ
未來也會增加各章節的【導讀】分享

有意者請 mailto：pertonchang@gmail.com

First Posted：2019/08/17

Excel 好用公式、函數

Formulas

VLOOKUP：VLOOKUP is used to get the data for a lookup value in the leftmost column of a section of your spreadsheet called the table array on the base index_number (column number).

HLOOKUP：HLOOKUP is used to get the data for a lookup value in the top most row of a section of your spreadsheet called the table array on the base index_number (row number).

MATCH：This formula searches for a value in an array and returns the relative position of that item

INDEX：This formula gets a value from a table on the base of given row and column parameter.

INDIRECT：This formula returns the reference to a cell or range on the base of its string parameter.

OFFSET：This formula returns a reference to a range that is offset number of rows and columns.

CHOOSE：This formula gets a value from an array list on the based on given parameter.

ADDRESS：This formula returns a cell address in text format.

String/Text Functions

FIND：This formula returns a position of text or character in a text. This is a case sensitive.

LEN：This formula returns the number of characters (including space) of a text.

MID：This function returns a part of text or a character form a text on the base of parameter.

SUBSTITUTE：This formula replaces the fully or partially text with another text on the base parameter

TEXT：This formula returns a value converted to text with a specified format on the base of parameter.

TEXTJOIN：This formula is used to combine 2 or more texts together separated by a delimiter as given in the parameter.

TRIM：This formula removes the leading and trailing spaces from a text.

Date/Time Functions

DATE：This formula returns the create a date from given parameter of year, month and day.

DATEVALUE：This formula converts the text (should be in form of date) into a date.

EOMONTH：This formula calculates the last day of the month after adding a specified number of months to a date as given in the parameter.

NETWORKDAYS：This formula returns the number of work days between 2 dates, excluding Saturday and Sunday and holidays.

NOW：This formula returns the current system date and time

TODAY：This formula returns the current system date only.

Others

AVERAGEIF：This formula returns the average of all numbers in a range of cells, on the base of given criteria in the parameter.

COUNTIF：This formula returns the number of cells in a range on the base of given criteria in the parameter.

COUNTIFS：This formula returns the number of cells in a range on the base of multiple criteria in the parameter.

SUMIF：This formula returns the total all numbers in a range of cells on the base of given criteria in the parameter.

SUMIFS：This formula returns the total all numbers in a range of cells on the base of multiple criteria in the parameter.

SUMPRODUCT：This formula sum of multiplies the corresponding items in the arrays.

資料來源：https://www.pk-anexcelexpert.com
First Posted：2019/08/16

如何輸入重音字元？

想要使用鍵盤打出重音字元，記得要用 Microsoft Word。

可應用它直接在鍵盤輸入下列重音字元：

抑音符號 (`)
尖音符號 (')
抑揚符號 (^)
曲音符號 (:)
鼻音化符號 (~)

至於，要如何登打出重音字元，會與你使用的鍵盤種類而有操作上的不同。

方法 1：美式鍵盤配置(台灣一般都使用此型)

先按住 CTRL 鍵，再輸入要出現在字母上的重音字元。
注意：鼻音化符號 (~)、曲音符號 (:) 字元，需配合SHIFT鍵才能產生。所以，要按 CTRL+SHIFT，然後再輸入會出現在字母上的字元。
完成步驟一後，畫面上還看不到效果；接下來，還要輸入您要的字母。
此時，重音字元才會出現在文件中。

方法 2：非美式鍵盤配置

某些非美式鍵盤的右邊有一AltGr 鍵。AltGr 等於 CTRL+ALT 組合鍵，您可以將它與其他鍵一起使用，以輸入重音字元。

資源連結：
~~如何由鍵盤輸入重音的國際字元~~ ~~https://support.microsoft.com/en-us/kb/269750/zh-tw?wa=wsignin1.0~~
附加符號 http://zh.wikipedia.org/wiki/附加符號
國際字元的快速鍵 https://support.office.com/zh-tw/article/國際字元的快速鍵-108fa0c1-fb8e-4aae-9db1-d60407d13c35

First Posted - 2015/05/03

蒙福人生~活出神的呼召_羅伯特。莫里斯 (播放清單)

手機、平板用戶，請點擊 YouTube 蒙福人生~活出神的呼召_羅伯特。莫里斯 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/07

股票投資 FQ&A_夯翻鼠 (播放清單)

手機、平板用戶，請點擊 YouTube 股票投資 FQ&A_夯翻鼠 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/15

談論多筆Word檔案該如何一次性“自動”轉換成PDF檔案!!

如題：談論多筆Word檔案該如何一次性“自動”轉換成PDF檔案!!
這次期望使用Word的環境，開啟Word檔案、列印成PDF；重複執行！！
至於“自動化”的需求，就借用Word的巨集功能來完成。

有了這些運作概念後，接下來，我們來看看要如何做！

★ 環境需求：

MS Office Word
需要安裝列表機：Microsoft Print to PDF

★ 使用【巨集】功能，錄製“開啟Word檔案、列印成PDF”等動作，以便產生相關的程式碼。
你會得到下面的程式碼

ChangeFileOpenDirectory "D:\PertonChang\Desktop\靈糧神學院\107暑\新約綜覽(二)\"
Documents.Open fileName:="05-以弗所書信息與應用T.docx", ConfirmConversions:=False, _
     ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
     PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
     WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
     DocumentDirection:=wdLeftToRight

ActivePrinter = "Microsoft Print to PDF"

Application.PrintOut fileName:="", Range:=wdPrintAllDocument, Item:= _
     wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
     wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
     PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
     PrintZoomPaperHeight:=0

ActiveWindow.Close

★ 程式碼的調整
因為，需要轉換的檔案有很多，所以調整現有的程式碼，方便處理、查看與維護。

Sub Word2Pdf()
     Dim dir As String
     Dim fileName As String
     Dim pdfName As String

     Call OpenWordFile(dir, fileName, pdfName)
End Sub

Sub OpenWordFile(dir, fileName, pdfName)
     ChangeFileOpenDirectory dir
     Documents.Open fileName:=fileName, ConfirmConversions:=False, _
         ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
         PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
         WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
         DocumentDirection:=wdLeftToRight

     Call Print2Pdf(pdfName)

     ActiveWindow.Close
End Sub

Sub Print2Pdf(pdfName)
ActivePrinter = "Microsoft Print to PDF"

    Application.PrintOut fileName:="", Range:=wdPrintAllDocument, Item:= _
         wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
         wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
         PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
         PrintZoomPaperHeight:=0, OutputFileName:=pdfName
End Sub

** 上述程式碼“紅字”部份，是“增補”的，為了可以指定 PDF 檔案名稱

★ 利用 Excel 來條列出所有的 Word 檔案清單，並且產生相關檔案轉換的程式碼

★ 修改函數 Word2Pdf() 內容
修改前。。。
Sub Word2Pdf()
     Dim dir As String
     Dim fileName As String
     Dim pdfName As String

     Call OpenWordFile(dir, fileName, pdfName)
End Sub

修改成。。。。。。

Sub Word2Pdf()
Dim dir As String

    dir = "D:\PertonChang\Desktop\靈糧神學院\107暑\新約綜覽(二)\"

    Call OpenWordFile(dir, "01-羅馬書信息與應用T.docx", "01-羅馬書信息與應用T.pdf")
    Call OpenWordFile(dir, "01-羅馬書寫作背景T.docx", "01-羅馬書寫作背景T.pdf")
    Call OpenWordFile(dir, "02-哥林多前書信息與應用(詳綱)T(更新版).docx", "02-哥林多前書信息與應用(詳綱)T(更新版).pdf")
    Call OpenWordFile(dir, "02-哥林多前書寫作背景T.docx", "02-哥林多前書寫作背景T.pdf")
    Call OpenWordFile(dir, "03-哥林多後書信息與應用T.docx", "03-哥林多後書信息與應用T.pdf")
    Call OpenWordFile(dir, "03-哥林多後書寫作背景T.docx", "03-哥林多後書寫作背景T.pdf")
    Call OpenWordFile(dir, "04-加拉太書信息與應用T.docx", "04-加拉太書信息與應用T.pdf")
    Call OpenWordFile(dir, "04-加拉太書寫作背景(精簡版)T.docx", "04-加拉太書寫作背景(精簡版)T.pdf")
    Call OpenWordFile(dir, "05-以弗所書信息與應用T.docx", "05-以弗所書信息與應用T.pdf")
    Call OpenWordFile(dir, "05-以弗所書寫作背景(精簡)T.docx", "05-以弗所書寫作背景(精簡)T.pdf")
    Call OpenWordFile(dir, "06-腓立比書信息與應用T.docx", "06-腓立比書信息與應用T.pdf")
    ‘ 更多的清單。。。
End Sub

★ 執行巨集，按下 Alt + F8
點選 Word2Pdf，執行
接下來，全多是電腦的事情，等它完成所有的檔案轉換作業喲！！

★ 最後的完工動作 — 儲存 Word 的巨集程式碼
    想要將你辛苦完成的作品留下，就要將程式碼儲存起來。
    記得：檔案副檔名 = docm，不是 docx
    例如：Word convert to Pdf.docm

文章範例檔案：http://bit.ly/2N7T43U

First Posted：2019/08/14

蒙福人生~與神同在_羅伯特。莫里斯 (播放清單)

手機、平板用戶，請點擊 YouTube 蒙福人生~與神同在_羅伯特。莫里斯 (播放清單)

視頻訂閱：http://bit.ly/2F48W5j

First Posted - 2019/08/07

訂閱：文章 (Atom)

英文	中文	ktiv haser	ktiv menukad	音譯
Kibbutz	奇布茲	קיבוץ	קִיבּוּץ	kibbutz
wizard	魔術師	הקוסם	הַקוֺסֵם	hakosem
horse	馬	סוס	סוּס	sus
rabbit	兔子	ארנב	אַרְנָב	arnaf
turkey	火雞	הודי	הוֹדּי	hodu
dog	狗	כלב	כֶּלֶב	kalef
fish	魚	דג	דּג	dag
sheep	羊	כבש	כֶּבֶשׂ	kaves
snake	蛇	נחש	נָחָשׁ	nachash
elephant	大象	פיל	פִּיל	pil
rooster	公雞	תרנגול	תַּרְנְגוֺל	tarngoֺl
giraffe	長頸鹿	ג׳רפה	גִ׳רָפָה	jilafah
dock	鴨子	ברוז	בַּרְוָז	barvats
fog	青蛙	צפרדע	צְפַרְדֵּעַ	tzfardea
cat	貓	חתול	חָתוּל	chatul
cow	牛	פרה	פָּרָה	parah
butterfly	蝴蝶	פר פר	פַּר פַּר	parpar
sun	太陽	שמש	שֶׁמֶשׁ	shemesh
monkey	猴子	קוף	קוֺף	kof
zebra	斑馬	זברה	זֶבְּרָה	zebrah
camel	駱駝	גמל	גָּמָל	gamal
lion	獅子	אריה	אַרְיֵה	aryeh
tiger	老虎	נמר	נָמֵר	namer
beer	熊	דוב	דּוֺב	dov

Perton 網誌

網頁