excel vba - array 陣列

Sub 資料搬移()

Dim myx, myi



arydataSec1 = Array("g5", "k5", "k6", "c6", "c5", "g7") ' 開課基本資料
arydataSec2 = Array("b12", "b13", "b14", "b15", "b16") ' 滿意度1
arydataSec3 = Array("c12", "c13", "c14", "c15", "c16") ' 滿意度2
arydataSec4 = Array("d12", "d13", "d14", "d15", "d16") ' 滿意度3
arydataSec5 = Array("e12", "e13", "e14", "e15", "e16") ' 滿意度4
arydataSec6 = Array("f12", "f13", "f14", "f15", "f16") ' 滿意度5
arydataSec7 = Array("g12", "g13", "g14", "g15", "g16") ' 滿意度6
arydataSec8 = Array("h12", "h13", "h14", "h15", "h16") ' 滿意度7
arydataSec9 = Array("i12", "i13", "i14", "i15", "i16") ' 滿意度8
arydataSeca = Array("k12", "k13", "k14", "k15", "k16") ' 滿意度9
arydataSecb = Array("b21", "b22", "b23", "b24", "b25", "b26", "b27", "b28", "b29", "b30", "b31", "b32", "b33", "b34", "b35", "b36", "b37", "b38", "b39", "b40", "b41", "b42", "b43", "b44", "b45", "b46", "b47", "b48", "b49", "b50") ' 居住統計
arydataSecc = Array("f21", "f22", "f23") ' 性別
arydataSecd = Array("f25", "f26", "f27", "f28", "f29", "f30", "f31", "f32", "f33", "f34", "f35", "f36", "f37", "f38", "f39") ' 出生統計
arydataSece = Array("f41", "f42", "f43", "f44", "f45", "f46") ' 族群統計
arydataSecf = Array("f48", "f49", "f50") ' 成績統計
arydataSecg = Array("k21", "k22", "k23", "k24", "k25", "k26", "k27", "k28", "k29") ' 學歷統計
arydataSech = Array("k33", "k34", "k35", "k36", "k37", "k38", "k39", "k40", "k41", "k42") ' 職業統計
arydataSeci = Array("k45", "k46", "k47", "k48", "k49", "k50") ' 課程統計



For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec1(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 1).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec2(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 7).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec3(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 12).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec4(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 17).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec5(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 22).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec6(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 27).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec7(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 32).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec8(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 37).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec9(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 42).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSeca(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 47).Value = myx
Next myi

For myi = 0 To 29
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecb(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 52).Value = myx
Next myi

For myi = 0 To 2
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecc(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 82).Value = myx
Next myi


For myi = 0 To 14
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecd(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 85).Value = myx
Next myi


For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSece(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 100).Value = myx
Next myi


For myi = 0 To 2
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecf(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 106).Value = myx
Next myi


For myi = 0 To 8
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecg(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 109).Value = myx
Next myi

For myi = 0 To 9
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSech(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 118).Value = myx
Next myi


For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSeci(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 128).Value = myx
Next myi


Windows("數位落差結案檔.xls").Activate
myx = Sheets("B結訓學員名冊").Range("d56").Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, 133).Value = myx


ActiveWorkbook.Save
ActiveWindow.Close
End Sub

excel vba - array 陣列

Sub 資料搬移()

Dim myx, myi



