EXCEL\PPT中同玩VBA——VBA编程基础及简单程序实例(从头开始)

zhaozyuan · 发表于 2009-10-4 10:06

来来来，我们来学SQL（By Scarlett_88 ）
http://club.excelhome.net/viewthread.php?tid=461997&page=1#pid3011714

zhaozyuan · 发表于 2009-10-4 10:08

[第36期]万里挑一 (ADO) （by ldy）
http://club.excelhome.net/viewthread.php?tid=326210&page=1#pid2095618

zhaozyuan · 发表于 2009-10-4 10:27

管中窥豹 VBA学习的扩展方法--新人进阶必读(ldy)
http://club.excelhome.net/viewthread.php?tid=453696&page=1#pid2950734

zhaozyuan · 发表于 2009-10-4 14:48

常用工具使用技巧第一节（傻瓜也会SQL）开源(彭希仁)
http://club.excelhome.net/viewthread.php?tid=488309&page=1#pid3203388

zhaozyuan · 发表于 2009-10-4 21:31

if i=0 then A=true else A=false
if j=0 then B=TRUE ELSE B=FALSE

wangzqxa · 发表于 2009-10-5 10:05

高手如云，关键心地善良！！！

zhaozyuan · 发表于 2009-10-5 10:37

原帖由 wangzqxa 于 2009-10-5 10:05 发表
高手如云，关键心地善良！！！

感谢光临和赞美

china047 · 发表于 2009-10-5 15:37

好东西，做个记号，回头再慢慢下载！！！

zhaozyuan · 发表于 2009-10-5 19:08

原帖由 china047 于 2009-10-5 15:37 发表
好东西，做个记号，回头再慢慢下载！！！

恩我也常做记号

zhaozyuan · 发表于 2009-10-6 22:57

'快速排序算法，对字符串数组进行排序
   'By:宏fans
   'QQ:1158268815
   'Date:2009-10-6 22:54:21
   '3Q 老朽 for Color VBA Code
Private Sub qsort()
   'By:宏fans    QQ:1158268815
On Error GoTo erhandler
Dim arr(65000) As String , smg$
Randomize
For I = 0 To 64999
      arr(I) = CStr (Rnd)
Next
   t = Timer
Call quicksort(arr, 0, UBound (arr))
smg = "排序用时" & Format(Timer - t, "0.000") & "秒"
Debug.Print smg
Application.Speech.Speak smg
Exit Sub
erhandler:
MsgBox Err.Description
End Sub
   'By:宏fans
   'QQ:1158268815
   'Date:2009-10-6 22:54:21
   '3Q 老朽 for Color VBA Code
Private Sub quicksort(ByRef arrValue() As String , ByVal intLx As Long , ByVal intRx As Long )
   'By:宏fans    QQ:1158268815
'arrValue()是待排的数组，intLx,intRx为左右边界
Dim strValue As String
Dim I, j, intLoop As Long
I = intLx
j = intRx
Do
While arrValue(I) <= arrValue(j) And I < j: I = I + 1: Wend
If I < j Then
      strValue = arrValue(I)
      arrValue(I) = arrValue(j)
      arrValue(j) = strValue
End If
While arrValue(I) <= arrValue(j) And I < j: j = j - 1: Wend
If I < j Then
      strValue = arrValue(I)
      arrValue(I) = arrValue(j)
      arrValue(j) = strValue
End If
Loop Until I = j
I = I - 1: j = j + 1
If I > intLx Then
Call quicksort(arrValue, intLx, I)
End If
If j < intRx Then
Call quicksort(arrValue, j, intRx)
End If
End Sub

[ 本帖最后由 zhaozyuan 于 2009-11-24 17:38 编辑 ]

		自动登录	找回密码
密码			免费注册

[原创] EXCEL\PPT中同玩VBA——VBA编程基础及简单程序实例(从头开始)

练习答案

排序报时（需要Excel安装语音功能）