返回列表 上一主題 發帖

[發問] 內碼找不到 aj ? 我可能定義錯誤???

tomtracy

帖子
39 
主題
12 
精華
0 
積分
59 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2015-7-31 
最後登錄
2020-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-18 13:52 | 只看該作者

[發問] 內碼找不到 aj ? 我可能定義錯誤???

這是我之前所做的按廠家分發表 , 因業務需要我增設了很多欄位  可是不知是那里修改錯了  卻無法執行 請各位高手幫忙 謝謝 按廠家進行分發-6月.rar (17.19 KB)
收藏 分享
三千年讀史, 不外功名利祿, 九萬里悟道, 終歸詩酒田園

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2015-8-18 22:33 | 只看該作者
回復 1# tomtracy


    你for ah = 1 To NameCount之後下面的next 不應該是aj，然後with完畢之後下面沒有接end with

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
3#
發表於 2015-8-18 22:39 | 只看該作者
大大把 aj 去掉
End Sub 上面插進一個 End With 就好啦

TOP

tomtracy

帖子
39 
主題
12 
精華
0 
積分
59 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2015-7-31 
最後登錄
2020-8-13 
4#
發表於 2015-8-19 07:53 | 只看該作者
我去掉aj 把 End With插入 可是仍不能正確執行
三千年讀史, 不外功名利祿, 九萬里悟道, 終歸詩酒田園

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
5#
發表於 2015-8-19 09:11 | 只看該作者
那大大想實現什麼呢

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
6#
發表於 2015-8-19 18:07 | 只看該作者
回復 4# tomtracy

大大這樣執行結果正確嗎？
  1. Sub Macr4()

  3. On Error Resume Next

  5. Dim mySheetName As String
  6. mySheetName = ActiveWorkbook.ActiveSheet.Name

  8. For Each sht In ActiveWorkbook.Sheets
  9. Application.DisplayAlerts = False
  10. '關閉警告視窗
  11. If sht.Name <> mySheetName Then sht.Delete

  13. Application.DisplayAlerts = True
  14. '恢復警告視窗
  15. Next sht


  18. With Sheets(mySheetName)
  19. .Columns("s:ah").ClearContents
  20. .Columns("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("R1"), Unique:=True
  21. End With

  23. Dim NameCount As Integer
  24. NameCount = Sheets(mySheetName).Range("R1").End(xlDown).Row - 1
  25. For ah = 1 To NameCount
  26. ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
  27. ActiveSheet.Name = Sheets(mySheetName).Cells(ah + 1, 18)
  28. Next


  31. Dim myName As String
  32. Sheets(mySheetName).Select
  33. For aj = 1 To NameCount
  34. myName = Range("R2")
  35. MsgBox myName
  36. Columns("s:ah").ClearContents
  37. Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  38. "R1:R2"), CopyToRange:=Range("s1"), Unique:=False
  39. Columns("s:ah").Copy Sheets(myName).Range("A1")
  40. Range("R2").Delete Shift:=xlUp
  41. Next aj
  42. Sheets(mySheetName).Columns("s:ah").ClearContents
  43. End Sub
複製代碼

TOP

tomtracy

帖子
39 
主題
12 
精華
0 
積分
59 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2015-7-31 
最後登錄
2020-8-13 
7#
發表於 2015-8-20 09:21 | 只看該作者
回復 6# owen06

感謝您  比我之前使用情況更好  謝謝
三千年讀史, 不外功名利祿, 九萬里悟道, 終歸詩酒田園

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題