Windows 登入時以系統管理員身分自動執行NTP 校時軟體

Windows 登入時以系統管理員身分自動執行NTP 校時軟體

1.先開啟工作排程器(路徑=Windows系統管理工具/工作排程器)，並在「工作排程器程式庫」按下滑鼠右鍵點擊「建立工作」

2.輸入工作名稱，並勾選「以最高權限執行」

3.換到「觸發程序」，請新增「登入時」這個條件

4.設定「動作」，將執行的程式路徑與參數新增上去

5.接著設定「條件」，如果你用筆電，建議將「只有在電腦是使用 AC 電源時才啟動這個工作」取消勾選，以免用電池時不執行此程式！

6.NTP 校時軟體下載連結

combobox 下拉式選單

Adding Items

新增下拉式選單的選項

box.AddItem item[, index]
box    該下拉式選單的物件
item   字串
index   放置該新增字串的位置. 0 在最前面，


範例1

    ComboBox1.AddItem "A"
    ComboBox1.AddItem "B"
    ComboBox1.AddItem "C"

範例2

Private Sub CommandButton1_Click()

    ComboBox1.AddItem TextBox1.Value, 2
   
End Sub



Removing Items

刪除下拉式選單的選項

box.RemoveItem index

box    該下拉式選單的物件

index   欲刪除選項的位置. 0 在最前面，

範例

Private Sub CommandButton1_Click()

    ComboBox1.RemoveItem 0
   
End Sub

Clear Items

清空所有選項

box.Clear

範例

Private Sub CommandButton1_Click()

    ComboBox1.Clear


End Sub



Getting the value of the currently selected item

取得正選取選項的值

box.value

box.text

box    該下拉式選單的物件

value  該選單選項的值

text   該選單選項的文字

以上兩種方法都可以

範例

方法1

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.Text
   
End Sub


方法2

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.Value
   
End Sub



Getting List Items with the List Property

box.List(index)

box    該下拉式選單的物件

index  欲取得選項的位置. 0 在最前面，

範例

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.List(0)
   
End Sub

Returning the Number of Items with the ListCount Property

box.ListCount

box    該下拉式選單的物件

範例

Private Sub CommandButton1_Click()

    MsgBox ComboBox1.ListCount
   
End Sub

VB字串 常用處理函數

Len：計算字串的長度。
範例：strLen=Len("Taiwan")
結果：6


Mid：依開始位置擷取固定長度字串。
範例：strLen=Mid("Taiwan",1,2)
結果：ai


Left：將字串由左側擷取固定長度。
範例：strLen=Left("Taiwan",2)
結果：Ta
 

Right：將字串由右側擷取固定長度。
範例：str=Right(" Taiwan ",2)
結果：an


Lcase：將字串中的大寫字母轉成小寫。
範例：str=Lcase("Taiwan")
結果：taiwan


Ucase：將字串中的小寫字母轉成大寫。
範例：str=Ucase("Taiwan")
結果：TAIWAN


Trim：刪頭尾空白
範例：str=Trim("   Taiwan    ")
結果：Taiwan


Ltrim：刪字串左側的空白
範例：str=Ltrim("  Taiwan    ")
結果：Taiwan   


Rtrim：刪字串右側的空白
範例：str=Rtrim("  Taiwan    ")
結果：  Taiwan


Replace：將字串中的某字串，以另一字串代替。
範例：str=Replace("Taiwan","Tai"," Nan ")
結果：Nanwan


Instr：傳回子字串在字串中的第一次出現位置。
範例：strLen=Instr("ABCabc","a")
結果：1


Space：產生指定個數空白。
範例：Space(10)
結果：10個空白


String：產生指定個數的字元。
範例：str=String(5,"$")
結果：$$$$$


範例：str=String(4,66)
結果：BBBB
 
StrReverse：將字串前後反轉。
範例：str=StrReverse(" Taiwan ")
結果：nawiaT


Split：字串分割
範例：str=Split("Taiwan","T")
結果：
str(0)="T"
str(1)="aiwan"


StrComp：字串比較
範例：
str1=StrComp("Taiwan","Tai")
str2=StrComp("Taiwan","wan")
str3=StrComp("Taiwan","Taiwan")
結果：
str1=1
str2=-1
str3=0

VBA 基本語法

EXCEL常用的物件：