arydataSec1 = Array("g5", "k5", "k6", "c6", "c5", "g7") ' 開課基本資料
arydataSec2 = Array("b12", "b13", "b14", "b15", "b16") ' 滿意度1
arydataSec3 = Array("c12", "c13", "c14", "c15", "c16") ' 滿意度2
arydataSec4 = Array("d12", "d13", "d14", "d15", "d16") ' 滿意度3
arydataSec5 = Array("e12", "e13", "e14", "e15", "e16") ' 滿意度4
arydataSec6 = Array("f12", "f13", "f14", "f15", "f16") ' 滿意度5
arydataSec7 = Array("g12", "g13", "g14", "g15", "g16") ' 滿意度6
arydataSec8 = Array("h12", "h13", "h14", "h15", "h16") ' 滿意度7
arydataSec9 = Array("i12", "i13", "i14", "i15", "i16") ' 滿意度8
arydataSeca = Array("k12", "k13", "k14", "k15", "k16") ' 滿意度9
arydataSecb = Array("b21", "b22", "b23", "b24", "b25", "b26", "b27", "b28", "b29", "b30", "b31", "b32", "b33", "b34", "b35", "b36", "b37", "b38", "b39", "b40", "b41", "b42", "b43", "b44", "b45", "b46", "b47", "b48", "b49", "b50") ' 居住統計
arydataSecc = Array("f21", "f22", "f23") ' 性別
arydataSecd = Array("f25", "f26", "f27", "f28", "f29", "f30", "f31", "f32", "f33", "f34", "f35", "f36", "f37", "f38", "f39") ' 出生統計
arydataSece = Array("f41", "f42", "f43", "f44", "f45", "f46") ' 族群統計
arydataSecf = Array("f48", "f49", "f50") ' 成績統計
arydataSecg = Array("k21", "k22", "k23", "k24", "k25", "k26", "k27", "k28", "k29") ' 學歷統計
arydataSech = Array("k33", "k34", "k35", "k36", "k37", "k38", "k39", "k40", "k41", "k42") ' 職業統計
arydataSeci = Array("k45", "k46", "k47", "k48", "k49", "k50") ' 課程統計



For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec1(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 1).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec2(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 7).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec3(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 12).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec4(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 17).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec5(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 22).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec6(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 27).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec7(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 32).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec8(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 37).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec9(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 42).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSeca(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 47).Value = myx
Next myi

For myi = 0 To 29
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecb(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 52).Value = myx
Next myi

For myi = 0 To 2
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecc(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 82).Value = myx
Next myi


For myi = 0 To 14
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecd(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 85).Value = myx
Next myi


For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSece(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 100).Value = myx
Next myi


For myi = 0 To 2
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecf(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 106).Value = myx
Next myi


For myi = 0 To 8
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecg(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 109).Value = myx
Next myi

For myi = 0 To 9
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSech(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 118).Value = myx
Next myi


For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSeci(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 128).Value = myx
Next myi


Windows("數位落差結案檔.xls").Activate
myx = Sheets("B結訓學員名冊").Range("d56").Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, 133).Value = myx


ActiveWorkbook.Save
ActiveWindow.Close
End Sub

excel vba - array 陣列

Sub 資料搬移()

Dim myx, myi



arydataSec1 = Array("g5", "k5", "k6", "c6", "c5", "g7") ' 開課基本資料
arydataSec2 = Array("b12", "b13", "b14", "b15", "b16") ' 滿意度1
arydataSec3 = Array("c12", "c13", "c14", "c15", "c16") ' 滿意度2
arydataSec4 = Array("d12", "d13", "d14", "d15", "d16") ' 滿意度3
arydataSec5 = Array("e12", "e13", "e14", "e15", "e16") ' 滿意度4
arydataSec6 = Array("f12", "f13", "f14", "f15", "f16") ' 滿意度5
arydataSec7 = Array("g12", "g13", "g14", "g15", "g16") ' 滿意度6
arydataSec8 = Array("h12", "h13", "h14", "h15", "h16") ' 滿意度7
arydataSec9 = Array("i12", "i13", "i14", "i15", "i16") ' 滿意度8
arydataSeca = Array("k12", "k13", "k14", "k15", "k16") ' 滿意度9
arydataSecb = Array("b21", "b22", "b23", "b24", "b25", "b26", "b27", "b28", "b29", "b30", "b31", "b32", "b33", "b34", "b35", "b36", "b37", "b38", "b39", "b40", "b41", "b42", "b43", "b44", "b45", "b46", "b47", "b48", "b49", "b50") ' 居住統計
arydataSecc = Array("f21", "f22", "f23") ' 性別
arydataSecd = Array("f25", "f26", "f27", "f28", "f29", "f30", "f31", "f32", "f33", "f34", "f35", "f36", "f37", "f38", "f39") ' 出生統計
arydataSece = Array("f41", "f42", "f43", "f44", "f45", "f46") ' 族群統計
arydataSecf = Array("f48", "f49", "f50") ' 成績統計
arydataSecg = Array("k21", "k22", "k23", "k24", "k25", "k26", "k27", "k28", "k29") ' 學歷統計
arydataSech = Array("k33", "k34", "k35", "k36", "k37", "k38", "k39", "k40", "k41", "k42") ' 職業統計
arydataSeci = Array("k45", "k46", "k47", "k48", "k49", "k50") ' 課程統計



