Copy datas from other sheets and put all of them in same sheet

วันนี้ผมนำเสนอการ Copy ข้อมูลที่มีโครงสร้างตารางแบบเดียวกัน ที่อยู่ต่างชีต กัน มารวมไว้ที่เดียวกัน ในที่นี้คือ Sheet 1 ไปจนถึง Sheet 5 มารวมอยู่ในชีต temp เพื่อเตรียมทำการนำ ข้อมูลไปทำการวิเคราะห์ต่อไป รวมถึงทำการ hidden column(สามารถเปลี่ยนเป็นการ delete column ได้) ที่ไม่ต้องการไว้ด้วยในคราวเดียวกัน

I would like to present using macro script to copy datas, that they have same structure but stay in different sheets, and put them together in the same sheet. In this case, I mean copying from sheet 1 to sheet 5 and put all of them in sheet "Temp" to prepare for analysing in the next process. This also includes hiding column (or use deleting column) which we don't want in the same time. 

Sub Macro1()

'

' Macro1 Macro

'

Dim LastRow As Integer, i As Integer, erow As Integer

Dim LastCol As Integer

Sheets("temp").Select

Rows("2:" & Rows.Count).ClearContents

'---------------------------------------

Worksheets("Sheet1").Select

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

i = 1

Range(Cells(1, 1), Cells(LastRow, 21)).Select

Selection.Copy

Worksheets("Temp").Select