Workbook 活頁簿
Workbooks 活頁簿集合
Workbooks("filename") 檔名為filename的活頁簿
ActiveWorkbook 正在作用中的活頁簿
Sheets 活頁簿中所有工作表
Sheets(n) 活頁簿中第n張工作表
Worksheet 工作表
Worksheets 所有工作表(包括圖表)
Worksheets("sheet") 指表名為sheet工作表
ActiveSheet 正在作用中的工作表
Columns("c1:c2") c1至c2欄
   (其中c1,c2為A~Z或AA~XFD等欄名)
Rows("r1:r2") r1至r2列
   (其中r1,r2為1~1048576等列名
Range("x1:x2") x1至x2間的儲存格
   (其中x1,x2為儲存格位址名稱)
cells(i,j) 儲存格(第i列、第j行)
ActiveCell 目前的儲存格
Selection 目前所選取的物件

範例：
Workbooks("Book1").Sheets("Sheet1").Range("A1:D5").Font.Bold = True
Worksheets("Sheet1").Cells.ClearContents
Worksheets("Sheet1").Rows(1).Font.Bold = True
Range("1:1,3:3,8:8")
Worksheets("Sheet1").Cells(6, 1).Value = 10
Worksheets("Sheet1").[A1:B5].ClearContents
ActiveCell.Offset(1, 3).Font.Underline = xlDouble


活頁簿常用屬性：

ActiveWorkBook.Name 目前活頁簿的名稱
ActiveWorkBook.Save 儲存目前的活頁簿
ActiveWorkBook.SaveAs Filename := "filename" 另儲新檔
WorkBooks.Add 新增活頁簿
WorkBooks(i).Close [SaveChange, Filename, RouteWorkbook] 關閉指定的第i個活頁簿
SaveChange := True 改變儲存
SaveChange := False 不會改變儲存
SaveChange省略時，會出現對話方塊
filename := "檔名"
WorkBooks.Open "filename" 開啟一個活頁簿
Application.Windows 所有活頁簿視窗
WorkBooks.Count 活頁簿的數量
WorkBooks.Item(Index) 傳回單一活頁簿，由索引值指定


工作表常用屬性：

Worksheets.Add [Before, After, Count, Type] 新增工作表
Before := Worksheets(n) 出現於某工作表之前
After := Worksheets(n) 出現於某工作表之後
Count := n 新增工作表數量
Type := xlWorksheet (工作表) 或 xlChart (圖表)
WorkSheets.Name 工作表名稱
WorkSheets("Sheet1").Activate 
    設定工作表為目前作用的功作表


儲存格常用屬性：

Rows.RowHeight 指定範圍內的所有列高
Columns.ColumnsWidth：指定範圍內的所欄寬
expression.NumberFormatLocal 以本地的數字格式
Range.CurrentRegion 目前區域
   是指以任意空白列及空白欄的組合為邊界的範圍

範例：
Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select
expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) 

以參照的方式 
RowAbsolute 為True，則用列的絕對位址 
ColumnAbsolute 為True，則用欄的絕對位址 
ReferenceStyle 預設值為xlA1，
    如為xlR1C1則為R1C1的表達方式
expression.count 傳回範圍的數量
   (可以是欄數、列數或儲存格數量) 
expression.Item(RowIndex, ColumnIndex) 
    代表相對於指定之範圍某個位移距離的範圍。 
expression.value 傳回或設定物件的值 
expression.Formula 傳回或設定物件的公式，
    代表 A1 樣式註解以及巨集語言中的物件公式。

範例：
Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"
expression.FormulaR1C1 傳回或設定物件的公式，
    並以巨集語言中的 R1C1 樣式標記法表示

範例：
Worksheets("Sheet1").Range("B1").FormulaR1C1 = "=SQRT(R1C1)"
expression.Text 傳回或設定物件的文字

範例：
   Set c = Worksheets("Sheet1").Range("B14")
   c.Value = 1198.3
   c.NumberFormat = "$#,##0_);($#,##0)"
   MsgBox c.Value
   MsgBox c.Text

常用方法： 
Range.Select方法/Selection屬性 
    設定目前選取的範圍/使用目前所選取的範圍

範例：
Sub Macro1()
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Address"
    Range("A1:B1").Select
    Selection.Font.Bold = True
End Sub

expression.Copy 將目前所選取的物件復製至剪貼簿 
expression.Cut 將目前所選取的物件剪下 
expression.Delete 將目前所選取的物件刪除 
expression.Paste 將剪貼簿的內容貼上

範例：
Sub CopyRow()
    Worksheets("Sheet1").Rows(1).Copy
    Worksheets("Sheet2").Select
    Worksheets("Sheet2").Rows(1).Select
    Worksheets("Sheet2").Paste
End Sub

