喜歡攝影的我,喜歡到處拍拍照,吃點當地的特色食物。 跟朋友聊天之餘,推薦我寫成網誌跟大家分享。 沒外出的日子,喜歡在家當隱性宅,寫程式看看書,追劇。 希望我的手札文,不會讓你翻桌 XD
2023年7月31日 星期一
VBA:變數配置Set
VBA:工作表 屬性:COPY
第一種:
變數TEMP:存放要複製的工作表名稱
直接複製,會生成一頁一模一樣的工作表在獨立的工作簿當中
Private Sub CommandButton1_Click()
TEMP = ActiveSheet.Range("f7")
Sheets(TEMP).Copy
End Sub
第二種:
針對TEMP作工作頁複製,並複製到最後一頁
sheets. Count:總工作表
變數TEMP:存放要複製的工作表名稱
AFTER:=:用來控制位置之後的位置
Private Sub CommandButton1_Click()
TEMP = ActiveSheet.Range("f7")
Sheets(TEMP).Copy AFTER:=sheets.Item(sheets.Count)
End Sub
BEFORE:=:用來控制位置之前的位置
Private Sub CommandButton2_Click()
TEMP = ActiveSheet.Range("f7")
Sheets(TEMP).Copy BEFORE:=Worksheets.Item(1)
End Sub
第三種:
指定工作表,指定複製位置
Private Sub CommandButton3_Click()
TEMP1 = ActiveSheet.Range("f7")
TEMP2 = ActiveSheet.Range("f8")
Sheets(TEMP1).Copy AFTER:=Worksheets.Item(Sheets(TEMP2).Index)
End Sub
Private Sub CommandButton4_Click()
TEMP1 = ActiveSheet.Range("f7")
TEMP2 = ActiveSheet.Range("f8")
Sheets(TEMP1).Copy BEFORE:=Worksheets.Item(Sheets(TEMP2).Index)
End Sub
VBA:簡單說說RANGE與CELLS 語法比較
ActiveSheet:目前正在使用中的工作表,name工作表的名稱屬性
cells、range儲存格物件
圖一個儲存格,不同的取得資料的方式
ActiveSheet.Name = ActiveSheet.Range("E4")
ActiveSheet.Name = ActiveSheet.cells(4,5)
指數變化(2024.10.25)
指數變化(2024.10.25) 上周焦點: 美國非農就業 UP25萬4千人 失業率:4.1% 美國核心CPI 10/09 月升0.3% 美國密西根大學信心指數 10/11 68 本周愛看: 非農就業比較重要 11/1 但...
-
寫給自己速查 垂直屬性:HorizontalAlignment 水平屬性:VerticalAlignment 置中:xlCenter 靠左靠右:XLLEFT、XLRIGHT Sheets("工作表1").Range("m2").Ve...
-
迴歸基本概念: 2變數 X與Y之間的統計關係,為一非確定值得關係,當X的值確定後,Y的值並非唯一恆定值。而用以表示如此2變數X與Y間的數學模式稱為迴歸方程式或機遇模式。 圖1. 如圖1體重與身高的散佈圖,身高(X)與體重(Y)的關係,身高(X)為因變數,體重(Y)則為反應變數;...
-
整理資料時,不免要判斷資料數量,在判斷資料時,資料有時會有不連續與連續資料,這時候判斷方式不盡相同 連續資料時: a行於65000儲存格以前的最後列,有點饒舌;應該是這樣看,從a65000往上找(xlup),找到的第一個儲存格,也相對於是a行在65000列之前最後一列。 END...