ActiveSheet.Cells(1, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Selection.PasteSpecial Paste:=xlPasteColumnWidths

Selection.PasteSpecial Paste:=xlPasteFormats

i = i + LastRow

'---------------------------------------

Worksheets("Sheet2").Select

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range(Cells(2, 1), Cells(LastRow, 21)).Select

Selection.Copy

Worksheets("Temp").Select

ActiveSheet.Cells(i, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Selection.PasteSpecial Paste:=xlPasteFormats

i = i + LastRow - 1

'---------------------------------------

Worksheets("Sheet3").Select

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range(Cells(2, 1), Cells(LastRow, 21)).Select

Selection.Copy

Worksheets("Temp").Select

ActiveSheet.Cells(i, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Selection.PasteSpecial Paste:=xlPasteFormats

i = i + LastRow - 1

Worksheets("temp").Select

'---------------------------------------

Worksheets("Sheet4").Select

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range(Cells(2, 1), Cells(LastRow, 21)).Select

Selection.Copy

Worksheets("Temp").Select

ActiveSheet.Cells(i, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Selection.PasteSpecial Paste:=xlPasteFormats

i = i + LastRow - 1

Worksheets("temp").Select

'---------------------------------------

Worksheets("Sheet5").Select

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range(Cells(2, 1), Cells(LastRow, 21)).Select

Selection.Copy

Worksheets("Temp").Select

ActiveSheet.Cells(i, 1).Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Selection.PasteSpecial Paste:=xlPasteFormats

i = i + LastRow - 1

Worksheets("temp").Select

'Range(Cells(1, 1), Cells(i, 21)).AutoFilter Field:=13, Criteria1:="Wait for patch"

'Application.Union(Columns("A"), Columns("C"), Columns("D"), Columns("E"), Columns("G"), Columns("H"), Columns("I"), Columns("L"), Columns("N:R"), Columns("T"), Columns("U")).Select

Worksheets("temp").Columns("A").Hidden = True

Worksheets("temp").Columns("C").Hidden = True

Worksheets("temp").Columns("D").Hidden = True

Worksheets("temp").Columns("E").Hidden = True

Worksheets("temp").Columns("G").Hidden = True

Worksheets("temp").Columns("I").Hidden = True

Worksheets("temp").Columns("L").Hidden = True

Worksheets("temp").Columns("N:R").Hidden = True

Worksheets("temp").Columns("T").Hidden = True

End Sub

Google Chrome Extensions : Google Dictionary และการตั้งค่า My language ให้เป็นภาษาไทย

การติดตั้ง Google Dictionary สำหรับ Google Chrome

เราสามารถติดตั้งจาก Chrome Web Store โดยค้นหาชื่อ 

Google Dictionary(by Google)

หลังจากติดตั้งตั้ง Google Dictionary แล้ว เราจะเข้าไปเลือกภาษาที่เราจะแปล โดยเริ่มเข้าที่

Customize and control Google Chrome 

> More tools 

> Extentions

Extentions

Google Dictionary (by Google)

> Option

Google dictionary 

Extention Options

My language : English

สังเกต ได้ว่าไม่มี Thai

เราจะต้องเข้าไปเพิ่มภาษาไทย โดยเข้าไปที่ 

Customize and control Google Chrome 

> More tools 

> Developer tools

เมื่อหน้าต่าง Developer เปิดขึ้นมา ให้หา

 <option value="sk">Slovak</option>

แก้ "sk" ไปเป็น "th"

แก้ "Slovak" ไปเป็น "Thai"

จากนั้น ก็จะเจอ Thai ใน My language แล้ว จากนั้นก็ Save

จากนั้นลองทดสอบการใช้ Google dictionary โดยการไฮไลท์คำศัพท์ที่ต้องการใน Chrome คำแปลก็จะขึ้นมาแล้ว

Auto Fill Color Rows Based On Cell Value

Public Sub Shade_Timeline()
Dim i, r, start_shade, end_shade, start_year, start_week, end_year, end_week As Integer
Dim star_date, end_date As Variant
i = 5  'This code is start Row=15
For i = i To 10
    If IsEmpty(Cells(i, 2).Value) = False Then
            start_year = DatePart("yyyy", Cells(i, 2))
            start_week = DatePart("ww", Cells(i, 2))
            end_year = DatePart("yyyy", Cells(i, 3))
            end_week = DatePart("ww", Cells(i, 3))            
            Select Case start_year
                Case 1899                   
                   Range(Cells(i, 1), Cells(i, 200)).Select
                   i = i - 1
                   Selection.Delete Shift:=xlUp             
                Case 2011
                    start_shade = 5 + start_week
                    If end_year = 2011 Then end_shade = 5 + end_week
                    If end_year = 2012 Then end_shade = 5 + 52 +                           end_week
                    If end_year = 2013 Then end_shade = 5 + 52 + 52                       + end_week
                    Range(Cells(i, start_shade), Cells(i,                                 end_shade)).Interior.Color = i * 9500
                Case 2012
                    start_shade = 57 + start_week
                    If end_year = 2012 Then end_shade = 57 +                               end_week
                    If end_year = 2013 Then end_shade = 57 + 52 +                         end_week
                    Range(Cells(i, start_shade), Cells(i,                                 end_shade)).Interior.Color = i * 6500
                Case 2013
                    start_shade = 109 + start_week
                    If end_year = 2013 Then end_shade = 109 +                             end_week
                    If end_year = 2014 Then end_shade = 109 + 52 +                         end_week
                    Range(Cells(i, start_shade), Cells(i,                                 end_shade)).Interior.Color = i * 3500
            End Select
    End If
Next
  Range("A1").Select
End Sub

การติดตั้ง Kodi (XBMC) และการติดตั้ง uPlayHD

Kodi(XBMC) and uPlayHD install

   1. การติดตั้งโปรแกรม Kodi หรือที่รู้จักคุ้นเคยกันในชื่อ XBMC ลงในอุปกรณ์ไม่ว่าจะเป็น Windows7 หรือ Android วิธีการเหมือนกัน โดยผมแนะนำให้โหลดไฟล์สำหรับติดตั้ง มาเตรียมรอไว้ก่อนนั่นคือ

  1. kodi-15.0 จาก http://kodi.tv/download/
  2. Add-on uPlayHD จาก http://iclosedz.github.io/uPlayHD-xbmc-addons/

2.  เริ่มติดตั้ง kodi ซึ่งวิธีการก็เหมือนกับ โปรแกรมทั่วไป คือ next next next แล้วก็ next

3.  หลังจากติดตั้งโปรแกรมเสร็จแล้ว รันโปรแกรมขึ้นมา แล้วหน้าตาโปรแกรมก็จะเป็นอย่างที่เห็นครับ






สำหรับโปรแกรม kodi หรือ xmbc นี้ ตัวโปรแกรมผมใช้สำหรับ จัดการไฟล์หนังที่โหลดเก็บมาไว้ดูในเครื่อง โดยที่สามารถ หาปกของหนัง และ มีคะแนน จาก imdb มาให้ดูด้วย ซึ่งวิธีการคือ add VDO source ที่เราเก็บหนัง แล้วโปรแกรมก็จะสแกน และทำงานโดยอัตโนมัติ

จากหน้าแรก ในโหมด VIDEOS ให้เราเลือก File
และหลังจากเข้าไปแล้ว ให้เราเลือก Add videos...

เราก็ทำการ Browse Folder ที่จัดเก็บ File หนังของเรา แล้วคลิก Add แล้วก็ทำการใส่ชื่อ Folder ของเรานะครับ ในที่นี้ผมใส่เป็น My Movies แล้วก็ OK

หลังจากนั้น หน้าต่าง Set Content ก็จะปรากฏขึ้นมา เราก็เลือก This directory contain ให้เป็น Movies แล้วก็ OK

เมื่อเราเข้าไปใน My Movies เราก็จะค่อย ๆ เห็นรายชื่อไฟล์หนังของเรา และระบบก็จะหาภาพปก และ fan art มาแสดงให้เราเห็นครับ





/////////////////////  เรื่อง uPlayHD เดี๋ยวผมจะมาเขียนต่อนะครับ /////////////////////

มาต่อกันเรื่อง Add-On กันนะครับ Add-On ตัวที่ผมใช้คือ uPlayHD ซึ่งมี Closedz เป็นผู้พัฒนา สำหรับสิ่งที่เราได้จาก uPlayHD นั่นคือการดู TV Online และ ดู Series Online โดยที่ Series นั้นจะถูกแบ่งออกเป็น US Series, Korean Series, Japanese Series, Chinese Series โดยขึ้นตอนติดตั้งมีดังนี้

1. โหลดไฟล์ Add-On uPlayHD มาจากเวปไซต์ http://iclosedz.github.io/uPlayHD-xbmc-addons/

2. เปิดโปรแกรม Kodi(XBMC) ขึ้นมา ไปที่โหมด System แล้วไปที่ Setting

3. เลือก Add-ons










4. หลังจากเราเข้าหน้า Add-ons มาแล้ว ให้เราเลือก Install from zip file

5. จากนั้นเราก็ Browse หาตำแหน่ง File Add-on ที่เราดาวน์โหลดมาจากเวปไซต์ ในที่นี้คือไฟล์ reponsitory.uplayhd.zip แล้วก็เลือก OK

6. หลังจากนั้นเราก็ จะเห็น Add-on uPlayHD ที่เราได้ติดตั้ง มีสถานะเป็น enable  ให้เราเลือก Configure

7.  ให้เราเลือกไปที่ Tab Authentication เพื่อที่จะใส่ Username และ Password สำหรับการใช้งาน uPlayHD ซี่งเราจะต้องไป Register จากเวปที่ปรากฏอยู่ในนั้น หรือไปที่

http://www.themountweather.com/dashboard

8. ในนี้เป็นเวปไซต์สำหรับอธิบายวิธีใช้ uPlayHD และรายละเอียดในการใช้ การสนับสนุนค่าใช้จ่ายสำหรับผู้มีน้ำใจ รวมถึงเงื่อนไขและข้อกำหนดของ uPlayHD

9. หลังจากที่เรา ติดตั้ง uPlayHD และ Authentication เรียบร้อยแล้ว ก็ย้อนไปที่หน้าหลักที่เราเข้าโปรแกรมเข้ามา เลือกโหมด Video และ เลือก Add-ons เราก็จะเห็น uPlayHD ปรากฏอยู่ในนั้น

10. เราก็จะเจอ List หนังต่าง ๆ แยกตามประเภท รวมถึง TV online ด้วย

11. ถ้าเราลองเลือกเข้าไปดู ใน US Series เราก็จะเห็น US Series ต่าง ๆ เรียงรายกันครับ






ถ้าทุกคนลองใช้ uPlayHD แล้วประทับใจก็ช่วยสนับสนุนเค้าหน่อยนะครับ

Create Folder and Sub Folder with Excel Macro

Sub CreateFolder()
Dim src As String, fd_name As String, subfd_name As String
Dim rfl As String
src = Range("B1")
i = 2
j = 2
fd_name = Range("B" & i)


Do While Cells(i, 2) <> ""
MkDir src & "\" & fd_name
subfd_name = Range("C" & j)
Do While Cells(j, 3) <> ""
MkDir (src & "\" & fd_name & "\" & subfd_name)
j = j + 1
subfd_name = Range("C" & j)
i = i + 1
On Error GoTo 0
Loop
i = i + 1
j = j + 1
fd_name = Range("B" & i)
On Error GoTo 0
Loop
End Sub

** ตอนนี้ยังไม่สามารถทำงานได้ หากไม่มีช่องว่างระหว่าง Folder //ค้างไว้ก่อน ค่อยหาวิธีแก้

Hiren's Boot CD and Install Windows

Situation : Computer has 2 partion
- format drive C:\ [delete old OS and all programs]
- install new OS in C:\
- drive D:\ backup data and driver
-----------------------------------------------------------------------------------------------------------
Item :
- Hiren's Boot CD
- MS Windows Installtion.iso
-----------------------------------------------------------------------------------------------------------
Step :
- Insert the Hiren's Boot CD
- start MiniXP
- HBCD Menu
   - Programs > Backup > Drivers > SmartDriverBackup
   - Programs > Partition/Boot/MBR > Partition Wizard Home Edition
     [Format and manage partition in HDD]
   - Programs > Other > WinNT Setup (Install XP/Vista/2003/7/8 from MiniXP/USB)
      - Select location of the install.wim file
         [Extract from .iso file : D:\winXinst\sources\install.wim][Recomend D:]
      - Select location of the Bootdrive            | C:
      - Select location of the Installationsdrive  | C:
      - Select version of Windows from drop-down in Options tab [Windows xxx]

         Wait until complete and restart and follow the normal MS Windows installation
-----------------------------------------------------------------------------------------------------------

กระท่อมกาแฟ

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

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

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

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

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

ณัฐ 

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