感謝文化的同學

今天文化大學的網路影像課程結束 , 非常感謝同學們的努力
對於班上的美女真的是令人映象深刻
大致有1 中和妹 , 真是不歪的妹妹 , 2 銀行妹 有閒到不行 , 3 春金妹 , 真是日本竹本家來的 , 前面有油條妹 , 很多油喔用看的 , 有一個同級妹 , 常坐船[暈] , 當然帥哥也一堆例如班頭 , 愛迪生 , 拉客高手等....
其他不及記載 , 總之謝謝大家
祝大家一路順風

我的記憶體要賣 － ２ｇ 〔７００〕

大家好
我的筆電記憶體要升級所以要賣
１ｇ　＝　３５０
有２個　，　是ｄｄｒ２－６６７
不單賣　，　要就二個　可以給我ｍａｉｌ喔
alexmysir@gmail.com

premiere -影片輪播

如何設計影片輪播
1 先要有一樣大的尺寸圖片或影片[格統一比較好處理]
2 啟動 Premiere
3 選取new / 設定位置 , 設定ntsc規格 / 確定
4 選取 file / import / 找檔案 [5張] / 開啟
5 將左上方的檔案 拖曳至時間軸中 / 分三個時間圖層 [video 1 , video 2 , video 3]
6 設定圖片的位置 [ 時間點每間格3秒 , 方便計算 ]
7 內容大致如下 : 0 [-400 ,200] , 3 [0 , 200] , 6 [ 400 , 200]這是video 1
3 [-400,200] , 6[0,200] , 9[400,200]這是video 2
6 [-400,200] , 9 [0 , 200] , 12 [400 , 200] 這是video 3
8 以後以此類推

EXCEL VBA - 自動加總

以下是學生的要求
我簡單的完成一些基本功能
Dim F_CALC, J_CALC, K_CALC
Dim xi, ti As Integer
Sub 執行答案()

複製工作表
計算Vender和
插入Product列
計算Product和

End Sub
Sub 計算Vender和()

Range("A4").Select
Selection.End(xlDown).Select

vnum = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
vsum = (vnum - 3) * (-1)
snum = -1

ActiveCell.Offset(0, 2).Value = "Total Amount of all venders"
For i = 6 To 17
ActiveCell.Offset(0, i).Formula = "=SUM(R[" & vsum & "]C:R[" & snum & "]C)"
Next i

End Sub


Sub 插入Product列()
ri = 4
ti = 0
Range("A4").Select
Selection.End(xlDown).Select
rnum = ActiveCell.Row
Range("A4").Select

While (ri <> rnum)

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
ti = ti + 1
tx = ActiveCell.Row + 1

Else

tnums = tx & ":" & tx
Rows(tnums).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

計算Product和

ActiveCell.Offset(1, 0).Select

End If

ri = ri + 1

Wend

ActiveCell.Offset(1, 0).Select


End Sub

Sub 計算Product和()
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(0, 1).Value = ActiveCell.Value & "total sum"

End Sub
Sub 插入列()
i = 4
xs = 0
xs1 = 0
xs2 = 0


Range("B4").Select
Selection.End(xlDown).Select
rnum = ActiveCell.Row
Range("B4").Select


x1 = ActiveCell.Value
x2 = ActiveCell.Offset(0, -1).Value
x3 = ActiveCell.Offset(0, 2).Value
x4 = ActiveCell.Offset(0, 3).Value
計算F
x6 = ActiveCell.Offset(0, 5).Value
x7 = ActiveCell.Offset(0, 6).Value
x8 = ActiveCell.Offset(0, 7).Value

計算TTL_Q
計算TTL_S

x10 = ActiveCell.Offset(0, 10).Value
x11 = ActiveCell.Offset(0, 11).Value
x12 = ActiveCell.Offset(0, 12).Value


If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
rsum1 = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 2).Value = x3
ActiveCell.Offset(0, 3).Value = x4
ActiveCell.Offset(0, 4).Value = F_CALC
xs = x6 + xs
xs1 = x7 + xs1
xs2 = x8 + xs2
ActiveCell.Offset(0, 8).Value = J_CALC
ActiveCell.Offset(0, 9).Value = K_CALC

Else
xs = x6 + xs
xs1 = x7 + xs1
xs2 = x8 + xs2
ActiveCell.Offset(1, 0).Select
rx = ActiveCell.Row
rnums = rx & ":" & rx
Rows(rnums).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

rc = "B" & rx
Range(rc).Select
ActiveCell.Value = x1
ActiveCell.Offset(0, -1).Value = x2
ActiveCell.Offset(0, 1).Value = "sub amount"
ActiveCell.Offset(0, 2).Value = x3
ActiveCell.Offset(0, 3).Value = x4

計算F

ActiveCell.Offset(0, 5).Value = xs
ActiveCell.Offset(0, 6).Value = xs1
ActiveCell.Offset(0, 7).Value = xs2
xs = 0
xs1 = 0
xs2 = 0

