12
返回列表 上一主題 發帖

[發問] 用迴圈判斷sheet名稱是否相同，並複製(已解決~感謝各位)

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-16 23:04 | 只看該作者

[發問] 用迴圈判斷sheet名稱是否相同，並複製(已解決~感謝各位)

本帖最後由 iceandy6150 於 2012-2-22 21:54 編輯

我有兩個sheet，一個是<功能>，另一個是<1>
<1>裡面有設定按鈕，能統計裡面的資料，我要當樣本
<功能>裡面我設了一個textbox可以輸入數量，還有按鈕，按了會自動複製該數量的sheet加在<1>後面
               而且名稱自動增加<2>，<3>，<4>，......
可是寫不太出來，求助板上大大

Private Sub CommandButton1_Click()
    Dim E          '這是看別人寫的
    Dim a, b As String
    Dim c As Integer
b = textbox1.text   '抓數量過來，所以把b定義String

For a = 2 To b
      
    For Each E In Sheets
            If   E.Name = a   Then          '判斷目前檔案中所有sheet是否同名
              MsgBox (a + "重覆了")
              c = 1
              Exit For
            Else
              c = 0
             MsgBox (a+"未重覆可新增")
             Exit For
           End If
        Next
   
     If c = 0 Then
     Worksheets(a - 1).Copy after:=Worksheets(a - 1)
     ActiveSheet.Name = a
     End If
Next
End Sub

希望目標是a=2判斷一次，a=3判斷一次.......。一開始只有<1>很好新增
但若把數量從5改8，再按一次，照理說<1><2><3><4><5>會顯示重覆了，只新增<6><7><8>
不過好像跑不出來，迴圈好像也迴了好幾次 @_@"
收藏 分享
哈囉~大家好呀

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
17#
發表於 2012-2-17 15:06 | 只看該作者
回復 16# Hsieh


    感謝您的解答

因為我是幫忙改良，使用者是中年以上的歐巴桑了
太難的東西怕她不會用，她也習慣舊的方式了
不然資料庫的確是好物
(看她舊的做法純粹用EXCEL去指定然後加減乘除，檔案大得不得了，又容易出錯)

很謝謝大家熱心解答喔!
哈囉~大家好呀

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
16#
發表於 2012-2-17 14:35 | 只看該作者
回復 15# iceandy6150
將銷售細目以資料庫型態儲存才是正道
若你一定要將每張銷售單做成一個工作表，在統計上會很麻煩
當然你的方法去找每張工作表然後找到品名與數量後去統計當然也行，不過這樣不是浪費很多空間與時間嗎?
至於你說的工作表名稱是數字時要如何指定
就是將數字轉成字串
例如
for i=1 to 5
sheets(cstr(i)).select
next
學海無涯_不恥下問

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
15#
發表於 2012-2-17 14:16 | 只看該作者
回復 14# hugh0620

因為檔案需要用EXCEL去計算，每日要印日報表，還有上中下旬報表(1~10、11~20、21~30)，月報表
品項可能高達60項，每個月品項多少會更動。比如編號1是黑松汽水，下個月可能改乖乖
用sheet的話，使用者只需要改字，旬報和月報的名稱、單價等可以用 ='1'!C3 這種方式連帶更動

所以 1日.xls檔案中可能有20張單，2日.xls可能有30張單....以此類推
因為不想固定每天都50個sheet，才想說能不能用新增的功能

每張單(sheet)依購買者資料輸入各品項的數量，例如乖乖6包，汽水5罐，...等
再列印出來 (類似發票系統，只會印出購買者有買的物品，沒買的不印) 。這部分我ok

接下來是計算日報表
如何把sheet的名稱用變數去指定，研究不出來

sheet名稱為1的品項1的數量+<2>的品項1的數量+<3>的品項1的數量+.....+到最後一張單
設i=1   sheet(i)會是檔案中第一個sheet，而不是檔案中名稱為1的sheet

卡在這裡......>"<
哈囉~大家好呀

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
14#
發表於 2012-2-17 12:37 | 只看該作者
回復 13# iceandy6150

    樓主大致上應該可以拼湊出來~ 你大概要結果~
    如果要依您原始的寫法~ 流程上大概就會是如下
    檔案儲存的方式
        採用一天一個FILE
   每個檔案的執行方式
    1.輸入
        1.1. 先行展開N個購物清單
        1.2. 依紙本購物清單一個一個輸入到每個SHEET
        1.3.  當購物清單有加追時~ 再去展開新增幾個SHEET
    2. 計算
        2.1 統計檔案中每一個SHEET的數量
     (職業病~ 比較會先從整個作業流程來思考後~ 再去設計適當的工具~ )
     (若覺不適用~ 想略過唷~~)
     若是依上述的方式在處理~ 個人會比較建議改變流程
     思考點:  
          若資料是一張張紙本資料輸入到EXCEL的話
          不建議用展開SHEET的方式來處理
          建議:設計一個物件表單來處理~ 反而會更適合
          如下圖的方式
         
