麻辣家族討論版版 » Excel程式區 » 錄製VBA小毛病

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

錄製VBA小毛病

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: WINDOWS 10
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: 台灣新北
註冊時間: 2016-5-24
最後登錄: 2024-3-18

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-6-3 09:30 | 只看該作者

錄製VBA小毛病

各位大大，我錄製的巨集如下，大概功能就是K2+L2,K3+L3...最後再取代K欄，
我的VBA可能錄的比較醜，但是功能上大致是可以使用的。

最大的問題就是 Selection.AutoFill下拉函式的時候，
我沒辦法確定這個檔案有多少列，所以它會一直補0到9999列。
想請問這類型判別是否一定要使用迴圈才能解決？

感謝各位。

Sub 巨集2()
'
' 巨集2 巨集
'

'
Range("P2").Select
Selection.NumberFormatLocal = "G/通用格式"
ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]"
Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P9999")
Range("P2:P9999").Select
Selection.Copy
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("L:M,P:P").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 19.25
Range("L:M,1:1048576").Select
Range("O1").Activate
Selection.Columns.AutoFit
Selection.Rows.AutoFit
With Selection.Font
      .Name = "微軟正黑體"
      .Name = "Century Gothic"

End With

Range("A2").Select
End Sub

收藏

超級版主 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兔年全勤獎章

2^#

發表於 2016-6-4 07:25 | 只看該作者

本帖最後由 GBKEE 於 2016-6-5 07:16 編輯

回復 1# louiswei1986
我沒辦法確定這個檔案有多少列，所以它會一直補0到9999列
可以觀察工作表上的數據指定自動填滿儲存格位置

Option Explicit
Sub EX()
If Range("F1") > Range("P2").Row Then '** Range("F1")的數值 > Range("P2").Row(列號)
Range("P2").AutoFill Range("P2:P" & Range("F1"))
End If
End Sub
'*****************
Sub EX_1()
If Range("F1") > 0 Then '** 儲存格進行自動填滿的列數
With Range("P2")
.AutoFill .Cells.Resize(Range("F1"))
End With
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: WINDOWS 10
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: 台灣新北
註冊時間: 2016-5-24
最後登錄: 2024-3-18

3^#

發表於 2016-6-20 15:06 | 只看該作者

回復 2# GBKEE

超級版主您好，小弟愚魯，
不知道F1是哪裡來的呢？
測試這兩個巨集都是根據F1的值來運算多少列，
我的需求是希望他能計算到以B欄為主，
如果B欄是空白就停止。

再懇請指點。

“Since I’m inarticulate, I express myself with images” – Helen Levitt

超級版主 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兔年全勤獎章

4^#

發表於 2016-6-21 05:23 | 只看該作者

回復 3# louiswei1986

可以觀察工作表上的數據指定自動填滿儲存格位置

假設Range("F1") 如有公式=COUNTA(P2:P65536)

須依你工作表來判斷

With Range("P2")
.AutoFill .Cells.Resize( 要帶入的數值 )
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: WINDOWS 10
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: 台灣新北
註冊時間: 2016-5-24
最後登錄: 2024-3-18

5^#

發表於 2016-6-24 09:11 | 只看該作者

回復 4# GBKEE

好的，再嘗試看看，感謝。

“Since I’m inarticulate, I express myself with images” – Helen Levitt

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。

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