帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-8-1 11:27 | 只看該作者

夢想工作表

各位前輩你們好!
　　前輩!問題如附檔案說明
請知道的前輩,不吝賜教謝謝再三!!

Leov18.rar (82.5 KB)

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2010-8-1 13:34 | 只看該作者

[版主管理留言]

GBKEE(2010-8-1 15:29): 在原文按編輯鍵將原檔案刪除重新上傳加以註明即可可以不必再發文

回復 1# myleoyes
各位前輩你們好!
　　    前輩!上次附檔案的下畫面筆誤
      再附檔案以免誤導前輩指導方向
      請知道的前輩,不吝賜教謝謝再三!!

Leov18-1.rar (86.11 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2010-8-1 16:54 | 只看該作者

回復 2# myleoyes

Sub 年度項目()
Dim Y, C%, TILE$, Sh As Worksheet
Sheets("首頁").Activate
On Error GoTo Er:
Ag:
Y = InputBox("輸入年度" & TILE, , 99)
If Y = "" Then Exit Sub
Set Sh = Sheets(Y & "年度夢想")
With Range("A4:E4")
.Insert 'Shift:=xlDown
.Cells(0, 1).NumberFormatLocal = "YYYY/MM/DD"
.Cells(0, 1) = Y & "/1/1"
.Cells(0, 2) = Sh.Name
For I = 1 To Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Cells.Count
.Cells(0, I + 2) = Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Areas(I)
Next
End With
Exit Sub
Er:
TILE = Chr(10) & " *** 找不到 " & Y & "年度夢想工作表 ***"
Resume Ag
End Sub

複製代碼

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2010-8-2 21:49 | 只看該作者

回復 3# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!程式無法接受儲存格有公式
再附檔參考看看請再辛苦囉!!謝謝再三!!

Leov18-2.rar (112.87 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2010-8-3 17:41 | 只看該作者

本帖最後由 GBKEE 於 2010-8-3 18:51 編輯

復 4# myleoyes
Leov18-2.xls 中只有夢想 Leov18-1.xls 中有夢想,99,100裡面都是公式
給你的程式中 .SpecialCells(xlCellTypeFormulas) 就是公式的參數
應該是如圖的需求你沒有說清楚

Sub 年度項目()
Dim Y, C%, TILE$, Sh As Worksheet
Sheets("首頁").Activate
On Error GoTo Er:
Ag:
Y = Application.InputBox("輸入年度" & TILE, , 99)
If Y = False Then Exit Sub
If Y = "夢想" Then
Set Sh = Sheets("夢想")
Else
Set Sh = Sheets(Y & "年度夢想")
End If
With Range("A4:E4")
.Insert 'Shift:=xlDown
.Cells(0, 1).NumberFormatLocal = "YYYY/MM/DD"
.Cells(0, 1) = Y & "/1/1"
.Cells(0, 2) = Sh.Name
For I = 1 To Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Cells.Count
.Cells(0, I + 2) = Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Areas(I)
Next
End With
Exit Sub
Er:
TILE = Chr(10) & " *** 找不到 " & Y & "年度夢想工作表 ***"
Resume Ag
End Sub

複製代碼

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2010-8-3 21:52 | 只看該作者

回復 5# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!歹勢!!
      你誤解問題所在...
      問題在於夢想工作表A欄的儲存格
      如果 A2="夢想"如再附檔Leov18-4
      不是公式所以程式執行後正確
      如果 A2=IF(AL4=3,"成真","夢想")
      如再附檔Leov18-3
      是公式所以程式執行後F與G多出資料
      而且C欄也錯,
      這就是凸槌所在,麻煩請再辛苦!!
      謝謝再三!!

Leov18-3.rar (114.68 KB)

Leov18-４.rar (113.97 KB)