學習才能提升自己

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
13#
發表於 2012-2-17 10:44 | 只看該作者
本帖最後由 iceandy6150 於 2012-2-17 11:24 編輯

回復 10# hugh0620

你好，我目前的需求是，一個檔案裡面有一個sheet名稱只叫做1，(其實是購物清單1)
然後我要產生20份(textbox輸入)，就會有20張購物清單，當然每張單的購物內容不一
例如生意好，要追加到30份，textbox輸入30，按鈕產生，前20張單必須保留不動，只新增21~30
所以才要寫防呆，避免手誤把前20份單給砍了。

現在我遇到一個問題，每日要產生日報表
我寫一個for去跑每張單(每個sheet)的每個品項看數量多少

假設每張單有10種產品
今天有20張單   textbox輸入20   要統計每種產品賣出多少
for i=1 to Val(TextBox1)
       t=t+worksheets(i).cells(1,1).value      <---這邊要怎麼指定名字為1的sheet。 worksheets(1)會變成檔案裡面第一個sheet，很可能是<功能>或<命令>
end for
我真的不太會了
哈囉~大家好呀

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2012-2-17 10:25 | 只看該作者
回復 10# hugh0620
取新增最大編號
  1. Private Sub CommandButton1_Click()
  2. Application.ScreenUpdating = False
  3. For Each sh In Sheets
  4.    If IsNumeric(sh.Name) Then s = CInt(sh.Name)
  5. Next
  6. k = Val(Sheets(1).TextBox1)
  7. If k > s Then
  8. For i = 1 To k - s
  9.   Sheets(1).Copy after:=Sheets(Sheets.Count)
  10.   ActiveSheet.Name = CStr(s + i)
  11. Next
  12. End If
  13. Application.ScreenUpdating = True
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2012-2-17 10:24 | 只看該作者
本帖最後由 GBKEE 於 2012-2-17 10:31 編輯

回復 8# iceandy6150
回復 10# hugh0620
  1. Private Sub CommandButton2_Click()
  2.     Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
  3.     A = 6
  4.     For Each Sh In Sheets
  5.         If IsNumeric(Sh.Name) Then xSH = xSH + 1
  6.     Next
  7.     If xSH = 0 Then Exit Sub   '這裡 可除錯
  8.     For xi = xSH + 1 To A
  9.         Sheets("1").Copy , Sheets(Sheets.Count)
  10.         Sheets(Sheets.Count).Name = xi
  11.     Next
  12. End Sub
複製代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
10#
發表於 2012-2-17 10:06 | 只看該作者
樓主~
G大大或H大大都是很厲害的高手~

但站在SA的角度~ 其實還是會有一定的BUG存在
G大大的程式碼~ 當sheet.Name 不是出現的連續號碼~ 會產生錯誤
如 textbox1.text=6 執行後~
再隨便砍掉非sheet.name=6的任何一張sheet~ 再重新執行時~ 就會產生bug

若不考量已有的sheet是需要被保留的~ 建議保留基本的sheet~ 其他1,2,3...sheet 建議刪除後~
再重新跑出來~
例.每一次sheet1跑出的資料,都一樣~ 就可以用此方式
例.第一次跑出sheet1的資料與第二次跑出來的sheet1不一樣時~ 就不能這樣的方式~

樓主~  提供這些建議是因為有時使用者不是自己時~ 會產生不同的可能性~
在設計時~ 能盡量考量的完整~ 及結合一些預防可能發生的因素~
會讓你設計出來的工具能夠真正的被使用~
學習才能提升自己

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
9#
發表於 2012-2-17 09:45 | 只看該作者
版主大大~~我修改了一下，可以用了耶
好棒阿!!!!
Private Sub CommandButton2_Click()
   
    Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
    A = Val(TextBox1)
    For Each Sh In Sheets
        If IsNumeric(Sh.Name) Then xSH = xSH + 1
    Next
    For xi = xSH + 1 To A
        Sheets("1").Copy , Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = xi
    Next

End Sub

感謝再感謝~~
哈囉~大家好呀

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題