For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec1(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 1).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec2(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 7).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec3(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 12).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec4(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 17).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec5(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 22).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec6(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 27).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec7(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 32).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec8(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 37).Value = myx
Next myi

For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSec9(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 42).Value = myx
Next myi


For myi = 0 To 4
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSeca(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 47).Value = myx
Next myi

For myi = 0 To 29
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecb(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 52).Value = myx
Next myi

For myi = 0 To 2
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecc(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 82).Value = myx
Next myi


For myi = 0 To 14
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecd(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 85).Value = myx
Next myi


For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSece(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 100).Value = myx
Next myi


For myi = 0 To 2
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecf(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 106).Value = myx
Next myi


For myi = 0 To 8
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSecg(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 109).Value = myx
Next myi

For myi = 0 To 9
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSech(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 118).Value = myx
Next myi


For myi = 0 To 5
Windows("數位落差結案檔.xls").Activate
myx = Sheets("滿意度調查統計表").Range(arydataSeci(myi)).Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, myi + 128).Value = myx
Next myi


Windows("數位落差結案檔.xls").Activate
myx = Sheets("B結訓學員名冊").Range("d56").Value
Windows("問卷統計.xls").Activate
ActiveCell.Offset(0, 133).Value = myx


ActiveWorkbook.Save
ActiveWindow.Close
End Sub

來自WENDY的祝福信 - 拍手功

手功
方法：

手心合掌，十指張開，用力量來拍手，拍掌面愈大，剌激愈大、治病效果愈好。
因為手上佈滿全身的穴道，拍手可以帶動十二經脈和奇經八脈的循環，
活化全身各組織器官，排出身上的陰寒和污濁的氣。
所有的病都是因氣血失調所造成的，拍手可促進氣血的暢通，增加扺抗力。
拍手功的效用
（一）拍手功可以增加免疫力對於平常容易感冒的人非常有效。
用力拍手不停，不要怕痛，愈痛愈有效。
（二）對全身關節酸痛、冬天手腳冰冷、虛弱體質的人可改善病情。
（三）可改善高血壓、低血壓、糖尿病、排尿困難、皮膚病…等。
（四）拍手可排除多餘的酸性物質，使身體成健康的弱鹼性。
（五）可以補充人體的氧氣，正常體內細胞。
（六）拍手功是一種陽剛的氣功，打開胃口，使人有信心，有活力，也可抗癌。
（七）拍手功可治百病。
建議事項：
（一）不宜飽飯後練，飯後要過半小時才能練。
（二）公園空氣清新，是練功的好所在。
（三）晚餐休息後，一面散步一面拍手，可助消化。
（四）最少要拍二十分鐘，拍到全身發汗，效果更好。
（五）如果拍手的聲音太大，妨礙別人的安寧，則可用變通的方法拍手，但效果減半，所以練功的時間要增加。
（六）最好手腳配合，一面走一面拍，或原地踏步拍手，搭車外出時坐著拍。
（七）老年人兩腳無力最好不坐著拍，因為氣血注雙手過多兩腳更加無力，切記。
變通的方法：

用空心掌拍手，也就是將手掌弓起來，拍手時手掌仍應張開，拍下去時，

只有拍到手掌的邊緣部分，效果差一些，但只要拍打久一點，還是有功效。

只要手指每個部分充分按摩到，或用力搓都可得到促進暢通氣血之效。

發明此功者邱水旺先生，曾患骨癌，癌細胞已進入骨髓，醫院宣佈治療無效，請他回家另覓偏方。後來他學脈相學而研究此功，也醫好了他的病。

來自WENDY的祝福信 - 拍手功

手功
方法：

