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

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

2^#

發表於 2012-2-17 00:04 | 顯示全部帖子

回復 iceandy6150

Private Sub CommandButton1_Click()
If TextBox1 "" Then
For i = 1 To Val(T ...
Hsieh 發表於 2012-2-16 23:44

大大，你的方法可以新增.....輸入的數量的sheet
可是我要以<1>這個sheet為樣本，所有新增的都是複製<1>
另外是防呆功能
例如第一次輸入5 ----> 程式新增 <2><3><4><5> (1原本就有)
但後來覺得5個不夠用，於是輸入8--->程式判斷1~5已經有了，不新增。6~8新增
(這樣1~5內的資料不會被動到)

謝謝

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

3^#

發表於 2012-2-17 00:16 | 顯示全部帖子

回復 4# Hsieh

哇~太神奇了吧
雖然我看不太懂什麼意思
但是貼上程式後測試
ok耶~~~
太感謝你了~~:loveliness:

我知道的函數太少了，非常弱的新手一個:'(

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

4^#

發表於 2012-2-17 08:33 | 顯示全部帖子

回復 iceandy6150
Hsieh 發表於 2012-2-17 00:10

超級版主不好意思
今天測試發現一些小問題
用sheet.count是可以算出sheet的數目
但是我可能有<功能><命令>等sheet存在
例如我現有的sheet是 <功能><測試><命令><1>
如果textbox輸入4，那麼將不會動作，因為sheet數量有4個了
輸入5，會變成<功能><測試><命令><1><5>

目標是每次核對目前所有sheet的名稱是否有相同的
若有則不新增，若無才新增
而且新增時只新增純數字名稱的sheet
不會把其他非數字名稱的sheet算入

謝謝

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

5^#

發表於 2012-2-17 09:38 | 顯示全部帖子

回復 7# GBKEE

大大請問一下
你的程式要怎麼放?
我這樣放好像不能動... (我放在按鈕裡面)
Private Sub CommandButton2_Click()
Option Explicit
Sub Ex()
Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
A = 6
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
End Sub

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

6^#

發表於 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

感謝再感謝~~

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

7^#

發表於 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
我真的不太會了

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

8^#

發表於 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

卡在這裡......>"<

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

9^#

發表於 2012-2-17 15:06 | 顯示全部帖子

回復 16# Hsieh

感謝您的解答

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

很謝謝大家熱心解答喔!

哈囉~大家好呀