- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2015-8-13
- 最後登錄
- 2020-6-26
|
小弟來獻醜一下，還請各位大大指教...
1. 工作表上新增一個 CommandButton1，命名為"更新"
2. 在 CommandButton1_Click 內輸入以下內容：
Option Explicit
Private Sub CommandButton1_Click()
Dim SH1W As Worksheet
Dim Ra1 As Range
Dim X, Y
Set SH1W = Sheets("工作表1")
Set Ra1 = SH1W.Range("B2:B" & [B65536].End(xlUp).Row)
X = Ra1.Offset(1, 0).Resize(1, 1).Value
SH1W.Range("C3:O14").ClearContents
For Each X In Range("B3:B14")
For Each Y In Range("C2:O2")
If X = Y Then
Y.Offset(X.Row - 2, Y.Row - 2).Resize(1, 1).Select
Selection = "1"
End If
Next Y
Next X
End Sub
小弟也是剛學VBA沒多久，如果有錯，還請各位大大包涵~ |
|
發表於 2015-12-24 06:12
| 