手心合掌，十指張開，用力量來拍手，拍掌面愈大，剌激愈大、治病效果愈好。
因為手上佈滿全身的穴道，拍手可以帶動十二經脈和奇經八脈的循環，
活化全身各組織器官，排出身上的陰寒和污濁的氣。
所有的病都是因氣血失調所造成的，拍手可促進氣血的暢通，增加扺抗力。
拍手功的效用
（一）拍手功可以增加免疫力對於平常容易感冒的人非常有效。
用力拍手不停，不要怕痛，愈痛愈有效。
（二）對全身關節酸痛、冬天手腳冰冷、虛弱體質的人可改善病情。
（三）可改善高血壓、低血壓、糖尿病、排尿困難、皮膚病…等。
（四）拍手可排除多餘的酸性物質，使身體成健康的弱鹼性。
（五）可以補充人體的氧氣，正常體內細胞。
（六）拍手功是一種陽剛的氣功，打開胃口，使人有信心，有活力，也可抗癌。
（七）拍手功可治百病。
建議事項：
（一）不宜飽飯後練，飯後要過半小時才能練。
（二）公園空氣清新，是練功的好所在。
（三）晚餐休息後，一面散步一面拍手，可助消化。
（四）最少要拍二十分鐘，拍到全身發汗，效果更好。
（五）如果拍手的聲音太大，妨礙別人的安寧，則可用變通的方法拍手，但效果減半，所以練功的時間要增加。
（六）最好手腳配合，一面走一面拍，或原地踏步拍手，搭車外出時坐著拍。
（七）老年人兩腳無力最好不坐著拍，因為氣血注雙手過多兩腳更加無力，切記。
變通的方法：

用空心掌拍手，也就是將手掌弓起來，拍手時手掌仍應張開，拍下去時，

只有拍到手掌的邊緣部分，效果差一些，但只要拍打久一點，還是有功效。

只要手指每個部分充分按摩到，或用力搓都可得到促進暢通氣血之效。

發明此功者邱水旺先生，曾患骨癌，癌細胞已進入骨髓，醫院宣佈治療無效，請他回家另覓偏方。後來他學脈相學而研究此功，也醫好了他的病。

今天結束BLOG教學

今天結束BLOG教學 , 我才發現BLOG有太多人想接觸
又不想花太多時間在BLOG的使用 , 真是有些茅頓
不過還好 本班的同學個個都有自己的BLOG於課程結束前
請各位網友們要多多點閱本BLOG右側的教育部同仁喔
其實他們是長官喔
也可以點一下文化大學 , 巨匠 , 我的老師 等
再次謝謝大家 讓我有學習的進步空間

教育部的長官真的很利害

長官們
玩BLOG真的很有行銷技巧喔
也很用功 許多長官的版面都改好了
真是太站了

今天學會思考了

今天的課是創意創新 , 所以 教授訓練大家思考
我大致整理了一下
一思考 : 不外乎是解決當前的問題 , 或是開發新的問題
首先一定要有方向 , 而這個思考的方向是以驗證為技巧
例如 : 當大家都說試算表很好用時 , 我們該如何驗證試算表很好用
方法有 一 找一群人作假 , 說它好用
二 真的讓使用者上機使用 , 並可以解決丄作問題
三 找一個比較差的試算軟體作比較
四 可以拍廣告宣傳 , 每天給人們洗腦
所以今天課堂的思考模式和我過去不同 , 我以前的方法是
找出結論 , 再由結論往前推導應有的流程 , 看看是否流程所笙生的結果
是否等同於結論
今天收獲真是很多

二解決問題 : 一定要準備好所有狀況的問題 , 經過討論 看如何採用何種方法
可以最節省時間 達到最大效益 , 以節省成本 取得最大利潤

BLOG三欄樣式模版

以下是找到的BLOG三欄模版 , 歡迎長官試試
下载模板：
http://www.box.net/shared/zd0jnze6sn

免費聽英文

大家參考喔
http://www.esl-lab.com/
如果想知道詳細解答，請接著按「Quiz Script」，就會出現完整的文章與重要單字

學英文

大家好 , 記得去年說要練英文
今年我要讀書 , 結果發現 年紀大 真的要多努力
雖說本人尖炸 , 但是記不住這件事已悄悄找上我了
雖說本人腳滑 , 但是裝不多也來問候我
天Y , 要是我沒經濟壓力 , 要是我再年輕一些
肯定我會愉快許多
介紹MSN學英文的網站給大家
My friend and I are going to visit New York at the same time but we are staying at different hotels. I am supposed to call her hotel when I arrive, but I not sure what to say. When I call, is it better to say "Is Yoko Takahashi there" (my friend name) or "I want to speak to room 525?"

這一段英文來自於http://englishtown.msn.com.tw/sp/teacher.aspx
大家要加油喔