自由講場 今日: 197 | 主題: 1357457

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

21^#

發表於 14-6-7 14:50 |只看該作者

回樓主點評

我只是 copycat

全力支持捐血行動~

私人傳訊

itdididi

子爵府

積分: 13666

22^#

發表於 14-6-7 15:22 |只看該作者

回覆：Yubi.T 的帖子

係咪要學過寫program 至會理解巨集/vba 咖？

我睇到你個convert to 銀碼個例子，只係彩到一大串電腦語言，睇唔明啊

如果我唔識寫program ,咁仲有咩方法可以學到！

多謝你唔嫌我長氣！

私人傳訊

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

23^#

發表於 14-6-7 15:34 |只看該作者

itdididi 發表於 14-6-7 15:22
係咪要學過寫program 至會理解巨集/vba 咖？

我睇到你個convert to 銀碼個例子，只係彩到一大串電腦語言， ...

我唔識點講，VB 係唔洗點學過 programming 都好易學識，我都只係學過 pascal ga ja，同一早會用 casio fx3900 嚟寫吓 function 咁，唔係好識 programming，簡單再講多次，巨集係幫你做出一點常常都會用到而又重覆又重覆嘅步驟，例子：我要用政府統計處 d data 做統計，咁佢 5年 d data 分開 5 個 excel files 放，而我只係要 column A, C, F 嘅資料，我會錄一個巨集，將 column A, C, F 以外的 column 清除咗佢，咁呢個巨集就可以在上述 5 個 files 都用到，就唔洗自己做 5 次了

進入一步就係編輯巨集，入面果 d 就係 VBA，我上面有講點樣學 VBA，我會從自己常用的"步驟"學起，就如上面咁講，highlight 咗 "." 之後果 d 字再按 F1 嚟睇 help，從入面 d 範例入手，咁就好易問白 ga la

點評

emt1314 高手

發表於 14-8-19 22:34

全力支持捐血行動~

私人傳訊

Mrs.Kangaroo

公爵府

積分: 25364

24^#

發表於 14-6-7 16:17 |只看該作者

回覆：itdididi 的帖子

我記得，excel 有个function 糸可以將你做緊嘅steps record 低，变做macro. 咁你下次再要做相同嘅steps ，只需要run 个macro 就得。

Birth 15/3: W:4.2kg L:52cm HC:37.5cm
Day 09: W:4.37kg L:55.5cm HC:37cm
Day 46: W:7kg L:62m HC40.5cm
Day 82: W:~9.2kg L:~66cm
Day 112: W:~10.4kg

私人傳訊

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

25^#

發表於 14-6-7 16:23 |只看該作者

Mrs.Kangaroo 發表於 14-6-7 16:17
我記得，excel 有个function 糸可以將你做緊嘅steps record 低，变做macro. 咁你下次再要做相同嘅steps ， ...

你都識 la，唔洗暈俾我睇

全力支持捐血行動~

私人傳訊

Mrs.Kangaroo

公爵府

積分: 25364

26^#

發表於 14-6-7 16:28 |只看該作者

引用：Quote:Mrs.Kangaroo 發表於 14-6-7 16:17

原帖由 Yubi.T 於 14-06-07 發表
你都識 la，唔洗暈俾我睇

唏，我識講唔識做架。

Birth 15/3: W:4.2kg L:52cm HC:37.5cm
Day 09: W:4.37kg L:55.5cm HC:37cm
Day 46: W:7kg L:62m HC40.5cm
Day 82: W:~9.2kg L:~66cm
Day 112: W:~10.4kg

私人傳訊

itdididi

子爵府

積分: 13666

27^#

發表於 14-6-7 16:34 |只看該作者

回覆：Yubi.T 的帖子

嗚

好勁啊你地。

我用黎用去都係將d cells 加加減減，同埋set 下 formula 咋。

好多謝你的回答！

私人傳訊

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

28^#

發表於 14-6-7 16:36 |只看該作者

itdididi 發表於 14-6-7 16:34
嗚
好勁啊你地。

我通常係用嚟處理大量 data 先會用

全力支持捐血行動~

私人傳訊

kishibabe

伯爵府

積分: 18924

29^#

發表於 14-6-7 16:46 |只看該作者

引用：+本帖最後由+Yubi.T+於+14-6-5+10:16+編輯+

原帖由 Yubi.T 於 14-06-05 發表
本帖最後由 Yubi.T 於 14-6-5 10:16 編輯

勁

私人傳訊

kishibabe

伯爵府

積分: 18924

30^#

發表於 14-6-7 16:47 |只看該作者

引用：Quote:原帖由+Yubi.T+於+14-06-05+發表本帖

