- 帖子
- 92
- 主題
- 18
- 精華
- 0
- 積分
- 195
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 台北
- 註冊時間
- 2010-8-15
- 最後登錄
- 2011-8-11
|
本帖最後由 solely 於 2010-12-9 21:06 編輯
將oobird版主的程式碼改成這樣XD
就可以呈現兩列~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g8] <> "" Then [c7:g10] = ""
If Not Intersect(Target, [C13:g17]) Is Nothing Then
[c7:g8].SpecialCells(4)(1) = Target
End If
If [g8] <> "" Then
[c9:g9] = [SMALL(c7:g8,column(a1:e1))*column(a1:e1)^0]
[c10:g10] = [SMALL(c7:g8,column(f1:j1))*column(f1:j1)^0]
End If
End Sub |
|
發表於 2010-12-9 21:05
| 