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 //ค้างไว้ก่อน ค่อยหาวิธีแก้