計算TTL_Q
計算TTL_S

rc = "B" & rx + 1
Range(rc).Select
i = i - 1

End If




i = i + 1

Wend


End Sub
Sub 執行()
複製工作表
插入列

計算TTL_Q

End Sub
Sub 複製工作表()

Sheets(1).Select
Sheets(1).Copy Before:=Sheets(1)
Sheets(1).Select
End Sub
Sub 陣列()

xx(0) = ActiveCell.Value
xx(1) = ActiveCell.Offset(0, -1).Value
For xi = 2 To 7

xx(i) = ActiveCell.Offset(0, xi).Value
Next

End Sub


Sub 計算TTL_S()
ActiveCell.Offset(0, 9).FormulaR1C1 = "=RC[-1]*RC[-5]"
K_CALC = ActiveCell.Offset(0, 9).Formula

End Sub
Sub 計算F()

ActiveCell.Offset(0, 4).FormulaR1C1 = "=RC[-2]+RC[-1]"
F_CALC = ActiveCell.Offset(0, 4).Formula

End Sub
Sub 計算TTL_Q()

ActiveCell.Offset(0, 8).FormulaR1C1 = "=RC[-3]+RC[-2]+RC[-1]"
J_CALC = ActiveCell.Offset(0, 8).Formula


End Sub

人生應有其他事可做

今日忙 , 今年忙 , 人生皆很忙 試想忙的定義
忙
定義 : 左心 , 右亡 , 也就是打心中開始做 一直做到亡
由音義解釋 : 不用眼睛 , 因為 盲 , 所以是四肢上的忙

研究一下 : 人生為何忙
等待下一版說明

今天illustrator的作品

快速的水彩畫

今天到龍潭上課 - ACER

今大到龍潭上課 - 學生的問題讓我學到很多東西
這一週要VBA程式 解決一位美女的問題
真的很不錯的問題 , 等我解決後我會將程式公佈在BLOG上
謝謝大家 , 到龍潭上課真的很不錯喔
謝謝ACER用心安排喔

ACCESS - 的方法

欄位設計 = iif([欄一]="V",1,0)+ iif([欄二]="V",1,0)+ iif([欄三]="V",1,0) , 這樣的設計搭配準則是有OR的效果喔
日期+N年 : 可以使用DATEADD個函數

EXCELVBA - 刪除相同列_留最大值

Sub 刪除相同列_留最大值()
'取列
i = 1

Range("B2").Select
Selection.End(xlDown).Select
x = ActiveCell.Row
rx = "a1:y" & x
'排序

Range(rx).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range( _
"A2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
Range("B2").Select

While (i <> x)


If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then

y = ActiveCell.Row
ry = y & ":" & y
Rows(ry).Select
Selection.Delete Shift:=xlUp
rb = "b" & y
Range(rb).Select
Else
ActiveCell.Offset(1, 0).Select



End If

i = i + 1
Wend



End Sub

認識大家很高興

新的網站

申請MAIL的好地方

網址如下: http://www.xuite.net/

EXCEL 密碼忘了可以試試這些資訊喔

以下資訊是由PCHOME與softking提供
http://www.softking.com.tw/soft/clickcount.asp?fid3=11339
或是
http://toget.pchome.com.tw/intro/utility_other/25783.html

EXCELVBA - 重覆選課

Sub 重覆選課()

'取列
i = 1

Range("C2").Select
Selection.End(xlDown).Select
x = ActiveCell.Row
rx = "a1:y" & x
'排序

Range("C2").Select
Range(rx).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:= _
Range("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("C2").Select


While (i <> x)


If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then

ActiveCell.Offset(0, 1).Select

If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(0, 21).Value = "重覆選課"
ActiveCell.Offset(1, 21).Value = "重覆選課"
ActiveCell.Offset(0, -1).Select

Else
ActiveCell.Offset(0, -1).Select
End If

End If


ActiveCell.Offset(1, 0).Select





i = i + 1
Wend

'還原
Range("A2").Select
Range(rx).Sort Key1:=Range("A2"), Order1:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, SortMethod:=xlStroke, DataOption1:=xlSortNormal



End Sub

今日到龍潭上課

找找車站的車影 , 擦肩而過的美女 , 居然都在渴望園區
太幸運了 , 今天上課心情超好的 , 這個班充滿活力
不帥哥就是美女 , 而且讓我大開眼界
誰言帥哥美女比較笨 , 這一班突破了這個謠言
最後祝這一班的朋友 要幸福唷
加油

EXCEL VBA - 自動填值

Sub 自動填值設計()
i = 1

Range("A2").Select
Selection.End(xlDown).Select
x1 = ActiveCell.Row

Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False



Range("A2").Select
While (i <> x1)
If ActiveCell.Value <> Empty Then
r1 = ActiveCell.Value
r2 = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select


Else
ActiveCell.Value = r1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = r2
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(1, 0).Select
End If
i = i + 1

Wend

End Sub