Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-9-23 13:59 | 只看該作者

本版值得關注的主題將陸續增加

本帖最後由 Hsieh 於 2013-1-16 23:28 編輯

01.For...Next 與 For Each...Next 迴圈的基本概念

02.提高ADO性能的优秀经验

03.使用 SpecialCells 方法的迷思

04. Excel 的規格及限制(摘錄自Excel 說明)

05.使用ADO查詢DataBase

06.自訂Applicatoin事件/監控所有活頁簿/做成增益集

07.同時跑兩個程式!

08.依照變數更改CommandButton底色

09.檔案操作範例 (Dir / Filesystem Object)

10.取得系統資訊/使用者資訊

11.VBA的寫作技巧與增進效能

12.Dictionary物件的認識與應用

13. 跨檔案（工作簿）使用使用名稱

14.加入工具選單的簡例

15.VBA中使用陣列公式

16.使用資料>驗證>儲存格的下拉式清單，可以讓下拉顯示窗格增加列數嗎?

17.產生另一個程序之程式碼

18.用程式寫程式 (VBProject / VBComponents)

19.巨集病毒(瞭解原理，預防病毒)
19-1.EXCEL巨集病毒案例與病毒原理解說
19-2.VBA列出工作表名稱時模組變成工作表且顯示非常隱藏

20.表單控制項共用一個巨集(類似物件類別)

21.Clipboard - 存取剪貼簿

22.物件類別基本模型

樓主熱帖

學海無涯_不恥下問

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2016-1-15 09:46 | 只看該作者

回復 4# fifi0217

1. 應該很多人想養一隻可以自己下單的機器人
2. 券商的API下單機都很簡單, 拿到了根本沒用處,只能手動
3. 很多大大應該都自己有寫, 分享出來可以節省新手時間,讓大家可以多花時間在下單策略上

這邊是討論VBA的地方，自然希望大家多交流VBA的寫法
你這樣完全本末倒置了，伸手真的很簡單。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

fifi0217

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: WIN8
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2014-10-15
最後登錄: 2015-12-16

4^#

發表於 2015-12-9 09:49 | 只看該作者

回復 1# Hsieh

請問版大可不可以增加一個:
自動程式下單股票/期貨?
原因:
1. 應該很多人想養一隻可以自己下單的機器人
2. 券商的API下單機都很簡單, 拿到了根本沒用處,只能手動
3. 很多大大應該都自己有寫, 分享出來可以節省新手時間,讓大家可以多花時間在下單策略上

感謝!!:handshake

TOP

mhl9mhl9

中學生 Rank: 2

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

3^#

發表於 2014-3-12 18:14 | 只看該作者

回復 1# Hsieh
09.檔案操作範例 (Dir / Filesystem Object),十分受用,25000個file就3秒就完成,很想使用,改了多時,,對遞歸不太瞭解,不得要領,所以求你幫助,看能不能幫我改改:
1. folder要讓user選擇,我寫了個function,如下,基本可以使用
Function GetFolderName() As String
Dim fds As Object
Set fds = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "請選擇資料夾"
.AllowMultiSelect = False
.Show
GetFolderName = .SelectedItems(1) & "\"
End With
End Function
2. 我需要得到user選擇的資料夾里所有文件(包括子資料夾里)清單,用數列傳回Arr(1 to n),每個文件包括路徑和文件名
3. vb里可以寫幾句用資料夾名和文件名來篩選所需要的資料夾和所需要的文件.
自己實在改不好,請求幫手,謝謝你

lmh

TOP

jillhuang

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 10
性別: 女
來自: Taiwan
註冊時間: 2010-5-18
最後登錄: 2018-3-27

論壇贊助勳章

2^#

發表於 2012-2-1 11:29 | 只看該作者

本帖最後由 jillhuang 於 2012-2-1 12:05 編輯

您好!!目前公司有個較為複雜的程式需求,因為我自己對Excel只有初步的認識,實在沒辦法自己寫,
所以想找人幫忙,可是又沒辦法發短消息給您,只好在這裡留言,可否給我您的聯絡方式(E-Mail信箱),可以與您做進一步聯絡!!
隨帖附上我的Email,可否與我聯絡謝謝
[email protected] Jill

TOP