各位大神想請教Private Sub CommandButton1_Click()C = Range("A1").End(xlDown).Row + 1Cells(C, 1) = 123End Sub這樣我按了CommandButton1他並沒有 ... ... <看更多>
vba cells用法 在 【Excel VBA教學】17 Cells屬性加上For 迴圈練習 - YouTube 的推薦與評價
【加入】支持電腦學習園地https://www.youtube.com/channel/UCYkWZY6-NlkU6qEkEtK3s0Q ... ... <看更多>
vba cells用法 在 [問題] 關於Excel VBA 搜尋符合條件的儲存格問題- 看板Office 的推薦與評價
Worksheets("Sheet2").Select
Cells.Find(What:="關鍵字1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
Range(Worksheets("Sheet2").Cells(data_long, 3), Worksheets("Sheet2").Cells(data
_long, 10)).Copy
Worksheets("Sheet1").Select
Worksheets("Sheet1").Cells(i, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
data_long = 0
---------------------------------------------------------
Worksheets("Sheet2").Select
Cells.Find(What:="關鍵字2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
'
Range(Worksheets("Sheet2").Cells(data_fix, 3), Worksheets("Sheet2").Cells(data
_fix, 10)).Copy
Worksheets("Sheet1").Select
Worksheets("Sheet1").Cells(i, 10).Select
ActiveSheet.Paste
Application.CutCopyMode = False
data_long = 0
------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "關鍵字1" Then data_long = Target.Row
If ActiveCell.Value = "關鍵字2" Then data_fix = Target.Row
End Sub
這個語法..第一部份是在Sheet2找"關鍵字1"
比如說 此關鍵字是在B15
然後把C3到J15選取複製貼到Sheet1的某位置
請問其中Cells(date_long,3)代表什麼意思?
相同的第二部份也有..Cells(data_fix, 3)
這種用法是???
謝謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.6.13.220
※ 編輯: spce 來自: 124.6.13.220 (06/26 23:33)
... <看更多>