返回列表 上一主題 發帖

夢想工作表

myleoyes

帖子
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

帖子
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

帖子
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
  1. Sub 年度項目()
  2.    Dim Y, C%, TILE$, Sh As Worksheet
  3.    Sheets("首頁").Activate
  4.    On Error GoTo Er:
  5. Ag:
  6.     Y = InputBox("輸入年度" & TILE, , 99)
  7.     If Y = "" Then Exit Sub
  8.     Set Sh = Sheets(Y & "年度夢想")
  9.     With Range("A4:E4")
  10.         .Insert 'Shift:=xlDown
  11.         .Cells(0, 1).NumberFormatLocal = "YYYY/MM/DD"
  12.         .Cells(0, 1) = Y & "/1/1"
  13.         .Cells(0, 2) = Sh.Name
  14.         For I = 1 To Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Cells.Count
  15.             .Cells(0, I + 2) = Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Areas(I)
  16.         Next
  17.    End With
  18.    Exit Sub
  19. Er:
  20.    TILE = Chr(10) & "  *** 找不到 " & Y & "年度夢想 工作表 ***"
  21.    Resume Ag
  22. End Sub
複製代碼

TOP

myleoyes

帖子
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

帖子
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) 就是公式的參數
應該是 如圖的需求 你沒有說清楚

  1. Sub 年度項目()
  2. Dim Y, C%, TILE$, Sh As Worksheet
  3. Sheets("首頁").Activate
  4. On Error GoTo Er:
  5. Ag:
  6. Y = Application.InputBox("輸入年度" & TILE, , 99)
  7. If Y = False Then Exit Sub
  8. If Y = "夢想" Then
  9. Set Sh = Sheets("夢想")
  10. Else
  11. Set Sh = Sheets(Y & "年度夢想")
  12. End If
  13. With Range("A4:E4")
  14. .Insert 'Shift:=xlDown
  15. .Cells(0, 1).NumberFormatLocal = "YYYY/MM/DD"
  16. .Cells(0, 1) = Y & "/1/1"
  17. .Cells(0, 2) = Sh.Name
  18. For I = 1 To Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Cells.Count
  19. .Cells(0, I + 2) = Sh.Range("A:A").SpecialCells(xlCellTypeFormulas).Areas(I)
  20. Next
  21. End With
  22. Exit Sub
  23. Er:
  24. TILE = Chr(10) & " *** 找不到 " & Y & "年度夢想 工作表 ***"
  25. Resume Ag
  26. End Sub
複製代碼

TOP

myleoyes

帖子
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)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2010-8-4 10:08 | 只看該作者
回復 6# myleoyes
修改範圍
I = 1
For Each A In Sh.Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeFormulas).Cells
        .Cells(0, I + 2) = A
        I = I + 1
Next

TOP

myleoyes

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

論壇贊助勳章論壇榮譽勳章
8#
發表於 2010-8-4 21:16 | 只看該作者
回復 7# GBKEE
GBKEE前輩你好!
　　　　 良師!謝謝!這樣就對辛苦囉!!
         另有一問題麻煩請再指導
         謝謝再三!!

Leov19.rar (43.84 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2010-8-5 08:16 | 只看該作者
回復 8# myleoyes
Formula->公式  Ex:   Range("a5").Formula="=a1+a8"
R = InputBox("請更改公式", , ActiveCell.Formula)

TOP

myleoyes

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

論壇贊助勳章論壇榮譽勳章
10#
發表於 2010-8-5 21:12 | 只看該作者
回復 9# GBKEE
GBKEE前輩你好!
　　　　 良師!謝謝!辛苦囉!!
         謝謝再三!!

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題