[發問] 篩選?關鍵字?查詢?

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

64^#

發表於 2016-5-17 19:31 | 只看該作者

各位前輩們好，因為當初這個檔案設計的時間已久，加上很多程式是依賴各位大大們協助完成的，所以有功能想要做新的異動，但想很久都試不出來，只好再厚著臉皮上來求助

附件中的『未出貨清單』工作表是從『查詢』工作表中的資料彙整過去的，以前是把同「活動狀態」及「品名」的筆數整合在同一列上，
現在想要每一筆都列出來，相同的資料如果大於二筆，就多一列小計幫忙計算筆數，最後總筆數是全部的加總。
不曉得是否能這麼設定，麻煩大大們了，謝謝^^

VBAtest13.rar (29.8 KB)

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

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

63^#

發表於 2013-5-2 06:47 | 只看該作者

回復 61# emma

Option Explicit
Private Sub Ex()
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String, t As String, i As Integer
m = "0萬0仟0佰0拾0 " '加上一空格:處理個位數為0
Dot = Sheets("工作表1").[A1]
t = Format(Dot, m)
For i = IIf(Len(t) > 10, 3, 1) To Len(m) Step 2
'IIf(Len(t) > 10, 3, 1) 處理萬位數為0
t = Replace(t, Mid(m, i, 2), "")
Next
Sheets("工作表1").[A4] = t
'Sheets("工作表1").[A4] = RTrim(t)
'LTrim、RTrim 與 Trim 函數
'傳回一個沒有前頭空白 (LTrim)、後面空白 (RTrim) 或前後均無空白的Variant (String)，
End Sub

複製代碼

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

Hsieh

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

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

62^#

發表於 2013-5-2 00:14 | 只看該作者

回復 61# emma

Function Read_Number(MyNum)
n = Right(MyNum, 4)
a = Array("拾", "百", "千")
k = Len(n)
i = k
Do Until i = 0
If Val(Mid(n, i, 1)) > 0 And i < k Then
m = Mid(n, i, 1) & a(j): j = j + 1
ElseIf i = k Then
m = IIf(Val(Mid(n, i, 1)) = 0, "", Mid(n, i, 1))
Else
m = IIf(Val(Mid(n, i, 1)) = 0, "零", Mid(n, i, 1) & a(j))
j = j + 1
End If
t = m & t
i = i - 1
Loop
For i = 3 To 2 Step -1
t = Replace(t, String(i, "零"), "零")
Next
s = Val(Left(MyNum, Len(MyNum) - k))
Read_Number = IIf(s = 0, "", Format(Val(Left(MyNum, Len(MyNum) - k)), "#,##0萬")) & t
End Function

複製代碼

學海無涯_不恥下問

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

61^#

發表於 2013-5-1 21:11 | 只看該作者

回復 60# GBKEE

謝謝 GBKEE 版大，您的方式不完全是我想要的結果，我是用了最笨的方式繞了一大圈做出我要的結果
起先我是用「=SUBSTITUTE(A4,"0拾","")」這種方式，但run的時候一直出現sub相關字的錯誤，所以才改為Replace，
但不曉得 GBKEE 版大對我這樣的做法有無更好的建議，還有我為了比照顯示的結果，本來用
Sheets("工作表1").[B1] = t
Sheets("工作表1").[B2] = t1
↑這樣來對照不同的顯示結果，但不曉得為什麼這樣執行會有當掉的情形

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String, t As String, t1 As String
m = "0萬0仟0佰0拾0"
Dot = Sheets("工作表1").[A1]
If Len(CStr(Dot)) = 1 Then m = "0"
If Len(CStr(Dot)) = 2 Then m = "0拾0"
If Len(CStr(Dot)) = 3 Then m = "0佰0拾0"
If Len(CStr(Dot)) = 4 Then m = "0仟0佰0拾0"
t = Format(Dot, m)
'Sheets("工作表1").[B1] = Format(Dot, m)
With Sheets("工作表1")
t1 = Replace(t, "拾0", "拾")
t1 = Replace(t1, "0拾0", "")
t1 = Replace(t1, "0拾", "")
t1 = Replace(t1, "0佰", "")
Sheets("工作表1").[A4] = t1
End With
End Sub

複製代碼

test2.rar (16.1 KB)

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

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

60^#

發表於 2013-5-1 17:41 | 只看該作者

回復 59# emma

Option Explicit
Sub EX()
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String
Dot = Int(123456789 / 1000)
m = "0萬0千"
MsgBox Format(Dot, m)
End Sub

複製代碼

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

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

59^#

發表於 2013-5-1 11:33 | 只看該作者

回復 56# GBKEE

謝謝 GBKEE 版大，那如果只想抓，仟跟萬就好，例如「123,000」就只顯示「12萬3仟」，現在的是「12萬3仟0佰0拾0」，那些"0"有辦法省略嗎?
如果不是用程式，而是一般的儲存格格式有辦法用函數之類的達到類似的設定嗎?還是就只能用vba去達到這種顯示效果?!
真的非常感謝您不厭其煩的回覆我的小問題^^

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

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

58^#

發表於 2013-4-30 15:35 | 只看該作者

回復 57# emma

Option Explicit
Sub EX()
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String
Dot = 123456789
m = "000萬0千0百0十0"
If Len(CStr(Dot)) = 1 Then m = "0"
If Len(CStr(Dot)) = 2 Then m = "0十0"
If Len(CStr(Dot)) = 3 Then m = "0百0十0"
If Len(CStr(Dot)) = 4 Then m = "0千0百0十0"
MsgBox Format(Dot, m)
End Sub

複製代碼

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

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

57^#

發表於 2013-4-30 12:59 | 只看該作者

回復 56# GBKEE

非常謝謝 GBKEE 版大，真的幫了大忙了，關於「'.NumberFormatLocal = "[DBNum2][$-404]G/通用格式" '大寫國字」
這個部份想再做更細一點的詢問，如果是1,234,567,890的話，以「"[DBNum3][$-404]G/通用格式"」套用後
顯示結果為「１億２千３百４十５萬６千７百８十９」，但實際上，要一部份數字一部份國字的原因只是為了讓使用人員好讀取，
不用一個個以個、拾、佰、仟、萬的數上去才得知總共是多少的點數，但可以只顯示國字到萬就好嗎?
例「１億２千３百４十５萬６千７百８十９」→「１２,３４５萬６千７百８十９」
↑可以這樣嗎?謝謝您了^^

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

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

56^#

發表於 2013-4-26 15:47 | 只看該作者

回復 55# emma

With Cells(Rows.Count, Columns.Count)
.Value = dot
.NumberFormatLocal = "[DBNum1][$-404]G/通用格式" '小寫國字
'.NumberFormatLocal = "[DBNum2][$-404]G/通用格式" '大寫國字
'.NumberFormatLocal = "#,##0_);[紅色](#,##0)" '千分位
End With
With UserForm2
.TextBox1 = Ar(s - 1)(0)
.TextBox2 = Cells(Rows.Count, Columns.Count).Text
.TextBox3 = M
.Show
End With

複製代碼

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