入黎免費幫你砌excel表 / 教你formula (6)

斷J絕後 2021-3-20 15:12:32 留名學野

:^(

__name__ 2021-3-20 15:18:39 有sample file就易搞d
同埋你次次個.doc file都一樣格式？
vba可以靠錄製就做到大部分嘢

:^(

救回香港 2021-3-20 15:37:10

:^(

感激不盡

:^(

黑粉熊 2021-3-20 15:39:26

:^(

救回香港 2021-3-20 15:41:25 唔該曬巴打幾啱用
但想問下點樣去改個x series data 係row 唔係column
i.e. series 1= x1:x10 instead of c3:c52

:^(

PeterStrange 2021-3-20 15:41:33 巴打真係唔該哂你
你寫完我仲有咩好改

:^(

救回香港 2021-3-20 15:43:45 可唔可以幫手改下將佢個 x data series 打橫咁入（row）而唔係打直咁入(column)

:^(

so7ohno 2021-3-20 17:40:19 step 1 嘅 docx 係固定咗嘅 form
step 2 係 excel 會需要揀一兩項嘢去揀 template， template 有四個，會影響到排版，入面有一 d 數值會根據 step 1 個 docx 嘅 data 變
step 3 嘅 docx 就係根據 template 加貨幣去計數

:^(

vba 嘅錄製係咩 function 嚟？

__name__ 2021-3-20 17:57:48

 .FullSeriesCollection(i).XValues = sht.Range(Cells(firstRow + i, firstCol), Cells(firstRow + i, lastCol))
 .FullSeriesCollection(i).XValues = sht.Range(Cells(firstRow, firstCol), Cells(firstRow, lastCol))

addChartData入面做成咁就應該ok
收咗工用電話改，未經測試既

:^(

樓主唔駛客氣喎，大家交流下

:^(

我唔是好熟vba，可能你有更靚既寫法

:^(

__name__ 2021-3-20 18:10:18 https://www.managertoday.com.tw/columns/view/54010

求其google都搵到

:^(

錄製巨集，英文版叫record macro(好似係)
係Microsoft office入面包埋既功能
唔係vba既功能
作用係將你既指拎自動錄成一段vba既code
開始錄製->做一次你想做既嘢->停止錄製
咁你就會得到一段vba code
跟住就可以㩒一下就重複你頭先做咗一次既動作
注意係可以揀relative reference嚟錄，作用係類似offset

講返你個case，冇sample file好難搞，太彈性

:^(

so7ohno 2021-3-20 20:22:03

:^(

感謝

:^(

PeterStrange 2021-3-20 22:25:38 formula我就自問可以寫得好
VBA我自己都冇信心寫得靚
我都係寫到用到就算

:^(

Sasha_Vujačić 2021-3-22 14:17:53

:^(

有無一條formula 係可以 c 格仔有資料
D 格仔先計 a 格減b格

癸 2021-3-22 14:19:33 =IF(ISBLANK(C1),””,A1-B1)

:^(

Sasha_Vujačić 2021-3-22 14:19:43 我c格仔應該係日期黎

:^(

Sasha_Vujačić 2021-3-22 16:14:41 唔該哂

:^(

是金子總會發光 2021-3-24 09:06:37 Sub whole()
For Each sh In Sheets
Call delete
Next sh
End Sub

Sub delete()
N = 3
For i = 1 To 50
If Cells(4, N).Value = "" Then
Columns(N).Select
Selection.delete Shift:=xlToLeft
N = N - 1
End If
N = N + 1
Next
End Sub

有個timetable workbook (n個worksheet)
想做到VBA每個worksheet如果3:3嗰行某格有空格就全欄delete
剩係第一個sheet 行到delete 後面啲Sheet冇郁過

:^(

應該係紅字嗰兩行出事但我唔識改

:^(

全部google完自己改

:^(

感謝

:^(

癸 2021-3-24 09:14:30 即係第一張sheet成功咗？係嘅話就應該唔關delete事？

是金子總會發光 2021-3-24 10:05:04

:^(

癸 2021-3-24 10:09:49 Sub whole()
For Each sh In Thisworkbook.worksheets
Call delete
Next sh
End Sub

我估係咁
利申：手打冇test過

是金子總會發光 2021-3-24 10:17:07 真係得

:^(

感謝

:^(

請問係咩原理
google完都唔係好明thisworkbook activeworkbook 點用幾時用

癸 2021-3-24 10:35:20 應該你原本 Sheets 唔係用緊你想要嘅「全部sheet」

Activeworkbook 主要係當你個vba開幾本workbook嗰陣用，類似activesheets
不過正常開本workbook都有variable名，所以應該少用

是金子總會發光 2021-3-24 10:46:20 我仲有另一個sub AAA 因為行唔到我拆開咗試
但咁樣又得所以唔係好明幾時要用

:^(

Sub whole()
For Each sh In Sheets
Call AAA
Next sh
End Sub

傅家俊 2021-3-24 13:06:32 Thisworkbook 即係寫左code 果個Excel file
因為有時會開好多Workbook，quote thisworkbook就知係邊個

你上面段code就loop晒本workbook每一頁worksheet
每張worksheet都run AAA一次

十年前 2021-3-24 13:14:02 試過 8個if都仲work

:^(