原帖由 kishibabe 於 14-06-07 發表
勁

出錯公仔

私人傳訊

bigorange

大宅

積分: 4308

31^#

發表於 14-6-7 16:58 |只看該作者

引用：Quote:itdididi 發表於 14-6-7 16:34 嗚好

原帖由 Yubi.T 於 14-06-07 發表
我通常係用嚟處理大量 data 先會用

請問可唔可以由數字轉為中文大寫？例如: 喺儲存格輸入"$11000" ----就自動轉為 "壹萬壹仟元" ?

私人傳訊

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

32^#

發表於 14-6-7 17:01 |只看該作者

本帖最後由 Yubi.T 於 14-6-7 17:04 編輯

bigorange 發表於 14-6-7 16:58
請問可唔可以由數字轉為中文大寫？例如: 喺儲存格輸入"$11000" ----就自動轉為 "壹萬壹仟元" ?

...

可以，不過今日唔得閒改了，要放工啦

另外，中文同英文的寫法有不同，如1萬，英文係 10k ，㚽大改先得，再唔係可以上網搵 source 嘅，我份工唔洗處理銀碼，所以無 template 啊

點評

BOLOOIL

妳好叻呀

發表於 14-6-9 15:06

全力支持捐血行動~

私人傳訊

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

33^#

發表於 14-6-7 17:07 |只看該作者

bigorange 發表於 14-6-7 16:58
請問可唔可以由數字轉為中文大寫？例如: 喺儲存格輸入"$11000" ----就自動轉為 "壹萬壹仟元" ?

...

一上網就搵到

Function exchange(ByVal Myinput)
Dim Temp, TempA, MyinputA, MyinputB, MyinputC
Dim Place As String
Dim J As Integer
Place = "分角元拾佰仟萬拾佰仟億拾佰仟萬"
integer1 = "壹貳參肆伍陸柒捌玖"
integer2 = "正零元零零零萬零零零億零零零萬"
digitvalue = ""
If Myinput < 0 Then digitvalue = "負"
Myinput = Int(Abs(Myinput) * 100 + 0.5)
If Myinput > 999999999999999# Then
exchange = "數字太大了！"
Exit Function
End If
If Myinput = 0 Then
exchange = "零元零分"
Exit Function
End If
MyinputA = Trim(Str(Myinput))
digitlength = Len(MyinputA)
For J = 1 To digitlength
MyinputB = Mid(MyinputA, J, 1) & MyinputB
Next
For J = 1 To digitlength
Temp = Val(Mid(MyinputB, J, 1))
If Temp = 0 Then
MyinputC = Mid(integer2, J, 1) & MyinputC
Else
MyinputC = Mid(integer1, Temp, 1) & Mid(Place, J, 1) & MyinputC
End If
Next
digitlength = Len(MyinputC)
For J = 1 To digitlength - 1
If Mid(MyinputC, J, 1) = "零" Then
Select Case Mid(MyinputC, J + 1, 1)
Case "零", "元", "萬", "億", "正":
MyinputC = Left(MyinputC, J - 1) & Mid(MyinputC, J + 1, 30)
J = J - 1
End Select
End If
Next
digitlength = Len(MyinputC)
For J = 1 To digitlength - 1
If Mid(MyinputC, J, 1) = "億" And Mid(MyinputC, J + 1, 1) = "萬" Then
MyinputC = Left(MyinputC, J) & Mid(MyinputC, J + 2, 30)
Exit For
End If
Next
exchange = digitvalue & Trim(MyinputC)
End Function

複製代碼

全力支持捐血行動~

私人傳訊

bigorange

大宅

積分: 4308

34^#

發表於 14-6-7 21:14 |只看該作者

引用：Quote:bigorange 發表於 14-6-7 16:58 請問

原帖由 Yubi.T 於 14-06-07 發表
一上網就搵到

唔該哂你呀

不過咁大堆字符嘅？！

要慢慢慢慢研究

私人傳訊

shareholder

珍珠宮

積分: 36264

35^#

發表於 14-6-7 21:19 |只看該作者

好難架用VBA

菩提自性本來清淨，但用此心直了成佛。

私人傳訊

積分: 117069

+3金熱血畀面勳章 BK猜猜猜慶中秋 BK Milk勳章 hashtag影視迷勳章育兒性格勳章開心吸收勳章

36^#

發表於 14-6-7 21:29 |只看該作者

引用：Quote:原帖由 Yubi.T 於 14-06-07 發表一上

原帖由 bigorange 於 14-06-07 發表
唔該哂你呀不過咁大堆字符嘅？！要慢慢慢慢研究

...

我都未研究，不過我認我係copycat 茂錯ga la

全力支持捐血行動~