麻辣家族討論版版 » Excel程式區 » EXCEL SHEET複製及某欄位自動跳號

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

[發問] EXCEL SHEET複製及某欄位自動跳號

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: 64BIT
閱讀權限: 10
性別: 女
註冊時間: 2015-3-4
最後登錄: 2021-11-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-3-5 08:55 | 只看該作者

[發問] EXCEL SHEET複製及某欄位自動跳號

問題1:
D1欄如填入12(不一定數),接著要複製SHEET 15張(不一定數)
這時D1欄會依SHEET一直跳到26(其餘欄位資料不動)

問題2:
B1欄如填入B0706(不一定數),第一個字一定是英文數字,接下來四位數字,
接著要複製SHEET 20張(不一定數)
這時B1欄會SHEET一直跳到B0725(其餘欄位資料不動)

用填入或按鈕方式皆可,不知是否複雜,有請高手回答,謝謝

BBI牙條標籤.rar (128.09 KB)

收藏

Kelly Wu

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: 64BIT
閱讀權限: 10
性別: 女
註冊時間: 2015-3-4
最後登錄: 2021-11-17

2^#

發表於 2015-3-5 09:05 | 只看該作者

不好意思 C14欄(為39條碼)及D15需依數字也要變(請看公式)

Kelly Wu

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2015-3-16 00:35 | 只看該作者

單一檔案沒連結沒其他檔案 ??

說明不清楚... 沒任何輔助說明....

文章寫的輸入不一定數複製某頁(不一定數)

說真的很難理解

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

4^#

發表於 2015-3-16 06:10 | 只看該作者

Sub xx()
For i = 2 To 5
Sheets(i).Cells(1, 1) = Sheets(i - 1).Cells(1, 1) + 1
Next
End Sub
Sub xxx()
For i = 2 To 5
x = Left(Sheets(1).Cells(1, 1), 1)
y = Val(Right(Sheets(1).Cells(1, 1), 4)) + i - 1
Z = Format(y, "0000")
Sheets(i).Cells(1, 1) = x & Z
Next
End Sub

複製代碼

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

5^#

發表於 2015-3-16 06:26 | 只看該作者

少看一句
不確定工作表
請改

For i = 2 To Sheets.Count

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

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