emma

回復 52# GBKEE


     GBKEE版大，您好，又有一個新的想法想請教您，如果說想要讓使用者輸入完一筆資料之後，就跳出視窗顯示部份訊息的話，
不曉得怎麼把相關的顯示結果帶到TextBox裡，謝謝您^^

下載 (241.27 KB)

2013-4-22 15:35

VBAtest15.rar (32.51 KB)

下載次數: 6

2013-4-22 15:39

emma

回復 54# GBKEE

    謝謝 GBKEE 版大，另外有個小問題想再請教一下，就是累積點數的表示方式.TextBox2可以顯示出,千分位的符號嗎?例「1,234,567,890] 這樣
    或者是說想顯示「1萬2仟3佰4拾5點」這種表示方式，可以嗎?
   

下載 (14.38 KB)

2013-4-24 12:17

emma

回復 56# GBKEE

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

emma

回復 56# GBKEE


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

emma

回復 60# GBKEE


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

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     '１２,３４５萬６千７百８十
   
4.     Dim Dot As Long, m As String, t As String, t1 As String
   
5.     m = "0萬0仟0佰0拾0"
   
6.     Dot = Sheets("工作表1").[A1]
   
7.     If Len(CStr(Dot)) = 1 Then m = "0"
   
8.     If Len(CStr(Dot)) = 2 Then m = "0拾0"
   
9.     If Len(CStr(Dot)) = 3 Then m = "0佰0拾0"
   
10.     If Len(CStr(Dot)) = 4 Then m = "0仟0佰0拾0"
    
11.     t = Format(Dot, m)
    
12.    'Sheets("工作表1").[B1] = Format(Dot, m)
    
13.     With Sheets("工作表1")
    
14.     t1 = Replace(t, "拾0", "拾")
    
15.     t1 = Replace(t1, "0拾0", "")
    
16.     t1 = Replace(t1, "0拾", "")
    
17.     t1 = Replace(t1, "0佰", "")
    
18.     Sheets("工作表1").[A4] = t1
    
19.     End With
    
20. End Sub

複製代碼

test2.rar (16.1 KB)

下載次數: 7

2013-5-1 21:04

emma

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

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


VBAtest13.rar (29.8 KB)

下載次數: 0

2016-5-17 19:25