ILLUSTRATOR - WORK

台北市中小企業知識學苑 - 大家可以去參加喔

　　　　活動費用：完全免費　
　　
　　課程名稱討論議題師資日期/時間地點報名
從金融海嘯看臺灣機會1.面對金融海嘯的衝擊與省思

2.全球危機經驗看企業價值

3.海嘯後產業重新洗牌 靠創新力

4.新生產力運動-六大新興產業

5.提升服務業產值 兩岸直航觀光打頭陣

6.ECFA台灣成為國際企業的創新與物流中心

7.中小企業的逆境創新力
經濟部經濟部

尹啟銘 部長

南僑集團

陳飛龍 會長

經濟日報

馬凱 總主筆6月27日（六）

09:30-12:30台灣科技大學101會議室

(台北市基隆路四段43號)馬上報名
　
　??報名活動：　
　　‧報名日期：即日起至額滿為止，名額有限，敬請報名從速，以免向隅。
‧報名網址：http://knowledge.taipei.gov.tw
‧報名諮詢專線：(02)2698-2989 趙小姐（分機2104）╱張小姐（分機2072）。
　
　

免費軟體 - 可以站住喔

不錯的網站
http://www.johnson-wang.idv.tw/

EXCEL VBA - 畫圓

進入EXCEL後 - 工具 / 巨集 / VBA編輯器
選取工作表名稱 / 按二下 / 輸入下列程式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim mycircle As Shape
Set mycircle = ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, 1, 1)
mycircle.Height = 200
mycircle.Width = 200
mycircle.Placement = xlMove
mycircle.Fill.Visible = msoFalse
mycircle.Fill.Transparency = 0#
mycircle.Line.Weight = 6#



End Sub



就可以任意畫圓了

網路開店訊息 - pchome

這是pchome的喔
希望可以幫助大家喔
《免費索取》PChome商店街網路創業成功經驗分享包★7/8台北、7/10台中、7/15高雄、7/17台南、7/17桃園、7/22豐原★網路開店說明會免費報名中！

最近大家都在問

最近大家都在問VBA的問題
等我將ACER美女的問題寫完
再告訴大家
其實VBA在撰寫以前一定要有流程喔
所以今天的發表就到此了
因為妹咕明天要遠足
現在是早上1:40分

感謝文化的同學

今天文化大學的網路影像課程結束 , 非常感謝同學們的努力
對於班上的美女真的是令人映象深刻
大致有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

人生應有其他事可做

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

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