กระท่อมกาแฟ

เช้าวันเสาร์ ที่ ๓๐ พฤศจิกายน ๒๕๕๖ ๑๐ นาฬิกา ๒๑ นาที เขียน ณ กระท่อมกาแฟ

     วันนี้ บรรยากาศเริ่มเข้าสู่หน้าหนาวตอนต้น อากาศรอบตัวเริ่มเย็น ลมหนาวพัดผ่านกระทบผิวที่แห้งฉาบไปด้วยขุยขาวบนแขน มันช่างรู้สึกดีเป็นอย่างยิ่ง

     ห้วงอารมณ์ตอนเช้าวันเสาร์ อากาศดี ๆ เลยทำให้ผมอยากกินกาแฟสด เพิ่มความสดชื่นให้ตัวเองซักหนึ่งแก้วใหญ่ ๆ ประจวบเหมาะกับต้องออกมาข้างนอกอยู่แล้ว เลยหาข้อมูลร้านกาแฟแถวที่หมายปลายทาง ก็ได้มาเจอเข้่ากับร้าน  "กระท่อมกาแฟ" ที่ชื่อร้านภาษาอังกฤษใช้คำว่า "Kaffeien Cottage" ตั้งอยู่บนถนนประดิพัทธ์ ซอย 19

     ประทับใจกับบรรยากาศร้านมาก ภายในตกแต่งน่านั่ง เพลงสากล ที่ฟังแล้วเข้ากับบรรยากาศของร้าน เหมาะแก่การจิบกาแฟ อ่านหนังสือ เป็นอย่างดี กาแฟที่นี่ เป็นกาแฟสดหม้อต้ม น่าจะหอม และกลมกล่อม อยู่ไม่น้อย ที่ใช้คำว่า "น่าจะ" เพราะเช้านี้ดื่ม อเมริกาโน่เย็น กลิ่นหอมยังส่งออกมาเบา ๆ คาดว่าหากสั่งเป็นกาแฟร้อนกลิ่นคงหอมกว่านี้มาก

     บรรยากาศของร้านก็ตามสิ่งที่แนบมา้ด้วยพร้อมนี้....

ณัฐ 

ก่อนเวลาอาหารเที่ยง

 

FM Spectrum

Spectrum สัญญาณ FM

Message : Amplitude = 5 Vpp , Frequency 50 Hz

Carrier : Amplitude = 500 mVpp , Frequency 1.8 KHz 

Excel : Replace cells with a Header of column

Code for Replace cells with a Header of column. 

- Design start column and end column that want to replace.
- Copy cell(Header)
- Select range by F5 Go to spacial>Constants>all
  (Select cells that not blank)
- Paste value(Header)
- Loop(Do While)
------------------------------------------------------------------------------------------------------------
Sub ReplaceDataWithHeader()
Dim strCol As String
Dim lngCol As Long
lngCol = 240
 Do While lngCol < 248
    Cells(6, lngCol).Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-18
    Range(Cells(27, lngCol), Cells(8096, lngCol)).Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    lngCol = lngCol + 1
 Loop
End Sub
------------------------------------------------------------------------------------------------------------