2009年6月20日星期六

今天illustrator的作品


快速的水彩畫

今天到龍潭上課 - ACER

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

2009年6月17日星期三

ACCESS - 的方法

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

2009年6月16日星期二

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

2009年6月15日星期一

認識大家很高興

新的網站

申請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

2009年6月14日星期日

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

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