expression.RasteSpecial(Paste,Operation, SkipBlanks, Transpose)

範例：
With Worksheets("Sheet1")
    .Range("C1:C5").Copy
    .Range("D1:D5").PasteSpecial _
        Operation:=xlPasteSpecialOperationAdd
End With

Range.Activate 目前的儲存格 
Range.Clear 清除資料 
Range.ClearContents 清除資料內容 
Range.ClearFormats 清除資料格式 
Range.ClearComments 清除註解 
expression.AutoFit：自動調整列高和欄寬 
Range.FillDown、Range.FillUp、Range.FillLeft、Range.FillRight 填滿 
Range.Offset (RowOffset, ColumnOffset)  指定區域的位移列與行

範例：
Sub MoveActive()
    Worksheets("Sheet1").Activate
    Range("A1:D10").Select
    ActiveCell.Value = "Monthly Totals"
    ActiveCell.Offset(0, 1).Activate
End Sub

程式語法： 

Dim 陳述式(變數) 
Dim varname [ As [New] type] 
type 包括 Byte、Boolean、Integer、Long、Single、Double、Date、String、Object等

Set 陳述式(物件) 
Set objectvar = {[New] objectexpression | Nothing} 

例：Set RangeA = Range("A1:B2")

範例：
Sub Random()
    Dim myRange As Range
    Set myRange = Worksheets("Sheet1").Range("A1:D5")
    myRange.Formula = "=RAND()"
    myRange.Font.Bold = True
End Sub

With 多種屬性設定 
With 物件
.屬性1 = 設定值
.屬性2 = 設定值
.... End With

範例：
Sub AddNew()
Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"
        .Subject = "Sales"
        .SaveAs Filename:="Allsales.xls"
    End With
End Sub

Array 陣列 
Array(Range1, Range2, ....)

範例：
Sub Several()
    Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Select
End Sub

InputBox 函數 
InputBox("文字說明",[,title][,default][,xpos][,ypos][,helpfile, context])

MsgBox 函數 
MsgBox "文字說明"

Union 將多個範圍合併成單一Range物件 
Union(Range1, Range2, ...)

範例：
Sub MultipleRange()
    Dim r1, r2, myMultipleRange As Range
    Set r1 = Sheets("Sheet1").Range("A1:B2")
    Set r2 = Sheets("Sheet1").Range("C3:D4")
    Set myMultipleRange = Union(r1, r2)
    myMultipleRange.Font.Bold = True
End Sub

For... Next 陳述式 
For counter = start to end [ step stepvalue]
[statements]
[Exit For]
[statements]
Next [counter]

範例：
Sub CycleThrough()
    Dim Counter As Integer
    For Counter = 1 To 20
        Worksheets("Sheet1").Cells(Counter, 3).Value = Counter
    Next Counter
End Sub

For Each... Next 陳述式 
For Each element In group 
[statements]
[Exit For]
[statements]
Next [element]

範例：
Sub ApplyColor()
    Const Limit As Integer = 25
    For Each c In Range("MyRange")
        If c.Value > Limit Then
            c.Interior.ColorIndex = 27
        End If
    Next c
End Sub

Do ... Loop 陳述式 
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop

或

Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
If ... Then ... Else ... 陳述式 
If condition Then [statements][Else elsestatements]

或

If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements]...
[Else
[elsestatements]]
End If

下載網頁影片

1. 開啟Google Chrome或是Chromium核心的Edge，連到你想要下載的影片頁面；影片預設會自動播放，這時候要按暫停。

2. 在影片旁邊空白的地方按一下滑鼠右鍵，點選下拉選單中的「檢查」。

3. 這時Chrome右邊會出現網頁檢查選項，切換至「Network」標籤，然後按下鍵盤上的「F5」鍵重新刷新網頁。

4. 按了鍵盤上的「F5」之後，下方就會跑出一堆數據；仔細尋找「Type」形式為「media」的那一行，然後在那一行按兩下滑鼠左鍵。

5. 在「media」那行按兩下滑鼠左鍵後，影片就會以新的分頁開出；在影片旁邊空白的地方按一下滑鼠右鍵，點選下拉選單中的「另存新檔」，指定你想儲存的位置。

6. 如果使用Chrome的話左下方會突然出現一個警告，寫著「這個檔案並不安全，因此遭到Chrome封鎖」；別緊張，這只是例行性警告，先按一下右邊的「全部顯示」。

7. 按一下「保留不安全的檔案」。

8. 再次跟你確認是否真的要保留檔案，勇敢地給他按「保留」就對了，之後影片檔就會被下載回來。