麻辣家族討論版版 » Excel程式區 » Bubblesort 的迷思在文字+數值格式時?

返回列表下一主題上一主題發帖

[發問] Bubblesort 的迷思在文字+數值格式時?

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-6-21 12:54 | 只看該作者

[發問] Bubblesort 的迷思在文字+數值格式時?

各位大大，這個問題我查了蠻久了但始終沒辦法單用VBA解決(目前用split然後再由後面數值用Bubblesort)，功力不夠...
如果單純用Bubblesort排出來像醬:
javascript:;javascript:;

常常遇到文字+"-"或"/"或"#" 的格式，困擾蠻久的，有大大也遇過這種問題嗎? 麻煩提點一下，感激不盡^^

圖片 20150621124951.png (6.7 KB)

詭異的排列

Bubblesort.rar (13.21 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

2^#

發表於 2015-7-1 10:13 | 只看該作者

回復 1# ui123

給你參考看看

Sub ex() '格式化文字，將數字變成固定長度文字補00
Debug.Print Format("62", "0000")
Debug.Print Format("00062", "####")
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-7-1 11:51 | 只看該作者

回復 1# ui123

先文字排序，再數字排序
應該可以達成你要的效果！

Sub Bubblesort()
Dim i, j As Integer
Dim arr, si, sj, s As Variant
arr = Range("a4:a" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(i, 1) > arr(j, 1) Then
s = arr(i, 1)
arr(i, 1) = arr(j, 1)
arr(j, 1) = s
End If
Next
Next
For i = 1 To UBound(arr)
For j = i + 1 To UBound(arr)
si = Split(arr(i, 1), "-")
sj = Split(arr(j, 1), "-")
If si(0) = sj(0) Then
If si(1) + 1 > sj(1) + 1 Then '+1是讓"文字型的數字"變為"數字"
s = arr(i, 1)
arr(i, 1) = arr(j, 1)
arr(j, 1) = s
End If
End If
Next
Next
[a4].Resize(UBound(arr)) = arr
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-7-1 15:15 | 只看該作者

回復 1# ui123

是這樣嗎?

Option Explicit
Sub Ex()
Dim Rng As Range, Sp As Variant
Set Rng = Range("a4")
Do While Rng <> ""
Sp = Rng
For i = 1 To Len(Rng)
If Mid(Rng, i, 1) Like "[!A-z]" And Mid(Rng, i, 1) Like "[!0-9]" Then
'Mid(Rng, i, 1) 不是文字,數字.
Sp = Replace(Sp, Mid(Sp, i, 1), ",") '+"-"或"/"或"#" 替換為 ","
End If
Next
Sp = Split(Sp, ",")
With Rng.Cells(1, 2).Resize(1, UBound(Sp) + 1)
.Value = Sp
.Value = .Value
End With
Set Rng = Rng.Offset(1)
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2015-7-2 17:39 | 只看該作者

回復 4# GBKEE
我明天去公司試試看 ^^~ 先謝謝囉!

靜思自在 : 話多不如話少，話少不如話好。

返回列表下一主題上一主題