VBA外掛安裝
1/2
想要完成A表寫入,B表自動依次自動生成,需要VB來支援。如果你的電腦沒有安裝VB類的軟體,那麼就用要先下載一下WPSVBA外掛吧。網上搜WPSVBA,就會出現很多,隨便下載一個就可以。(因為我用的是WPS,所以沒有試過OFFICE如何);
2/2
WPS表格操作
1/6
2/6
3/6
4/6
輸入以下程式碼:(下面“明細“,指的是另一個工作表名,你可以根據自己自定義,程式碼,也是我借來,經過測試進行更改的,可能不夠完善,但是實踐可用。)
Private Sub CommandButton1_Click()
Dim f As Integer
f = Selection.Row
Rows(Selection.Row + 0 & ":" & f).Copy Sheets("明細").Cells(Rows.Count, 1).End(xlUp).Offset(1)
MsgBox "ok!"
End Sub
5/6
然後”退出設計“。
6/6
VBA外掛安裝
1/2
想要完成A表寫入,B表自動依次自動生成,需要VB來支援。如果你的電腦沒有安裝VB類的軟體,那麼就用要先下載一下WPSVBA外掛吧。網上搜WPSVBA,就會出現很多,隨便下載一個就可以。(因為我用的是WPS,所以沒有試過OFFICE如何);
2/2
WPS表格操作
1/6
2/6
3/6
4/6
輸入以下程式碼:(下面“明細“,指的是另一個工作表名,你可以根據自己自定義,程式碼,也是我借來,經過測試進行更改的,可能不夠完善,但是實踐可用。)
Private Sub CommandButton1_Click()
Dim f As Integer
f = Selection.Row
Rows(Selection.Row + 0 & ":" & f).Copy Sheets("明細").Cells(Rows.Count, 1).End(xlUp).Offset(1)
MsgBox "ok!"
End Sub
5/6
然後”退出設計“。
6/6